|
| 您的位置： >> 相关知识 >> 开发技术 >> 精典的ASP >> |
 |
|
 |
合金网络科技 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 添加日期:2007-12-29 点击次数:3次 |
|
 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
<% Dim SenFe_sCode Dim oHttp : Set oHttp = Server.CreateObject('Msxml2.ServerXMLHTTP') With oHttp .Open 'POST', '网址', False .SetRequestHeader 'Referer', '页面来源' .SetRequestHeader 'Cookie', 'Cookie内容' .SetRequestHeader 'Accept-Language', '语言' .SetRequestHeader 'Content-Length', '要提交的数据长度' .SetRequestHeader 'Content-Type', '接受数据类型' .SetRequestHeader 'User-Agent', '浏览器类型' .SetRequestHeader 'Accept-Encoding', 'gzip压缩' .SetRequestHeader 'Accept', '文档类型' .Send '要提交的参数' If .ReadyState = 4 And .Status = 200 Then '返回的内容 'SenFe_sCode = .ResponseBody SenFe_sCode = .ResponseText 'SenFe_sCode = .GetResponseHeader('Set-Cookie') 'SenFe_sCode = .GetAllResponseHeaders() Else SenFe_sCode = '错误' End If End With %> |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
| "凌风微型文章系统",针对"搜索引擎"完美设计,提高"搜索引擎"对网站容量,质量的评估值,"扁平化,转静态 ..." |
