帮忙看下图片现实代码

[qantgh]

<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
%>

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

刚开始学，