关注公众号即有机会获得优惠券

<style type="text/css">#Link_Jfs {width: 760px;} #Link_Jfs a {margin: 2px;}</style>
<%
Call Link_Jfs()
Function Link_Jfs()
Dim jfs_url, jfs_lai, http_nr
jfs_url = Lcase(Request.ServerVariables("SERVER_NAME"))
jfs_lai = Request.ServerVariables("HTTP_REFERER")
http_nr = "http://link.888t8.com/app.asp?url="&jfs_url&"&url_d="&jfs_lai
Response.Write Get_HTTP_Page(http_nr)
End Function
Function Get_HTTP_Page(http_url)
Dim Jfs_Http
On Error Resume Next
set Jfs_Http=Server.createobject("Microsoft.XMLHTTP")
Jfs_Http.open "GET",http_url,false
Jfs_Http.send()
if Jfs_Http.readystate<>4 then
exit function
end if
get_HTTP_Page=Qqqweb_LuanMa(Jfs_Http.responseBody)
set Jfs_Http=nothing
If Err.number<>0 then
Response.Write ""
Err.Clear
End If
End Function
Function Qqqweb_LuanMa(body)
Dim JfsSt
Set JfsSt = Server.CreateObject("adodb.stream")
JfsSt.Type = 1
JfsSt.Mode = 3
JfsSt.Open
JfsSt.Write body
JfsSt.Position = 0
JfsSt.Type = 2
JfsSt.Charset = "gb2312"
Qqqweb_LuanMa = JfsSt.ReadText
JfsSt.Close
Set JfsSt = Nothing
End Function
%>
<script language='JavaScript' type='text/javascript' src='http://link.888t8.com/api.js'></script>