index11.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">
<!--#include file="conn.asp"-->
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from jiudian where id="&id
rs.open sql,conn,1,1
%>
<wml>
<card id="jiudianfl" title="查看愿望">
<p align="left">
姓名:<%=rs("name")%><br/>
愿望类型:<%=rs("level")%><br/>
城市:<%=rs("address")%><br/>
愿望内容:<br/>
<%=rs("tel")%>
<br/>
<a href="index.asp">祈愿首页</a>
<br/>
<a href="/">网站首页</a>
</p>
</card>
</wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>