view_sourse.asp

skybird写的ASP的WAP网站源程序

<%Response.ContentType = "text/vnd.wap.wml"

%>
<!--#include file="../myinc/dataconnect.inc"-->
<% 
'findid=session("online_name")
findid="bicyle"
set rs=server.createobject("adodb.recordset")
strsql="SELECT person_name FROM skybird where person_name="& "'" & findid & "'"
rs.open strsql,conn,1,3
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
 	<card id="index" title="<%=uni("天堂鸟论坛")%>" >
<p align="center">
<img src="life.png" alt=""/><%=uni("新用户注册")%>
</p>
<p>
<%=rs("person_name")%>

<a title="<%=uni("确定")%>"  href="../index.asp"><%=uni("返回")%></a><br/>
</p>
	</card>

</wml>
<%
rs.Close
Set rs = Nothing
%>
<% Function uni(Chinese)
  For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
%>