很菜的问题 不会啊！！！！求救送分

[zcllcz]

<%
'设置数据库链接
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("new.mdb")
session("strconn")=strConn
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
set rs=server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM product",dbc,1,3
%>
默认上传到new.mdb数据库中的pic字段
---------------------------------------------------------------------------------

改为sqlserver2000数据库连接 路径也改
我要把多个文件上传到sqlserver数据库中
求指导！！！！！！！！！！！！！！！！！！！

[lstup]

换个连接语句不就可以了？

• 打赏
• 举报

回复 赞

[lstup]

Dim sqlLocalName,SqlUserName,SqlPassWord,SqlDatabaseName,ConnStr,Conn
SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUserName ="sa" '用户名
SqlPassWord ="pass" '用户密码
SqlDatabaseName="kkof" '数据库名
ConnStr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial CataLog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"


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
On Error GoTo 0

• 打赏
• 举报

回复 赞