strTemp=strTemp & " 转到：<select name='page' size='1' onchange='javascript:submit()'>"
for i = 1 to n
strTemp=strTemp & "<option value='" & i & "'"
if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"
next
strTemp=strTemp & "</select>"
strTemp=strTemp & "</td></tr></form></table>"
strTemp=strTemp & "<font color='#0083AE'> "
strTemp=strTemp & "Copyright 2004 CnEcg.com All Rights Reserved 版权所有 +++＿＿Wrance的图片系统目录直读版＿ 1.0<br>"
strTemp=strTemp & "设计制作：Wrance Email:cnecg@yahoo.com.cn QQ:74028</font>"
response.write strTemp
end sub
%>
