📄 classmateinfo.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 username,email,realname,birthday,sex, mphone,homeaddr,postcode,homephone,jobaddr,jobphone,oicq,msn,website from [user]"
set rs=conn.execute(strsql)
%>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
strsql3="select count(userid) as userno from [user] where usergroup>'1'"
set rs3=conn.execute(strsql3)
userno=rs3("userno")
rs3.close
set rs3=nothing
%>
<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>
<td><div align="center"><b>生日</b></div></td>
<td><div align="center"><b>手机</b></div></td>
<td><div align="center"><strong>家庭地址</strong></div></td>
<td><div align="center"><strong>家庭电话</strong></div></td>
<td><div align="center"><strong>邮编</strong></div></td>
<td><div align="center"><strong>工作地址</strong></div></td>
<td><div align="center"><strong>工作电话</strong></div></td>
<td><div align="center"><strong>email</strong></div></td>
<td><div align="center"><strong>QQ</strong></div></td>
<td><div align="center"><strong>MSN</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("realname")%> </td>
<td> <%=rs("username")%> </td>
<td> <%=rs("sex")%> </td>
<td> <%=rs("birthday")%> </td>
<td> <%=rs("mphone")%> </td>
<td> <%=rs("homeaddr")%> </td>
<td> <%=rs("homephone")%> </td>
<td> <%=rs("postcode")%> </td>
<td> <%=rs("jobaddr")%> </td>
<td> <%=rs("jobphone")%> </td>
<td> <%=rs("email")%> </td>
<td> <%=rs("oicq")%> </td>
<td> <%=rs("msn")%> </td>
<td> <%=rs("homepage")%> </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 + -