我做文件上传组件时遇到的问题,向数据库中写入记录时出错了。
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中运行出现下面的提示信息。
在此环境中不允许操作。