📄 tghjsz.asp

📁 我的图书管理系统
💻 ASP
字号:
<%

Function SqlStr( data )
   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function


jsz_id= Request("jsz_id")
xm_id = Request("xm_id")
old_ic = Request("old_ic")
new_ic = Request("new_ic")


If jsz_id = " " Or  xm_id = " " Or old_ic = " "  or new_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_id = rtrim(ltrim(Left( jsz_id, 12 )))
xm_id = rtrim(ltrim(Left( xm_id, 8 )))
old_id = rtrim(ltrim(Left( old_id, 8 )))
new_id = rtrim(ltrim(left( new_id, 12 )))

sql="SELECT * FROM TJSZ WHERE rtrim(ltrim(借书证号)) = '"&jsz_id&"' "

rs.open sql,conn,3


if rs.recordcount<=0 then

  Response.Write "该借书证号不存在!"
  
  Response.End 

end if

rs.close


sql="SELECT * FROM TJSZ WHERE rtrim(ltrim(姓名)) = '"&xm_id&"' "

rs.open sql,conn,3

if rs.recordcount<=0 then

  Response.Write "该姓名不存在!"
  Response.End 

end if
rs.close



sql="SELECT * FROM TJSZ WHERE rtrim(ltrim(ic号)) = '"&old_ic&"' "

rs.open sql,conn,3


if rs.recordcount<=0 then

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

  Response.End 

end if

rs.close


sql="SELECT * FROM TJSZ WHERE rtrim(ltrim(ic号)) = '"&new_ic&"' "

rs.open sql,conn,3


if rs.recordcount>0 then

  Response.Write "该ic卡号已存在!"

  Response.End 

end if

rs.close


sql="SELECT * FROM TJSZ WHERE rtrim(ltrim(ic号)) = '"&old_ic&"'  and  rtrim(ltrim(借书证号)) = '"&jsz_id&"'" 

rs.open sql,conn,3


if rs.recordcount>0 then

 else

  Response.Write "该借书证号和ic卡号不是同一个借书证!"

  Response.End 

end if

rs.close


sql="update  tjsz   set ic号='"&new_ic&"' where rtrim(ltrim(借书证号))='"&jsz_id&"'"

conn.Execute sql

sql="insert  into TICHIST(借书证号,原IC卡号,新IC卡号,变换日期) values('"&jsz_id&"','"&old_ic&"','"&new_ic&"',getdate())"

conn.execute sql
%>
<html>

<head>
<title>更换IC卡号</title>
</head>

<body background="B01.jpg">

<h1 align="center">更换IC卡号成功</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_id%>" 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="<%=xm_id%>" 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="<%=old_ic%>"  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="<%=new_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 + -