UC知道一段ASP内的代码哪位大哥帮解释下什么意思吧
来源：百度知道 编辑：UC知道 时间：2024/05/07 12:33:39
Set rs14=Server.CreateObject("Adodb.RecordSet")
sql14="select * from tbtk where kao=1 and category=4 and kcid="&kcid&" and (chapter Between "&schap&" And "&echap&")"
rs14.open sql14,conn,3,2
if not rs14.eof then
Set rsno4=Server.CreateObject("Adodb.RecordSet")
sqlno4="select * from tbkcconfig where kcid="&kcid&" and category=4 and paperno="&paperno
rsno4.open sqlno4,conn,3,2
randomize
i=1
for i=1 to rsno4("datano")
a=int((rs14.RecordCount-0)*rnd+0)
if ( a>0 and a<(rs14.RecordCount+1)) then
rs14.absoluteposition=a
set rs22=conn.execute("select * from userdata where username='"&username&"' and tmid="&rs14("tmid")&" and paperno="&paperno)
if rs22.eof then
rs00.addnew
rs00("username&
sql14="select * from tbtk where kao=1 and category=4 and kcid="&kcid&" and (chapter Between "&schap&" And "&echap&")"
rs14.open sql14,conn,3,2
if not rs14.eof then
Set rsno4=Server.CreateObject("Adodb.RecordSet")
sqlno4="select * from tbkcconfig where kcid="&kcid&" and category=4 and paperno="&paperno
rsno4.open sqlno4,conn,3,2
randomize
i=1
for i=1 to rsno4("datano")
a=int((rs14.RecordCount-0)*rnd+0)
if ( a>0 and a<(rs14.RecordCount+1)) then
rs14.absoluteposition=a
set rs22=conn.execute("select * from userdata where username='"&username&"' and tmid="&rs14("tmid")&" and paperno="&paperno)
if rs22.eof then
rs00.addnew
rs00("username&
这段程序运行时出错了吗？要解释的话，无非也主几个关键词了。
if a=b then 如果赋值a=b,就在页面上输出“Yes”，反之，则输出“No”
response.write "Yes"
else
response.write "No"
end if
response.write 就是在页面上显示出的内容。
这里涉及到的还有数据库，建议买本ASP方面的书好好看看。