SQL版系统数据库的链接设置这里在提示一下，一定记住了安装S Q LServer 软件时，请注意安装过程中的身份验证模式要为“S Q LS e r v e r 和Windows 混合模式”。
1 .依次单击“开始”- >“程序”- >“M i c r o s o f t S Q LServer”->“企业管理器”2 . 在企业管理器窗口中，选择“数据库”，右键选择“新建数据库”。
在出现的“数据库属性”窗口中填写您要的数据库名，再单击“确定”。
3 .选中刚才新建的数据库，单击顶部菜单中的“工具”- >“SQL 查询分析器”在出现的“SQL查询分析器”窗口中，单击工具栏上的“打开”按钮。
然后打开系统所在文件夹中的Database\***.sql查询文件。
4.点工具栏上的“执行查询”按钮，以查询以创建系统需要的表和存储过程。
在“查询”窗口中出现“所影响的行数为1行”等成功信息。
关闭“SQL 查询分析器”窗口。
5 . 回到S Q L 控制台。
单击“安全性”，选择“登录”，右\键选择“新建一个登录”。
在出现的“SQL Server登录属性-新建登录”窗口的“常规”选项中，输入名称、S Q L S e r v e r 身份验证密码，并选中您新建的数据库。
6 .在“数据库访问”选项中，勾选您新建的数据库，并勾选“publ ic”和“db _ow ne r”这二个数据库角色。
单击确定，再次输入一遍密码以确认。
至此，已经完成了本系统的SQL数据库的安装。
您还需要修改本系统conn.asp文件中的数据库链接设置：3.我是用《聊湾视频语音聊天网》程序来测试的,在chat目录下没能发现*.SQL文件,但BBS 目下有,这样不知是不是聊天程序没有SQL数据库呢?我试连过BBS目录下的*.SQL文件也不行,提示错误还是和之前没有设置SQL SERVER服务器的一样,ASP连SQL代码如下:以下代码从conn.asp文件中复制出来----------------------------------------------------------------------------------------------------------------- <%request_ip=Request.ServerVariables("REMOTE_ADDR")re_ip=Split(replace_ip,"|")For i=0 To UBound(re_ip)if right(re_ip(i),1)="*" thenif left(re_ip(i),6)=left(request_ip,6) thenresponse.write "很抱歉，本功能暂停开放，请稍后再试"response.endend ifelseif re_ip(i)=request_ip thenresponse.write "很抱歉，本功能暂停开放，请稍后再试" response.endend ifnextdim startimedim conndim connstrstartime=timer()function openarticleSet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_article)conn.Open connstrEnd Functionfunction opensitesSet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_sites)conn.Open connstrEnd Functionfunction openpicSet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_pic)conn.Open connstrEnd Functionfunction openmodelSet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_model)conn.Open connstrEnd Functionfunction opennewsSet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_news)conn.Open connstrEnd Functionfunction opendiarySet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_diary)conn.Open connstrEnd Functionfunction opendownSet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_down)conn.Open connstrEnd Functionfunction opengbSet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_gb)conn.Open connstrEnd Functionfunction openadminSet conn = Server.CreateObject("ADODB.Connection")c & Server.MapPath(DB_admin)conn.Open connstrEnd Functionfunction CloseDatabaseConn.closeSet conn = NothingEnd FunctionFunction keys(str)word=replace_wordreword=Split(word,",")For i=0 To UBound(reword)if i=0 thenrestr=replace(str,reword(i),"<font color=red>***</font>") elserestr=replace(re_1,reword(i),"<font color=red>***</font>") end ifre_1=restrnextkeys=restrEnd Function%>给你一个连接的方法：<%Dim Conn, ConnstrDim strServer, strUid, strPwd, strDBstrServer = "" 'SQL数据库服务器地址strUid = "" '数据库用户名strPwd = "" '数据库密码strDB = "" '数据库名'On Error Resume NextSet Conn = Server.CreateObject("ADODB.Connection")Connstr = "driver={sqlserver};server="&strServer&";uid="&strUid&";pwd="&strPwd&";database="&strDBConn.Open ConnstrIf Err Thenerr.ClearSet Conn = NothingResponse.Write "<div id=""DBError"">数据库服务器端连接错误，请与网站管理员联系。
