1.会员中心发布新鲜事乱码

打开 user/userajax.asp

找到295行左右

Dim Content:Content=UnEscape(KS.S("Content"))

改成

Dim Content:Content=KS.DelSQL(UnEscape(Request("Content")))

2.后台添加栏目，英文名称乱码

打开plus/ajaxs.asp

找到219行左右

Dim FolderName:FolderName=UnEscape(KS.G("FolderName"))

改成

  Dim FolderName:FolderName=KS.DelSQL(UnEscape(Request("FolderName")))

3.论坛回复帖子乱码

打开club/Save_Reply.asp,找到190行左右

Dim Subject:Subject=UnEscape(KS.S("Subject"))

改成

Dim Subject:Subject=KS.DelSQL(UnEscape(Request("Subject")))

4.论坛新鲜事乱码

打开club/ajax.asp,找到117行左右

Dim Comment:Comment=UnEscape(Replace(KS.LoseHtml(KS.S("Comment")),"'",""))

改为

    Dim Comment:Comment=KS.DelSQL(UnEscape(Replace(KS.LoseHtml(Request("Comment")),"'","")))

5.后台添加文章等相关信息不能查询修复方法

http://bbs.kesion.com/forumthread-228611.html

6.注册时启用省市，不能联动的修改

打开user/reg/regajax.asp

找到

  Sub getCityOption()

    Dim Province,XML,Node

    Province=UnEscape(KS.S("Province"))

红色的改为

Province=KS.DelSQL(UnEscape(request("Province")))

7.论坛等地方发送站内消息，收不到或乱码的修改

打开plus/ajaxs.asp

找到

'发送短消息

Sub SendMsg()

     If Request.ServerVariables("HTTP_REFERER")="" Then KS.Die "error!"

     If KS.C("UserName")="" Then Response.End

  Dim UserName:UserName=UnEscape(KS.S("UserName"))

  Dim Message:Message=UnEscape(KS.S("Message"))

将上面红色的改成

  Dim UserName:UserName=KS.DelSQL(UnEscape(Request("UserName")))

  Dim Message:Message=KS.DelSQL(UnEscape(Request("Message")))

8.论坛帖子点评乱码

打开club/ajax.asp

找到117行左右

Dim Comment:Comment=UnEscape(Replace(KS.LoseHtml(KS.S("Comment")),"'",""))

改为

Dim Comment:Comment=KS.DelSQL(UnEscape(Replace(KS.LoseHtml(Request("Comment")),"'","")))

提示如果其它地方还有发现乱码的，欢迎跟帖提出。