<%
dim cn,rs,sql,i
set cn = server.CreateObject("adodb.connection")
cn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("db1.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select*from biao"
rs.open sql,cn,1,3
rs.addnew
rs("dz")= request2.SavePath&formPath&request2.form(formName)&" "
rs.update
response.Redirect("show.asp")

%>
这里我要循环的存到库里
该怎么做.急...
有个 for intTemp=1 to Ubound(request2.FileItem)

如果按我上面的做法的话,.
可以存一个图片的地址,.
但是我要的是 批量的

解决！！！！！！

还没解决！！！！！！！

谁可以来帮我
帮那句
循环写一下

什么意思????????

<%
dim cn,rs,sql,i
set cn = server.CreateObject("adodb.connection")
cn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("db1.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select*from biao"
rs.open sql,cn,1,3
rs.addnew
rs("dz")= request2.SavePath&formPath&request2.form(formName)&" "
rs.update
response.Redirect("show.asp")

%>

如果这样写的话. 只要一个图片地址存到库

来人！！

我看了一下"风声无组件上传类"我觉得你可以用它里面的一个方法....

在数据库的上传表中直接就创建出9列....然后把9个数据名依次传进去就好了....

它里面的代码是这样的

if strUser="" then strUser="匿名"
if strMessage="" then strMessage=" "
if strFile1="" then strFile1=" "
if strFile2="" then strFile2=" "
strIp=GetIp()

dim sql,conn
set conn=server.CreateObject("ADODB.Connection")
conn.open strDconn
sql="Insert Into book"&_
"(datePost,strUser,strMessage,strFile1,strSize1,strFile2,strSize2,strTime,strSpeed,strIp) "&_
"values"&_
"('"&now()&"','"&strUser&"','"&strMessage&"','"&strFile1&"','"&lngSize1&"','"&strFile2&"','"&lngSize2&"','"&dblTime&"','"&dblSpeed&"','"&strIp&"')"
conn.Execute(sql)
conn.close()
set conn=nothing
end if


不知道对你有没有帮助

它的显示就是用这个....如果多个的话..我想那个可以用循环来代替里面的stirSize1...stirSize2...

<%
if rs("strSize1")<>0 then response.Write("<a href='UpLoadFile/"&rs("strFile1")&"' target='_blank' title='文件大小："&rs("strSize1")&" Bytes'>"&rs("strFile1")&"</a><br>")
if rs("strSize2")<>0 then response.Write("<a href='UpLoadFile/"&rs("strFile2")&"' target='_blank' title='文件大小："&rs("strSize2")&" Bytes'>"&rs("strFile2")&"</a>")
%>