如何检测自己网站的错误

作者：未知来源：- 添加时间：2006-5-21 10:08:44

下面是根据wrox的professional asp 3.0建立的网站错误检查机制，使用了之后，你可以找到自己很多的错误，节省大量的代码测试时间，为什么不用呢！
首先建立表：

CREATE TABLE [dbo].[tSiteErrors] (
[kErrKey] [int] IDENTITY (1, 1) NOT NULL ,
[dDatetime] [datetime] NOT NULL ,
[ErrorType] [varchar] (255) NOT NULL ,
[TargetUrl] [varchar] (255) NULL ,
[ErrorInfo] [varchar] (255) NULL
) ON [PRIMARY]
GO
一、检查记录网站的错误链接：
在网站的目录中建立/siteerror/naverror.asp
________________________________________________

<%@LANGUAGE="VBScript"%>
<%Response.Status = "404 Not Found" %>



<html>
<head>
<title>无法找到网页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="robots" content="noindex">
<style type="text/css">

</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0">
<table width="100%" border="1" cellspacing="0" cellpadding="0" height="95%" bordercolor="#000000" align="center">
<tr>
<td bgcolor="#FFFFFF">
<h2><b><font color="#993399"> 　无法找到网页</font></b></h2>
<hr>
<b><font color="#999999">　您正在搜索的网页可能已经删除、更名或暂时不可用。</font></b>
<%
'On Error Resume Next
strTarget = Request.ServerVariables("QUERY_STRING")
strReferer = Request.ServerVariables("HTTP_REFERER")

intSemiColon = InStr(strTarget, ";") 'get the original target
If (intSemiColon > 0) And (intSemiColon < Len(strTarget)) Then
strTarget = Mid(strTarget, intSemiColon + 1)
If Len(strTarget) > 254 Then strTarget = Left(strTarget, 254)
End If

If Len(strReferer) > 255 Then strReferer = Left(strReferer, 255)

strInform = "<font style=""COLOR:000000; FONT: 9pt/11pt 宋体"">请通知包含该错误链接的网站管理员。</font>"
strTyping = "<font style=""COLOR:000000; FONT: 9pt/11pt 宋体""> 如果您在“地址”栏中键入了网页地址，请检查其拼写是否正确。或者：</font>"
strRecord = "<font style=""COLOR:000000; FONT: 9pt/11pt 宋体"">这个错误已经被记录，将尽快得到处理。</a>"

Response.Write "<p> 无法找到的网页地址为： " & strTarget & "<P>"
If Len(strReferer) > 0 Then 'came from a link on another page
Response.Write "<font style=""COLOR:000000; FONT: 9pt/11pt 宋体"">下列网页中发现了链接错误： " & strReferer _
& " 。</font><BR>"
Set oConn = Server.CreateObject("ADODB.Connection") 'to store the details
oConn.Open dsn
strsql="exec sp_errorrecorder 'broken link','" & strtarget & "','"&strReferer&"'"
oConn.Execute strSQL
Rem 注意这里
If Err.Number = 0 And InStr(strReferer, "你的域名例如163.com") > 0 Then
Response.Write strRecord 'came from a page on our site
Else
Response.Write strInform 'came from a page on another site
End If
Else
Response.Write strTyping 'they just typed it wrong into their browser
End If
%>

<p>　<a href="http://你的域名"><font color="#993399">打开主页</font></a>，寻找指向所需信息的链接。
</p>
<p>　单击<a href="javascript:history.back(1)"><font color="#0033CC">后退</font></a>按钮尝试其他链接。</p>
<hr>
<p>　<a href="http://你的域名"><font color="#993399">你的网站</font></a>制作，意见和建议请联系<a href="你的邮件"><font color="#0033CC">你的邮件</font></a>
</p>
<p> </p>
<p> </p>
</td>
</tr>
<tr>
<td height="5" bgcolor="#000000"></td>
</tr>
</table>
</body>
</html>

二、检查记录网站的代码错误：
在网站的目录中建立/siteerror/asperror.asp

<%@Language="vbscript"%>
<% Response.Status="500 Internal Error"%>

<html>
<head>
<meta name="robots" content="noindex">
<title>服务器内部错误</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>

<body bgcolor="#FFFFFF" text="#000000" topmargin="0">
<%
response.flush
On error resume next
set objAspError=Server.GetLastError()
strErrNumber=CStr(objAspError.Number)
strASPCode=objAspError.aspcode
strErrDescription=objAspError.Description
strASpdescription=objAspError.aspdescription
strcategory=objAspError.category
strfilename=objAspError.file
strlinenum=objAspError.line
strcolnum=objAspError.column
if isnumeric(strcolnum) then
lngcolnum=clng(strcolnum)
else
lngcolnum=0
end if
strsourcecode=objasperror.source

set objasperror=nothing

if len(strfilename) then
strtarget=strfilename
else
strtarget="**File name not available **"
end if

if len(straspcode) then
strInfo="'" & straspcode & "'"
else
strinfo="Error"
end if

if len(strCategory) then
strInfo=strinfo & " in " & strcategory & ".
"
end if

strInfo=strinfo & "Code: " & strErrNumber & "(0x" & hex(strErrnumber) & ") " & strerrdescription & ".
"
if len(straspdescription) then
strinfo=strinfo&"Asp reports: '" & strAspDescription & "'.
"
end if

if strlinenum>"0" then
strinfo=strinfo & "Line " & strLinenum
if lngcolnum>0 then
strinfo=strinfo & ". column " & lngcolnum
if len(strsourcecode) then
strinfo=strinfo & " " & strSourcecode
end if
end if
end if

if len(strTarget) >255 then strtarget=left(strtarget,255)
if len(strinfo)>255 then strinfo = left(strinfo,255)
strinfo=replace(strinfo,"'","''")
set oconn=server.createobject("adodb.connection")
oconn.open dsn
strsql="insert into tsiteerrors(errortype,targeturl,errorinfo) values ('asp error','" & strtarget & "','" & strinfo & "')"
strsql="exec sp_errorrecorder 'asp error','" & strtarget & "','"&strinfo&"'"
oconn.execute strsql
oconn.close
set oconn=nothing
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" height="95%" bordercolor="#000000" align="center">
<tr>
<td bgcolor="#FFFFFF">
<h2><b><font color="#993399"> 　服务器内部错误</font></b></h2>
<hr>
<b><font color="#999999">　您浏览的页面出现了服务器内部错误，暂时无法打开，这个问题已经被系统记录，我们将立即解决该问题。</font></b>

<p>　单击<a href="javascript:history.back(1)"><font color="#0033CC">后退</font></a>按钮尝试其他链接。</p>
<hr>
<p>　<a href="http://你的域名"><font color="#993399">你的网站</font></a>制作，意见和建议请联系<a href="mailto:你的邮件"><font color="#0033CC">你的邮件</font></a>
</p>
<p> </p>
<p> </p>
</td>
</tr>
<tr>
<td height="5" bgcolor="#000000"></td>
</tr>
</table>
</body>
</html>

下一页>>

上一篇：8种方法提高访问量
下一篇：利用“页中页”快速更新主页妙法

站内搜索