<!-- METADATEN
TYPE=typelib
DATEI=C:/Programme/Gemeinsame Dateien/System/ADO/msado20.tlb
->
<%@ Language=VBScript %>
<%Option Explicit%>
<%
'Dateien hinzugefügt
%>
<!-- #include virtual|file=Einzubindende Datei-->
<%
'Code-Copyright-Erklärung:
'============================================== = ========
'Datei: Dateiname.asp
' Version:1.0
'Datum:
' Drehbuch geschrieben von Tommy Xiao
' Beschreibung:
'
'Revision:
'Datum:
' Autor:
' Beschreibung:
'============================================== = ========
' Copyright (C) 2003 Asiagame.Com. Alle Rechte vorbehalten.
' Web: http://www.advancededu.com
' Brauchen Sie Hilfe? Kontakt: [email protected]
'============================================== = ========
%>
<%
'Code des Fehlertoleranzmechanismus
'--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=FALSE
WENN NDEBUG_MSG = TRUE DANN
'Fehlerfilterung
BEI FEHLER WEITERFAHREN
ENDE WENN
'Variablendeklarations- und Definitionsbereich
'Boolesche Fehlervariante
Dim BlnFounderr,sErrmsg
BlnFounderr = FALSE
'Fehlermeldung auslösen
'sErrmsg=sErrmsg+<br>+<li>Die von Ihnen benötigten Informationen wurden nicht gefunden. Sie können sie gerne verwenden.
'BlnFounderr = TRUE
Dimmen Sie oConn,oRs,sSQL 'ADO-Objekte
'Setze oConn = Server.CreateObject (ADODB.Connection)
'oConn.Open Application(connStr)
'Transaktionsdefinitionsbereich
'Ausgabefehler
Wenn BlnFounderr = TRUE, dann
mError()
Ende wenn
'Func,Proc-Definitionsbereich
Funktion DealInput(exp1)
dim exp2 'Eingabe nach ungültigen Zeichen filtern
exp2=Ersetzen(exp1,<,<)
exp2=Ersetzen(exp2,>,>)
exp2=Ersetzen(exp2,','')
exp2=Ersetzen(exp2,&,&)
DealInput=exp2
Funktion beenden
Funktion CloseDatabase ' CloseDatabase
oVerbindung schließen
Setzen Sie oConn = Nothing
Funktion beenden
sub mError()
'Response.Write sErrmsg&bitte wenden Sie sich an den Systemadministrator.
Response.write <html> & vbCrLf
Response.write <head> & vbCrLf
Response.write <title>xxx site--WEB-Hintergrundverwaltung</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
Antwort.write & vbCrLf
Response.write </head> & vbCrLf
Antwort.write & vbCrLf
Response.write <body> & vbCrLf
Response.write <table cellpadding=0 Cellspacing=0 border=0 width=95% 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>Fehlermeldung zum internen Verwaltungsvorgang</td> & vbCrLf
Response.write </tr> & vbCrLf
Response.write <tr> & vbCrLf
Response.write <td width=100% bgcolor=#FFFFFF><b>Mögliche Gründe für den Fehler:</b><br><br> & vbCrLf
Response.write <li>Bitte wenden Sie sich so schnell wie möglich an den Administrator, um entsprechende Hilfe zu erhalten. </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)> << Zurück zur vorherigen Seite</a> & vbCrLf
Response.write </td> & vbCrLf
Response.write </tr> & vbCrLf
Response.write </table> </td></tr></table> & vbCrLf
Response.write </body> & vbCrLf
Antwort.write </html>
Ende sub
%>