• 首页
  • 问答

    • ASP、vbscript编码模板

    2023-07-08 10:41 24次浏览 问答

    <– METADATA
    TYPE=”typelib”
    FILE=”C:\Program Files\Common Files\System\ADO\msado20。tlb”
    –>
    <%@ Language=VBScript %>
    <%Option Explicit%>
    <%
    ‘加入的文件
    %>
    <– #include virtual|file=”需要包含的文件” –>
    <%
    ‘代码版权说明:
    ‘=========================================================
    ‘ File: 文件名。
    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。gxlsystem。com
    ‘ Need help? Contact: xds2000@msn。com
    ‘=========================================================
    %>
    <%
    ‘容错机制代码
    ‘——————————–
    DIM NDEBUG_MSG
    NDEBUG_MSG=FALSE
    IF NDEBUG_MSG = TRUE THEN
    ‘出错过滤
    ON ERROR RESUME NEXT
    END IF
    ‘变量声明及定义区
    ‘Boolean error variant
    Dim BlnFounderr,sErrmsg
    BlnFounderr = FALSE
    ‘触发错误信息
    ‘sErrmsg=sErrmsg+”
    “+”<li>没有找到您需要的信息，欢迎使用。
    “
    ‘BlnFounderr = TRUE
    Dim oConn,oRs,sSQL ‘ADO objects
    ‘Set oConn = Server。CreateObject (“ADODB。
    Connection”)
    ‘ oConn。Open Application(“connStr”)
    ‘事务定义区
    ‘输出错误
    If BlnFounderr = TRUE Then
    mError()
    End If
    ‘Func,Proc定义区
    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&”please contact system administrator。
    “
    response。write ” <html>” & vbCrLf
    response。write ” <head>” & vbCrLf
    response。
    write ” <title>xxx站点–WEB后台管理</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 ” </head>” & vbCrLf
    response。
    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””>内部管理操作错误信息</td>” & vbCrLf
    response。
    write ” </tr>” & vbCrLf
    response。write ” <tr> ” & vbCrLf
    response。write ” <td width=””100%”” bgcolor=””#FFFFFF””><b>产生错误的可能原因：</b>

    ” & vbCrLf
    response。
    write ” <li>请您尽快与管理员联系，获得相应地的帮助。</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)””> << 返回上一页</a>” & vbCrLf
    response。write ” </td>” & vbCrLf
    response。
    write ” </tr> ” & vbCrLf
    response。write ” </table> </td></tr></table>” & vbCrLf
    response。
    write ” </body>” & vbCrLf
    response。write ” </html>”
    end sub
    %>
    。

    1.文章《ASP、vbscript编码模板》援引自互联网，为网友投稿收集整理，仅供学习和研究使用，内容仅代表作者本人观点，与本网站无关，侵删请点击页脚联系方式。

    2.文章《ASP、vbscript编码模板》仅供读者参考，本网站未对该内容进行证实，对其原创性、真实性、完整性、及时性不作任何保证。

    相关推荐

    ↑