<% Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-Control", "no-cache, must-revalidate" %> <% dim TP,bookid,lid,idc TP=request("TP") bookid=request("bookid") lid=request("lid") idc=request("idc") response.write("

") if TP="" then response.write"图片名称:
" response.write"
" response.write"图片来源:
" end if response.write"采集页面地址:
" response.write"
" set rs1=server.createobject("adodb.recordset") sql1="select * from cjbook " rs1.open sql1,conn,1,1 %> 选择采集模板:
" if lid="" then set rs1=server.createobject("adodb.recordset") sql1="select * from wjlist Where type=1" rs1.open sql1,conn,1,1 %> 选择导入到的类别:
" end if conn.close set conn=nothing if lid<>"" then%> <%end if%>

[图片类别]
[后台管理]