<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<% Response.Charset = "utf-8" %>
<%
'on error resume next
'---------------------数据库类型及路径定义---------------------
dim conn,connstr,strSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName


'------------以下需要修改----------------------------------------------
strSQLServerName	= "127.0.0.1"      '服务器名称或地址,本机不需要修改
strSQLDBUserName	= "sa"    '数据库帐号,如是sa不用修改，如是新建的，或者空间上的填写相应密码
strSQLDBPassword	= "123456"    '数据库密码,把SA用户的密码设置为123456则不用修改，如不是则填写相应用户的密码
strSQLDBName		= "wygkcnsqlshop2"  '数据库名称,附加数据库时可自己命名的，或者是空间商已经命名好的名称
'------------用户修改结束---------------------------------------------

response.buffer=true '启用缓冲处理
Set conn = Server.CreateObject("ADODB.Connection") 
conn.ConnectionTimeout = 10 '设置connection对象连接数据库的逾期时间
conn.CommandTimeout = 20 '设置执行execute方法时间
conn.CursorLocation = 3 '将记录存放在游览器端
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
conn.Open connstr
%>
