asp小偷程序中如何判断偷的页面编码？

2008-04-11 02:48:15 242 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ICCompiler II实战：从NDM生成到APR流程的完整避坑指南本文是一份针对ICCompiler II（ICC II）后端物理实现流程的实战避坑指南。文章详细解析了从NDM库生成、设计初始化、布局规划到时钟树综合与布线的完整APR流程，重点分享了各环节的常见陷阱、精细化配置命令与调试经验，旨在帮助工程师高效达成PPA目标，确保设计一次成功。阅读详情

asp小偷程序中如何判断偷的页面编码？

本身是GB2312，如何判断远程得到的页面文件编码？

...全文

告别双导航栏！微信小程序web-view嵌入H5的导航栏隐藏实战（附uniapp代码）本文详细解析了微信小程序中web-view嵌入H5页面时出现的双导航栏问题，并提供了基于uniapp的完整解决方案。通过环境感知、动态适配和样式隔离等技术手段，实现导航栏的无缝整合，提升用户体验和屏幕空间利用率。文章包含实战代码示例和常见问题排查指南，帮助开发者快速解决这一常见痛点。阅读详情

xroha

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

myvicy 2008-04-11

打赏
举报

不用注释,6楼的是固定为gb2312了。

xroha 2008-04-11

打赏
举报

多谢楼上两位！

xroha 2008-04-11

打赏
举报

思路意思我明白了，

但是代码不会写，六楼的代码好象不是很正确。

文盲老顾 2008-04-11

打赏
举报

六楼的意思其实就是采集后，在采集的内容中匹配 charset，如果有就返回匹配结果，没有就使用默认的设置

xroha 2008-04-11

打赏
举报

[Quote=引用 6 楼 myvicy 的回复:]
VBScript code '自动判断编码开始
Set re = New RegExp
re.Pattern = "CharSet=(\S+)"">"
re.IgnoreCase = True
' response.write http_request.ResponseText
' response.end
Dim charresult
' charresult = re.Execute(http_request.ResponseText)
If (charresult <> Null) Then
Cset = charresult(0)
Else
Cset = "gb2…
[/Quote]

能详解下代码吗？

好象不对啊，
' charresult = re.Execute(http_request.ResponseText)
要注解掉吗？

myvicy 2008-04-11

打赏
举报

 '自动判断编码开始

        Set re = New RegExp

        re.Pattern = "CharSet=(\S+)"">"

        re.IgnoreCase = True

'       response.write http_request.ResponseText

'       response.end

        Dim charresult

'       charresult = re.Execute(http_request.ResponseText)

        If (charresult <> Null) Then

            Cset = charresult(0)

        Else

            Cset = "gb2312" '对获取不到的网站采用gb2312编码,可自行更改

        End If

xroha 2008-04-11

打赏
举报

asp 不能判断采集到的信息是什么编码吗？是UTF-8还是GB2312？

文盲老顾 2008-04-11

打赏
举报

那你采集两次吧。。。根据他的 meta 采集第二次

response.write server.htmlencode(getHttpPage("http://bbs.chinaz.com","UTF-8"))

xroha 2008-04-11

打赏
举报

条件是：
首先不能确定要采集的目标网页是什么编码，可能是GB2312，也可能是UTF-8

要做到采集的内容都能在GB2312编码下正常显示，不出现乱码。

楼上的你把目标网址换成一个UTF-8编码的地址后，采集到的显示为乱码。

比如：response.write server.htmlencode(getHttpPage("http://bbs.chinaz.com","GB2312"))

就不正常了。

文盲老顾 2008-04-11

打赏
举报

<%
Function BIN2STR(xBinary,Charset)
Dim RS, LBinary,Binary
Binary = xBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Stream")
RS.Type = 1
RS.Mode =3
LBinary = LenB(Binary)

if LBinary>0 then
RS.Open
RS.Write Binary
RS.Position = 0
RS.Type = 2
RS.Charset = Charset
BIN2STR = RS.ReadText
Else
BIN2STR = ""
End If
End Function

Function getHttpPage(xUrl,Charset)
On Error Resume Next
Dim Http
Set Http = Server.CreateObject("Microsoft.XMLHTTP")
Http.Open "GET",xUrl,False
Http.Send()
If Http.ReadyState <> 4 Then
Response.Write "Error,Can't conect source."
getHttpPage = False
Exit Function
End If
getHttpPage = BIN2STR(Http.responseBody,Charset)
Set Http = Nothing
If Err Then
Response.Write "Error ! " & Err.Description & ""
getHttpPage = Err.description
Err.Clear
End If
End function

response.write server.htmlencode(getHttpPage("http://www.163.com","GB2312"))
%>

文盲老顾 2008-04-11

打赏
举报

采集到的信息一般都是二进制的内容，自己转编码吧？

asp小偷程序中如何判断偷的页面编码？

相关推荐