📄 -+-ڢ
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl("图书借还")
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<!--#include virtual="/school/tsgl/ttsjhproc.asp"-->
<html>
<head>
<title></title>
</head>
<body background="../images/Bkg35.jpg" topmargin="0">
<p><img src="../images/snowmana.gif" height="50"><blink><font face="楷体_GB2312"
size="6" color="#FF0000">日常业务</font></blink>
<object align="baseline" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" height="14"
id="RDS1" width="14" border="0">
<param name="ExecuteOptions" value="2">
<param name="FetchOptions" value="3">
<param name="SortDirection" value="-1">
<param name="InternetTimeout" value="300000">
</object>
<object align="baseline" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" height="14"
id="RDS2" style="HEIGHT: 14px; WIDTH: 14px" width="14" border="0">
<param name="ExecuteOptions" value="2">
<param name="FetchOptions" value="3">
<param name="SortDirection" value="-1">
<param name="InternetTimeout" value="300000">
</object>
<object align="baseline" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" height="14"
id="RDS3" width="14" border="0">
<param name="ExecuteOptions" value="2">
<param name="FetchOptions" value="3">
<param name="SortDirection" value="-1">
<param name="InternetTimeout" value="300000">
</object>
<object classid="clsid:59CCB4A0-727D-11CF-AC36-00AA00A47DD2" id="IeTimer1" name="ietimer1"
CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/ietimer.ocx"
VIEWASTEXT width="38" height="38">
<param name="_ExtentX" value="1005">
<param name="_ExtentY" value="1005">
<param name="Interval" value="2000">
<param name="Enabled" value="True">
</object>
<object classid="clsid:9934A356-82ED-11D3-BC31-0080C8E6480E" height="4" id="user1"
style="LEFT: 0px; TOP: 0px"
CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/readiccard.ocx"
width="4" VIEWASTEXT>
<param name="_ExtentX" value="3387">
<param name="_ExtentY" value="2037">
</object>
</p>
<div align="center"><center>
<table border="1" cellpadding="5" width="732" height="282" bgcolor="#FFC1C1">
<caption><hr color="#ff0000"></caption>
<tr>
<td width="528" align="left" height="40"><font color="#0000ff">借书证号:</font><input
name="jszh" size="12" style="FONT-SIZE: 18px" onblur="jszh_click()"></td>
<td width="1073" align="left" height="40"><font face="隶书" size="4">借书证号：</font><input
id="jszh_1" name="jszh_1" size="12" readonly style="font-size: 15" maxlength="12"></td>
<td width="189" align="left" rowspan="7" valign="top" height="268"><img datasrc="#rds2"
datafld="图片" width="97" height="126" alt="B01.jpg (22162 字节)"></td>
</tr>
<tr>
<td width="528" align="left" height="41"><font color="#0000ff">类 别</font>:<input
name="fllb" size="10" style="FONT-SIZE: 18px"></td>
<td width="1073" align="left" height="41"><font face="隶书" size="4">类
别：</font><input id="fllb_1" name="fllb_1" size="10" readonly style="font-size: 15"
maxlength="8"></td>
</tr>
<tr>
<td width="528" align="left" height="41"><font color="#0000ff">种 次 号</font>:<input
name="jxh" size="10" style="FONT-SIZE: 18px"></td>
<td width="1073" align="left" height="41"><font face="隶书" size="4">姓
名：</font><input id="xm_1" name="xm_1" size="8" readonly style="font-size: 15"
maxlength="8"></td>
</tr>
<tr>
<td width="528" align="left" height="41"><font color="#0000ff">次 序 号</font>:<input
name="cxh" size="10" style="FONT-SIZE: 18px" value="0"> </td>
<td width="1073" align="left" height="41"><font face="隶书" size="4">书
号：</font><input id="sh_1" name="sh_1" size="28" readonly style="font-size: 15"
maxlength="12"></td>
</tr>
<tr>
<td width="528" align="left" height="41"><font color="#0000ff">限借天数</font>:<input
name="xjts" value="0" size="10" style="FONT-SIZE: 18px"></td>
<td width="1073" align="left" height="41"><font face="隶书" size="4">书
名：</font><input id="sm_1" name="sm_1" size="28" readonly style="font-size: 15"
maxlength="12"></td>
</tr>
<tr>
<td width="528" align="left" height="41"><font color="#0000ff">续借天数</font>:<input
name="sjts" value="0" size="10" style="FONT-SIZE: 18px"></td>
<td width="1073" align="left" height="41"><font face="隶书" size="4">作
者：</font><input id="zz_1" name="zz_1" size="16" readonly style="font-size: 15"
maxlength="12"></td>
</tr>
<tr>
<td width="528" align="left" height="41"><input type="button" id="js" value="借书"
name="js" onclick="js_click()" style="FONT-FAMILY: 楷体_GB2312; FONT-SIZE: 15px"><input
type="button" id="hs" value="还书" onclick="hs_click()" name="hs"
style="FONT-FAMILY: 楷体_GB2312; FONT-SIZE: 15px"><input type="button" id="xj"
value="续借" name="xj" onclick="xj_click()"
style="FONT-FAMILY: 楷体_GB2312; FONT-SIZE: 15px"><input type="reset" id="b2"
value="刷新" name="B2" onclick="b2_click()"
style="FONT-FAMILY: 楷体_GB2312; FONT-SIZE: 15px"></td>
<td width="1073" align="left" height="41"><input type="button" id="stop"
value="停止借书" name="stop" onclick="stop_click()"
style="FONT-FAMILY: 楷体_GB2312; FONT-SIZE: 15px"> <input type="submit" value="退 出" onclick="history.go(-1)"></td>
</tr>
<script language="vbscript">
public l_find
l_find=true
public l_key
l_key=false
public myvalue
RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
RDS2.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"
RDS3.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
RDS3.Connect = "database=school;uid=sa;pwd=;dsn=school"
' sure.disabled=true
' hs_1.disabled=true
' xj_1.disabled=true
public teacher_id,t_string,readstring,teacher_no ' ,xk_1,f1,t1,c_no
' set teacher_id=CreateObject("Scripting.FileSystemObject")
' if teacher_id.FileExists("c:\windows\no1.txt")=true then
' set t_string = teacher_id.OpenTextFile("c:\windows\no1.txt",1,-2)
' readstring = t_string.readline
' teacher_no=trim(readstring)
' t_string.Close
' RDS1.SQL="update manager set 状况='read' where ltrim(rtrim(ip地址))='"&teacher_no&"'"
' RDS1.ExecuteOptions = 1
' RDS1.Refresh
' else
' msgbox "请在c:\windows目录下建立文件no1.txt,并输入本机号如1.2.3其中一个",,"提示窗口"
'end if
sub stop_click()
RDS1.SQL="update manager set 状况='no' where ltrim(rtrim(ip地址))='"&teacher_no&"'"
RDS1.ExecuteOptions = 1
RDS1.Refresh
history.go(-1)
end sub
</script>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -