绝对不是AD。
一个多图上传的。我现在的问题是。怎么让上传的图片自动填充到下拉框里面。

复制内容到剪贴板

代码:

<script language="javascript">
function $(a) {
    return document.getElementById(a)
}
function CheckSelTable(nnum) {
    var cbox = $('isokcheck' + nnum);
    var seltb = $('seltb' + nnum);
    if (cbox.checked) seltb.style.display = 'none';
    else seltb.style.display = 'block'
}
function SeePic(img, f, pimg) {
    if (f.value != "") {
        img.src = f.value;
        document.myform.elements[pimg].value = "CHNOPIC"
    }
}
var startNum = 1;
function MakeUpload(mnum) {
    var endNum = 0;
    var upfield = $("uploadfield");
    var pnumObj = $("picnum");
    var fhtml = "";
    if (mnum == 0) endNum = startNum + Number(pnumObj.value);
    else endNum = mnum;
    if(endNum><%=MaxUpNum+1%>) endNum = <%=MaxUpNum+1%>;
    for (startNum; startNum < endNum; startNum++) {
        fhtml = "";
        fhtml += '<table width="100%" border="0" cellpadding="0" cellspacing="0">';
        fhtml += '<tr>';
        fhtml += '<td class="TableRow1">';
        fhtml += '<input type="checkbox" name="isokcheck' + startNum + '" id="isokcheck' + startNum + '" value="1" class="np" onClick="CheckSelTable(' + startNum + ')">显示/隐藏图片[' + startNum + ']的选框';
        fhtml += '</td>';
        fhtml += '</tr>';
        fhtml += '</table>';
        fhtml += '<table width="100%" border="0" id="seltb' + startNum + '" cellpadding="3" cellspacing="1" bgcolor="#C9C9C3">';
        fhtml += '<tobdy>';
        fhtml += '<tr bgcolor="#EEEED0">';
        fhtml += '<td height="25" colspan="2">　<strong>图片' + startNum + '：</strong></td>';
        fhtml += '</tr>';
        fhtml += '<tr bgcolor="#FFFFFF">';
        fhtml += '<td class="TableRow1"> 　图片地址： ';
        fhtml += '</td>';
        fhtml += '<td class="TableRow2" height="25">';
        fhtml += '<input type="text" name="imgurl' + startNum + '" style="width:322px">';
        fhtml += '</td>';
        fhtml += '</tr>';
        fhtml += '<tr bgcolor="#FFFFFF">';
        fhtml += '<td class="TableRow1" height="25"> 　本地上传： ';
        fhtml += '</td>';
        fhtml += '<td class="TableRow2" height="25">';
        fhtml += '<iframe name="image' + startNum + '" frameborder="0" width="50%" height="30" scrolling="no" src="upload.asp?input=imgurl' + startNum + '"></iframe>';
        fhtml += '</td>';
        fhtml += '</tr>';
        fhtml += '<tr bgcolor="#FFFFFF">';
        fhtml += '<td class="TableRow1" height="25">　图片简介： ';
        fhtml += '</td>';
        fhtml += '<td class="TableRow2" height="25">';
        fhtml += '<textarea name="imgmsg' + startNum + '" style="height:46px;width:399px"></textarea> ';
        fhtml += '</td>';
        fhtml += '</tr>';
        fhtml += '</tobdy>';
        fhtml += '</table>';
        upfield.innerHTML += fhtml
    }
}
// 当上传图片等文件时，往下拉框中填入图片路径，可根据实际需要更改此函数
function doChange(objText, objDrop){
    if (!objDrop) return;
    var str = objText.value;
    var arr = str.split("|");
    var nIndex = objDrop.selectedIndex;
    objDrop.length=1;
    for (var i=0; i<arr.length; i++){
        objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
        document.myform.Index_Pic.value=arr[i];
    }
    objDrop.selectedIndex = nIndex;
}
</script>
<form method="Post" name="myform" action="Index.Asp?action=Add">
  <input name="picnum" type="text" id="picnum" size="8" value="3">
  <input name="" type="button" value="增加图片" onClick="MakeUpload(0);" class="Button"/>
  <span id="uploadfield"></span>
    <script language="JavaScript">
    MakeUpload(3);
    </script>
    <input name="Index_Pic" type="text" size="50"><br />
    <select name="ImageFileList" onChange="Index_Pic.value=this.value;">
        <option value="">不选择首页推荐图片</option>
        <option value="3213216545.jpg">3213216545.jpg</option>
        <option value="4234234324.jpg">3213216545.jpg</option>
        <option value="4654645655.jpg">3213216545.jpg</option>
        <option value="7876867867.jpg">3213216545.jpg</option>
        <option value="9889789789.jpg">3213216545.jpg</option>
        <option value="5645645654.jpg">3213216545.jpg</option>
    </select><br />
    <input type="submit" name="Submit" value="保 存" class="Button"/>
</form>

这是弹到下拉框上面的那个文本框的代码：

复制内容到剪贴板

代码:

Sub OutScript(url,picIn,a)
  Response.Write "<script language=""javascript"" type=""text/javascript"" Charset=""gb2312"">" & vbCrLf
  Response.Write "parent.document.myform." & picIn & ".value='" & url & "';" & vbCrLf
  If a=1 Then
      Response.Write "alert('文件上传成功!\n"&url&"');"
      Response.Write "history.go(-1);" & vbCrLf
  End If
  Response.Write "</script>" & vbCrLf
End Sub

怎么样也可以填充啊.
这是演示地址。。大家帮忙看下。绝对不是AD
http://www.woniu720.cn/pic/

[ 本帖最后由 wangsdong 于 2010-4-22 12:09 编辑 ]

你不是已经实现了？