关于化境上传组件2.1 的循环取值问题!请教!!!!!!

[sdoom]

小弟现在在对好久以前写的一个程序进行改版,但是则于两年多没有碰过ASP了.
都忘的差不多了!

现在碰到了问题~!

我想给程序加上上传功能~! 但是查看官方的上传组件资料 未果!!! 比较郁闷~!

我想要实现的是:

我在添加一条新的数据时, 页面上 会显示4个 TXT 文本域 这个域是用来取 图片的名称的~!


情况介绍: 当我点击添加记录的时候 会显示 if act = "add" then 部分 , 填写完信息或是未填写时 点击上传图片,执行上传动作,并且将图片名称,分别赋予给 LOGO文件\图片_1\图片_2\图片_3\图片_4 五个文本域,再点击 提交修改以后,将记录存到数据库中.


例: 我现在添加一条新的数据, 其它的数据全部手工填写,但是 LOGO文件\图片_1\图片_2\图片_3\图片_4 这五个图片的名称我需要从上传组中自动获取.

现在的问题是: 我该如何去赋予 LOGO文件\图片_1\图片_2\图片_3\图片_4 这五个相对应的文本域的值?

要达到的目的: 在我填写完其它的项目以后,我按照 LOGO文件\图片_1\图片_2\图片_3\图片_4 的排列顺序,依次在上传组件上选择好五个图片文件,上传完成时,文本域里面显示该图片的文件名

附: 把这三段代码弄到一段程序里面可否?




'上传选项主页面
<script language="javascript">
function setid()
{
str='<br>';
if(!window.form1.upcount.value)
window.form1.upcount.value=1;
for(i=1;i<=window.form1.upcount.value;i++)
str+='文件'+i+':<input type="file" name="file'+i+'" style="width:400" class="tx1"><br><br>';
window.upid.innerHTML=str+'<br>';
}
</script>
<li> 需要上传的个数
<input type="text" name="upcount" class="tx" value="1">
<input type="button" name="Button" class="bt" onClick="setid();" value="· 设定 ·">
</li>

<br>
<br>
<li>上传到:
<input type="text" name="filepath" class="tx" style="width:350" value="../adv">
</li>
</td>
</tr>
<tr align="center" valign="middle">
<td align="left" id="upid" height="122"> 文件1:
<input type="file" name="file1" style="width:400" class="tx1" value="">
</td>
</tr>
<tr align="center" valign="middle" bgcolor="#eeeeee">
<td bgcolor="#eeeeee" height="24">
<input type="submit" name="Submit" value="· 提交 ·" class="bt">
<input type="reset" name="Submit2" value="· 重执 ·" class="bt">
</td>
</tr>
</table>
</form>
</body>
</html>
<script language="javascript">

setid();
</script>


化境上传组件2.1
<%Server.ScriptTimeOut=5000%>
<!--#include FILE="upload_5xsoft.inc"-->
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上传对象

response.write upload.Version&"<br><br>" ''显示上传类的版本

if upload.form("filepath")="" then ''得到上传目录
HtmEnd "请输入要上传至的目录!"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
end if

iCount=0

response.write "<br>"
for each formName in upload.objFile ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
response.write file.FileName&" <==复制该地址到图片栏即可|||上传信息==> "&formPath&File.FileName&" 成功!<br>"
iCount=iCount+1
end if
set file=nothing
next

set upload=nothing ''删除此对象
Htmend iCount&" 个文件上传结束!"

sub HtmEnd(Msg)
set upload=nothing
response.end
end sub
%>



