它是否还没有保存更新以供阅读？

编程问答 2022-05-30

问题描述

这是一个儿童网站上的配对游戏，我需要随机化问题的答案顺序。它位于使用经典 ASP 和 Access 数据库的旧服务器上。这些行将在 JavaScript 代码中用作答案的顺序。当我查看数据库时，代码似乎可以工作，但是每行写入页面的内容是 [ "-" ]。正如我所说，在页面加载后查看时，数据库具有随机数和相应的字母。代码很基础，但我尽量简化它以找出原因。

ID = trim ("0" & Request.QueryString("ID"))
If Not isnumeric(ID) Then Response.Redirect "default.asp"

Set rs = dbcon.Execute ("Delete * FROM tblTemp;")
strsql = "INSERT INTO tblTemp ( fldQuestion,fldAnswer) "
strsql = strsql + "Select fldQuestion,fldAnswer FROM tblQuestions WHERE fldListID=" & ID & ";"
Set rs = dbcon.Execute (strsql)

Set rs = dbcon.Execute ("Select ID FROM tblTemp;")
While Not rs.EOF
    Randomize
    x = int(rnd * 16000)
    Set rs2 = dbcon2.Execute ("UPDATE tblTemp SET fldOrder = " & x & " WHERE ID = " & rs.fields("ID") & ";")
    rs.MoveNext
Wend

Set rs = dbcon.Execute ("Select ID FROM tblTemp ORDER By fldOrder;")
x = 65
While Not rs.EOF
    Set rs2 = dbcon2.Execute ("UPDATE tblTemp SET fldChar = """ & Chr(x) & """ WHERE ID = " & rs.fields("ID") & ";")
    x = x + 1
    rs.MoveNext
Wend

Set rs = dbcon.Execute ("Select * FROM tblTemp ORDER By fldOrder;")
While Not rs.EOF
    Response.Write "        """ & rs.fields("fldOrder") & "-" & rs.fields("fldChar") & """," & vbcrlf
    rs.MoveNext
Wend

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

adodbasp-classicvbscriptvbscriptvbscript