📄 tjsz.asp
字号:
<%
Function SqlStr( data )
SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function
jsz= Request("jsz")
lb = Request("lb")
xm = Request("xm")
ic = Request("ic")
If jsz = " " Or Email = " " Or lb = " " Or xm = " " or ic=" " Then
Response.Write "输入框不能为空"
Response.End
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "database=school;uid=sa;pwd=;dsn=school"
Set rs = Server.CreateObject("ADODB.Recordset")
jsz = rtrim(ltrim(Left( jsz, 12 )))
lb = rtrim(ltrim(Left( lb, 8 )))
xm = rtrim(ltrim(Left( xm, 8 )))
ic = rtrim(ltrim(left( ic, 12 )))
sql="SELECT * FROM TJSZ WHERE 借书证号 = '"&jsz&"' "
rs.open sql,conn,3
if rs.recordcount>0 then
Response.Write "该借书证号已被发放过!"
Response.End
end if
rs.close
sql="SELECT * FROM Tbj WHERE rtrim(ltrim(编号)) = '"&lb&"' "
rs.open sql,conn,3
if rs.recordcount>0 then
else
Response.Write "该类别不存在!"
Response.End
end if
rs.close
sql="SELECT * FROM TJSZ WHERE ic号 = '"&ic&"' "
rs.open sql,conn,3
if rs.recordcount>0 then
Response.Write "该ic卡号已被发放过!"
Response.End
end if
sql = "Insert Into tjsz (借书证号, 编号, 姓名, ic号,借书本数) Values( "
sql = sql & SqlStr(jsz) & ", "
sql = sql & SqlStr(lb) & ", "
sql = sql & SqlStr(xm) & ", "
sql = sql & SqlStr(ic) & ","
sql = sql & 0 &")"
conn.Execute sql
%>
<html>
<head>
<title>发放借书证</title>
</head>
<body background="B01.jpg">
<h1 align="center">发放借书证成功</h1>
<div align="center"><center>
<table border="2" cellpadding="5" width="380">
<tr>
<td width="354" align="left"><font face="隶书" size="5">借书证号</font><font
size="5">：</font><input type="text" id="jsz" name="jsz" size="20" value="<%=jsz%>" readonly
style="font-size: 18" maxlength="12"></td>
</tr>
<tr>
<td width="354" align="left"><font face="隶书" size="5">类 别：</font><input
type="text" id="lb" name="lb" size="20" value="<%=lb%>" readonly style="font-size: 18"
maxlength="8"></td>
</tr>
<tr>
<td width="354" align="left"><font face="隶书" size="5">姓 名：</font><input
type="text" id="xm" name="xm" size="20" value="<%=xm%>" readonly style="font-size: 18"
maxlength="8"></td>
</tr>
<tr>
<td width="354" align="left"><font face="隶书" size="5">I C 卡号：</font><input
type="text" id="ic" name="ic" size="20" value="<%=ic%>" readonly style="font-size: 20"
maxlength="12"></td>
</tr>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -