Wrance的图片系统目录直读版1.0(5)

    strTemp=strTemp & " <b>" & maxperpage & "</b>" & "个文件/页"
    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
%>