ASP连接SQLServer数据库总结

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数据库的安装。您还需要修改本系统文件中的数据库链接设置：

3.我是用《聊湾视频语音聊天网》程序来测试的,在chat目录下没能发现*.SQL文件,但BBS 目下有,这样不知是不是聊天程序没有SQL数据库呢?我试连过BBS目录下的*.SQL文件也不行,提示错误还是和之前没有设置SQL SERVER服务器的一样,ASP连SQL代码如下:

以下代码从文件中复制出来

----------------------------------------------------------------------------------------------------------------- <%

request_ip=("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

"很抱歉，本功能暂停开放，请稍后再试"

end if

elseif re_ip(i)=request_ip then

"很抱歉，本功能暂停开放，请稍后再试"

end if

next

dim startime

dim conn

dim connstr

startime=timer()

function openarticle

Set conn = ("")

c & (DB_article)

connstr

End Function

function opensites

Set conn = ("")

c & (DB_sites)

connstr

End Function

function openpic

Set conn = ("")

c & (DB_pic)

connstr

End Function

function openmodel

Set conn = ("")

c & (DB_model)

connstr

End Function

function opennews

Set conn = ("")

c & (DB_news)

connstr

End Function

function opendiary

Set conn = ("")

c & (DB_diary)

connstr

End Function

function opendown

Set conn = ("")

c & (DB_down)

connstr

End Function

function opengb

Set conn = ("")

c & (DB_gb)

connstr

End Function

function openadmin

Set conn = ("")

c & (DB_admin)

connstr

End Function

function CloseDatabase

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),"***") else

restr=replace(re_1,reword(i),"***") end if

re_1=restr

next

keys=restr

End Function

%>