errlist.asp

一个非常优秀的自动建站程序

<!--#include file="top.asp"-->
<%
if Request("action")="add" then
if Trim(Request.Form("ErrorText"))="" then response.redirect "error.asp?id=004"
set rs=server.createobject("adodb.recordset")
sql="select * from [Error_List] where ErrorText='" & Trim(Request.Form("ErrorText")) & "' and ErrorType=" & Request.Form("ErrorType")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=008")
end if
rs.close
sql="select * from [Error_List] where (ErrID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("ErrorText")=Trim(Request.Form("ErrorText"))
rs("ErrorType")=Trim(Request.Form("ErrorType"))
rs.update
rs.close
set rs=nothing
response.redirect "ErrList.asp"
response.end
end if
if Request("action")="del" then
if Request("ErrID")="" then response.redirect "error.asp?id=002"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "delete * from [Error_List] where ErrID=" & Request("ErrID"),conn,1
response.redirect "ErrList.asp"
response.end
end if
Function ErrorTypeText(ErrorType)
Select Case ErrorType
Case 1
ErrorTypeText="主机头"
Case 2
ErrorTypeText="FTP账号"
Case 3
ErrorTypeText="邮箱账号"
Case else
ErrorTypeText="非法数据"
End Select
End Function
%>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr>
<td align=center bgcolor="#ffffff">
系统容错（把系统中原有的或你想禁止用户申请的内容列入其中）
</td>
</tr>
<tr>
<td align=center bgcolor="#FFFFFF">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Error_List] ORDER BY ErrID"' DESC
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<!--没有内容-->"
'response.end()
 else
RowCount=PageNum
Tmp=IsNumeric(Request("PageNo"))
if (Tmp=False) then
PageNo=1
else
PageNo=Request("PageNo")
end if
TSum=INT(rs.RECORDCOUNT/RowCount*-1)*-1
if PageNo="" or PageNo=0 then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
PageNo=1
end if
end if
if PageNo<0 then
PageNo=1
End if
RS.PageSize=RowCount
RS.AbsolutePage=PageNo
RECORDCOUNT=rs.RECORDCOUNT
%>
<br>
<table align=center width=100% cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<tr bgcolor=ddeeff>
<td align=center width=80>
ID编号
</td>
<td align=center>
容错数据
</td>
<td align=center width=120>
数据类型
</td>
<td align=center width=80>
删除数据
</td>
</tr>
<%DO WHILE NOT rs.EOF AND RowCount>0%>
<tr bgcolor=FFFFFF>
<td align=center>
<%=rs("ErrID")%>
</td>
<td align=center>
<%=rs("ErrorText")%>
</td>
<td align=center>
<%=ErrorTypeText(rs("ErrorType"))%>
</td>
<td align=center>
<a href="?action=del&ErrID=<%=rs("ErrID")%>">删除</a>
</td>
</tr>
<%
RowCount = RowCount - 1
rs.MoveNext
Loop
rs.close
set rs = nothing
%>
</table>
<% end if%>
<br>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr bgcolor="#FFFFFF">
<td align=center>
<table width=100% border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=30%>
共有信息 <%=RECORDCOUNT%> 条 当前第 <%=PageNo%>/<%=TSum%> 页
</td>
<form name=AddForm action="?action=add" method=post>
<td align=center width=40%>
<input name="ErrorText" style="width:120px" value="">
<SELECT name="ErrorType">
<OPTION value="1">主机头</OPTION>
<OPTION value="2">FTP账号</OPTION>
<OPTION value="3">邮箱账号</OPTION>
</SELECT>
<input type="submit" value=" 添加 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
</td>
</form>
<td align=right width=30%>
<%=PageList%>
</td>
</tr>
</table>
</td>
</tr>
<%if TSum>3 then%>
<tr bgcolor="#FFFFFF">
<td align=center>
<%for i=1 to TSum%>
<a href="?PageNo=<%=i%>">第<%=i%>页</a>
<%next%>
</td>
</tr>
<%end if%>
</table>
<br>
<%Function PageList()
if TSum>1 then
if PageNo=1 then
NextPage=PageNo+1
response.write"首页 上一页 <a href='?PageNo="&NextPage&"'>下一页</a> <a href='?PageNo="&TSum&"'>尾页</a>"
end if
if PageNo=TSum then
PrwePage=PageNo-1
response.write "<a href='?PageNo=1'>首页</a> <a href='?PageNo="&PrwePage&"'>上一页</a> 下一页 尾页"
end if
if PageNo>1 and TSum>PageNo then
NextPage=PageNo+1
PrwePage=PageNo-1
response.write "<a href='?PageNo=1'>首页</a> <a href='?PageNo="&PrwePage&"'>上一页</a> <a href='?PageNo="&NextPage&"'>下一页</a> <a href='?PageNo="&TSum&"'>尾页</a>"
end if
else
response.write "首页 上一页 下一页 尾页"
end if
End Function%>
</td>
</tr>
</table>
</TD></TR></TABLE>
<!--#include file="foot.asp"-->