<select id=select1 name=select1 size=40 onClick="location.href=this.options[this.selectedIndex].value">
         <%
dim arr(500)
         set fso = server.CreateObject("scripting.filesystemobject")
         set myfolder = fso.getfolder("D:\wwwroot\jpg\")
         set myfiles = myfolder.files
 i = 0
   for each fileobj in myfiles
  arr(i) = mid(fileobj.name,1,12)
i = i + 1
 next 
 for j = (i - 1) to 0 step -1
  %>
     <option value="index.asp?A1_val=<%=arr(j)%>"><%=arr(j)%></option>
    
<%
next
    %>

请帮我看下，这个能不能实现点击图片名称，而改变显示图片，谢谢！

刚开始学，