蒙在股里 发表于 2015-1-16 22:08:40

ASP网页设计ASP完成不存在的网页就主动发送邮件

ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;我们在制造网站的时分,一般会有当访客的一些毛病操纵或我们网站自己的缺点,形成某个不存在的页面被会见,这时候会呈现404毛病提醒信息,假如是热情的访客大概会给你发一封邮件提醒你,事先年夜部分时分是访客不会给我们发邮件的。明天给人人先容的这个程序是当我们的网站呈现404毛病提醒时主动发送一封邮件给我们,代码以下:
以下为援用的内容:
<%@language="vbscript"%>
<%OptionExplicit%>
<%
DimstrPage,strReferer,strMessage
DimobjSMTP
Logtheoffendingpage
strPage=Request.ServerVariables("HTTP_URL")
Logthereferer
strReferer=Request.ServerVariables("HTTP_REFERER")
Setuptheemailcomponent
SetobjSMTP=Server.CreateObject("JMail.Message")
objSMTP.From="you@yourdomain.com"
objSMTP.FromName="YourDomain"
objSMTP.Subject="404ErrorLogged"
objSMTP.AddRecipient("you@yourdomain.com")
Writethemessage
strMessage="Requestedpage:"&strPage&vbCrLf&vbCrLf
IfstrReferer""Then
strMessage=strMessage&"Referer:"&strReferer
Else
strMessage=strMessage"Thevisitortypedtheaddressin"
EndIf
objSMTP.Body=strMessage
Sendthemessage
objSMTP.Send("mail.jzxue.com")
Tidyup
objSMTP.ClearRecipients
objSMTP.Close()
SetobjSMTP=Nothing
%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<htmllang="en">
<head>
<title>404PageNotFound</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<body>
<h1>404PageNotFoundError</h1>
<p>
Appropriatemessagehere.
</p>
</body>
</html>
<%@language="vbscript"%>
<%OptionExplicit%>
<%
DimstrPage,strReferer,strMessage
DimobjSMTP
Logtheoffendingpage
strPage=Request.ServerVariables("HTTP_URL")
Logthereferer
strReferer=Request.ServerVariables("HTTP_REFERER")
Setuptheemailcomponent
SetobjSMTP=Server.CreateObject("JMail.Message")
objSMTP.From="you@yourdomain.com"
objSMTP.FromName="YourDomain"
objSMTP.Subject="404ErrorLogged"
objSMTP.AddRecipient("you@yourdomain.com")
Writethemessage
strMessage="Requestedpage:"&strPage&vbCrLf&vbCrLf
IfstrReferer""Then
strMessage=strMessage&"Referer:"&strReferer
Else
strMessage=strMessage"Thevisitortypedtheaddressin"
EndIf
objSMTP.Body=strMessage
Sendthemessage
objSMTP.Send("mail.jzxue.com")
Tidyup
objSMTP.ClearRecipients
objSMTP.Close()
SetobjSMTP=Nothing
%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<htmllang="en">
<head>
<title>404PageNotFound</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<body>
<h1>404PageNotFoundError</h1>
<p>
Appropriatemessagehere.
</p>
</body>
</html>

请作者接洽本站,实时附注您的姓名。接洽邮箱:edu#chinaz.com(把#改成@)。


asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。

分手快乐 发表于 2015-1-18 21:02:10

我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。

admin 发表于 2015-1-26 21:16:35

ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。

第二个灵魂 发表于 2015-2-4 21:47:08

接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。

小魔女 发表于 2015-2-10 18:20:31

接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。

谁可相欹 发表于 2015-3-1 14:39:26

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

简单生活 发表于 2015-3-10 19:19:04

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

山那边是海 发表于 2015-3-17 10:09:24

下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。

再现理想 发表于 2015-3-24 06:54:56

另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
页: [1]
查看完整版本: ASP网页设计ASP完成不存在的网页就主动发送邮件