<!-- #include file="../conn.asp" -->
<!-- #include file="../admin.asp" -->
<%Call Head()
Call saycarda("查看源码")%>
<%If Request("SubmitFlag") <> "" Then%>


<% 
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 
url=UBB(request("url"))
%>
地址:<%=url%><br/>
<% 
dim Page
Page=request.QueryString("Page")
if Page="" then Page="1"
Dim Url,Html,start,over,body,wap,wstr,str
Url=""&url&""
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%>
<%=body%><br/>
<input name="url<%=minute(now)%><%=second(now)%>" value="<%=body%>"/>
<%else%>
该地址无法查看
<%end if%><br/>
<a href="u.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[继续查看]</a><br/>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[站长工具]</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a><br/>

<%
Call headsay()
else

call xlanlj("u.asp?SubmitFlag=true&amp;sid="&sid&"&amp;saytk="&saytk&"")%>
地址:<input name='url' value='http://'/><br/>
<%if saytk>1 then
call xlanlj1("查看源码")
else%>
<anchor>查看源码<go href='u.asp?SubmitFlag=true&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>' method='post' accept-charset='utf-8'>
<postfield name='url' value='$(url)'/>
</go></anchor>
<%end if%>
<br/><a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[站长工具]</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a><br/>
<%response.write""
call headsay()%>
<%end if%>
