取传递过去的不同值
在入库页面怎么取得 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&"请返回<br/>"&vbCrLf

IF InStrRev(SaveFilePath,".") > 0 THEN
ggss = mid(SaveFilePath,InStrRev(SaveFilePath,".")+1)
end if


set rs1=server.CreateObject("adodb.recordset")
sql1="select * from videodow"
rs1.open sql1,conn,1,3
Rs1.addnew
Rs1("videourl")=SaveFilePath
Rs1("yd_size")=SaveFileSize
Rs1("format")=ggss
if ggss="mp4" or ggss="3gp" or ggss="mp3" then
Rs1("gs")=1
end if
Rs1("videoviewid")=idc

Rs1("bblx")=

Rs1.Update
Rs1.close
Set Rs1=nothing
End If
Else
ClueOn_Msg = "请选择你要上传的文件！"
UpFileError
End If
response.write UpFileObj.File
Next

Set FileObject = Nothing
Set Fso = Nothing


[解决办法]
楼主 代码没法看，自己仔细调试下呢？

确定action路径，name值正确？

分段分段 检查吧，删一段 检查一段，看是什么错误。