使用 Request.Form 集合之后，不能调用 BinaryRead

许留心 2003-04-20 10:22:28

如何解决？帮帮忙！

...全文

503 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

许留心 2003-04-30

打赏
举报

我自己解决了，我把文本控件和文件控件分别放于两个表单，写个函数，提交form1时，激发form2提交。

tigerwen01 2003-04-21

打赏
举报

使用 Request.Form 集合之后，不能调用 BinaryRead
这是肯定的

ruanjiancomputer 2003-04-21

打赏
举报

孟子E章 2003-04-21

打赏
举报

用组件做吧

许留心 2003-04-20

打赏
举报

许留心 2003-04-20

打赏
举报

Subscript out of range
又是什么问题？

许留心 2003-04-20

打赏
举报

并不是传递参数的问题。

gshadows 2003-04-20

打赏
举报

关注中我也要用到这方面的问题

youbest 2003-04-20

打赏
举报

实在是想传送参数过去,可以利用网页地址后面加参数的方式
比如:
news_add.asp?title=标题

许留心 2003-04-20

打赏
举报

我的问题我不知道出在程序的哪个地方，原因是什么，望指点！

许留心 2003-04-20

打赏
举报

我把代码贴出来帮我看看，
news_add.asp页面

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 本站首页"
rs.open sql,conn,1,3
rs.addnew
rs(session("name"))=request("标题")
rs(session("name")&"内容")=request("正文内容")
rs(session("name")&"时间")=request("date")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
if session("name")="专题新闻" then
%>

<%
else
response.Redirect("new.asp?ck=y")
end if
%>

../upload/up.asp页面

<%
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/office.mdb")
session("strconn")=strConn
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
set rs=server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM upload",dbc,1,3

Set obj = Server.CreateObject("LyfUpload.UploadFile")
'obj.maxsize=2048 '设置文件上传的最大为2048个字节(2K)
'obj.extname="doc"
txt = obj.request("标题") '得到form元素的值
ss=obj.SaveFiletodb("file1") '保存文件到数据库
aa=obj.filetype("file1") '得到文件的Content-Type

if ss= "" then
Response.Write ("<BODY bgcolor=fef8f1><p align=center><font size=2>文件上传失败!</font></p><BODY>")
else
'----文件上载到数据库中---------
rs.AddNew
rs("标题")=txt
rs("类型")=trim(aa)
rs("日期")=date()
rs("内容").AppendChunk obj.DBContent'BLOB数据不能直接赋值
rs("部门")=session("bigname")
rs("栏目")=session("name")
rs.Update
rs.movelast
session("ID")=rs("ID")
rs.close
set rs=nothing
dbc.Close
set dbc=nothing

'------------------------------上载到数据库中结束
%>

许留心 2003-04-20