手机WAP编程

开发平台：
ASP/ASPX

err.asp：源码内容
							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include FILE="conn.inc"-->
<!--#include file="cnscu_sb.asp"--> <%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <%
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/>
----------<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")
%>
名称:<%=title%><br/>
描述:<%=explain%><br/>
大小:<%size=Round(size/1024,2)
If Left(size,1)="." Then size="0"&size
%>
<%=size%>KB<br/>
上传时间:<%=addtime%><br/>
<%
response.write "<select name='idp'><option onpick=''>选择大类</option>"
set rse=server.createobject("ADODB.Recordset")
aql="select id,nxn,lx from wap_lm where cstr(lx)='11' order by id asc"
rse.open aql,conn,1,2
j=1
do while not rse.eof
 dim namx
namx=rse("nxn")
if len(namx)>8 then namx=left(namx,8)
Response.write "<option value='" & rse("id") & "'>" & ubb(namx) & "</option>"
j=j+1
rse.movenext
loop
rse.close
set rse=nothing
Response.write "</select><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='文件说明'/><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><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)'/>
<postfield name='idi' value='$(idi)'/>
<postfield name='txt' value='$(txt<%=minute(now)%><%=second(now)%>)'/>
<postfield name='url' value='$(url)'/>
<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='11'/>
<postfield name='did' value='$(idp)'/>
</go></anchor><br/>
<%
rs2.close
Set rs2=nothing
End if%>
<%if request("id")=5 then %>
   请选择要上传的文件！<br/>
<%End if%>
<%if request("id")=6 then %>
系统错误，请联系管理员！<br/>
错误6，保存上传数据所需文件夹不存在！<br/>
<%End if%>
----------<br/>
<a href="cnscu.asp?sb=<%=sb%>">继续上传文件</a><br/>
<a href="admin_index.asp?sb=<%=sb%>">返回管理首页</a><br/>
</p>
</card>
</wml>

						