<%@LANGUAGE="VBSCRIPT"%>
<%
'option explicit
dim conn,connstr,connServerName,connDatabase,connUserName,connPassword

'修改以下信息以适合你的网站
'---------------------------------------------------------------------------
connServerName = "(local)" '数据库服务器名或者IP，本机填“(local)”即可。
connDatabase = "vipcn"    '数据库名称
connUserName = "sa"        '数据库用户名
connPassword = "meskycn"   '数据库密码
'---------------------------------------------------------------------------

Set conn = Server.CreateObject("ADODB.Connection")
     connstr="Provider=SQLOLEDB;Data Source="&connServerName&";Initial Catalog="&connDatabase&";User ID="&connUserName&";Password="&connPassword&";"
     'connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=ttdown;User ID=sa;Password=meskycn;"
conn.Open connstr

Rem 断开数据库连接
function CloseDatabase
    Conn.close
    Set conn = Nothing
End Function

Rem 过滤SQL非法字符
function checkStr(str)
    if isnull(str) then
        checkStr = ""
        exit function
    end if
    checkStr=replace(str,"'","''")
end function
%>