📄 retract.asp

📁 我的图书管理系统
💻 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 TJSZ WHERE ic号 = '"&ic&"' "

rs.open sql,conn,3


if rs.recordcount<=0 then

  Response.Write "该ic卡号不存在!"
  Response.End 

end if
rs.close

sql="delete from tjsz where rtrim(ltrim(借书证号))='"&jsz&"'"

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">类&nbsp;&nbsp;&nbsp; 别：</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">姓&nbsp;&nbsp;&nbsp; 名：</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 + -