GODADDY主机动易6.8生成静态页百度收录乱码的解决方法

redmaomail 2024-07-25 11:30 阅读数 70 #Godaddy

虽然很多人都在用PHP 但是我还是非常喜欢动易动易真的是太容易上手了记得刚学动易到自己可以随心所欲的制作模板只用了10天时间动易的模板制作太容易了所以现在还舍不得换别的CMS。自从用了GODADDY空间动易或多或少的遇到些问题都已经解决但是最近发现在GODADDY空间下动易生成的静态页面百度收录的快照都是乱码

截图如下:

GoDaddy主机百度乱码

经过几天摸索终于找到解决方法现在分享给大家。
一，百度收录乱码的原因：
百度收录乱码的原因很多，但是大多数都是编码问题。动易也不例外。动易默认的编码是GB2312，这种情况在动态页面下是没有什么问题的，但是生成静态的时候可能是由于GODADDY服务器对GB2312编码的支持问题导致生成的页面不是GB2312编码的，而是UNICODE编码。这种编码的网页有个显著的特点，就是用IE浏览器查看编码的时候，他自动选取UNICODE 并且该选项是灰色，不能更改，如下图。

GoDaddy主机百度收录乱码

用IE简单判断网页的编码方法是点击查看 - 编码，然后选取自动选择这时候哪个编码被选中了该网页就是什么编码。
如下图：

GODADDY主机动易6.8生成静态页百度收录乱码

而并不是看网页源代码中<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> charset并不能决定网页的编码他只是起到告诉浏览器网页采用的什么编码如果charset与网页实际编码不符那么不会影响浏览但是百度蜘蛛就会误判断造成快照乱码。
那么动易为什么只有百度快照乱码，而GOOGLE等快照正常呢，这主要是百度不支持UNICODE编码的原因造成的，大家可以做这么个实验，把收录乱码的HTML页面下载到本地再用DW转换成GB2312或者UTF-8编码，会发现 UNICODE编码的网页体积比转换后大了整整一倍，一个SEO群里的高手说这就是百度不支持UNICODE的原因，百度太抠门了，UNICODE编码的网页太占资源。
二，解决方法：
找到问题的原因，就好解决了。既然是生成的时候自动生成了UNICODE编码的网页，那么我们让他生成GB2312或者UTF-8编码的不就解决问题了吗。
我们可以强制动易生成GB2312编码的网页具体操作方法如下：
1，首先修改Include目录下PowerEasy.FSO.asp文件，有两个地方要修改。

修改函数：WriteToFile 和 WriteToFile_FSO
代码：
Sub WriteToFile(WriteToFileName, WriteToFileContent)
Dim ErrMsg
ErrMsg = WriteToFile_FSO(WriteToFileName, WriteToFileContent)
If ErrMsg <> "" Then
ErrMsg = WriteToFile_ADO(WriteToFileName, WriteToFileContent)
If ErrMsg <> "" Then
Response.Write "<li>生成 " & WriteToFileName & " 时出错。出错原因：" & ErrMsg & "</li>"
End If
End If
End Sub
修改为：
Sub WriteToFile(WriteToFileName, WriteToFileContent, WriteToCharset)
Dim ErrMsg
ErrMsg = WriteToFile_FSO(WriteToFileName, WriteToFileContent, WriteToCharset)
If ErrMsg <> "" Then
ErrMsg = WriteToFile_ADO(WriteToFileName, WriteToFileContent)
If ErrMsg <> "" Then
Response.Write "<li>生成 " & WriteToFileName & " 时出错。出错原因：" & ErrMsg & "</li>"
End If
End If
End Sub

代码：
Function WriteToFile_FSO(WriteToFileName, WriteToFileContent)
On Error Resume Next
Err.Clear
Dim hf
Set hf = fso.OpenTextFile(Server.MapPath(WriteToFileName), 2, True)
hf.Write WriteToFileContent
hf.Close
Set hf = Nothing
If Err Then
WriteToFile_FSO = Err.Description
Err.Clear
Else
WriteToFile_FSO = ""
End If
End Function
修改为：
Function WriteToFile_FSO(strFullName,strContent,strCharset)
On Error Resume Next
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Mode = 3
.Open
.Charset = strCharset
.Position = objStream.Size
.WriteText = strContent
.SaveToFile Server.MapPath(""&strFullName&""),2
.Close
End With
Set objStream = Nothing
Err.Clear
End Function

2，修改与生成相关的ASP文件，强制生成GB2312编码。
修改方法：在下面标注的行的)前面加上,"gb2312"
例如：
找到：Call WriteToFile(InstallDir & FileName_SiteIndex, strHTML)

改成：Call WriteToFile(InstallDir & FileName_SiteIndex, strHTML,"GB2312")
需要修改的文件及行数和该行代码功能
Include目录下：
PowerEasy.CreateJS.asp        第450行
Admin目录下：
Admin_CreateSiteIndex.asp        第39行   网站主页
Admin_CreateCommon.asp          第192行栏目页     第86行频道主页
第334行   生成专题列表
Admin_Class.asp, 第3388 行第 3392行第3436行第3440行第3444行              生成JS
Admin_CreateArticle.asp        第321行          文章内容页
Admin_CreateSoft.asp         第164行            软件内容页
Admin_CreatePhoto.asp        第270行            图片内容页
Admin_Skin.asp              第889行    第902行         网站风格管理
Admin_Advertisement.asp     第1443行               网站广告管理
Admin_CreateOther.asp   第277行第405行第530行第655行第894行   第949行第1079行   网站生成管理下生成网站综合数据（XML等）
Admin_Special.asp      第1083行                     刷新专题JS
Admin_CreateXml.asp       第194行                  更新栏目XML数据
Admin_CreateSiteSpecial.asp 第104行第127行          生成专题页列表