📄 kof.asp

📁 实现对图片的基本处理：打开、增加、删除等。
💻 ASP
字号:
<!--
********************************ALEXA 网站世界排名小偷***********************
*  作者：肥TOTOO                                            
*  http://www.gogo173.com/weilf/                        
*             欢迎交流   共同促进                                           
*****************************************************************************
-->

<html>
<head>
<title>网站世界排名查询</title>
</head>
<table align=center border=1 width='778' cellspacing=1 height=300 cellpadding=1 bgcolor=#5f79a1 bordercolor=#FFFFFF>
<tr><td bgcolor=ffffff width=100% align=center>
<table align=center ><tr><td>
<form name="se" method=post action="">
请输入你要查询的域名</td><td><input type=text name="url" value="www.xw127.org"></td>
<td><input type=submit name=submit value="查询"></td></tr>
</table>
</form>
<%
if request("submit")<>"" or request("url")<>"" then 
url="http://www.alexa.com/data/details/traffic_details?q=&url="&replace(request("url"),"http://","")
getsms=gethttppage(url)
if instr(getsms,"Traffic rank:</span>") then
picurl="http://traffic.alexa.com/graph?w=379&h=216&r=6m&u="&request("url")&"/&u="
response.write "<img src="&picurl&">"
star=instr(getsms,"Traffic rank:</span>")+120
endd=instr(star,getsms,"</table>")+8
getstr=mid(getsms,star,endd-star)
getstr=replace(getstr,">Today<",">今天<")
getstr=replace(getstr,"1 wk. Avg.","一星期平均")
getstr=replace(getstr,"3 mos. Avg.","三个月平均")
getstr=replace(getstr,"3 mos. Change","三个月增长")
response.write getstr
response.write "<br>以上数据都是在世界排名总名次"
response.write "<br>以上数据来自：http://www.alexa.com,详细信息可以登陆到该网站查询"
end if
end if
%>
<%
	function getHTTPPage(url) 
		on error resume next 
		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=bytes2BSTR(Http.responseBody) 
		set http=nothing
		if err.number<>0 then err.Clear  
	end function 
	Function bytes2BSTR(vIn) 
		dim strReturn 
		dim i1,ThisCharCode,NextCharCode 
		strReturn = "" 
		For i1 = 1 To LenB(vIn) 
			ThisCharCode = AscB(MidB(vIn,i1,1)) 
			If ThisCharCode < &H80 Then 
				strReturn = strReturn & Chr(ThisCharCode) 
			Else 
				NextCharCode = AscB(MidB(vIn,i1+1,1)) 
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
				i1 = i1 + 1 
			End If 
		Next 
		bytes2BSTR = strReturn 
	End Function 
	function getHTTPpic(url) 
		on error resume next 
		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=Http.responseBody 
		set http=nothing
		if err.number<>0 then err.Clear  
	end function 
%>
</td></tr></table>
<table width="98%" border="0" align="center">
  <tr>
    <td align="center"><a href="alexa.rar"></a></td>
  </tr>
</table>
⌨️ 快捷键说明

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