急求！恳请有心人帮忙把连接access 改成连接sql2000

Question

急求！恳请有心人帮忙把连接access 改成连接sql2000<%@ LANGUAGE=VBScript CodePage=936%>
<%
Option Explicit
Dim Startime,Endtime
Dim Dvbbs, MyCache
Dim SqlNowString,Conn'¶¨ÒåÊý¾Ý¿âÀà±ð£¬1ΪSQLÊý¾Ý¿â£¬0ΪAccessÊý¾Ý¿â
Const IsSqlDataBase=0
'ÂÛ̳»º´æÃû³Æ£¬Èç¹ûÒ»¸öÕ¾µãÓжà¸öÂÛ̳Çë¸ü¸Ä³É²»Í¬Ãû³Æ
Const Forum_CacheName="aspsky"
Const Forum_EnableCacheDatabase=1
Startime=Timer()
Dim plus_name,Plus_Setting
plus_name=""
Set Dvbbs=New Cls_Forum
Set MyCache=New Cache
Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase=1 Then
SqlNowString="GetDate()"
'sqlÊý¾Ý¿âÁ¬½Ó²ÎÊý£ºÊý¾Ý¿âÃû¡¢Óû§ÃÜÂë¡¢Óû§Ãû¡¢Á¬½ÓÃû£¨±¾µØÓÃlocal£¬ÍâµØÓÃIP£©
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName=""
SqlPassword=""
SqlUsername="sa"
SqlLocalName="(local)"
ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
Else
SqlNowString="Now()"
Dim Db
'Ãâ·ÑÓû§µÚÒ»´ÎʹÓÃÇëÐ޸ı¾´¦Êý¾Ý¿âµØÖ·²¢ÏàÓ¦ÐÞ¸ÄdataĿ¼ÖÐÊý¾Ý¿âÃû³Æ£¬È罫dvbbs6.mdbÐÞ¸ÄΪdvbbs6.asp
Db="data/dvbbs61.asp"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
End If
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "Êý¾Ý¿âÁ¬½Ó³ö´í£¬Çë¼ì²éÁ¬½Ó×Ö´®¡£"
Response.End
End If
End Sub
Sub CloseDatabaseEnd Sub
%>

Answer 1

ConnStr ="Provider=SQLOLEDB;Data Source=IP_Address;Initial Catalog=数据库;User ID=用户名;Password=密码"

Answer 2

ConnStr = "Provider=Sqloledb;
================================
前一段代码已经是sql server连接了啊。不过通常会有一个provider的版本号，比如 Sqloledb.1 。
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;
===================================
后一段代码有变成 Access 连接了。

Answer 3

[ODBC]
"Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;" [OLE DB, OleDbConnection]
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\somepath\mydb.mdb;User Id=admin;Password=;"  √ 推荐

Answer 4

TSQL不支持Access中的now()/timer()函数