📄 ymcl.asp

📁 wap系统程序源码用户名密码:admin
💻 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>
<!--#include file="conn.inc"-->
<!--#include file="66hc-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,"<")
over=Instr(wstr,"</wml>")+6
body=mid(wstr,start,over-start)
'------------------------------------------------
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%>
<br/><anchor>预览效果<go href='xg.asp?sb=<%=sb%>' method='post' accept-charset='utf-8'>
<postfield name='idp' value='$(idp)'/>
<postfield name='iidd' value='<%=body%>'/>
</go></anchor>
<%else%>
该地址无法查看
<%end if%>
<br/>
<a href="ymck.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回继续查看</a><br/>
<a href="d_i.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回管理首页</a><br/>
<a href="/index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回网站首页</a><br/>
</p>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -