deletereader.asp

来自「小型图书馆管理系统」· ASP 代码 · 共 58 行

ASP
58 行
字号 
<%'---------------------------------------------------------------
' AspStudio_Codepage="936"
' 上面这行是软件使用的代码页标记，请不要删除。详情请参考帮助文件。
'
' 档案名称：deletereader.asp
' 原创作者：dan
' 作者邮件：
' 创建日期：星期六，2008年12月06日 15:33:03
' 版权所有(C)Lenovo
'--------------------------------------------------------------%>

<HTML>
<HEAD>
	<Title>deletereader.asp</Title>
	<META http-equiv="Content-Type" content="text/html; charset=gb2312">
	<META name="Generator" content="Asp Studio 1.0">
</HEAD>

<BODY>


<%
	'请在这里输入您的ASP代码
	Dim rID
	Dim sql
	rID=Request.Form("rID")
	rID=Replace(rID,"'","''",1,-1,vbTextCompare)
	
	if rID="" then
	  Response.Write("1")
	else
	  if Len(rID)>8 then
	    Response.Write("1")
		else
		  Dim rs
		  Set rs=Session("s_DBConn").Execute("select * from readerTable where rID='"&rID&"'")
		  if rs.EOF then
		    Response.Write("1")
			else
			  Set rs=Session("s_DBConn").Execute("select * from infoTable where rID='"&rID&"'")
			  if NOT rs.EOF then
			    Response.Write("2")
				else
				  sql="delete from readerTable where rID='"&rID&"'"
				  Session("s_DBConn").Execute(sql)
				  Response.Write("0")
				end if
			end if
			rs.Close()
			set rs=Nothing
		end if
	end if
%>
	
</BODY>

</HTML>

deletereader.asp - 源码说明

本页面展示了「小型图书馆管理系统」中的 deletereader.asp 源码文件，采用 ASP 编程语言编写，共 58 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与图书馆管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?