手机WAP编程

开发平台：
ASP/ASPX

ymcll.asp：源码内容
							﻿<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<% Response.ContentType="text/vnd.wap.wml" %><?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><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <!--#include file="conn.inc"-->
<!--#include file="cnscu_sb.asp"-->
<head>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
</head>
<card id="main" title="查看源码">
<p>
<% 
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
 t = GetBody(Path)      
End function
function getHTTPPage(url) 
dim Http 
set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then 
exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing 
if err.number<>0 then err.Clear 
end function 
Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
uuurr=request("iidd")
ffss=request("ffss")
%>
地址:<%=uuurr%><br/>
<% 
dim Page
Page=request.QueryString("Page")
if Page="" then Page="1"
Dim Url,Html,start,over,body,wap,wstr,str
Url=""&uuurr&""
wstr=getHTTPPage(url)
start=Instr(wstr,"<p")
over=Instr(wstr,"</p>")+4
body=mid(wstr,start,over-start)
'------------------------------------------------
body = replace(body,"<p>","")
body = replace(body,"</p>","")
body = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","")
body = replace(body,"<p align='left'>","")
body = replace(body,"<p align='center'>","")
body = replace(body,"&","&amp;")
body = replace(body,"<","&lt;")
body = replace(body,">","&gt;")
body = replace(body,"$","$$")
body = replace(body,"&amp;#x","&#x")
body = replace(body,"'","&apos;")
body = replace(body,"""","&quot;")
'--------------------------------------------------
%>
<%if len(body)>30 then%>
<%if ffss="0" then%>
<input name="sssss<%=minute(now)%><%=second(now)%>" value="<%=body%>"/>
<%elseif ffss="1" then%>
<%=body%>
<%elseif ffss="2" then%>
<%=body%><br/>
<input name="sssss<%=minute(now)%><%=second(now)%>" value="<%=body%>"/>
<%end if%>
<%else%>
该地址无法查看
<%end if%>
<br/>
<a href="ymck.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回继续查看</a><br/>
<a href="admin_index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回管理首页</a><br/>
<a href="../index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回网站首页</a><br/>
</p>
</card>
</wml>

						