<% Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-Control", "no-cache, must-revalidate" %> <% dim lid,idc,TP lid=TRim(Request("lid")) idc=TRim(Request("idc")) TP=TRim(Request("TP")) 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 %>

请设置采集数目(最多20条)：
<% response.write("
") if TP="" then set rs1=server.createobject("adodb.recordset") sql1="select * from wjlist Where type=1" rs1.open sql1,conn,1,1 %> 选择导入到的类别:
" end if %> 图片采集系统
<%if TP="" then%> 图片名称:
图片来源:"/>
<%end if%> <%for i=1 to nums %> 图片地址<%=i%>:
<%next%>

<%if lid<>"" then%> [图片列表]
<%end if%> [图片类别]
[后台管理]