📄 viewquestion.asp
字号:
<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">
</HEAD>
<BODY background="image/A-bg.gif" leftMargin=0 topMargin=0>
<p align="center">
<%
userid=request("userid")
id2=request("chapterid")
order1=request.form("D1")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
Set rs= Server.CreateObject("ADODB.Recordset")
if id2=empty then
sql="select * from question where id1="&userid&" order by '"&order1&"' desc"
else
sql="select * from question where id2="&id2&" order by '"&order1&"' desc"
end if
set rs=conn.Execute(sql)
if rs.eof then
%>
<b><font color="#8CAAE7" size="5">您还没提过任何问题！想提问请点击</font><font size="5" color="#FF0000">
<a href="myquestion.asp?">这里</a></font><font color="#8CAAE7" size="5">！</font></b>
<%
else
%>
<div align="center">
<center>
<TABLE border=1 bgcolor="#e6e5b8" borderColorDark=#ffffff borderColorLight=#660066
cellPadding=5 cellSpacing=0 width="78%" height="38">
<TBODY>
<TR align=middle>
<TD height="1" align="center" bgcolor="#8CAAE7" width="119%" valign="middle" colspan="4">
<font color="#000000"> 以下是您查询的问题
</font><select size="1" name="D1" class="td1" style="text-indent: 0; text-align: center; word-spacing: 0; margin: 0">
<option selected value="时间">按提交时间排序</option>
<option value="教程编号">按所属章节排序</option>
<option value="是否回答">按是否回答排序</option>
</select><input type="submit" value="排序" name="B1" style="text-align: center; word-spacing: 0; text-indent: 0; margin: 0">
</form>
</TD>
</TR>
<TR align=middle>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle">
<font color="#FF0000">『问题标题』</font>
</TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle">
<font color="#FF0000">『所属章节』</font>
</TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle">
<font color="#FF0000">『已回答』</font>
</TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle">
<font color="#FF0000">『提交时间』</font>
</TD>
</TR>
<%do while not rs.eof%>
<TR align=middle>
<%
sql1="select * from tutorial where ID="&rs("id2")&""
set rs2=conn.execute(sql1)
%>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle">
<a href="questiondetail.asp?id=<%=rs("ID")%>" target="_blank"><%=rs("title")%></a></TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle">
<a href="viewtutorial.asp?id=<%=rs2("ID")%>" target="_blank"><%=rs2("title")%></a></TD>
<%
if rs("or")="是" then
sqlanswer="select * from answer where id1="&rs("ID")&""
set rsanswer=conn.execute(sqlanswer)
%>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle">
<a href="answer.asp?id=<%=rs("ID")%>" target="_blank"><%=rs("or")%></a></TD>
<%
else
%>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle"><%=rs("or")%></TD>
<%end if%>
<TD height="1" align="center" bgcolor="#E6E5B8" width="25%" valign="middle"><%=rs("refer")%></TD>
</TR>
<%
rs.movenext
loop
%>
</TBODY>
</TABLE>
</center>
</div>
</body>
</html>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -