如何创建数据库与网站的连接文件?
发布网友
发布时间：2022-04-08 21:20
共2个回答
懂视网
时间：2022-04-09 01:41
本周，小组的后端小组通过一个下午的努力成功地搭建起“大学社区”的数据库，根据之前的设计利用access完成表单的建立。
在创建站点的过程中，我们发现通过控制面板-管理工具-ODBC-系统DNS的过程中，找不到之前所需要的Drive do Microsoft Access选项，只有SQL选项。通过上网查找资料，知道是32位与64位的区别，最终在C盘-Windows-SysWOW64目录下找到了odbcad32.exe并成功设置了系统DNS。
接下来又通过Dreamweaver CS8完成了数据库的连接。
这一周的小组讨论，我们解开了很多疑惑之处，下一周我们应该就能完成用户登录注册界面的设计。
数据库的设计与连接、站点的搭建
标签：
热心网友
时间：2022-04-08 22:49
<%
on error resume next
Dim conn, ConnStr
'定义数据库类别，1为SQL数据库，0为Access数据库
Const lb=0
If lb=1 Then
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName="******" ‘写明数据库名
SqlPassword="******" ’密码
SqlUsername="******" ‘用户名
SqlLocalName="127.0.0.1"
ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
Else
Dim Db
Db="**********" ’数据库存放路位置和数据库名
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set conn = Nothing
Response.Write “数据库连接错误！"
Response.End()
End If
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库文件是只读！请给数据库文件添加IUSR_***用户的修改权限!"
Response.End()
End If
%>
