?? 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 + -