<!-- #include file="../conn.asp" -->
<!--#include file="admin.asp"-->
<%call head
call saycardd("网页采集图片")
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")

call xlanlj("cjpic.asp?sid="&sid&"&amp;saytk="&saytk&"")
response.write"图片名称:<br/>"
response.write"<input name=""title"" value=""""/><br/>"
response.write"图片来源:<input name=""laiy"" type=""text"" value="""&Request.ServerVariables("SERVER_NAME")&"""/><br/>"

response.write"采集页面地址:<br/>"
response.write"<input name=""geturls"" value=""http://""/><br/>"
set rs1=server.createobject("adodb.recordset")
	sql1="select * from cjbook "
	rs1.open sql1,conn,1,1
%>
选择采集模板:
<select name="bookid" value="<%=bookid%>">
<option value=''>选择模板</option> 
<% do while not rs1.eof
%> <option value='<%=rs1("id")%>'><%=rs1("name")%></option>   
<%  rs1.movenext
        loop
    rs1.close
    set rs1=nothing
response.write"</select><br/>"
if lid="" then
set rs1=server.createobject("adodb.recordset")
	sql1="select * from wjlist Where type=1"
	rs1.open sql1,conn,1,1
%>
选择导入到的类别:
<select name="lid" value="<%=lid%>">
<option value=''>选择类别</option>   
<% do while not rs1.eof
%> <option value='<%=rs1("lid")%>'><%=rs1("name")%></option>   
<%  rs1.movenext
        loop
    rs1.close
    set rs1=nothing
response.write"</select><br/>"
end if
conn.close
set conn=nothing
if saytk>1 then
if lid="" then
else
call xltjlj("lid",""&lid&"")
end if
call xltjlj("TP",""&TP&"")
call xltjlj("idc",""&idc&"")
call xlanlj1("采集图片")
else%>
<anchor>采集图片
    <go href="cjpic.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>&amp;geturls=$(geturls)" method="post" accept-charset="utf-8">
	<postfield name="title" value="$(title)"/>
	<postfield name="laiy" value="$(laiy)"/>
	<postfield name="geturls" value="$(geturls)"/>
	<postfield name="bookid" value="$(bookid)"/>
    <postfield name="idc" value="<%=idc%>"/>
     <%if lid="" then%>
	 <postfield name="lid" value="$(lid)"/>
	 <%else%>
	 <postfield name="lid" value="<%=lid%>"/>
     <%end if%>
	 <postfield name="tp" value="<%=tp%>"/>
    </go>
</anchor>     
<%end if%>
<br/>
<a href='picdl.asp?sid=<%=sid%>'>[图片类别]</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
<%call head1%>