<!--#Include File="Data.asp"-->
<%
Dim LookType,ct,sm
LookType = Trim(Request("t"))
SQL = "SELECt * FROM MyOnly WHERe Email <> '' "
Select Case LookType
Case "2"
SQL = SQL & " ORDER By ID Desc"
Case "3"
SQL = SQL & " ORDER By SNum Asc"
Case "4"
SQL = SQL & " ORDER By SNum Desc"
Case Else
SQL = SQL & " ORDER By ID Asc"
End Select
ConnectionDatabase
Set Rs = Conn.Execute("Select Count(id),Sum(SNum) from MyOnly")
ct = Rs(0)
sm = Rs(1)
Rs.Close
Set Rs = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看EMAIL</title>
<style type="text/css">
body,table,td {
font-size: 14px;
font-family: verdana,tahoma,arial,宋体;
}
</style>
</head>
<body>
<table border="0" cellspacing="1" cellpadding="0" bgcolor="lavender" align="center">
<tr bgcolor="ghostwhite" align="center">
<td colspan="4" height="27"><font color="#ff0000"><b>共<%=ct%>条记录</b></font> <font color="#ff0000"><b>共发送<%=sm%>次</b></font> <a href="?t=1">按ID正序</a> <a href="?t=2">按ID倒序</a> <a href="?t=3">次数正序</a> <a href="?t=4">次数倒序</a>
</tr>
<tr bgcolor="#ffffff" align="center" height="27">
<td width="60"><b>ID</b></td>
<td width="150"><b>姓名</b></td>
<td width="260"><b>邮箱</b></td>
<td width="60"><b>发送</b></td>
</tr>
<%
Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then
Do While Not Rs.Eof
%>
<tr bgcolor="#ffffff">
<td height="27" align="center"><%=Rs("ID")%></td>
<td> <%=Rs("UserName")%></td>
<td> <%=Rs("Email")%></td>
<td align="center"><%=Rs("SNum")%></td>
</tr>
<%
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing
CloseDataBase
%>
</table>
</html>
其他网页都可以,就这个网页,怎么没办法访问,要怎么修改才可以访问!