版主提问: MSSQL什么版本？用企业管理器或者Management Studio能不能连上？顺便帖一下ASP连sql那一段代码。
1.sql server简体中文开发版
2.用企业管理器好像能连了,我已这样操作过,不知是否算是连上呢,这是我在网上看到动网的教材设置的,但我不是用他们的程序来测试?
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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)="*" then
if left(re_ip(i),6)=left(request_ip,6) then
response.write "很抱歉，本功能暂停开放，请稍后再试"
response.end
end if
elseif re_ip(i)=request_ip then
response.write "很抱歉，本功能暂停开放，请稍后再试"
response.end
end if
next
dim startime
dim conn
dim connstr
startime=timer()
function openarticle
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_article)
conn.Open connstr
End Function
function opensites
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_sites)
conn.Open connstr
End Function
function openpic
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_pic)
conn.Open connstr
End Function
function openmodel
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_model)
conn.Open connstr
End Function
function opennews
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_news)
conn.Open connstr
End Function
function opendiary
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_diary)
conn.Open connstr
End Function
function opendown
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_down)
conn.Open connstr
End Function
function opengb
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_gb)
conn.Open connstr
End Function
function openadmin
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(DB_admin)
conn.Open connstr
End Function
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
Function keys(str)
word=replace_word
reword=Split(word,",")
For i=0 To UBound(reword)
if i=0 then
restr=replace(str,reword(i),"<font color=red>***</font>")
else
restr=replace(re_1,reword(i),"<font color=red>***</font>")
end if
re_1=restr
next
keys=restr
End Function
%>
