📄 queryastro.asp
字号:
<%
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.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 i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
if request.queryString("url")="astro_luck" then
url="http://appastro.qq.com/cgi-bin/astro_luck?astro="+request("astro")+"&type="+request("type")
else
url="http://appastro.qq.com/cgi-bin/astro_newluckday11?astro="+request("astro")+"&type="&request("type")
end if
'response.Write(url)
'response.End()
icode=GetHttpPage(url)
if icode <> "" then
inum = len(icode) - instr(icode,"pop_logo01.gif") -58
if inum < len(icode) - 58 then
imain = right(icode,inum)
inum = instr(imain,"</body>") - 1
imain = left(imain,inum)
end if
imain=replace(imain,"/images/","http://appastro.qq.com/images/")
imain=replace(imain,"QQ校缘，给你美妙的校园体验!","")
imain=replace(imain,"/images/pop_bg01.gif","")
imain=replace(imain,"/cgi-bin/astro_newluckday11?","queryAstro.asp?url=astro_newluckday11&")
imain=replace(imain,"/cgi-bin/astro_luck?","queryAstro.asp?url=astro_luck&")
'response.write imain
%>
<HTML><HEAD><TITLE>南京同庆之每日星座运程 </TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/style.css" type=text/css
rel=stylesheet>
<style type="text/css">
<!--
body {
background-color: #FEB1D5;
margin-top: 0px;
}
A:link{FONT-SIZE:12px;COLOR:#000000;TEXT-DECORATION:none}
A:visited{FONT-SIZE:12px;COLOR:#000000;TEXT-DECORATION:none}
A:active{FONT-SIZE:12px;COLOR:#FF6600;TEXT-DECORATION:underline}
A:hover{FONT-SIZE:12px;color:#FF0000;TEXT-DECORATION:underline}
.style1 {font-weight: bold}
-->
</style>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY background="images/background.gif" scroll=no>
<DIV align=center>
<CENTER>
<TABLE id=AutoNumber1 style="BORDER-COLLAPSE: collapse" borderColor=#111111
cellSpacing=0 cellPadding=0 width=600 border=0>
<TBODY>
<TR>
<TD width="100%"><IMG src="images/top_1.gif" width="642" height="10"
border=0></TD>
</TR>
<TR>
<TD width="100%"><IMG
src="images/top_1(1).gif" width="642" height="60"
border=0></TD>
</TR>
<TR>
<TD
style="BORDER-TOP-WIDTH: 1px; BORDER-RIGHT: 1px solid; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT: 1px solid"
borderColor=#666666 align=middle bgColor=#666666>
<P style="MARGIN-TOP: 2px"><B><A
href="index.asp?id=1">白羊座</A> <A
href="index.asp?id=2">金牛座</A> <A
href="index.asp?id=3">双子座</A> <A
href="index.asp?id=4">巨蟹座</A> <A
href="index.asp?id=5">狮子座</A> <A
href="index.asp?id=6">处女座</A> <A
href="index.asp?id=7">天秤座</A> <A
href="index.asp?id=8">天蝎座</A> <A
href="index.asp?id=9">射手座</A> <A
href="index.asp?id=10">摩羯座</A> <A
href="index.asp?id=11">水瓶座</A> <A
href="index.asp?id=12">双鱼座</A></B></P></TD></TR>
<TR>
<TD width="100%"><IMG src="images/top_2.gif" width="642"
border=0></TD>
</TR>
<TR>
<TD
style="BORDER-TOP-WIDTH: 1px; BORDER-RIGHT: 1px solid; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT: 1px solid"
borderColor=#666666 width="100%" bgColor=#ffffff>
<TABLE id=AutoNumber2 style="BORDER-COLLAPSE: collapse"
borderColor=#111111 cellSpacing=0 cellPadding=20 width="600" border=0>
<TBODY>
<TR>
<TD align=middle width="50%">
<TABLE id=AutoNumber2 style="BORDER-COLLAPSE: collapse"
borderColor=#111111 cellSpacing=0 cellPadding=0
border=0>
<TBODY>
<TR>
<TD width="600" align=middle valign="top"> <%response.write imain%>
</TD>
</TR>
<TR>
<TD align=middle height=20></TD>
</TR>
<TR>
<TD align=middle height=5>
<HR color=#c0c0c0 SIZE=1>
</TD></TR>
<TR>
<TD align=middle height=20><TABLE width="600" height="80" border=0 align=center cellPadding=0 cellSpacing=0 class=footer2>
<TBODY>
<TR>
<TD align=center bgcolor="#FFFFFF" ><br>
<br>
·<font face=Verdana,Arial>
<script src='http://www.bsgy.net/count/CounterLink1.asp'></script></TD>
</TR>
</TBODY>
</TABLE></TD></TR>
<TR>
<TD align=middle> </TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width="100%"><IMG src="images/bottom.gif" width="642"
border=0></TD>
</TR></TBODY></TABLE></CENTER></DIV></BODY></HTML>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -