帮忙看下图片现实代码
<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
%>
请帮我看下,这个能不能实现点击图片名称,而改变显示图片,谢谢!
刚开始学,