查人人中国名人网三年级数学质量分析表:asp代码问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 14:19:17
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
if session("key") then
set myrs=server.createobject("adodb.recordset")
mysql="select * from score"
myrs.open mysql,conn,1,3
rs.movefirst
%>
<html>
<head>
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<center>
<table border="1" bordercolor="#00FF00">
<tr>
<%for i=1 to myrs.fields.count-2%>
<td><%=myrs(i).name%></td>
<%next%>
</tr>
<%for m=1 to myrs.recordcount%>
<tr>
<%for n=1 to myrs.fields.count-2%>
<td><%=myrs(n)%></td>
<%next%>
</tr>
<%
myrs.movenext
next
%>
</table>
</center>
</body>
</html>
<%else%>
<%
dim kemu
kemu=session("kemu")
set rs=server.createobject("adodb.recordset")
sql="select * from "&kemu&""
rs.open sql,conn,1,3
rs.movefirst
%>
<html>
<head>
<title>考试开始</title>
</head>
<body>
<center>
<form action="score.asp" method="post">
<table bordercolor="#000000">
<tr>
<td>
<%for m=1 to rs.recordcount%>
<font color="#FF0000">第<%=m%>题</font> <br>
问题： <%=rs("question")%>(<font color="red"><%=rs("类型")%></font>)<br>
<%
if rs("类型")="单选" or rs("类型")="" then
buttentype="radio"
else
buttentype="checkbox"
end if
%>
<% A=replace(rs("A"),"<","<")
A=replace(A,">",">") %>
A<input name="radiobutton<%=m%>" type="<%=buttentype%>" value="A"><%=A%><br>
<% B=replace(rs("B"),"<","<")
B=replace(B,">",">") %>
B<input type="<%=buttentype%>" name="radiobutton<%=m%>" value="B"><%=B%><br>
<% C=replace(rs("C"),"<","<")
C=replace(C,">",">") %>
C<input type="<%=buttentype%>" name="radiobutton<%=m%>" value="C"><%=C%><br>
<% D=replace(rs("D"),"<","<")
D=replace(D,">",">") %>
D<input type="<%=buttentype%>" name="radiobutton<%=m%>" value="D"><%=D%><br>
<%
rs.movenext
next
%>
</td>
</tr>
</table>
<p>
<input type="submit" name="Submit" value="提交" >
<input type="reset" name="Submit2" value="重置">
</p>
</form>
</center>
</body>
</html>
<%end if%>
麻烦帮我讲解一下！
越详细越好！~
<!--#include file="check.asp"-->
<%
if session("key") then
set myrs=server.createobject("adodb.recordset")
mysql="select * from score"
myrs.open mysql,conn,1,3
rs.movefirst
%>
<html>
<head>
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<center>
<table border="1" bordercolor="#00FF00">
<tr>
<%for i=1 to myrs.fields.count-2%>
<td><%=myrs(i).name%></td>
<%next%>
</tr>
<%for m=1 to myrs.recordcount%>
<tr>
<%for n=1 to myrs.fields.count-2%>
<td><%=myrs(n)%></td>
<%next%>
</tr>
<%
myrs.movenext
next
%>
</table>
</center>
</body>
</html>
<%else%>
<%
dim kemu
kemu=session("kemu")
set rs=server.createobject("adodb.recordset")
sql="select * from "&kemu&""
rs.open sql,conn,1,3
rs.movefirst
%>
<html>
<head>
<title>考试开始</title>
</head>
<body>
<center>
<form action="score.asp" method="post">
<table bordercolor="#000000">
<tr>
<td>
<%for m=1 to rs.recordcount%>
<font color="#FF0000">第<%=m%>题</font> <br>
问题： <%=rs("question")%>(<font color="red"><%=rs("类型")%></font>)<br>
<%
if rs("类型")="单选" or rs("类型")="" then
buttentype="radio"
else
buttentype="checkbox"
end if
%>
<% A=replace(rs("A"),"<","<")
A=replace(A,">",">") %>
A<input name="radiobutton<%=m%>" type="<%=buttentype%>" value="A"><%=A%><br>
<% B=replace(rs("B"),"<","<")
B=replace(B,">",">") %>
B<input type="<%=buttentype%>" name="radiobutton<%=m%>" value="B"><%=B%><br>
<% C=replace(rs("C"),"<","<")
C=replace(C,">",">") %>
C<input type="<%=buttentype%>" name="radiobutton<%=m%>" value="C"><%=C%><br>
<% D=replace(rs("D"),"<","<")
D=replace(D,">",">") %>
D<input type="<%=buttentype%>" name="radiobutton<%=m%>" value="D"><%=D%><br>
<%
rs.movenext
next
%>
</td>
</tr>
</table>
<p>
<input type="submit" name="Submit" value="提交" >
<input type="reset" name="Submit2" value="重置">
</p>
</form>
</center>
</body>
</html>
<%end if%>
麻烦帮我讲解一下！
越详细越好！~
讲起来麻烦!!自己调试吧