部分小BUG修复专帖，遇到问题的请看过来了-蓝易堂-玄门

部分小BUG修复专帖，遇到问题的请看过来了

lan988 级别:管理员 + 关注收藏

支持(0) |

反对(0)原内容

1.下载系统，点击下载软件出现 “非法下载，请不要盗链本站资源！”的错误提示

出错原因：由于原来v7.02版本之前，Kesion.Commoncls.asp文件里里验证是否外部链接的函数(CheckOuterUrl)本身就是错误的，而7.02版本修复了这个错误,可以正常判断是否外部链接了。

解决方法：打开item/download.asp 找到

If Not KS.CheckOuterUrl Then

ShowInfoStr = ShowInfoStr & "<li>非法下载，请不要盗链本站资源！</li>"

FoundErr=True

End If

修改成

If KS.CheckOuterUrl Then

ShowInfoStr = ShowInfoStr & "<li>非法下载，请不要盗链本站资源！</li>"

FoundErr=True

End If

其它系统如：影视无法播放，处理方法类似。即

打开 movie/play.asp,找到39行

If Not KS.CheckOuterUrl Then

改成

If KS.CheckOuterUrl Then

您也可以用dw工具批量将If Not KS.CheckOuterUrl Then替换为If KS.CheckOuterUrl Then

2、个人空间里最近访客链接地址改为用户ID的修改方法

打开ks_cls/kesion.spacecls.asp,找到865行左右

'最新访客

  Function GetVisitor()

   Dim user_face,Visitors,str,XML,Node

  Dim RS:Set RS=Conn.Execute("Select top 10 b.userid,b.sex,a.Visitors,b.userface,a.adddate,b.isonline from KS_BlogVisitor a inner join KS_User b on a.Visitors=b.username where a.username='" & UserName & "' order by a.adddate desc ,id desc")

If Not RS.Eof Then Set XML=KS.RsToXml(Rs,"row","")

RS.Close:Set RS=Nothing

   If IsObject(XML) Then

   For Each Node In XML.DocumentElement.SelectNodes("row")

      user_face=Node.SelectSingleNode("@userface").text

   Visitors =Node.SelectSingleNode("@visitors").text

   If user_face="" or isnull(user_face) then

   if Node.SelectSingleNode("@sex").text="男" then  user_face="images/face/0.gif" else user_face="images/face/girl.gif"

   End If

         If lcase(left(user_face,4))<>"http" and left(user_face,1)<>"/" then user_face=KS.Setting(2) & "/" & user_face

         str=str & "<li><a class='b' href='" & KS.GetSpaceUrl(Node.SelectSingleNode("@userid").text) & "' target='_blank'><img src='" & User_face & "' border='0'></a><br/><a href='" & KS.GetSpaceUrl(Node.SelectSingleNode("@userid").text) & "' target='_blank'>" & Visitors & "</a><br />状态:"

   If Node.SelectSingleNode("@isonline").Text="1" Then str=str & "<font color=red>在线</font>" Else str=str & "离线"

   str=str & "</li>"

   Next

   XML=Empty : Set Node=Nothing

End If

GetVisitor=str

  End Function

注意上面红色的为改动的地方

3、KesionCMS v7.02最新版本，会员中心新鲜事插入表情不隐藏的改进

看：http://bbs.kesion.com/forumthread-170326.html

4、远程抓图提示，文件名不合法：

打开admin/include/ SaveBeyondfile.asp

找到27行

if instr(fanme1,".")=0 then

改成

if instr(fname1,".")=0 then

5、V7.02版本论坛的几处小修改

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

6、sql版本升级后在收银台，选择送货地址没有反应

解决方法：

打开shop/ajax.getdate.asp ,找到

sql="select top 1 * From KS_Delivery Where ExpressID="& expressid &" and (tocity='全国统一运费' or tocity='')"

改成

If DataBaseType=1 Then

  sql="select top 1 * From KS_Delivery Where ExpressID="& expressid &" and (convert(varchar(200),tocity)='全国统一运费' or convert(varchar(200),tocity)='' or tocity is null)"

  Else

  sql="select top 1 * From KS_Delivery Where ExpressID="& expressid &" and (tocity='全国统一运费' or tocity='')"

  End If

同样打开ks_cls/kesion.commoncls.asp，找到1775行

RST.Open "select Top 1 a.fweight,carriage,c_fee,w_fee,b.typename from KS_Delivery a inner join KS_DeliveryType b on A.ExpressID=B.TypeID where a.ExpressID="& expressid &" and (a.tocity='全国统一运费' or convert(varchar(200),tocity)='' or a.tocity is null)",conn,1,1

改成

RST.Open "select Top 1 a.fweight,carriage,c_fee,w_fee,b.typename from KS_Delivery a inner join KS_DeliveryType b on A.ExpressID=B.TypeID where a.ExpressID="& expressid &" and (convert(varchar(200),tocity)='全国统一运费' or convert(varchar(200),tocity)='' or a.tocity is null)",conn,1,1

7、KesionCMS V7.02评论不允许游客发表时，会员无法直接登录发表的回复

详见：http://bbs.kesion.com/forumthread-171138-1.html

8、圈子中的模板无法应用，不管是选择应用哪种模板，圈子都无法应用所选的模板

解决方法：

打开USER/USER_BLOG.ASP

找到645行左右

<input type="submit" value="应用"id")%>').val()==0){alert('请选择圈子!');return false} else{window.location='?flag=3&teamid='+$('#teamid<%=rs("id")%>').val(<%=rs("id")%>)+'&action=SaveMySkin&id=<%=RS("ID")%>'}" />

改成

<input type="submit" value="应用"id")%>').val()==0){alert('请选择圈子!');return false} else{window.location='?flag=3&teamid='+$('#teamid<%=rs("id")%>').val()+'&action=SaveMySkin&id=<%=RS("ID")%>'}" />

9、求职系统，查看部分公司详情出现如下错误：

Microsoft VBScript 运行时错误错误 '800a005e' 无效使用 Null: 'Replace'

/job/company_show.asp，行 63

这是由于这家公司没有完整填写企业详情资料的原因。可以在程序里做下处理

解决方法：

打开job/company_show.asp,找到63行

Template=Replace(Template,"{@HomePage}",rs("HomePage"))

修改成：

Template=Replace(Template,"{@HomePage}",LFCls.ReplaceDBNull(rs("homepage"),"---"))

其它类似出错，修改方法同上。

10、论坛帖子设置为精华错位修复

详看：