我做文件上传组件时遇到的问题,向数据库中写入记录时出错了。

303 2003-08-20 09:33:54

VB:
on error goto e:
Dim connGraph
Set connGraph = Server.CreateObject("ADODB.connection")
connGraph.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=hzoa;Data Source=hzoa"
connGraph.Open
Dim db
Set db = Server.CreateObject("ADODB.RecordSet")
db.Open "SELECT * FROM UPFileTest ", connGraph
db.AddNew
db("FileBody").AppendChunk FileValue 'FileValue的值已取出
db("FileName") = FileName
db.Update
db.Close
Set db = Nothing
Response.Write "文件" & FileName & "上载成功"

e:
Response.Write Err.Description



在IE中运行出现下面的提示信息。

在此环境中不允许操作。
...全文
37 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
303 2003-08-20
  • 打赏
  • 举报
回复
我已经用了下面的代码了。可以的。
Option Explicit
Dim Response As Response
Dim request As request
Dim Server As Server
Public Sub onStartPage(PassedSc As ScriptingContext)
Set Response = PassedSc.Response
Set request = PassedSc.request
Set Server = PassedSc.Server
End Sub
jhysky 2003-08-20
  • 打赏
  • 举报
回复
建议先调试成EXE文件,没有问题了再转到Dll上来
jhysky 2003-08-20
  • 打赏
  • 举报
回复
Response.Write 不能用在VB中,它是ASP对象
303 2003-08-20
  • 打赏
  • 举报
回复
怎么搞的呀,没有人会吗?

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