📄 postinfo.asp

📁 单班同学录一个非常漂亮的同学录哦

💻 ASP

字号:

<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="SESSION.asp" -->
<!--#include file="CONN.asp" -->
<%
if session("usergroup")=1 then
	response.write"<script>alert('对不起，您无权下载！');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
	response.end
end if
strsql="select mssguser,MssgText,mssgtime from mssg"
set rs=conn.execute(strsql)
response.ContentType = "application/vnd.ms-excel" 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=classname%>同学录</title>
</head>

<body>
<table border="1" cellspacing="1" cellpadding="1">
  <tr bgcolor="#999999"> 
    <td><div align="center"><strong>用户名</strong></div></td>
    <td><div align="center"><strong>留言内容</strong></div></td>
    <td><div align="center"><strong>留言时间</strong></div></td>
  </tr>
  <%if not rs.eof then
  	do while not rs.eof%>
  <tr> 
    <td height="20"> <%=rs("MssgUser")%> </td>
    <td> <%=rs("MssgText")%> </td>
    <td> <%=rs("MssgTime")%> &nbsp;</td>
  </tr>
  <%rs.movenext
  loop
  end if
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing%>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -