look.asp

来自「本科毕业课程设计！学生管理系统！功能相当强大」· ASP 代码 · 共 45 行

<!-- #include file="inc/conn.asp" -->
<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/stumenu.asp" --><div align="center">
<%
page=request("page")
id=request("id")
if id="" or not isNumeric(id) then
   response.Write("<script>alert('参数错误');location.replace('feedback.asp?page="&page&"');</script>")
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from liuyan where id="&id&"",conn,1,1
if not(rs.eof and rs.bof) then
   set r=conn.execute("select xm from user where xh='"&rs("xh")&"'")
   if not(r.eof and r.bof ) then
       xm=r("xm")
   end if
   r.close
   set r=nothing
%>
<table width="768" border="0" cellspacing="1" cellpadding="0" bgcolor="#EEEEEE">
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;留言人：&nbsp;&nbsp;&nbsp;
      <input type="text" readonly="1" size="30" name="n" value="<%=xm%>"></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;主题：&nbsp;&nbsp;&nbsp;&nbsp;
      <input type="text" readonly="1" size="50" name="n2" value="<%=rs("title")%>"></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;留言内容：      
      <textarea name="textarea" cols="50" rows="5" readonly="1"><%=rs("content")%></textarea></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;<a href="javascript:history.back();">|返回|</a></td>
  </tr>
</table>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</div>
<!-- #include file="inc/copyr.asp" -->