|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。毛病|显现|原创asp程序堕落后,毛病提醒不是很分明分明,让人摸不着思想,用上面办法看看有无匡助(此法今朝只合适处ADO毛病外的毛病)
步骤一,用编纂器翻开c:winnthelpiisHelpcommon500-100.asp
将它另存为500-101.asp备份(以便往后恢复)
步骤二,将上面的代码掩盖500-100.asp原文件,保留加入
步骤三,创立新文件test.asp,增加以下代码
<%response.writenow(1)%>,存盘加入
步骤四,在扫瞄器中输出localhost/test.asp检察了局
500-100.asp的新代码:
<%@language="VBScript"%>
<%
OptionExplicit
ConstlngMaxFormBytes=200
DimobjASPError,blnErrorWritten,strServername,strServerIP,strRemoteIP
DimstrMethod,lngPos,datNow,strQueryString,strURL
IfResponse.BufferThen
Response.Clear
Response.Status="500InternalServerError"
Response.ContentType="text/html"
Response.Expires=0
EndIf
SetobjASPError=Server.GetLastError
%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML3.2Final//EN">
<htmldir=ltr>
<head>
<style>
a:link{font:9pt宋体;color:FF0000}
a:visited{font:9pt宋体;color:#4e4e4e}
</style>
<METANAME="ROBOTS"CONTENT="NOINDEX">
<title>本页堕落</title>
<METAHTTP-EQUIV="Content-Type"Content="text-html;charset=gb2312">
<METANAME="MS.LOCALE"CONTENT="ZH-CN">
</head>
<script>
functionHomepage(){
<!--
//inrealbits,urlsgetreturnedtoourscriptlikethis:
//res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm
//FortestinguseDocURL="res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm"
DocURL=document.URL;
//thisiswherethehttporhttpswillbe,asfoundbysearchingfor://butskippingtheres://
protocolIndex=DocURL.indexOf("://",4);
//thisfindstheendingslashforthedomainserver
serverIndex=DocURL.indexOf("/",protocolIndex+3);
//forthehref,weneedavalidURLtothedomain.Wesearchforthe#symboltofindthebegining
//ofthetrueURL,andadd1toskipit-thisistheBeginURLvalue.WeuseserverIndexastheendmarker.
//urlresult=DocURL.substring(protocolIndex-4,serverIndex);
BeginURL=DocURL.indexOf("#",1)+1;
urlresult=DocURL.substring(BeginURL,serverIndex);
//fordisplay,weneedtoskipafterhttp://,andgotothenextslash
displayresult=DocURL.substring(protocolIndex+3,serverIndex);
document.write(<AHREF="+escape(urlresult)+">+displayresult+"</a>");
}
//-->
</script>
<bodybgcolor="FFFFFF">
<ul>
<li>毛病范例:<br>
<%
DimbakCodepage
bakCodepage=Session.Codepage
Session.Codepage=936
Response.WriteServer.HTMLEncode(objASPError.Category)
IfobjASPError.ASPCode>""ThenResponse.WriteServer.HTMLEncode(","&objASPError.ASPCode)
Response.WriteServer.HTMLEncode("(0x"&Hex(objASPError.Number)&")")&"<br>"
IfobjASPError.ASPDescription>""ThenResponse.WriteServer.HTMLEncode(objASPError.ASPDescription)&"<br>"
%>
</li>
<p>
<li>毛病地位:<br>
<%
blnErrorWritten=False
OnlyshowtheSourceifitisavailableandtherequestisfromthesamemachineasIIS
IfobjASPError.Source>""Then
strServername=LCase(Request.ServerVariables("SERVER_NAME"))
strServerIP=Request.ServerVariables("LOCAL_ADDR")
strRemoteIP=Re</p>写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |
|