这种情况能否先定义变量。
dim tts
tts=<%=Rstest("quest_right")%>
我知道上面代码是错误的，但我想能否采用变通的办法来定义？高手求教了。
问题点数：50、回复次数：8Top
1 楼cmsoft（韦小宝是我的老乡)(草根在路上）回复于 2002-05-31 11:22:39 得分 50
<%
dim tts
tts=Rstest("quest_right")
%>
这样就对了Top
2 楼gshope（北京.Net）回复于 2002-05-31 11:25:35 得分 0
I服了YOU!!!Top
3 楼funboy88（司令）回复于 2002-05-31 11:31:34 得分 0
倒分Top
4 楼wangfei2428（龙飞）回复于 2002-05-31 11:38:34 得分 0
也许别人真的不懂,请认真对待Top
5 楼ChinaOk（农村表哥）回复于 2002-05-31 11:38:42 得分 0
你是要客户端，还是要服务器端？
Top
6 楼beyond_xiruo（CorruptionException）回复于 2002-05-31 12:05:02 得分 0
没有错吧
<script language=vbscript>
dim tts
tts=<%=Rstest("quest_right")%>
</script>Top
7 楼leosh（）回复于 2002-06-01 22:31:08 得分 0
网上资料一：
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 2</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%" height="30" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom: 1px solid #000000">
<img border="0" src="images/selectsubject.jpg"></td>
</tr>
</table>
<%
response.cookies("downloadok")=""
sql1="select * from exam_testuser where havetest=0 and userid="& request.cookies("userid")
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
if rs1.eof then
%>
<table border="0" cellspacing="0" bordercolor="#111111" width="480">
<tr>
<td width="100%" height="30"> 现在您还没有需要参加考试的科目！ </td>
</tr>
</table>
<%
else
i=1
%>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" id="AutoNumber2" width="480" cellpadding="0">
<tr>
<td height="22" width="20" bgcolor="#E1E1E1"></td>
<td bgcolor="#E1E1E1"> <b>科目名称</b></td>
<td bgcolor="#E1E1E1" width="80">
<p align="center"><b>考试时间</b></td>
<td bgcolor="#E1E1E1" width="80">
<p align="center"><b>操作</b></td>
</tr>
<%
do while not rs1.eof
sql="select * from exam_test where date() between starttime and endtime and not passuserid is null and testid="& rs1("testid")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
%>
<tr>
<td align="center" height="20" width="20" bgcolor="#E1E1E1"><%=i%></td>
<td bgcolor="#FFFFFF">
<p align="left"> <%=rs("subject")%></td>
<td bgcolor="#FFFFFF">
<p align="center"> <%=rs("testtime")%>小时</td>
<td bgcolor="#FFFFFF">
<p align="center"><a href="paper.asp?testid=<%=rs1("testid")%>">进入考场</a></td>
</tr>
<%
end if
rs1.movenext
i=i+1
loop
%>
</table>
<%
end if
%>
</body>
</html>
Top
8 楼leosh（）回复于 2002-06-02 01:34:06 得分 0
网上资料二：
<!--#include file="conn.inc"-->
<%
dim i
dim j
id=request("id")
'response.write id
id=split(id,",")
i=ubound(id)
'response.write i
for j=0 to i
sql="select * from exam_database where id="& cint(id(j))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
rs.delete
rs.update
rs.close
end if
next
response.redirect "admindatabase.asp"
%>
Top
