<% Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-Control", "no-cache, must-revalidate" %> <% dim lid lid=TRim(Request("lid")) if not isnumeric(lid) then lid="" dim nums nums=request("nums") if nums="" or IsnumerIc(nums)=False then nums=1 else if nums>20 then nums=20 end if end if if lid<>"" then %>

请设置上传数目(最多20条)：

<% response.write("

") %> 图片上传系统
图片名称:
图片来源:"/>
<%for i=1 to nums %> 选择图片<%=i%>:
<%next%> 建议所上传图片名和目录组合是字母与数字.

<% else%> 请不要非法传递参数！
<%end if%>
[图片列表]
[图片类别]
[后台管理]