<!-- METADADOS
TIPO=typelib
ARQUIVO=C:/Arquivos de programas/Arquivos comuns/Sistema/ADO/msado20.tlb
-->
<%@Idioma=VBScript%>
<%Opção Explícita%>
<%
'Arquivos adicionados
%>
<!-- #include virtual|file=Arquivo a ser incluído-->
<%
'Declaração de direitos autorais do código:
'================================================ =========
'Arquivo: nome do arquivo.asp
' Versão:1.0
'Data:
'Roteiro escrito por Tommy xiao
' Descrição:
'
'Revisão:
'Data:
'Autor:
' Descrição:
'================================================ =========
' Copyright (C) 2003 Asiagame.Com. Todos os direitos reservados.
'Web: http://www.advancededu.com
' Precisa de ajuda? Contato: [email protected]
'================================================ =========
%>
<%
'Código do mecanismo de tolerância a falhas
'--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=FALSO
SE NDEBUG_MSG = VERDADEIRO ENTÃO
'Erro ao filtrar
EM ERRO RETOMAR PRÓXIMO
TERMINAR SE
'Declaração de variáveis e área de definição
'Variante de erro booleano
Dim BlnFundador,sErrmsg
BlnFounderr = FALSO
'Mensagem de erro de disparo
'sErrmsg=sErrmsg+<br>+<li>A informação que você precisa não foi encontrada, bem-vindo para usar.
'BlnFounderr = VERDADEIRO
Dim oConn,oRs,sSQL 'objetos ADO
'Definir oConn = Server.CreateObject (ADODB.Connection)
'oConn.Aplicativo aberto (connStr)
'Área de definição de transação
'Erro de saída
Se BlnFounderr = VERDADEIRO então
mErro()
Terminar se
'Func,área de definição de Proc
Função DealInput(exp1)
dim exp2 'Filtrar entrada para caracteres inválidos
exp2=Substituir(exp1,<,<)
exp2=Substituir(exp2,>,>)
exp2=Substituir(exp2,','')
exp2=Substituir(exp2,&,&)
DealInput=exp2
Função final
Função CloseDatabase 'CloseDatabase
oConn.fechar
Definir oConn = Nada
Função final
submErro()
'Resposta.Escreva uma mensagem de erro e entre em contato com o administrador do sistema.
resposta.write <html> & vbCrLf
resposta.write <head> & vbCrLf
response.write <title>xxx site - gerenciamento de segundo plano da WEB</title> & vbCrLf
resposta.write <meta NAME=GENERATOR Content=Microsoft Visual Studio 6.0> & vbCrLf
resposta.write <link rel=stylesheet type=text/css href=css/index.css> & vbCrLf
resposta.write <script type=text/javascript src=js/fx.js></script> & vbCrLf
resposta.write <script type=text/javascript src=js/cooltool.js></script> & vbCrLf
resposta.write & vbCrLf
resposta.write </head> & vbCrLf
resposta.write & vbCrLf
resposta.write <corpo> & vbCrLf
resposta.write <tabela cellpadding=0 cellpacing=0 border=0 width=95% bgcolor=#777777 align=center> & vbCrLf
resposta.write <tr> & vbCrLf
resposta.write <td> & vbCrLf
resposta.write <tabela cellpadding = 3 células espaçamento = 1 borda = 0 largura = 100%> & vbCrLf
resposta.write <tr alinhar = centro> & vbCrLf
response.write <td width=100% bgcolor=#EEEEEE>Mensagem de erro de operação de gerenciamento interno</td> & vbCrLf
resposta.write </tr> & vbCrLf
resposta.write <tr> & vbCrLf
response.write <td width=100% bgcolor=#FFFFFF><b>Possíveis razões para o erro:</b><br><br> & vbCrLf
response.write <li>Entre em contato com o administrador o mais rápido possível para obter ajuda apropriada. </a> & vbCrLf
resposta.write sErrmsg & vbCrLf
resposta.write </td> & vbCrLf
resposta.write </tr> & vbCrLf
resposta.write <tr alinhar = centro> & vbCrLf
resposta.write <td largura=100% bgcolor=#EEEEEE> & vbCrLf
response.write <a href=javascript:history.go(-1)> << Voltar à página anterior</a> & vbCrLf
resposta.write </td> & vbCrLf
resposta.write </tr> & vbCrLf
resposta.write </table> </td></tr></table> & vbCrLf
resposta.write </body> & vbCrLf
resposta.write </html>
final sub
%>