----------index.asp
<script language="JavaScript">
<!--
function setFileFileds(num){
for(var i=0,str="";i<num;i++){
str+="<input name=\"strFile"+i+"\" type=\"file\" id=\"strFile"+i+"\"><br>";
}
objFiles.innerHTML=str;
}
//-->
</script>
<table width="670" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#999999">
<form action="upload.asp" enctype="multipart/form-data" name="form1" method="post">
批量图片上传测试
<tr bgcolor="#FFFFFF">
<td width="180" valign="top">选择附件数量
<select name="select" onChange="setFileFileds(this.value)">
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
</select>
</td>
<td id="objFiles"></td>
</tr>
<input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit2" value="重 置">
</form>
</table>
<script language="JavaScript">setFileFileds(form1.select.value)</script>
这是upload.asp
<%
'----------------------------------------------------------
'***************** 风声无组件上传类 2.0 *****************
'用法举例：快速应用[添加产品一]
'该例主要说明默认模式下的运用
'以常见的产品更新为例
'下面是上传程序(upload.asp)的代码和注释
'**********************************************************
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include FILE="UpLoadClass.asp"-->
<%
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
next
'----列出所有上传了的文件结束----
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
%>
-------添加地址到库
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("成功")
但是如果这样话 数据库的几条记录都是一样..!
改怎样做才可以批量上传到数据库呢
高手请指教
新人学习..
[此贴子已经被作者于2007-6-29 17:49:52编辑过]
