showtestlist.asp
来自「可以进行智能出卷,在线测试和在线评价,界面友好,适合广大教学用户使用」· ASP 代码 · 共 56 行
ASP
56 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>试题生成</title>
</head>
<body bgcolor="#E8F3FF">
<% response.Write("单项选择题预览:")%>
<% response.Write("<hr>") %>
<%
dim num
Dim conn,sql,rs
Set conn=Server.CreateObject("ADODB.Connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("..\data\testlib.mdb")
sql="select * from testselect1new"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn
response.Write("<table width=100% height=30 border=1 >")
num=1
Do while(Not rs.eof)
response.Write("<TR bgcolor='yellow'>")
response.Write("<TD width='5%'>"&num&"</TD>")
response.Write("<TD width='70%'>"&rs("question")&"</TD>")
response.Write("<TD width='15%'>"&rs("answer")&"</TD>")
response.Write("<TD width='10%'>"&rs("score")&"</TD>")
response.Write("</TR>")
response.Write("<TR bgcolor='yellow'>")
response.Write("<TD width='5%'>"&" "&"</TD>")
response.Write("<TD width='95%'>"&rs("option1")&"</TD>")
response.Write("</TR>")
response.Write("<TR bgcolor='yellow'>")
response.Write("<TD width='5%'>"&" "&"</TD>")
response.Write("<TD width='95%'>"&rs("option2")&"</TD>")
response.Write("</TR>")
response.Write("<TR bgcolor='yellow'>")
response.Write("<TD width='5%'>"&" "&"</TD>")
response.Write("<TD width='95%'>"&rs("option3")&"</TD>")
response.Write("</TR>")
response.Write("<TR bgcolor='yellow'>")
response.Write("<TD width='5%'>"&" "&"</TD>")
response.Write("<TD width='95%'>"&rs("option4")&"</TD>")
response.Write("</TR>")
rs.MoveNext
num=num+1
Loop
response.Write("</table>")
rs.close
conn.close
set conn=nothing
%>
<hr>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?