error.asp

来自「WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼」· ASP 代码 · 共 24 行

<!--#include file="inc/cconst.asp"-->
<%
response.ContentType="text/vnd.wap.wml"
err=session("error")
select case err
case 0,4 :error=tra(cerror) //?欠????
case 5 :error=tra(cerror2) //????
case 6 :error=tra(cerror3) //?????掖?没?
end select
%>
<?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>
<card id="Error" title="Error">
<p align="center"><%=tra(ctitle)%></p>
<p><%=error%></p>
<% if err=0 or err=4 then %>
<p><a href="index.asp"><%=tra(cback)%></a></p>
<%else%>
<p><anchor title="back"><%=tra(cback)%><prev/></anchor></p>
<%end if%>
</card>
</wml>