<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%call head
call saycardd("WAP2.0文件上传")
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
%>
<%
Dim ss,lid
randomize timer
ss=Int((9999)*Rnd +1000)
lid=TRim(Request("lid"))
idd=request.querystring("idd")
	if not isnumeric(idd) then idd=0
	if not isnumeric(lid) then lid=""
	if saytk=1 then response.redirect"upfile.asp?sid="&sid&"&lid="&lid&"&saytk=2"
	if lid<>"" then
response.write("<form action='upload.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;lid="&lid&"&amp;idd="&idd&"'enctype='multipart/form-data' method='post'>")
%>
        文件上传系统<br/>
		文件名称:<input name="name" type="text" value="龙门网SayTK.COM"/><br/>
                文件来源:<input name="laiy" type="text" value="龙门网SayTK.COM"/><br/>
                文件检查:<input name="green" type="text"  value="绿色,无病毒"/><br/>
                文件资费:<input name="pay" type="text"  value="完全免费"/><br/>
                <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/>
                <br/>文件说明:<textarea name="title" cols="18" rows="10" value="龙门网SayTK.COM"/></textarea>
                <br/>选择文件:<input type="file" name="filefield1"><br/> 
                建议所上传文件名和目录组合是字母与数字.<br/>  
                <br/>是否上传截图<br/>
                <select title="上传" name="pic" value="">
                <option title="不上传" value="2">不上传</option>
                <option title="上传" value="1">上传</option>
                </select><br/><br/>
		<input name="ok" type="submit" value="上传"/></form><br/>
<%
else%>
请不要非法传递参数！<br/>
<%end if%>
<br/>提示:如果要强制分页,请用||来分割.<br/>
<a href="wjlist.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;lid=<%=lid%>&amp;idd=<%=idd%>">[文件列表]</a><br/>
<a href='wjdl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;idd=<%=idd%>'>[文件小类]</a><br/>
<a href="wjclass.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[文件大类]</a><br/>
<a href="../index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[后台管理]</a>
<%call head1%>