vbscript| Coding | Specification Code specification:
<!--METADATA
Type= "TypeLib"
file= "C:\Program Files\Common Files\system\ado\msado20.tlb"
-->
<%@ Language=vbscript%>
<%option explicit%>
<%
' Join the file
%>
<!--#include virtual|file= "files to include"-->
<%
' Code Copyright Description:
'=========================================================
' File: file name. asp
' version:1.0
' Date:
' Script written by Tommy Xiao
' Description:
'
' Revision:
' Date:
' Author:
' Description:
'=========================================================
' Copyright (C) 2003 asiagame.com. All rights reserved.
' Web:http://www.advancededu.com
' Need help? Contact:xds2000@msn.com
'=========================================================
%>
<%
' Fault tolerance mechanism code
'--------------------------------
DIM ndebug_msg
Ndebug_msg=false
IF ndebug_msg = TRUE THEN
' ERROR filtering
On ERROR RESUME NEXT
End IF
' Variable declaration and definition area
' Boolean Error variant
Dim blnfounderr,serrmsg
Blnfounderr = FALSE
' Trigger error message
"serrmsg=serrmsg+" <br> "+" <li> did not find the information you need, welcome to use. "
' Blnfounderr = TRUE
Dim oconn,ors,ssql ' ADO objects
' Set oconn = Server.CreateObject (' ADODB. Connection ")
' oConn.Open application ("ConnStr")
' Transaction definition Area
' Output error
If Blnfounderr = TRUE Then
Merror ()
End If
' Func,proc definition Area
Function Dealinput (EXP1)
Dim exp2 ' Filter Input for invalid characters
Exp2=replace (EXP1, "<", "<")
Exp2=replace (EXP2, ">", ">")
Exp2=replace (EXP2, "'", "" ")
Exp2=replace (EXP2, "&", "&")
Dealinput=exp2
End Function
Function CloseDatabase ' CloseDatabase
Oconn.close
Set oconn = Nothing
End Function
Sub Merror ()
' Response.Write serrmsg& ' to contact system administrator. "
Response.Write "Response.Write "Response.Write "<title>xxx site--web admin </title>" & vbCrLf
Response.Write "<meta name=" "Generator" "content=" "Microsoft Visual Studio 6.0" ">" & vbCrLf
Response.Write "<link rel=" "Stylesheet" "type=" "Text/css" "href=" "Css/index.css" ">" & vbCrLf
Response.Write "<script type=" "Text/javascript" "src=" "Js/fx.js" "></script>" & VbCrLf
Response.Write "<script type=" "Text/javascript" "src=" "Js/cooltool.js" "></script>" & VbCrLf
Response.Write "" & VbCrLf
Response.Write "Response.Write "" & VbCrLf
Response.Write "<body>" & VbCrLf
Response.Write "<table cellpadding=" "0" "cellspacing=" "0" "border=" "0" "width=" "" "bgcolor=" "#777777" "align=" " Center "" > "& vbCrLf
Response.Write "<tr>" & VbCrLf
Response.Write "<td>" & VbCrLf
Response.Write "<table cellpadding=" "3" "cellspacing=" "1" "border=" "0" "width=" "100%" ">" & vbCrLf
Response.Write "<tr align=" "Center" ">" & vbCrLf
Response.Write "<td width=" "100%" "bgcolor=" "#EEEEEE" "> Internal management operation error information </td>" & VbCrLf
Response.Write "</tr>" & VbCrLf
Response.Write "<tr>" & VbCrLf
Response.Write "<td width=" "100%" "bgcolor=" "#FFFFFF" "><b> possible causes of error:</b><br><br>" & VbCrLf
Response.Write "<li> Please contact your administrator as soon as possible and get help accordingly." </a> "& VbCrLf
Response.Write Serrmsg & VbCrLf
Response.Write "</td>" & VbCrLf
Response.Write "</tr>" & VbCrLf
Response.Write "<tr align=" "Center" ">" & vbCrLf
Response.Write "<td width=" "100%" "bgcolor=" "#EEEEEE" ">" & vbCrLf
Response.Write "<a href=" "Javascript:history.go ( -1)" "> << back to Page </a>" & VbCrLf
Response.Write "</td>" & VbCrLf
Response.Write "</tr>" & VbCrLf
Response.Write "</table> </td></tr></table>" & vbCrLf
Response.Write "</body>" & VbCrLf
Response.Write "End Sub
%>
