📄 showtestlist.asp
字号:
<%@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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -