帮忙图片+文字同时上传怎么不行啊

那就 用二进制啊

“无组件上传”本版里搜索一下，很多的！

图片和文字要分成两个Form来上传的.

看看这文章,写得很详细.

系统：Win98se + pws + asp 

编程环境：Visual Interdev 6.0 

数据库：Access2000 （因为网友问的最多的都是Access2000的问题。） 

建一个库：access2000中，先建好一个Test.mdb的数据库。具体有四个字段。 

id | text1 | text2 | img 

自动编号 文本 文本 OLE对象 ’如果是sql server 则选择(image即可) 


三：Are you ready ,Go!!! 


3-1.建上传表单： 

我们知道，图像与文本是两种不同制式的文件（二进制，流式文本）而如果要同一表单提交的话，(file格式提交)则我们获取时就不能用原来的方法request.form而必须用equest.TotalBytes来获得所有的提交资料。但这时两种格式的文件混合在一起比较难分。我的上一贴已经告诉大家用二进制的方法来分开这些资料。但十分麻烦，要用到许多二进值的函数，所以许多网友来信问我有没有更简单的方法,好。我可以告诉大家，有！而且保证下面的方法保证一学就会。（这种方法很另类但伟人说过白猫，黑猫。能上网的就是好猫！） 


upload.asp(具体代码如下) 


<% @ language=Vbscript %> 
 
 
 
 
 
 
 

 
Please choose a picture to upload: 
 
 
 
 

 

 

 
 
 

 
 

3-2 兵分两路来处理数据。 
首先，文本很简单。 

uptext.asp (代码如下) 

<% @ language=Vbscript %> 
<% 
strcOnn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb") 

text1=request.form("text1") 
text2=request.form("text2") 
response.write text1 
response.write text2 

set rs=Server.CreateObject("adodb.recordset") 
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC" ’这里的意思是选择最后一个Id,既刚刚被改动 
rs.Open sql,strconn,1,3 ’就是你上传的图像的两个文本字段。 

rs("text1")=text1 ’注意，这里是改动不是添加，所以不用addnew。 
rs("text2")=text2 
rs.Update 
rs.Close 
%> 
接着，来处理图像。 
upimage.asp (具体代码如下) 

<% 
FormSize = Request.TotalBytes ’得到数据 
FormData = Request.BinaryRead( FormSize ) 

function ImageUp(formsize,formdata) ’这个函数的功能是截取其中的图像部分。 
bncrlf=chrb(13) & chrb(10) ’做成函数后。以后你可以自己随意使用了。 
divider=leftb(formdata,instrb(formdata,bncrlf)-1) 
datastart=instrb(formdata,bncrlf&bncrlf)+4 
dataend=instrb(datastart+1,formdata,divider)-datastart 
imageup=midb(formdata,datastart,dataend) 
end function 

Image=ImageUp (FormSize,Formdata) ’这里就是图像部分了。 

set rs=server.CreateObject("adodb.recordset") 
strcOnn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb") 
sql="SELECT * FROM imgtable" 
rs.Open sql,strconn,1,3 

rs.AddNew ’因为表单二在表单一提交的过程中下提交了。 
rs("img").appendchunk Image ’所以这里是添加。 
rs.Update 
rs.Close 


response.cOntenttype="image/gif" 
response.binarywrite imageup(formsize,formdata) ’这里是显示图像。表示成功！ 

%> 

啊？！？！原来如此简单！ 

四：“显示，我要同页显示” 
终于完成了图文同步提交。（真的是同步吗？不是吗？是吗？ 唉，我们只是为了解决问题。何必当真哪？不是 吗？） 
现在我们还要让他同页显示出来。其实，这是同样的思路。我们也用两页来完成。 

主页面：show.asp 

<%@ Language=Vbscript %> 
<% 
strcOnn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb") 

set rs=Server.CreateObject("adodb.recordset") 
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC" 
rs.Open sql,strconn,1,3 
%> 
 
 
以下是你的上传资料。
 
文本一：<% Response.Write rs("text1") %>
 
文本二：<% Response.Write rs("text2") %>
 

你的图像： 
> ’注意这里，这才是关键。他可以实现网页图像与文本 
 ’共存。 
 

幕后页面：showimg.asp （说他是幕后的页面，因为他潜伏在主页面里。看上是一个页面一样） 

