📄 testdetail.asp
字号:
<%
testid=Request("testid")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from test where ID="&testid
Set rs= conn.Execute(sql)
%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="css/index1.css">
<link rel="stylesheet" type="text/css" href="css/toolbar2.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<base target="_self">
<script>
function checkclick(msg){
if(confirm(msg)){
event.returnValue=true;
}else{
event.returnValue=false;
}
}
</script>
</HEAD>
<BODY background="image/A-bg.gif" leftMargin=0 topMargin=0>
<p> </p>
<TABLE border="1" width="446" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="5" bgcolor="#A4D1FF" height="285">
<TR>
<TD align=center width="396" height="30">
<%y=rs("subject")
if len(y)>30 then
str_title1=left(y,30)&"…"
else
str_title1=rs("subject")
end if %>
<%=str_title1%>
</TD>
</TR>
<tr>
<TD align=center width="396" height="199" valign="top">
<table border="0" width="106%" height="140">
<tr>
<td width="12%" height="38"></td>
<td width="88%" height="38"><font color="#FF0000">A.</font> <%=rs("A")%></td>
</tr>
<tr>
<td width="12%" height="38"></td>
<td width="88%" height="38"><font color="#FF0000">B.</font> <%=rs("B")%></td>
</tr>
<tr>
<td width="12%" height="38"></td>
<td width="88%" height="38"><font color="#FF0000">C.</font> <%=rs("C")%></td>
</tr>
<tr>
<td width="12%" height="38"></td>
<td width="88%" height="38"><font color="#FF0000">D.</font> <%=rs("D")%></td>
</tr>
<tr>
<td width="100%" height="39" colspan="2">
<p align="right"></td>
</tr>
<%if rs("explain")<>"无" then%>
<tr>
<td width="100%" height="39" colspan="2" align="center">
题目说明：<textarea rows="2" name="explain" cols="51" class=td1 readonly><%=rs("explain")%></textarea>
</td>
</tr>
<%end if%>
</table>
</TD>
</tr>
<%if session("login")<>"" or session("identity")="teacher" then
sql1="select * from teacher where IDname='"&session("login")&"'"
set rs1=conn.execute(sql1)
if rs("id2")=rs1("ID") then
%>
<tr>
<TD align=center width="396" height="29" valign="top"><a href="updatest1.asp?testid=<%=rs("Id")%>">修改该问题</a>
<a href="del_test.asp?testid=<%=rs("ID")%>" onclick="checkclick('你确定要删除该题目吗?')">删除该问题</a></TD>
</tr>
<%end if
end if%>
</TABLE>
<%set rs=nothing
conn.close
set conn=nothing
%>
<br clear=all>
<p>
<center><a href="javascript:onClick= window.close()">关闭窗口</a></center>
</p>
</form>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -