.../
<form id="form1" action="imgcl.asp" method="post"name="form1" OnSubmit="return ab();" enctype="multipart/form-data">
<select name="fl">    
             <%set rs=server.CreateObject("adodb.recordset")
             rs.open"select * from sort",conn,1,1
             if rs.eof then
             response.Write("<option value=0>暂无分类请添加</option>")
             else
            do while not rs.eof 
             %>
             <option value="<%=rs(0)%>"<%if trim(request("id"))=trim(rs(0)) then response.Write("selected") end if%>><%=rs("sort_title")%></option>
             <%rs.movenext
            loop//....
<tr>
            <td height="20" align="right" bgcolor="#FFFFFF" width="150">*地址:</td>
            <td height="20" bgcolor="#FFFFFF">
            <input name="file0" type="file" class="kk" id="file0" size="20"></td>
          </tr>//....
imgcl.asp
<!--#include FILE="clsUp.asp"-->
<% session.codepage=936
dim upload,file,formName,formPath,iCount
  set upload=new clsUp    '建立上传对象
  upload.NoAllowExt="asp;js;exe;swf;png;"    '设置上传类型的黑名单
  upload.GetData(10240000)   '取得上传数据,限制最大上传10M 
 
  na=upload.form("na")
   fl=upload.form("fl")
  time1=upload.form("time1")
  'addr=upload.form("file0")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from shop",conn,2,3
rs.addnew()
rs("shop_title")=na
rs("shop_type")=f1  //...
rs("shop_sl")=time1
'rs("shop_addr")=addr
rs("shop_time")=date()

 for each formName in upload.file '列出所有上传了的文件 
    Set file=upload.file(formName)
    If Trim(file.FileName)<>"" Then 
    'filetype=upload.Form(formName)
    upload.SaveToFile formName,Request.ServerVariables("APPL_PHYSICAL_PATH")&amp;"\img\"&amp;file.FileName    
    rs("shop_addr")=file.FileName
    'rs("fileurl")=caipinimg
    rs.update
    'rs.close
    End If 
  Next   
rs.update
rs.close

  set rs=nothing

  set conn=Nothing
response.write"恭喜您已经修改成功"
response.write " <a href=# onClick=history.go(-1)><font color=#ff0000>返回</font></a>"
    response.end
%>
为什么f1上传不到我的数据库里其它的都能