?? edit.asp
字號:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=session("oabusyname")
oabusyusername=session("oabusyusername")
oabusyuserdept=session("oabusyuserdept")
oabusyuserlevel=session("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<title>車輛調配</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #Include File=../inc/css.asp -->
<script language=JavaScript>
function oninput()
{
//組成完整的使用期限字符串
document.submitinput.Csyqixian.value ="";
document.submitinput.Csyqixian.value +=document.submitinput.fromYear.value + "-"
document.submitinput.Csyqixian.value +=document.submitinput.fromMonth.value + "-"
document.submitinput.Csyqixian.value +=document.submitinput.fromDay.value + "至 "
document.submitinput.Csyqixian.value +=document.submitinput.toYear.value + "-"
document.submitinput.Csyqixian.value +=document.submitinput.toMonth.value + "-"
document.submitinput.Csyqixian.value +=document.submitinput.toDay.value + ""
rphtml('Csyzhe','Cbeizhu');
document.all.submitinput.submit();
}
</script>
<%
on error resume next
Server.ScriptTimeOut =4
dim Number,opFlag,title,image
Number=cint(request("Number"))
opFlag=request("opFlag")
dim toYear,toMonth,toDay,Cfenpei,fenpei
'toYear,toMonth,toDay分別表示使用期限下限的年月日
'Cfenpei,fenpei是用來傳遞分配字段的值
Set rs = Server.CreateObject("ADODB.Recordset")
if opFlag="cmdAddNew" then
else
rs.Open Session("SQL"),oconn,1,3
rs.move Number
'還原顯示預約期限
temptime = "" & rs("Cyyqixian")
fromYear = mid(temptime,1,4)
fromMonth = mid(temptime,6,2)
fromDay = mid(temptime,9,2)
toYear = mid(temptime,13,4)
toMonth = mid(temptime,18,2)
toDay = mid(temptime,21,2)
'還原顯示分配字段的值
fenpei = "" & rs("Cfenpei")
Cfenpei = mid(fenpei,1,6)
end if
title="車輛調配"
image="../images/car.gif"
%>
<style>
.css0{border:none;}
</style>
<script language=JavaScript>
function ds(sstr)
{
var dstr="";
for (i=0;i<sstr.length;i++)
{
if (sstr.charAt(i)!=' ') dstr+=sstr.charAt(i);
}
return dstr;
}
</script>
</head>
<body>
<form name="submitinput" action="save.asp?opFlag=<%=opFlag%>&Number=<%=Number%>" method="post" >
<!-- #include file="../inc/title.asp" -->
<table cellspacing=1 cellpadding=2 width=95% bgcolor=#49A7F4 border=0 class=vtext align="center">
<tr bgcolor=ffffff>
<td width="98" align="right" nowrap height="25">車輛信息：</td>
<td width="484" >
<p align=left>
<select name="Cbianhao" style="width:350" >
<%
dim rs2
'在車輛信息框中顯示carmanage表中記錄的車型和車牌
SET rs2=Server.CreateObject("ADODB.RecordSet")
rs2.ActiveConnection = oconn
rs2.CursorType = 1
rs2.LockType =3
rs2.open "select Cbianhao,Cchexin,Cchepai from carmanage order by Cbianhao"
while not rs2.eof
response.write("<option value='" & rs2("Cbianhao") & "'>" & left(rs2("Cchexin")& " ",10) & " | " & rs2("Cchepai") & "</option>")
rs2.movenext
wend
%>
</select>
</p>
</td>
</tr>
<tr bgcolor=ffffff>
<td width="98" align="right" nowrap height="25">預約者：</td>
<td width="854" >
<input id="預約者" size=90 name=Cyyzhe class=css0 style="width=100%" value="<%=rs("Cyyzhe")%>" readonly>
</td>
</tr>
<tr bgcolor=ffffff>
<td width="98" align="right" nowrap height="25">預約日期：</td>
<td width="854" >
<input id="預約日期" size=90 name=Cyyriqi class=css0 style="width=100%" value="<%=rs("Cyyriqi")%>" readonly>
</td>
</tr>
<tr bgcolor=ffffff>
<td width="98" align="right" nowrap height="25">預約使用期限：</td>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -