取传递过去的不同值
在入库页面怎么取得 bblx 传递过去的不同值？ 然后入库 下面的表单可以添加N个

<select name="bblx" value="1"><option value="1">普通下载</option><option value="2">流畅下载</option><option value="3">高清下载</option></select>文件地址:<INPUT type="text" size="50" name="videourl" class="tx1" /><input onclick="addFile1()" type="button" value=" + "><br>


要取得得不同N个 bblx
怎么做？


<form name="form" action="Sopic_videoupadds.asp" method="post" accept-charset="utf-8">

<select name="bblx" value="1"><option value="1">普通下载</option><option value="2">流畅下载</option><option value="3">高清下载</option></select>文件地址:<INPUT type="text" size="50" name="videourl" class="tx1" /><input onclick="addFile1()" type="button" value=" + "><br>

<select name="bblx1" value="1"><option value="1">普通下载</option><option value="2">流畅下载</option><option value="3">高清下载</option></select>文件地址:<INPUT type="text" size="50" name="videourl1" class="tx1" /><input onclick="addFile1()" type="button" value=" + "><br>

<select name="bblx2" value="1"><option value="1">普通下载</option><option value="2">流畅下载</option><option value="3">高清下载</option></select>文件地址:<INPUT type="text" size="50" name="videourl2" class="tx1" /><input onclick="addFile1()" type="button" value=" + "><br>

<input type="submit" name="submit" value="上传"> <input onclick="this.form.reset()" type="button" value="重置">
</form>



入库页面
'---------------------------------------------
Set Fso = Server.CreateObject(G_FS_FSO)
iCount=0
'---------------------------------------------------
For Each FormName in UpFileObj.File '列出所有上传了的文件
Set FileObject = UpFileObj.File(FormName) '生成一个文件对象
SameFileTF = False
FileName = FileObject.FileName

FileExtStr = FileObject.FileExt
If FileObject.FileSize > 1 Then '如果有文件上传
'----------------------------------------
If Fso.FolderExists(Server.MapPath(SavePath)) = True Then '检测目录是否存在
If Create_DateCatalog = True Then '如果开启了自动创建日期目录
AutoSavePath = flid & "/"
SavePath = SavePath & AutoSavePath
If Not Fso.FolderExists(Server.MapPath(SavePath)) Then
Fso.CreateFolder Server.MapPath(SavePath)
End If
End If
End If
RealityPath = Server.MapPath(SavePath) & "\" '转换虚拟路径为实际路径
'-----------------------------------------


If AppearErr <> True Then
If SameFileTF = True Then
strFileName = DateStr & rndStr(5) & "." & DealExtName(FileExtStr)
Else
strFileName = ReplaceExt(FileName,"shit")
End If
FileObject.SaveToFile Server.MapPath(SavePath & strFileName)
ClueOn_Msg = "已经成功上传！<br/>"

Dim SaveFilePath,SaveFileType,SaveFileName,SaveFileSize,FileDescriptions
SaveFilePath=Replace(SavePath&strFileName,"\","/")
iCount=iCount+1
SaveFileSize=Formatnumber(FileObject.FileSize/1024,2,-1,-1,0)
FileDescriptions=UpFileObj.Form("Descriptions")
ClueOn_Msg=ClueOn_Msg&vbCrLf&a