Asp 将MSXML2.serverXMLHTTP返回的responseBody 内容转换成支持中文编码

这个业务逻辑多少都有点奇怪了，阅读浏览次数增值在新闻详情页的控制器方法里setInc，这怎么还写进模型事件里了。如果非要用onAfterRead也可以，把新闻文章的内容单独分出来一个news_content表，然后把它和news做关联，然后给news_content表的onAfterRead事件做增值处理，这样点进新闻页内查询到文章内容时才会触发它。: 评 TP6模型事件-查询后onAfterRead不好用

文章标签更多

ThinkPHP (260)

Mysql (59)

DedeCms (33)

jQuery (74)

证件照 (1)

尺寸大小 (2)

背景颜色 (1)

setInc (4)

setDec (4)

onclick (5)

友情链接更多

超纯水设备

免费设计

海报设计

快递查询

MSXML2.serverXMLHTTP

打开边栏(ESC) 关闭边栏(ESC)

Function GetBody(weburl)  
    '创建对象 
    Dim ObjXMLHTTP 
    Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") 
    '请求文件,以异步形式 
    ObjXMLHTTP.Open "GET",weburl,False 
	'此信息必须在send前一个设置否则将出错"msxml3.dll error '80004005' Unspecified error"
	xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    '如果下面的方法在调用时使用()则会出现以下错误,如果非要使用()则需要使用call来调用方法
    '参考：http://www.cnblogs.com/y0umer/archive/2010/08/05/3839405.html    “ Microsoft VBScript compilation error '800a0414'Cannotuse parentheses when calling a Sub”
	'xmlhttp.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded")

    ObjXMLHTTP.send 
    While ObjXMLHTTP.readyState <> 4 
        ObjXMLHTTP.waitForResponse 1000 
    Wend 
    '得到结果 
     GetBody=ObjXMLHTTP.responseBody 
    '释放对象 
     Set ObjXMLHTTP=Nothing 
End Function
Function BytesToBstr(body,Cset) 
        dim objstream 
        set objstream = Server.CreateObject("adodb.stream") 
        objstream.Type = 1 
        objstream.Mode =3 
        objstream.Open 
        objstream.Write body 
        objstream.Position = 0 
        objstream.Type = 2 
        objstream.Charset = Cset 
        BytesToBstr = objstream.ReadText  
        objstream.Close 
        set objstream = nothing 
End Function

赏

前一篇

请问这个函数是什么意思 CreateObject("...

后一篇

关于asp输出json对象的方法及实例

相关推荐

ASP的Base64加密解密函数

ASP | 2018-07-19 18988

<% OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim newline dim Base64EncMap(63) dim Base64DecMap(127) '...

请问这个函数是什么意思 CreateObject("MSXML2.XMLHTTP")

ASP | 2018-03-08 5928

private Function getHTTPPage(url) On Error Resume Next Dim http Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send If http.readyState ...