2fly_reader_save.asp

来自「功能简单的图书管理系统基本实现了图书管理借阅览等功能模块完成相关组件的实现」· ASP 代码 · 共 43 行

<!--#include file="conn.asp"-->
<%
readerid=trim(request("readerid"))
readername=trim(request("readername"))
serialnumber=trim(request("serialnumber"))
readertel=trim(request("readertel"))
readeraddress=trim(request("readeraddress"))
readertxt=trim(request("readertxt"))


set rs=server.createobject("adodb.recordset")
if readerid="" then sql="select * from reader where readername='"&readername&"' or serialnumber='"&serialnumber&"'"
if readerid<>"" then sql="select * from reader where readerid="&readerid
rs.open sql,db,1,3 
if not rs.eof or not rs.bof then
if readerid="" then response.write "<script language=javascript>alert('对不起已经有此用户名');history.back(-1)</script>"
if readerid<>"" then 
rs("readername")=readername
rs("serialnumber")=serialnumber
rs("readertel")=readertel
rs("readeraddress")=readeraddress
rs("readertxt")=readertxt

rs.update
rs.close
set rs=nothing
response.redirect "2fly_reader.asp?readerid="&readerid&"&mage2fly=修改成功"
end if
else
rs.addnew
rs("readername")=readername
rs("serialnumber")=serialnumber
rs("readertel")=readertel
rs("readeraddress")=readeraddress
rs("readertxt")=readertxt
rs.update
readerid=rs("readerid")
rs.close
set rs=nothing
response.redirect "2fly_reader.asp?readerid="&readerid&"&mage2fly=添加成功"
end if
%>