ASP网页编程之若何检测本人网站的毛病（让办理员可以...

显示全部楼层 · 发表于 2015-2-3 23:39:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了. 另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)毛病|办理员上面是依据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
1、反省纪录网站的毛病链接：
在网站的目次中创立/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=&qu</p>  当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题

显示全部楼层 · 发表于 2015-3-22 02:52:17

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之若何检测本人网站的毛病（让办理员可以...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子