?? answerquestion.asp
字號:
<%if session("login")="" or session("identity")<>"teacher" then
response.redirect "index.asp"
end if
questionid=Request("questionid")
teacherid=Request("teacherid")
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 question where ID="&questionid&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<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 lanuage="javascript">
<!-- Hide
function checkcontent()
{
if(document.addanswer.myanswer.value=="")
{
alert("內(nèi)容不能為空!");
return false;
}
if(document.addanswer.myanswer.value.length >100)
{
alert("內(nèi)容不能超過一百字!");
return false;
}
}
// -->
</SCRIPT>
</HEAD>
<BODY background="image/A-bg.gif" leftMargin=0 topMargin=0>
<p> </p>
<TABLE border="1" width="522" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="5" bgcolor="#A4D1FF" height="300">
<TR>
<TD align=center width="140" height="9">
<font color="#FF0000">
提問人：</font></TD>
<TD align=center width="70" height="9">
<%sql1="select * from user where ID="&rs("id1")&""
set rs1=conn.execute(sql1)
%>
<a href="viewuser.asp?userid=<%=rs1("ID")%>" title="點(diǎn)擊查看用戶信息" target="_blank"><%=rs1("name")%></a>
</TD>
<TD align=center width="88" height="9"><font color="#FF0000">提問時間：</font></TD>
<TD align=center width="174" height="9"><%=rs("refer")%></TD>
</TR>
<TR>
<TD align=center width="140" height="21">
<font color="#FF0000">
標(biāo)題：</font></TD>
<TD align=center width="323" height="21" colspan="3">
<%dim x,str_title
x=rs("title")
if len(x)>25 then
str_title=left(x,25)&"…"
else
str_title=rs("title")
end if%>
<%=str_title%></TD>
</TR>
<TR>
<TD align=center width="140" height="11">
<font color="#FF0000">
所屬章節(jié)：</font></TD>
<TD align=center width="323" height="11" colspan="3">
<%sql2="select * from tutorial where ID="&rs("id2")&""
set rs2=conn.execute(sql2)
%>
<%=rs2("rule")%> <%=rs2("title")%>
</TD>
</TR>
<tr>
<TD align=center width="140" height="178" rowspan="2">
<font color="#FF0000">
相關(guān)操作：</font></TD>
<TD align=center width="170" height="8" colspan="2" valign="middle">
問題內(nèi)容：</TD>
<TD align=center width="174" height="8" valign="middle">您的回答：</TD>
</tr>
<tr>
<TD align=left width="170" height="147" colspan="2" valign="top"><textarea rows="10" name="content" cols="25" class="td1" readonly><%=rs("content")%></textarea></TD>
<TD align=left width="174" height="147" valign="top">
<form method="POST" action="addanswer.asp" onsubmit="return checkcontent()" name="addanswer">
<textarea rows="10" name="myanswer" cols="25" class="td1" wrap=hard></textarea>
</TD>
</tr>
<tr>
<TD align=center width="396" height="6" colspan="4">
<input type="hidden" value="<%=questionid%>" name="questionid">
<input type="hidden" value="<%=teacherid%>" name="teacherid">
<input type="submit" value="添加回答" name="B1"><input type="reset" value="全部重寫" name="B2">
</TD>
</tr>
<tr>
<TD align=center width="396" height="6" colspan="4">
<%sql="select * from teacher where ID="&teacherid&""
set rs=conn.execute(sql)%>
<%=rs("name")%>老師您好,請回答該問題。
</TD>
</tr>
</form>
</TABLE>
<%set rs=nothing
conn.close
set conn=nothing
%>
<br clear=all>
<p>
<center><a href="javascript:onClick= window.close()">關(guān)閉窗口</a></center>
</p>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -