账号通
    

账号  

密码  

9525

查看

26

回复
主题:[推荐]科讯问答系统后台查看页BUG(附解决办法) [收藏主题] 转到:  
cometzhao 当前离线

134

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1091 分
登录次数:96 次
注册时间:2008/7/4
最后登录:2013/6/30
cometzhao 发表于:2009/9/4 13:44:00   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

问答系统后台管理存在BUG,后台点击问题列表的“编辑”时,回答者的回答内容不能准确的调用,造成这个BUG的主要原因是文本框(textarea)的NAME值相同,导致FCK不能正确的显示相应的内容。解决办法:打开/admin/ks.asklist.asp文件找到


 


<textarea style="WIDTH: 600px; DISPLAY: none; HEIGHT: 80px" name="content">&lt;%=server.Htmlencode(Topiclist(5,i))%&gt;</textarea> <iframe id="content___Frame" height="150" src="../KS_Editor/FCKeditor/editor/fckeditor.html?InstanceName=content&amp;Toolbar=Basic" frameborder="0" width="98%" scrolling="no"></iframe>


 


改成


 


<textarea style="WIDTH: 600px; DISPLAY: none; HEIGHT: 80px" name="content<%=i%>">&lt;%=server.Htmlencode(Topiclist(5,i))%&gt;</textarea> <iframe id="content___Frame" height="150" src="../KS_Editor/FCKeditor/editor/fckeditor.html?InstanceName=content<%=i%>&amp;Toolbar=Basic" frameBorder=0 width="98%" scrolling=no></iframe>


 


然后在第18行后加上 ",topici" (不含引号)


 


然后将 saveAsked 改成如何内容


 


Sub saveAsked()
   Dim Rs,SQL,postsid
   Dim TextContent,satis,LockTopic,strTitle,star
   postsid=KS.ChkClng(Request("postsid"))
   topicid=KS.ChkClng(Request("topicid"))
   topici=KS.ChkClng(Request("i"))
   If Trim(Request.Form("content"&topici&""))="" Then
    Call KS.AlertHintScript("内容不能为空!")
    Exit Sub
   End If
   SQL="SELECT TopicID,classid,title,Username,Expired,Closed,PostTable,LockTopic,TopicMode,supplement FROM KS_AskTopic WHERE topicid="&topicid
   Set Rs = Conn.Execute(SQL)
   If Rs.BOF And Rs.EOF Then
    Set Rs = Nothing
    ErrMsg="错误的系统参数"
    FoundErr = True
    Exit Sub
   End If
   topicid=Rs("TopicID")
   strTitle=Rs("title")
   TopicUseTable=Trim(Rs("PostTable"))
   TopicMode=Rs("TopicMode")
   Set Rs = Nothing
   TextContent=Request.Form("content"&topici&"")
   LockTopic=KS.ChkClng(Request.Form("LockTopic"))
   Conn.Execute ("UPDATE ["&TopicUseTable&"] SET content='"&TextContent&"',LockTopic="&LockTopic&" WHERE postsid="&postsid&" And topicid="&topicid)
   If KS.G("I")="0" Then
   Conn.Execute ("UPDATE [KS_AskTopic] SET LockTopic="&LockTopic&" WHERE topicid="&topicid)
   End If
   
   If strTitle<>Request.Form("title") and trim(Request.Form("title"))<>"" Then
    Conn.Execute ("UPDATE ["&TopicUseTable&"] SET topic='"&Trim(Request.Form("title"))&"' WHERE topicid="&topicid)
    Conn.Execute ("UPDATE [KS_AskTopic] SET title='"&Trim(Request.Form("title"))&"' WHERE topicid="&topicid)
    Conn.Execute ("UPDATE [KS_AskAnswer] SET title='"&Trim(Request.Form("title"))&"' WHERE topicid="&topicid)
   End If
   Call KS.AlertHintScript("恭喜您!编辑/审核问题成功。")
  End Sub

以下内容只有回复后才可以浏览,请先登录!
以下内容只有回复后才可以浏览,请先登录!
[replyview][/replyview][replyview]所的发生地方[/replyview][replyview]所的发生地方[/replyview][replyview]所的发生地方[/replyview][replyview]所的发生地方[/replyview][replyview]所的发生地方[/replyview][replyview]所的发生地方[/replyview]


 


以上修改完毕后,问答的后台可以正常显示了。附件内也有修改后的文件,大家覆盖admin/ks.asklist.asp文件就可以解决问题

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cometzhao 当前离线

134

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1091 分
登录次数:96 次
注册时间:2008/7/4
最后登录:2013/6/30
cometzhao 发表于:2009/9/8 10:00:00   | 显示全部帖子 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cometzhao 当前离线

134

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1091 分
登录次数:96 次
注册时间:2008/7/4
最后登录:2013/6/30
cometzhao 发表于:2009/9/5 15:09:00   | 显示全部帖子 查看该作者主题 藤椅 
做在线知识付费 选科汛云开店
附件里面的文件不是UTF-8版的
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cometzhao 当前离线

134

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1091 分
登录次数:96 次
注册时间:2008/7/4
最后登录:2013/6/30
cometzhao 发表于:2009/9/4 13:47:00   | 显示全部帖子 查看该作者主题 板凳 
科汛智能建站系统

动网这论坛实在太难用了。

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cometzhao 当前离线

134

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1091 分
登录次数:96 次
注册时间:2008/7/4
最后登录:2013/6/30
cometzhao 发表于:2009/9/4 13:46:00   | 显示全部帖子 查看该作者主题 报纸 
做在线知识付费 选科汛云开店

问答系统后台管理存在BUG,后台点击问题列表的“编辑”时,回答者的回答内容不能准确的调用,造成这个BUG的主要原因是文本框(textarea)的NAME值相同,导致FCK不能正确的显示相应的内容。解决办法:打开/admin/ks.asklist.asp文件找到


 


<textarea style="WIDTH: 600px; DISPLAY: none; HEIGHT: 80px" name="content">&lt;%=server.Htmlencode(Topiclist(5,i))%&gt;</textarea> <iframe id="content___Frame" height="150" src="../KS_Editor/FCKeditor/editor/fckeditor.html?InstanceName=content&amp;Toolbar=Basic" frameborder="0" width="98%" scrolling="no"></iframe>


 


改成


 


<textarea style="WIDTH: 600px; DISPLAY: none; HEIGHT: 80px" name="content<%=i%>">&lt;%=server.Htmlencode(Topiclist(5,i))%&gt;</textarea> <iframe id="content___Frame" height="150" src="../KS_Editor/FCKeditor/editor/fckeditor.html?InstanceName=content<%=i%>&amp;Toolbar=Basic" frameBorder=0 width="98%" scrolling=no></iframe>


 


然后在第18行后加上 ",topici" (不含引号)


 


然后将 saveAsked 改成如何内容


 


Sub saveAsked()
   Dim Rs,SQL,postsid
   Dim TextContent,satis,LockTopic,strTitle,star
   postsid=KS.ChkClng(Request("postsid"))
   topicid=KS.ChkClng(Request("topicid"))
   topici=KS.ChkClng(Request("i"))
   If Trim(Request.Form("content"&topici&""))="" Then
    Call KS.AlertHintScript("内容不能为空!")
    Exit Sub
   End If
   SQL="SELECT TopicID,classid,title,Username,Expired,Closed,PostTable,LockTopic,TopicMode,supplement FROM KS_AskTopic WHERE topicid="&topicid
   Set Rs = Conn.Execute(SQL)
   If Rs.BOF And Rs.EOF Then
    Set Rs = Nothing
    ErrMsg="错误的系统参数"
    FoundErr = True
    Exit Sub
   End If
   topicid=Rs("TopicID")
   strTitle=Rs("title")
   TopicUseTable=Trim(Rs("PostTable"))
   TopicMode=Rs("TopicMode")
   Set Rs = Nothing
   TextContent=Request.Form("content"&topici&"")
   LockTopic=KS.ChkClng(Request.Form("LockTopic"))
   Conn.Execute ("UPDATE ["&TopicUseTable&"] SET content='"&TextContent&"',LockTopic="&LockTopic&" WHERE postsid="&postsid&" And topicid="&topicid)
   If KS.G("I")="0" Then
   Conn.Execute ("UPDATE [KS_AskTopic] SET LockTopic="&LockTopic&" WHERE topicid="&topicid)
   End If
   
   If strTitle<>Request.Form("title") and trim(Request.Form("title"))<>"" Then
    Conn.Execute ("UPDATE ["&TopicUseTable&"] SET topic='"&Trim(Request.Form("title"))&"' WHERE topicid="&topicid)
    Conn.Execute ("UPDATE [KS_AskTopic] SET title='"&Trim(Request.Form("title"))&"' WHERE topicid="&topicid)
    Conn.Execute ("UPDATE [KS_AskAnswer] SET title='"&Trim(Request.Form("title"))&"' WHERE topicid="&topicid)
   End If
   Call KS.AlertHintScript("恭喜您!编辑/审核问题成功。")
  End Sub


 


以上修改完毕后,问答的后台可以正常显示了。附件内也有修改后的文件,大家覆盖admin/ks.asklist.asp文件就可以解决问题


 下载信息  [文件大小:8.47 KB 下载次数: 次]
点击下载文件:ks

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.15625秒 powered by KesionCMS 9.0