UC知道谁能帮我慢慢读 这个程序一行一行的添加注释
来源：百度知道 编辑：UC知道 时间：2024/05/13 06:16:46
<%
set rscls=db.execute("select * from [图书类型]")
dim sbt
sbt=trim(request.form("sbt")) '获取表单按钮的值
if sbt="查看" then
session("classname")=trim(request.form("bookcls"))
session("issuetimes")=trim(request.form("issuetimes"))
if session("issuetimes")=0 then
session("times")=date()
elseif session("issuetimes")=1 then
session("times")=dateadd("d",-1,date())
elseif session("issuetimes")=2 then
session("times")=dateadd("d",-2,date())
elseif session("issuetimes")=3 then
session("times")=dateadd("d",-3,date())
end if
end if
if session("classname")<>"" or session("classname")<>empty then
if session("
set rscls=db.execute("select * from [图书类型]")
dim sbt
sbt=trim(request.form("sbt")) '获取表单按钮的值
if sbt="查看" then
session("classname")=trim(request.form("bookcls"))
session("issuetimes")=trim(request.form("issuetimes"))
if session("issuetimes")=0 then
session("times")=date()
elseif session("issuetimes")=1 then
session("times")=dateadd("d",-1,date())
elseif session("issuetimes")=2 then
session("times")=dateadd("d",-2,date())
elseif session("issuetimes")=3 then
session("times")=dateadd("d",-3,date())
end if
end if
if session("classname")<>"" or session("classname")<>empty then
if session("
<%
set rscls=db.execute("select * from [图书类型]") '从表[图书类型]中找到记录集，并赋值给rscls
dim sbt '声明一个sbt变量
sbt=trim(request.form("sbt")) '获取表单按钮的值 '将sbt变量赋值为rscls中的sbt字段
if sbt="查看" then '如果sbt等于查看开始判断
session("classname")=trim(request.form("bookcls")) '将session("classname")赋值为rscls中的字段bookcls
session("issuetimes")=trim(request.form("issuetimes")) '将session("issuetimes")赋值为rscls中的字段bookcls
if session("issuetimes")=0 then '如果session("issuetimes")等于0开始判断
session("times")=date() '将session("times")赋值为今天
elseif session("issuetimes")=1 then '如果session("issuetimes")等于1
session("times")=dateadd("d",-1,date()) ''将session("times")赋值为昨天
elseif session("issuetimes")=2 then '如果session("issuetimes")等