📄 piccl.asp

📁 wap系统程序源码用户名密码:admin
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include FILE="conn.inc"-->
<!--#include FILE="66hc-sb.asp"-->
<%
sb=request.querystring("sb")
did=request.querystring("did")
iduse=Session("useid")
nais=request("nais")
itid=request("itid")
sq1="select * from upset order by id"
Set Rs1 = Server.CreateObject("Adodb.Recordset")
rs1.open sq1,conn,1,2
rsformPath=rs1("formPath")
rsnamekind=rs1("namekind")
rsfilesize=rs1("filesize")
rsallowedfile=rs1("allowedfile")
rs1.close
Set rs1=nothing
sb=request.querystring("sb")
%>
<% Response.ContentType="text/vnd.wap.wml;charset=UTF-8" %>
<?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 

<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card  title="上传图片">
<p>
<%If request("id")="" Then response.redirect"mobileup.asp"%>
<%if request("id")=1 then %>
   文件名不能为空！<br/>
<%End if%>
<%if request("id")=2 then %>
文件类型错误，上传不成功！<br/>
允许上传的文件类型有:<%=rsallowedfile%><br/>
<%End if%>
<%if request("id")=3 then %>
文件过大，上传不成功！<br/>
允许上传的文件大小为:<%=rsfilesize%>KB<br/>
<%End if%>
<%if request("id")=4 then %>
=系统中已经有该文件了=<br/>
<%
size=CStr(request("size"))
sq2="select * from data where filesize='"&size&"'"
Set Rs2 = Server.CreateObject("Adodb.Recordset")
rs2.open sq2,conn,1,2
id=rs2("id")
title=rs2("title")
explain=rs2("explain")
size=rs2("filesize")
addtime=rs2("addtime")
filetype=rs2("dataname")
i=InStrRev(filetype,".")
l=Len(filetype)
If i>0 Then
  filetype=Right(filetype,l-i)
End If%>
格式:<%=filetype%><br/>
<%size=Round(rs2("filesize")/1024,2)
If Left(size,1)="." Then size="0"&size%>
大小:<%=size%>KB<br/>
软件名称:<br/>
<input name='nam<%=minute(now)%><%=second(now)%>' title='软件名称'/><br/>
文件地址:<br/>
<input name='url<%=minute(now)%><%=second(now)%>' title='文件地址' value='/down/<%=rs2("dataname")%>'/><br/>
文件说明:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='文件说明' value='格式:<%=filetype%>\\大小:<%=size%>KB'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<anchor>[确定提交]<go href='lmcl.asp?sb=<%=sb%>&amp;fs=<%=fs%>' method='post' accept-charset='utf-8'>
<postfield name='nam' value='$(nam<%=minute(now)%><%=second(now)%>)'/>
<postfield name='idi' value='1'/>
<postfield name='txt' value='$(txt<%=minute(now)%><%=second(now)%>)'/>
<postfield name='url' value='$(url<%=minute(now)%><%=second(now)%>)'/>
<postfield name='dy' value='$(dy<%=minute(now)%><%=second(now)%>)'/>
<postfield name='yc' value='$(yc)'/>
<postfield name='brr' value='$(brr)'/>
<postfield name='mm' value='$(mm)'/>
<postfield name='lx' value='3'/>
<postfield name='did' value='<%=did%>'/>
</go></anchor><br/>
<%End if%>
<%if request("id")=5 then %>
   请选择要上传的文件！<br/>
<%End if%>
<%if request("id")=6 then %>
系统错误，请联系管理员！<br/>
错误6，保存上传数据所需文件夹不存在！<br/>
<%End if
rs2.close
Set rs2=nothing
%>
<a href="66hc.asp?sb=<%=sb%>">继续上传文件</a><br/>
<a href="d_i.asp?sb=<%=sb%>">返回管理首页</a><br/>
</p>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -