VB&#083;cript編碼模板

2024-07-21 02:15:33

字體：大中小

供稿：網(wǎng)友

代碼規(guī)范：



<%@ language=vbscript %>
<%option explicit%>

<%
'加入的文件
%>


<%
'代碼版權(quán)說明:
'=========================================================
' 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.advancededu.com
' need help? contact: [email protected]
'=========================================================
%>
<%
'容錯機制代碼
'--------------------------------
dim ndebug_msg
ndebug_msg=false

if ndebug_msg = true then
'出錯過濾
on error resume next
end if

'變量聲明及定義區(qū)
'boolean error variant
dim blnfounderr,serrmsg
blnfounderr = false
'觸發(fā)錯誤信息
'serrmsg=serrmsg+"<br>"+"<li>沒有找到您需要的信息，歡迎使用。"
'blnfounderr = true

dim oconn,ors,ssql 'ado objects

'set oconn = server.createobject ("adodb.connection")
' oconn.open application("connstr")

'事務(wù)定義區(qū)

'輸出錯誤
if blnfounderr = true then
merror()
end if

'func,proc定義區(qū)
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"">內(nèi)部管理操作錯誤信息</td>" & vbcrlf
response.write " </tr>" & vbcrlf
response.write " <tr> " & vbcrlf
response.write " <td width=""100%"" bgcolor=""#ffffff""><b>產(chǎn)生錯誤的可能原因：</b><br><br>" & vbcrlf
response.write " <li>請您盡快與管理員聯(lián)系，獲得相應(yīng)地的幫助。</a>" & vbcrlf
response.write serrmsg & vbcrlf
response.write " </td>" & vbcrlf
response.write " </tr>" &a

商業(yè)源碼熱門下載www.html.org.cn

|||mp; 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
%>

上一篇：Vb&#115;cript類型轉(zhuǎn)換函數(shù)

下一篇：一個例子：從新浪提取上海天氣的vbs