|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转闽南师范大学。
您需要 登录 才可以下载或查看,没有账号?立即加入
×
解决了ACCESS数据库路径的问题!<BR>采用DBType=0或DBType=1来区分AC库还是MSSQL库<BR>具体采用AC库时应注意的事项,请看程序说明+ j5 C. E( ~* D
< >--------------------------------------------------------------------------------<BR>Dim DBType,Conn,StrConn<BR>DBType=0 0为Access数据库,1为MSSQL数据库 </P>
: W {8 D, Q9 v, ]< >If(DBType=0) Then<BR>********************************ACCESS数据库*************************************<BR>Dim DbFolderName,DbFolder_Path,SiteFolder<BR>DbFolderName="ArticleData" 数据库所在文件夹名称<BR>DbFolder_Path = Server.MapPath(DbFolderName) 数据库所在路径<BR>SiteFolder="Article" 系统所在根目录名称</P>
" b3 t+ u+ V" m6 @8 R< >If Session("RootDir") = "" Then <BR>Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder <BR>End if<BR>Set Conn = Server.CreateObject("Adodb.Connection")<BR>StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & "\"& DbFolderName & "\Data.mdb" 连接到数据库<BR>Conn.Open StrConn<BR>**********************************************************************************<BR>ElseIf(DBType=1) Then<BR>*****************************MSSQL SERVER数据库*************************************<BR>Dim DBUserID,DBPassWord,DBName,DBIP<BR>修改以下信息以适合你的网站<BR>DBUserID="sa" 数据库登陆名<BR>DBPassWord="" 数据库密码<BR>DBName="dbname" 数据库名称<BR>DBIP="local" 数据库所在地址,如果是本地数据库则为:(local)</P>
7 N6 l: u; `6 S. p9 c< >Set Conn=Server.CreateObject("Adodb.Connection")<BR>StrConn = " ROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Initial Catalog="&DBName&" ersist Security Info=True;User ID="&DBUserID&" assword="&DBPassWord&";Connect Timeout=30"<BR>Conn.Open StrConn<BR>**********************************************************************************<BR>Else<BR>***********************数据库设置错误*************************************************<BR>Response.Write"数据库设置错误,请联系管理员!"<BR>Response.End<BR>End If<BR>Response.Write StrConn</P> |
|