error.asp

一个笑话的wap源码

<%@ Language=VBScript %>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0"  encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<%
id=Trim(Request.QueryString("id"))
%>

<wml>
<card id="jiudianfl" title="错误信息" ontimer="useradd.asp">
<timer value="15"/>
<p align="center">
<%Select Case id
Case "1"%>   出错了,文章名没有填写!<br/>
<a href="useradd.asp">返回添加文章</a><br/>
<%Case "2"%> 出错了,文章类别没有填写!<br/>
<a href="useradd.asp">返回添加文章</a><br/>
<%Case "3"%> 出错了,文章内容没有填写!<br/>
<a href="useradd.asp">返回添加文章</a><br/>
<%Case "4"%> 出错了,作者没有填写!<br/>
<a href="useradd.asp">返回添加文章</a><br/>
<%Case else%> 对不起，该出错类型未被登记.<br/>
<a href="useradd.asp">返回添加文章</a><br/>
<%End Select%>
<br/>
</p>
</card>
</wml>