<style type="text/css">
 <!--
 body,td,th {
 font-size: 12px;
 }
 -->
 </style>
 <%
 Function httpopen(neirong,fangshi,dizhi,refer,cookie)
 set Http=server.createobject("Microsoft.XMLHTTP")
 Http.open fangshi,dizhi,false
 Http.setrequestheader "Referer",refer
 Http.setrequestheader "Content-type","application/x-www-form-urlencoded"
 Http.setrequestheader "Content-length",len(neirong)
 Http.setrequestheader "User-Agent","Serv-U"
 Http.setrequestheader "x-user-agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)"
 If cookie<>"" then
 Http.setrequestheader "Cookie",cookie
 End If
 Http.send neirong
 httpopen=bytes2BSTR(Http.responseBody)
 set Http=nothing
 end Function
Function getmidstr(L,R,str)
int_left=instr(str,L)
int_right=instr(str,R)
If int_left>0 and int_right>0 Then
getmidstr=mid(str,int_left+len(L),int_right-int_left-len(L))
Else
getmidstr="执行的字符串中不包含“"&L&"”或“"&R&"”"
End If
end Function

(更多…)

二月 2nd, 2012

Posted In: 网络技术

标签:

无觅相关文章插件,快速提升流量