<%@ Language=Vbscript %> 
<% 
strcOnn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb") 
id=Request("id") 
set rs=server.CreateObject("adodb.recordset") 
sql="SELECT * FROM imgtable where id="&id 
rs.Open sql,strconn,1,3 
response.cOntenttype="image/gif" 
Response.BinaryWrite rs("img") 
%> 

上面的仁兄。这个过程没有执行啊。
Sub form2_onsubmit //** 这里是关键，当form2在提交的过程中时，即活form1的提交 
form1.submit //**所以我们这里用了两个表单，但只用一个提交就可以了。 
End Sub 

所以运行出错。有解决的方法吗？急。

还有个问题就是怎样用个循环把图片都显示出来？

循环显示：  <% 
i=1

  do while not rs2.eof      
 
      %>  
  
            
      
                                     " alt="This is a picture of product" border="0"   Onclick="document.all.bigImg.src='../admin/product/<%=rs2("productbpic")%>',document.all.pictext.innerHTML='<%=rs2("ywproductjj")%>',document.all.dgou.innerHTML=')>Order'">
 <%if i mod 2 =0  then response.Write ""
                                
rs2.movenext
i=i+1

%>


<%
loop%>

这个是每行显示2个，如果显示3个就改：
if i mod 3
下面一样
如果显示一个
那就更简单了！
把if mod 去掉就是
图片混合上传的代码我可以给你给我个你的邮件

jervis82@hotmail.com

现在的大多数上传文件或者图片都是用的无组件上传类，而无组件上传类，你要先建立一个上传对象，并且获取参数的方法也稍有不同。我现在用的是化境的无组件类 。
如果你要获取参数，请参考以下我的代码：
----------------------------------------------------------------------------------


 
<%
set upload=new upload_5xsoft
set file=upload.file("file1")
response.write upload.form("submit")&"
"
if file.fileSize>0 then
 file.saveAs Server.mappath("temp.jpg")
 response.write "
上传文件:"&file.FileName&" => temp.jpg OK!"
 response.write "
文件大小:"&file.FileSize
end if
set file=nothing
set upload=nothing
%> 



---------------------------------------------------------------------------------
以上是化境组件类里带的说明，很好用。而且支持多表单上传，如果你需要的话，可以到http://www.5xsoft.com/去下载吧。。里面带有说明。。

你搜索一下，就很多的
我都发了好几个了，
郁闷

我刚做的，
把源码给你：

------------------------------------------------FenFaEdit.asp
<%@LANGUAGE="Vbscript"%>



<%
if session("UserID")="" then%>
  






<%
Dim TskName,TskType,TskContent,Qd_Flag,beizhu1,beizhu2,beizhu3,Cont
Dim rs,sql,rs1,sql1,conn,exitst
exitst=0
set cOnn=application("conn")
set rs=server.createobject("adodb.recordset")
sql="select * from DistributeTask where ID="&request("cqid")&""
rs.open sql,conn,3,1

TaskID=rs("ID")
TskName=rs("TaskName")
session("TskName")=TskName
TskType=rs("TaskType")
TskCOntent=rs("TaskContent")
session("TskContent")=TskContent
Qd_flag=rs("Flag")
Qd_Run=rs("RepeatRun")
iprang=rs("ValidIPRange")
iprang2=rs("InvalidIPRange")
ostype=rs("OsType")
runtime=rs("TaskStartTime")
beizhu1=rs("Remark1")
beizhu2=rs("Remark2")
beizhu3=rs("Remark3")

Rs.Close
SET rs=nothing 

set rs1=server.createobject("adodb.recordset")
    sql1="select * from DistributeTask where TaskName='"&request("TskName")&"' and ID <> "&request("cqid")&"" 
    rs1.open sql1,conn,3,1

    if rs1.recordcount<>0 then
exitst=1
end if
   
    rs1.close
    set rs1=nothing

%>

 
 

  
  
     当前位置 
      登录 >> 首页 >> 任务管理 >> 任务定义 >> 修改任务     
  





  
  
    
      
        
          说明：系统可创建20项任务
        
        
        
           
        
        
          
  <%if h_error_txt<>"" then%>
     
    错误：

      <%=listerror(h_error_txt)%>