<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%Call Head()
call saycarda("文件采集")
conn.execute="ALTER TABLE xzfile ALTER COLUMN url Memo"
%>


<%Dim surl,lid,idd
surl=request("url")

lid=trim(request.form("lid"))

idd=request("idd")

if lid<>"" then
lid=clng(lid)
end if




if lid<>0 then
if saytk>1 then
call xlanlj("getdzsave.asp?lid="&lid&"&amp;idd="&idd&"&amp;saytk="&saytk&"&amp;sid="&sid&"")%>
<br/>文件名称:<input name="name" type="text"/><br/>
文件来源:<input name="laiy" type="text"/><br/>
文件大小:<input name="size" value="<%=int(filesize/1024)%>"/>KB<br/>
文件格式:<input name="ggss" value="<%=ggss%>"/><br/>
文件说明:<input name="title" type="text"/><br/>
文件地址:<input name="fileurl" value="<%=tofile%>"/><br/>
截图地址:(可空)<input name="pic" value=""/><br/>
推荐等级:
                <select title="等级" name="very" value="1">
                <option title="等级一星" value="1">等级一星</option>
                <option title="等级二星" value="2">等级二星</option>
                <option title="等级三星" value="3">等级三星</option>
                <option title="等级四星" value="4">等级四星</option>
                <option title="等级五星" value="5">等级五星</option>
                </select><br/>
                选择平台:<%
                Set Rs = Server.CreateObject("Adodb.Recordset")
rs.open "SELECT id,ptname from symbian where classid="&idd&" order by pid asc",conn,1,1
if rs.eof then
response.write "<br/>还没有设置平台,请添加再上传文件"
else
  response.write "<select name=""ptid"">"
  do while not rs.eof
   response.write "<option value='"&ubb(rs("ID"))&"'>"&ubb(rs("ptname"))&"</option>"  
  rs.movenext
  loop
  response.write "</select>"
end if
rs.close
set rs=nothing%><br/>
                
检查:<input name="green" value="绿色,无病毒"/><br/>
资费:<input name="pay" value="完全免费"/><br/>
<%call xlanlj1("确定提交")
else%>
<br/>文件名称:<input name="name<%=minute(now)%><%=second(now)%>" type="text"/><br/>
文件来源:<input name="laiy<%=minute(now)%><%=second(now)%>" type="text"/><br/>
文件大小:<input name="size<%=minute(now)%><%=second(now)%>" value="<%=int(filesize/1024)%>"/>KB<br/>
文件格式:<input name="ggss<%=minute(now)%><%=second(now)%>" value="<%=ggss%>"/><br/>
文件说明:<input name="title<%=minute(now)%><%=second(now)%>" type="text"/><br/>
文件地址:<input name="fileurl<%=minute(now)%><%=second(now)%>" value="<%=tofile%>"/><br/>
截图地址:(可空)<input name="pic<%=minute(now)%><%=second(now)%>" value=""/><br/>
推荐等级:
                <select title="等级" name="very" value="1">
                <option title="等级一星" value="1">等级一星</option>
                <option title="等级二星" value="2">等级二星</option>
                <option title="等级三星" value="3">等级三星</option>
                <option title="等级四星" value="4">等级四星</option>
                <option title="等级五星" value="5">等级五星</option>
                </select><br/>
                选择平台:<%
                Set Rs = Server.CreateObject("Adodb.Recordset")
rs.open "SELECT id,ptname from symbian where classid="&idd&" order by pid asc",conn,1,1
if rs.eof then
response.write "<br/>还没有设置平台,请添加再上传文件"
else
  response.write "<select name=""ptid"">"
  do while not rs.eof
   response.write "<option value='"&ubb(rs("ID"))&"'>"&ubb(rs("ptname"))&"</option>"  
  rs.movenext
  loop
  response.write "</select>"
end if
rs.close
set rs=nothing%><br/>
                
检查:<input name="green<%=minute(now)%><%=second(now)%>" value="绿色,无病毒"/><br/>
资费:<input name="pay<%=minute(now)%><%=second(now)%>" value="完全免费"/><br/>
<anchor>确认提交
    <go href="getdzsave.asp?lid=<%=lid%>&amp;idd=<%=idd%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>" method="post" accept-charset="utf-8">
        <postfield name="name" value="$(name<%=minute(now)%><%=second(now)%>)"/>
         <postfield name="laiy" value="$(laiy<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="title" value="$(title<%=minute(now)%><%=second(now)%>)"/>
        <postfield name='fileurl' value='$(fileurl<%=minute(now)%><%=second(now)%>)'/>
        <postfield name='ggss' value='$(ggss<%=minute(now)%><%=second(now)%>)'/>
        <postfield name='size' value='$(size<%=minute(now)%><%=second(now)%>)'/>
        <postfield name='pic' value='$(pic<%=minute(now)%><%=second(now)%>)'/>
         <postfield name="very" value="$(very)"/>
        <postfield name="green" value="$(green<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="pay" value="$(pay<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="ptid" value="$(ptid)"/>
    </go>
</anchor><br/>
<%end if
else%>
<br/>文件大小:<input name="size<%=minute(now)%><%=second(now)%>" value="<%=int(filesize/1024)%>"/><br/>
文件地址:<input name="tofile<%=minute(now)%><%=second(now)%>" value="<%=tofile%>"/><br/>
<%
end if
conn.close
set conn=nothing
%>
----------<br/>
<%if idd<>"" then%>
<a href='wjlist.asp?lid=<%=lid%>&amp;idd=<%=idd%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>'>[返回上级]</a><br/>
<a href='wjdl.asp?idd=<%=idd%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>'>[文件小类]</a><br/>
<%end if%>
<a href='wjclass.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>[文件分类]</a><br/>
<a href='wjcl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>[文件管理]</a><br/>
<a href="../index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[后台管理]</a>
<%call headsay()%>