'用以下部分取值
if act = "add" then
html_str = "<div id=""admin_picadv"">" & chr(13)
html_str = html_str & "<form name=""theform"" method=""POST"" action=""?act=addsave"">" & chr(13)
html_str = html_str & "位　　置:　<select size=""1"" name=""positionid"">" & chr(13)
html_str = html_str & "<option value=""T"">上部</option>" & chr(13)
html_str = html_str & "<option value=""B"">下部</option>" & chr(13)
html_str = html_str & "</select><br />" & chr(13)
html_str = html_str & "标　　题:　<input type=""text"" name=""title"" size=""40"" /><br />" & chr(13)
html_str = html_str & "个人介绍:　<input type=""text"" name=""jieshao"" size=""40"" /><br />" & chr(13)
html_str = html_str & "LOGO文件:　<input type=""text"" name=""pic"" size=""40"" /><br />" & chr(13)
html_str = html_str & "图片_1:　<input type=""text"" name=""vip_pic_1"" size=""40"" /><br />" & chr(13)
html_str = html_str & "图片_2:　<input type=""text"" name=""vip_pic_2"" size=""40"" /><br />" & chr(13)
html_str = html_str & "图片_3:　<input type=""text"" name=""vip_pic_3"" size=""40"" /><br />" & chr(13)
html_str = html_str & "图片_4:　<input type=""text"" name=""vip_pic_4"" size=""40"" /><br />" & chr(13)
html_str = html_str & "<span class=""advtext"">广告图片请FTP上传至OKI5585目录下</span><br />" & chr(13)
html_str = html_str & "链接网址:　<input type=""text"" name=""url"" size=""40"" /><br />" & chr(13)
html_str = html_str & "手动排序:　<input type=""text"" name=""order"" size=""20"" /> <span class=""redbold"">（数值越小排序靠前）</span><br />" & chr(13)
html_str = html_str & "广告日期:　<select size=""1"" name=""end_time"">" & chr(13)
html_str = html_str & "<option value=""7"">一星期（7天）</option>" & chr(13)
html_str = html_str & "<option value=""30"">一个月（30天）</option>" & chr(13)
html_str = html_str & "<option value=""90"">三个月（90天）</option>" & chr(13)
html_str = html_str & "<option value=""183"">半年（183天）</option>" & chr(13)
html_str = html_str & "<option value=""366"">一年（366天）</option>" & chr(13)
html_str = html_str & "</select><br />" & chr(13)
html_str = html_str & "<input name=""submit"" type=""submit"" value="" 提交修改 "" class=""admin_submit"" />" & chr(13)
html_str = html_str & "</form>" & chr(13)
html_str = html_str & "</div>" & chr(13)

if act = "del" then
html_str = "<div id=""admin_picadv"">" & chr(13)
html_str = html_str & "<form name=""theform"" method=""POST"" action=""?act=addsave"">" & chr(13)
html_str = html_str & "位　　置:　<select size=""1"" name=""positionid"">" & chr(13)
html_str = html_str & "<option value=""T"">上部</option>" & chr(13)


在此小弟先谢过各位大神了~~~!

[SNOYC]

搞的好复杂啊

你想获取信息 不至于这么简单，我给你个思路

用JS来获取pic ，vip_pic_1等值，getElementById("pic ").value

将这个值跟在URL后面，
最后来个submit提交下就可以了

[一把编程的菜刀]

上传图片，得到地址后你可以存放在一个数组里，也可以是放一个一个字符串里，但是用逗号啊，类似这样的来分割，然后下面在组成数组，最后循环

for i=0 to ubound(arr)
if i=0 then
html_str = html_str & "LOGO文件:　<input type=""text"" name=""pic"" size=""40"" /><br />" & chr(13)
else
html_str = html_str & "图片_"& i &":　<input type=""text"" name=""vip_pic_"& i &"""
end if
next
就是类似这样赋值啊

[sdoom]

唉`第二次顶起~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~！

[sdoom]

按照 2楼的尝试着做了一下`没弄明白~!

-_-!! 看来我还是太菜~!唉~!郁闷~!

问题未解决~!顶一下~!

[lzp4881]

上传程序网上很多嘛，如果有问题重新去下载一个嘛。

[sdoom]

自己搞定了~!结贴~!