📄 decbook.asp
字号:
<HTML>
<HEAD>
<Title>decbook.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<BODY>
<%
'请在这里输入您的ASP代码
'数字判断函数，是否为正整数，不是整数就返回true,否则返回false
function IsInter(n)
if NOT IsNumeric(n) then
IsInter=true
else
Dim a,b,c
c=CInt(n)
a=CDbl(c)
b=CDbl(n)
if c<1 then
IsInter=true
else
if a<>b then
IsInter=true
else
IsInter=false
end if
end if
end if
end function
Dim bID,bCnt,bCntLea
Dim sql
Dim rs,bCnt1,bCnt2
bID=Request.Form("bID")
bID=Replace(bID,"'","''",1,-1,vbTextCompare)
bCnt=Request.Form("bCnt")
if IsInter(bCnt) then
Response.Write("3")
else
if bID="" then
Response.Write("3")
else
Set rs=Session("s_DBConn").Execute("SELECT * FROM bookTable WHERE bID='"&bID&"'")
if rs.EOF then
Response.Write("1")
else
bCnt=CInt(bCnt)
bCntLea=rs("bCntLea")-bCnt
bCnt=rs("bCnt")-bCnt
if bCntLea>=0 and bCnt>0 then
sql="update bookTable set bCnt='"&bCnt&"',bCntLea='"&bCntLea&"'where bID='"&bID&"'"
Session("s_DBConn").Execute(sql)
Response.Write("0")
else
if bCntLea<0 then
Response.Write("2")
else
if bCnt=0 and bCntLea=0 then
sql="delete from bookTable where bID='"&bID&"'"
Session("s_DBConn").Execute(sql)
Response.Write("0")
else
Response.Write("3")
end if
end if
end if
end if
rs.Close()
set rs=Nothing
end if
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -