问题问题,还没解决,.来斑竹帮帮我!!来人啊 - ASP技术论坛

ih_ks

等　级：新手上路
帖　子：182
专家分：0
注　册：2007-1-1

第 32 楼

得分:0

应该是可以的...如果我没有记错的话...
<Select>
<option values="">ABC</option>
</Select>
这种表单传的值应该是VALUES里的值..也就是""而不是ABC...不知道你定义的是不是一样???如果values里的值只是一个值那即使你循环那所有的值也会一样...你检查一下..

2007-06-29 20:51

enlangs

等　级：等待验证会员
威　望：2
帖　子：218
专家分：0
注　册：2007-5-28

第 34 楼

得分:0

[CODE]-------添加地址到库
dim conn,db,rs,sql
set conn=server.CreateObject("adodb.connection")
db=server.MapPath(".")&"/db1.mdb"
conn.open "Provider = Microsoft.Jet.OLEDB.4.0;data source='"&db&"'"
set rs=server.CreateObject("adodb.recordset")
sql="select*from biao"
---我想要批量上传该怎么循环
然后想这样做都是同一条记录
for i=1 to Ubound(request2.FileItem)
rs.open sql,conn,1,3

rs.addnew
rs("photodz")=formPath&request2.form(formName)&" "
rs.movenext
rs.update
next
response.Write("成功")[/CODE]

你跟踪request2.FileItem(i)调试下...

2007-06-29 23:37

enlangs

等　级：等待验证会员
威　望：2
帖　子：218
专家分：0
注　册：2007-5-28

第 36 楼

得分:0

能否把你的所有代码给我,我试试.....

2007-06-30 08:46

enlangs

等　级：等待验证会员
威　望：2
帖　子：218
专家分：0
注　册：2007-5-28

第 38 楼

得分:0

[CODE]<%
'----------------------------------------------------------
'***************** 风声无组件上传类 2.0 *****************
'用法举例：快速应用[添加产品一]
'该例主要说明默认模式下的运用
'以常见的产品更新为例
'下面是上传程序(upload.asp)的代码和注释
'**********************************************************
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>

<%
dim request2,formPath,formName,intCount,intTemp
'建立上传对象
set request2=new UpLoadClass
'设置文件允许的附件类型为gif/jpg/rar/zip
request2.FileType="gif/jpg/rar/zip"
'设置服务器文件保存路径
request2.SavePath="cs/"
'打开对象
request2.open()
%>
<html>
<head>
<title>批量风声无组件上传类</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/basic.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF" style="border:1px solid #999999">
<tr>
<td><table width="760" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF" style="border:1px solid #999999">
<tr>
<td><blockquote>
<%
'显示类版本
response.Write("<br>"&request2.version&"<br>")

'显示邮件标题
response.Write("<br>邮件标题："&request2.Form("strTitle"))

'显示邮件内容
response.Write("<br>邮件内容："&request2.Form("strContent"))

'----列出所有上传了的文件开始----
intCount=0
for intTemp=1 to Ubound(request2.FileItem)

'获取表单文件控件名称，注意FileItem下标从1开始
formName=request2.FileItem(intTemp)

'显示文件域
response.write "<br>"&intTemp&"、文件域["&formName&"]："
'显示源文件路径与文件名
response.write "<br>"&request2.form(formName&"_Path")&request2.form(formName&"_Name")
'显示文件大小（字节数）
response.write "("&request2.form(formName&"_Size")&") => "
'显示目标文件路径与文件名
response.Write formPath&request2.form(formName)&" "
'显示文件保存状态
select case request2.form(formName&"_Err")
case -1:
response.write "没有文件上传<br>"
case 0:
response.write "上传文件成功<br>"
intCount=intCount+1
case 1:
response.write "文件太大，拒绝上传<br>"
case 2:
response.write "文件格式不对，拒绝上传<br>"
case 3:
response.write "文件太大且格式不对，拒绝上传<br>"
end select
dim conn,db,rs,sql,i
set conn=server.CreateObject("adodb.connection")
db=server.MapPath(".")&"/db1.mdb"
conn.open "Provider = Microsoft.Jet.OLEDB.4.0;data source='"&db&"'"
set rs=server.CreateObject("adodb.recordset")
sql="select*from biao"
rs.open sql,conn,1,3
rs.addnew
rs("photodz")=request2.SavePath&formPath&request2.form(formName)&" "
rs.update
rs.movenext
next
'----列出所有上传了的文件结束----
response.Write("成功")

response.write "<br>"&intCount&" 个文件上传成功! "
response.write "[<a href=""javascript:history.back();"">返回</a>]"
%>
</blockquote></td></td>
</tr>
</table>
<a href="show.asp">显示</a>
</body>
</html>

<%
'释放上传对象
set request2=nothing
%>[/CODE]

实现你的功能.....

2007-06-30 15:00