<!-- MÉTADONNÉES
TYPE=librairie de types
FILE=C:/Program Files/Common Files/System/ADO/msado20.tlb
-->
<%@ Langage=VBScript %>
<%Option explicite%>
<%
'Fichiers ajoutés
%>
<!-- #include virtual|file=Fichier à inclure-->
<%
'Déclaration de droits d'auteur du code :
'================================================== = ========
'Fichier : nom de fichier.asp
'Version : 1.0
'Date:
' Scénario écrit par Tommy Xiao
' Description:
'
'Révision:
'Date:
' Auteur:
' Description:
'================================================== = ========
' Copyright (C) 2003 Asiagame.Com Tous droits réservés.
' Web : http://www.advancededu.com
' Besoin d'aide ? Contact : [email protected]
'================================================== = ========
%>
<%
'Code du mécanisme de tolérance aux pannes
'--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=FAUX
SI NDEBUG_MSG = VRAI ALORS
'Erreur de filtrage
EN ERREUR REPRISER SUIVANT
FIN SI
'Zone de déclaration et de définition des variables
'Variante d'erreur booléenne
Dim BlnFondateurr,sErrmsg
BlnFounderr = FAUX
'Déclencheur d'un message d'erreur
'sErrmsg=sErrmsg+<br>+<li>Les informations dont vous avez besoin n'ont pas été trouvées, bienvenue à utiliser.
'BlnFounderr = VRAI
Dim oConn, oRs, objets SQL 'ADO
'Définir oConn = Server.CreateObject (ADODB.Connection)
'oConn.Ouvrir l'application (connStr)
'Zone de définition de transaction
'Erreur de sortie
Si BlnFounderr = VRAI Alors
mErreur()
Fin si
'Func,Zone de définition Proc
Fonction DealInput(exp1)
dim exp2 'Filtrer l'entrée pour les caractères invalides
exp2=Remplacer(exp1,<,<)
exp2=Remplacer(exp2,>,>)
exp2=Remplacer(exp2,','')
exp2=Remplacer(exp2,&,&)
DealInput = exp2
Fonction de fin
Fonction CloseDatabase ' CloseDatabase
oConn.fermer
Définir oConn = Rien
Fonction de fin
sous mErreur()
"Réponse. Écrivez sErrmsg et veuillez contacter l'administrateur système.
réponse.write <html> & vbCrLf
réponse.write <head> & vbCrLf
réponse.write <title>site xxx --Gestion en arrière-plan WEB</title> & vbCrLf
réponse.write <meta NAME=GENERATOR Content=Microsoft Visual Studio 6.0> & vbCrLf
réponse.write <link rel=stylesheet type=text/css href=css/index.css> & vbCrLf
réponse.write <script type=text/javascript src=js/fx.js></script> & vbCrLf
réponse.write <script type=text/javascript src=js/cooltool.js></script> & vbCrLf
réponse.write & vbCrLf
réponse.write </head> & vbCrLf
réponse.write & vbCrLf
réponse.write <corps> & vbCrLf
réponse.write <table cellpadding=0 cellpacing=0 border=0 width=95% bgcolor=#777777 align=center> & vbCrLf
réponse.write <tr> & vbCrLf
réponse.write <td> & vbCrLf
réponse.write <table cellpadding=3 Cellpacing=1 border=0 width=100%> & vbCrLf
réponse.write <tr align=center> & vbCrLf
réponse.write <td width=100% bgcolor=#EEEEEE>Message d'erreur d'opération de gestion interne</td> & vbCrLf
réponse.write </tr> & vbCrLf
réponse.write <tr> & vbCrLf
réponse.write <td width=100% bgcolor=#FFFFFF><b>Raisons possibles de l'erreur :</b><br><br> & vbCrLf
réponse.write <li>Veuillez contacter l'administrateur dès que possible pour obtenir l'aide appropriée. </a> & vbCrLf
réponse.write sErrmsg & vbCrLf
réponse.write </td> & vbCrLf
réponse.write </tr> & vbCrLf
réponse.write <tr align=center> & vbCrLf
réponse.write <td width=100% bgcolor=#EEEEEE> & vbCrLf
réponse.write <a href=javascript:history.go(-1)> << Retour à la page précédente</a> & vbCrLf
réponse.write </td> & vbCrLf
réponse.write </tr> & vbCrLf
réponse.write </table> </td></tr></table> & vbCrLf
réponse.write </body> & vbCrLf
réponse.write </html>
fin du sous
%>