推薦：用ASP編寫更人性化的彈出窗口程序ASP實例：用ASP編寫更人性化的彈出窗口程序，來幫我們制作一個不煩人的調查的方法。用彈出窗口來顯示調查表，被認為是達到我們收集訪問用戶信息的最方便快捷的方法。當制作出第一份調查表后
我們在制作網站的時候，通常會有當訪客的一些錯誤操作或我們網站本身的缺陷，造成某個不存在的頁面被訪問，這時會出現404錯誤提示信息，如果是熱心的訪客可能會給你發一封郵件提示你，當時大部分時候是訪客不會給我們發郵件的。今天給大家介紹的這個程序是當我們的網站出現404錯誤提示時自動發送一封郵件給我們，代碼如下：
| 以下為引用的內容： <% @language="vbscript" %> <% Option Explicit %> <% Dim strPage, strReferer, strMessage Dim objSMTP ' Log the offending page strPage = Request.ServerVariables("HTTP_URL") ' Log the referer strReferer = Request.ServerVariables("HTTP_REFERER") ' Set up the email component Set objSMTP = Server.CreateObject("JMail.Message") objSMTP.From = "you@yourdomain.com" objSMTP.FromName = "Your Domain" objSMTP.Subject = "404 Error Logged" objSMTP.AddRecipient("you@yourdomain.com") ' Write the message strMessage = "Requested page: " & strPage & vbCrLf & vbCrLf If strReferer <> "" Then strMessage = strMessage & "Referer: " & strReferer Else strMessage = strMessage "The visitor typed the address in" End If objSMTP.Body = strMessage ' Send the message objSMTP.Send("mail.jzxue.com") ' Tidy up objSMTP.ClearRecipients objSMTP.Close() Set objSMTP = Nothing %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html lang="en"> <head> <title>404 Page Not Found</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body> <h1>404 Page Not Found Error</h1> <p> Appropriate message here. </p> </body> </html> <% @language="vbscript" %> <% Option Explicit %> <% Dim strPage, strReferer, strMessage Dim objSMTP ' Log the offending page strPage = Request.ServerVariables("HTTP_URL") ' Log the referer strReferer = Request.ServerVariables("HTTP_REFERER") ' Set up the email component Set objSMTP = Server.CreateObject("JMail.Message") objSMTP.From = "you@yourdomain.com" objSMTP.FromName = "Your Domain" objSMTP.Subject = "404 Error Logged" objSMTP.AddRecipient("you@yourdomain.com") ' Write the message strMessage = "Requested page: " & strPage & vbCrLf & vbCrLf If strReferer <> "" Then strMessage = strMessage & "Referer: " & strReferer Else strMessage = strMessage "The visitor typed the address in" End If objSMTP.Body = strMessage ' Send the message objSMTP.Send("mail.jzxue.com") ' Tidy up objSMTP.ClearRecipients objSMTP.Close() Set objSMTP = Nothing %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html lang="en"> <head> <title>404 Page Not Found</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body> <h1>404 Page Not Found Error</h1> <p> Appropriate message here. </p> </body> </html> |
請作者聯系本站，及時附注您的姓名。聯系郵箱:CuoXIn#vip.qq.com（把#改為@）。
分享：初學者的ASP教程：常用ASP內置函數函數，就是該語言封裝了的一個功能塊，以方便用戶的調用。比如“now()”在VBScript中就是一個能顯示出當前日期和時間的函數。至于具體為什么能顯示，則是該語言內核所定的，用戶只需
新聞熱點
疑難解答
