<!-- metadata
type="typelib"
file="c:\program files\common files\system\ado\msado20.tlb"
-->
<%@ language=vbscript codepage=936%>
<%
option explicit
'=========================================================
'容错机制代码
'=========================================================
dim ndebug_msg
ndebug_msg=false 'true,false
if ndebug_msg = true then
'出错过滤
on error resume next
end if
'=========================================================
'变量声明及定义区
'=========================================================
dim connstr,oconn 'ado连接变量
dim serrmsg '错误变量
'=========================================================
' 事务定义区
'=========================================================
'=========================================================
'func,proc定义区
'=========================================================
'=========================================================
' 功能：打开数据源
' 参数：
' 返回值：
'=========================================================
sub connectiondatabase
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用ip）
dim sqldatabasename,sqlpassword,sqlusername,sqllocalname
sqldatabasename="xiaods"
sqlpassword="!qazxsw@"
sqlusername="xiaods"
sqllocalname="192.168.211.7"
connstr = "provider=sqloledb; user id=" & sqlusername & "; password=" & sqlpassword & "; initial catalog = " & sqldatabasename & "; data source=" & sqllocalname & ";"
'on error resume next
set oconn = server.createobject("adodb.connection")
oconn.open connstr
if err then
err.clear
set oconn = nothing
serrmsg= "数据库连接出错，请检查连接字串。"
merror(serrmsg)
end if
end sub
'=========================================================
' 功能：关闭数据源
' 参数：
' 返回值：
'=========================================================
sub closedatabase
oconn.close
set oconn = nothing
end sub
'=========================================================
' 功能：输出错误信息
' 参数：serrmsg
' 返回值：
'=========================================================
sub merror(serrmsg)
'response.write serrmsg&"please contact system administrator."
response.write " <html>" & vbcrlf
response.write " <head>" & vbcrlf
response.write " <title>亚联游戏后台管理系统</title>" & vbcrlf
response.write " <meta name=""generator"" content=""microsoft visual studio 6.0"">" & vbcrlf
response.write "" & vbcrlf
response.write " </head>" & vbcrlf
response.write "" & vbcrlf
response.write " <body>" & vbcrlf
response.write "<table border=""0"" width=""100%"" height=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbcrlf
response.write " <tr>" & vbcrlf
response.write " <td width=""100%"" valign=""middle"" align=""center"">" & vbcrlf
response.write "" & vbcrlf
response.write " <table border=""1"" width=""40%"" cellspacing=""0"" cellpadding=""4"" bordercolorlight=""#000080"" bordercolordark=""#000080"">" & vbcrlf
response.write " <tr>" & vbcrlf
response.write " <td width=""100%"" bgcolor=""#000080""><font color=""#ffffff"">"& serrmsg&"</font></td>" & vbcrlf
response.write " </tr>" & vbcrlf
response.write " </table>" & vbcrlf
response.write " <table border=""1"" width=""40%"" bordercolorlight=""#000080"" cellspacing=""0"" cellpadding=""8"" bordercolordark=""#000080"">" & vbcrlf
response.write " <tr>" & vbcrlf
response.write " <td width=""100%"">您要浏览的页面有错误，请勿迟疑，立即与<a href=""mailto:webmaster@asiagame.com"">系统管理员</a>联系。" & vbcrlf
response.write " <p><font face=""verdana"" size=""2"">if you have any problem, please " & vbcrlf
response.write " don't hesitate to contact the <a href=""mailto:webmaster@asiagame.com"">systems " & vbcrlf
