日期:2014-05-17  浏览次数:20670 次

asp错误 类型不匹配???
<%Server.ScriptTimeOut=5000%>          
    <!--#include       FILE= "upload_5xsoft.inc "-->          
    <title> 化境编程界文件上传修改版           修改者:gztiger                 </title>          
    <%          
    dim   upload,file,formName,formPath,iCount          
    set   upload=new       upload_5xsoft       ' '建立上传对象          
       
    Text1=Trim(upload.form( "Text1 "))       '----获取表单文本框信息(原来代码用for循环)-目的为了说明获取文本框信息的方法          
    Text2=Trim(upload.form( "Text2 "))          
    Text3=Trim(upload.form( "Text3 "))          
    Text4=Trim(upload.form( "Text4 "))          
    Text5=Trim(upload.form( "Text5 "))          
    Text6=Trim(upload.form( "Text6 "))          
    Text7=Trim(upload.form( "Text7 "))          
    iCount=0          
    n=1          
    response.write       " <br> "          
    for       each       formName       in       upload.objFile       ' '------------------列出所有上传了的文件          
    set       file=upload.file(formName)       ' '--------------------生成一个文件对象          
    Image_countn=Image_countn& ", "&file.FileName       '----------把图象名做成数组          
    if       file.FileSize> 0       then       ' '------------------------如果       FileSize       >       0       说明有文件数据          
    file.SaveAs       Server.mappath( "img/ "&file.FileName)       ' '----------保存文件          
    end       if          
    n=n+1          
    set       file=nothing          
    next          
    set       upload=nothing       '------------------------------- '删除此对象          
    Image_Set=split(Image_countn, ", ") '---------------------返回数组          
       
    '------添加信息到数据库-------------------------------------  
C+server.mappath( "img_text.mdb ")+ ";DefaultDir=;DRIVER={Microsoft       Access       Drive