2.8w+
社区成员
很菜的问题 不会啊！！！！求救送分
<%
'设置数据库链接
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数据库中
求指导！！！！！！！！！！！！！！！！！！！
'设置数据库链接
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数据库中
求指导！！！！！！！！！！！！！！！！！！！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
lstup 2005-04-24
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
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
- 打赏
- 举报
lstup 2005-04-24
换个连接语句不就可以了？
- 打赏
- 举报
打工还是创业？思路决定出路! 古人还说：“男怕选错行，女怕嫁错郎”这句话其实很深刻。天下365行，其实行行都能做，但是同样一个人，选择了做生意和选择了上班，将来的区别就很大，真的太大了！ 如果你选择了打工生涯，可能你绝对幸运，将来...
打工还是创业？思路决定出路！ 发现很多朋友创业的心里很矛盾，既有创业单干的激情，同时又有担心失败后悲惨的命运!所以很多朋友思考了很长时间，最后还是决定等等再看，一月过了一月，一年过了又一年，岁月流逝，光阴不再，沉浸在打工的生涯中...
华为牛人在华为工作十年的感悟！ 就这样懵懵懂懂到了华为,一开始新员工培训,纪律严明、严格,班车不会多等半分钟,之后是部门 培训,大量的信息扑面而来.之后到了工作岗位上,给我分配的工作是ERP系统管理员兼DBA,虽然以前也 搞过一些大...
打工和做生意的区别！你必须在年轻时学会赚钱 打工和做生意的区别！... 所以很多朋友思考了很长时间，最后还是决定等等再看，一月过了一月，一年过了又一年，岁月流逝，光阴不再，沉浸在打工的生涯中难以自拔，结婚供房，身上的经济枷锁日益沉重，无力再
网络工程师辞职及成功转型的故事！！ 操作考试也不是面对面的进行，考官在办公室里一排桌子后坐着，而考生则在另一间教室里，把切好的萝卜丝、雕好的花、炒好的菜由专门的服务员送到评委面前打分。考试分三项进行，一是刀工，二是雕刻和拼盘，三是热炒。...
华为十年，总结出的12条经验！ 就这样懵懵懂懂到了华为，一开始新员工培训，纪律严明、严格，班车不会多等半分钟，之后是部门培训，大量的信息扑面而来。之后到了工作岗位上，给我分配的工作是ERP系统管理员兼DBA，虽然以前也搞过一些大系统，如...
故事的力量！！ http://www.geocities.com/Tokyo/Highrise/6878/story1.htm钉子有一个男孩有著很坏的脾气，於是他的父亲就给了他一袋钉子，并且告诉他，每当发脾气的时候，就钉一根...终於有一天，这个男孩再也不会失去耐性乱发脾气。
(转)华为牛人在华为工作十年的感悟！ 就这样懵懵懂懂到了华为,一开始新员工培训,纪律严明、严格,班车不会多等半分钟,之后是部门 培训,大量的信息扑面而来.之后到了工作岗位上,给我分配的工作是ERP系统管理员兼DBA,虽然以前也 搞过一些大系统,如...
华为十年，总结出的12条经验！ [转] 就这样懵懵懂懂到了华为，一开始新员工培训，纪律严明、严格，班车不会多等半分钟，之后是部门培训，大量的信息扑面而来。之后到了工作岗位上，给我分配的工作是ERP系统管理员兼DBA，虽然以前也搞过一些大系统，如...
【转】华为十年，总结出的12条经验！ 就这样懵懵懂懂到了华为，一开始新员工培训，纪律严明、严格，班车不会多等半分钟，之后是部门培训，大量的信息扑面而来。之后到了工作岗位上，给我分配的工作是ERP系统管理员兼DBA，虽然以前也搞过一些大系统，如...
华为牛人的成长经历,永远记得那些IT界吃咋风云的人物! 就这样懵懵懂懂到了华为，一开始新员工培训，纪律严明、严格，班车不会多等半分钟，之后是部门培训，大量的信息扑面而来。之后到了工作岗位上，给我分配的 工作是ERP系统管理员兼DBA，虽然以前也搞过一些大系统，如...
华为牛人在华为的十年经历，大家都应该从中学习！ 就这样懵懵懂懂到了华为，一开始新员工培训，纪律严明、严格，班车不会多等半分钟，之后是部门培训，大量的信息扑面而来。之后到了工作岗位上，给我分配的工作是ERP系统管理员兼DBA，虽然以前也搞过一些大系统，如...
华为牛人在华为的十年经历，大家都应该从中学习！【转】 就这样懵懵懂懂到了华为，一开始新员工培训，纪律严明、严格，班车不会多等半分钟，之后是部门培训，大量的信息扑面而来。之后到了工作岗位上，给我分配的工作是ERP系统管理员兼DBA，虽然以前也搞过一些大系统，如...
