?? lendedit.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" -->
<% '定義變量
dim image,title,opFlag,Number,pass
dim titlelist
Server.ScriptTimeOut=4
opFlag=request("opFlag")
if opFlag="" then opFlag="cmdAddNew"
Number=request("Number")
if Number="" then Number="0"
on error resume next
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select DISTINCT vnumber,vtitle,doctime,affix from document",Session("conn"),1,1
titlelist=""
while not rs.eof
titlelist=titlelist & "<option value='" & rs("vtitle") & "^" & rs("vnumber") & "^" & rs("doctime") & "^" & rs("affix") & "'>" & rs("vtitle") &"</option>"
rs.movenext
wend
rs.close
if opFlag="cmdAddNew" then
pass=Session("id")
else
if opFlag="cmdlend" then
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
pass=Session("id")
else
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
end if
end if
title="檔案借閱"
image="../images/document.gif"
%>
<style>
.css0 {<%=Session("vinputtext")%> ;border:0;}
SELECT {font-size:12px};
</style>
<script language="JavaScript">
function getit()
{
if (parseInt(document.submitinput.aff.value)<parseInt(document.submitinput.affix.value))
{
alert("您輸入的附件數量超過實際數據，請重新輸入!");
document.submitinput.affix.focus();
return;
}
rphtml('vnumber','affix','lend','uses','pass');
if (MM_validateForm('vnumber','','R','lend','','R','uses','','R','pass','','R'))
document.submitinput.submit()
}
function goback()
{
javascript:history.go(-1)
}
function add_users(to)
{
var return_value;
return_value=showModalDialog("../public/userlist.asp?muilt=yes&to=" + to,"","dialogWidth:25;dialogHeight:16;dialogTop:250;dialogLeft:260;status:no;scrollbars:no;help:no");
if((typeof(return_value)=="undefined") ||(return_value=="*") || (return_value==""))
return;
else
var str1="";
var str2="";
tmpstr=return_value.split("*");
str1=tmpstr[0];
str2=tmpstr[1];
document.submitinput.all(str2).value=str1 ;
}
function setname(ifrom,ito1,ito2,ito3,ito4)
{ if(document.all(ifrom).value!='')
{
temp=document.all(ifrom).value.split('^')
document.all(ito1).value=temp[0]
document.all(ito2).value=temp[1]
document.all(ito3).value=temp[2]
document.all(ito4).value=temp[3]
document.submitinput.affix.focus();
}}
</script>
</head>
<body>
<form name="submitinput" method="post" action="lendsave.asp?opFlag=<%=opFlag%>Number=<%=Number%>">
<!-- #include file="../inc/title.asp" -->
<input type="hidden" name="aff">
<table cellspacing=1 cellpadding=2 width=95% bgcolor=<%=Session("vtablebordercolor")%> border=0 class=vtext align="center">
<tr>
<td width="108" align="right" bgcolor="<%=Session("vtabletitlebackcolor")%>" class=p9>檔案名稱(H):</td>
<td colspan="5" class=p9 bgcolor="<%=Session("vcolcolor")%>"><input class=css0 style="width=60%" accesskey="h" onKeyDown=gonext("vnumber") name="vtitle" type="text" readonly id="檔案名稱" value="<%=rs("vtitle")%>"><%if opFlag="cmdAddNew" then%><select name="titlelist" class=css0 style="width=40%" accesskey="z" onChange=setname('titlelist','vtitle','vnumber','doctime','aff')><option value=""> ■ 請選擇：</option>
<%=titlelist%></select><%end if%></td>
</tr>
<tr>
<td align="right" bgcolor="<%=Session("vtabletitlebackcolor")%>" class=p9>檔案編號(N):</td>
<td colspan="5" bgcolor="<%=Session("vcolcolor")%>" class=p9><input name="vnumber" type="text" class=css0 id="檔案編號" style="width=100%" accesskey="n" onKeyDown=gonext("doctime") value="<%=rs("vnumber")%>"></td>
</tr>
<tr>
<td align="right" class=p9 bgcolor="<%=Session("vtabletitlebackcolor")%>" width="108">檔案時間(T):</td>
<td width="147" class=p9 bgcolor="<%=Session("vcolcolor")%>">
<input name="doctime" type="text" class=css0 id="檔案時間" style="width=100%" accesskey="t" onKeyDown=gonext("docstyle") value="<%=rs("doctime")%>" size="20"></td>
<td width="109" class=p9 bgcolor="<%=Session("vtabletitlebackcolor")%>" >領取檔案(L):</td>
<td width="67" class=p9 bgcolor="<%=Session("vcolcolor")%>"><select name="docstyle" size="1" id="領取檔案" accesskey="l" onChange="document.submitinput.affix.focus()">
<option value="原件" selected>原件</option>
<option value="復件">復件</option>
</select></td>
<td width="103" class=p9 bgcolor="<%=Session("vtabletitlebackcolor")%>" >附帶附件(F):</td>
<td width="150" class=p9 bgcolor="<%=Session("vcolcolor")%>"><input class=css0 style="width=60%" name="affix" type="text" accesskey="f" id="附帶附件" value="<%=rs("affix")%>" size="5" onKeyPress="checkkey()" onKeyDown=gonext("lend")>
份</td>
</tr>
<tr>
<td align="right" bgcolor="<%=Session("vtabletitlebackcolor")%>" class=p9 width="108">領文人(M):</td>
<td class=p9 bgcolor="<%=Session("vcolcolor")%>" width="147">
<input name="lend" type="text" class=css0 id="領文人" style="width=100%" accesskey="m" onKeyDown=gonext("uses") value="<%=rs("lend")%>" size="20" readonly></td>
<td colspan="2" bgcolor="<%=Session("vcolcolor")%>" class=p9><div border=1 class=coolBarflat style="align:right" width="40px" heidht="25px" onMouseOver="this.className='coolbar'" onMouseOut="this.className='coolBarflat'" onMouseDown="this.className='coolBardown'" onClick="add_users('lend');document.submitinput.uses.focus();">
<div align="center"><img name=usersel src="../images/man.gif" width="16" height="16" align="absmiddle" >地址薄</div>
</div></td>
<td bgcolor="<%=Session("vtabletitlebackcolor")%>" class=p9 width="103">借閱時間(R):</td>
<td class=p9 bgcolor="<%=Session("vcolcolor")%>" width="150"><input name="lendtime" type="text" class=css0 id="lendtime" accesskey="r" style="width=100%" value="<%response.Write(now())%>" size="16" readonly></td>
</tr>
<tr>
<td align="right" class=p9 bgcolor="<%=Session("vtabletitlebackcolor")%>" width="108">用途(U):</td>
<td colspan="5" class=p9 bgcolor="<%=Session("vcolcolor")%>"><textarea class=css0 style="width=100%" accesskey="u" name="uses" rows="5" id="用途" cols="20"><%=rs("uses")%></textarea>
</td>
</tr>
<tr>
<td align="right" class=p9 bgcolor="<%=Session("vtabletitlebackcolor")%>" width="108">批準人(A):</td>
<td colspan="4" class=p9 bgcolor="<%=Session("vcolcolor")%>"><input class=css0 style="width=100%" readonly accesskey="a" name="pass" type="text" id="批準人" value="<%=pass%>">
</td>
<td width="150"><div border=1 class=coolBarflat style="align:right" width="40px" heidht="25px" onMouseOver="this.className='coolbar'" onMouseOut="this.className='coolBarflat'" onMouseDown="this.className='coolBardown'" onClick="add_users('pass');">
<div align="center"><img name=usersel src="../images/man.gif" width="16" height="16" align="absmiddle" >地址薄</div>
</div></td>
<input type="hidden" name="returntime" value="尚未歸還">
</tr>
</table>
<p align=center>
<button style="height=24" onClick="getit();" class=vinputbutton><img src="../images/save.gif" align="absmiddle"> 保存</button>
<button style="height=24" onClick="goback();" class=vinputbutton><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p>
</form>
<%
'關閉對象rs
rs.close
set rs=nothing
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -