手机WAP编程

开发平台：
ASP/ASPX

err.asp：源码内容
							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.inc"-->
<!--#include file="cnscucsb.asp"--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <%
cnscu=request.querystring("cnscu")
iduse=Session("useid")
nais=request("nais")
ltid=request("ltid")
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
cnscu=request.querystring("cnscu")
%>
<% 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 %>
文件已经上传,
<%
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
<%
if filetype="gif" or filetype="jpg" or filetype="png" or filetype="bmp" or filetype="jpge" then
wjss="(img)/down/"&rs2("dataname")&"(/img)"
else
wjss="(url=/down/"&rs2("dataname")&")免费下载(/url)"
end if%>
<br/>标题:<input name="ltbt" emptyok="true" maxlength="16" value=""/><br/>
内容:<input name="lttxt" emptyok="true" value=""/><br/>
<anchor title="确定提交">[确定提交]
<go href="lt_addcl.asp?cnscu=<%=cnscu%>&amp;ltid=<%=ltid%>&amp;dj=<%=dj%>" method="post" accept-charset='utf-8'>
<postfield name="ltbt" value="$(ltbt)"/>
<postfield name="lttxt" value="$(lttxt)[br]<%=wjss%>"/>
<postfield name="djjg" value="$(djjg)"/>
<postfield name="ldid" value="$(ldid)"/>
<postfield name="t" value="<%=t%>"/>
</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="lt_list.asp?ltid=<%=ltid%>&amp;cnscu=<%=cnscu%>">论坛首页</a><br/>
<a href="index.asp?cnscu=<%=cnscu%>">社区首页</a><br/>
</p>
</card>
</wml>

						