账号通
    

注册

找回密码

账号  

密码  

话题
互动
会员
服务
<<返回列表上一个主题 下一个主题 打印本帖 复制本帖地址

3788

查看

4

回复
主题：BUG修复帖---非官方 [收藏主题] 转到：  
刚刚 当前离线

1852

主题

5

广播

126

粉丝
添加关注
级别:版主

用户积分:7093 分
登录次数:225 次
注册时间:2010/7/6
最后登录:2024/4/15
刚刚 发表于：2013/5/31 14:20:58   | 显示全部帖子 查看该作者主题 楼主 
科汛在线考试系统(NET)
做考试题库 就用#科汛在线考试系统!
注：

此帖为自己二次开发系统中遇到小BUG及相应修复办法，开设此帖是方便稍后再遇到同样问题能快速修复，同时也希望能帮到遇到相同问题的朋友。期待官方在稍后版本逐步修复相应Bug


本帖会持续更新


1、当模型投稿录入表单自定义时，会员中心模型信息管理处选中所有无效

修复方法：\user\User_ItemInfo.asp ShowDiyList()过程添加：

  1. Response.Write "<FORM Action=""?ChannelID=" & ChannelID & "&Action=Del"" name=""myform"" method=""post"">"


点击查看原图

Bug版本： V9.05GBK



2、会员中心操作页面退出时，出现了一个死循环：

BUG:

点击查看原图

修复：

系统未整合情况下

    1.     If trim(Request.ServerVariables("http_referer"))="" Then
    2.           Response.Redirect "/"
    3.     elseif instr(Lcase(Request.ServerVariables("HTTP_REFERER")),"index.asp")>0 then
    4. Response.Redirect("../")
    5.   else
    6.       Response.Redirect Request.ServerVariables("http_referer")
    7.   end if

改成

    1.     If trim(Request.ServerVariables("http_referer"))="" Then
    2.           Response.Redirect "/"
    3.     elseif instr(Lcase(Request.ServerVariables("HTTP_REFERER")),"index.asp")>0 then
    4. Response.Redirect("../")
    5.   elseif instr(Lcase(Request.ServerVariables("HTTP_REFERER")),"/user/")>0 then
    6. Response.Redirect("../")
    7.   else
    8.       Response.Redirect Request.ServerVariables("http_referer")
    9.   end if
Bug版本： V9.05GBK

3、当模型投稿录入表单自定义时，自定义字段默认值为now或date时无效


修复：

\ks_cls\UserFunction.asp GetDiyFieldValue函数改成如下：

  1. Function GetDiyFieldValue(FieldXML,FieldName)         Dim V,Xnode:Set Xnode=FieldXML.DocumentElement.selectsinglenode("fielditem[@fieldname='" & FieldName &"']")        If Not Xnode Is Nothing Then                V=Xnode.selectsinglenode("defaultvalue").text                If LCase(Trim(V))="now" Then                        V=now                ElseIf LCase(Trim(V))="date" Then                  V=date          ElseIf Instr(V,"|")<>0 Then                  If Not KS.IsNul(KS.C("UserName")) Then                                V=LFCls.GetSingleFieldValue("Select Top 1 " & Split(V,"|")(1) & " From " & Split(V,"|")(0) & " Where username='" & KSUser.UserName & "'")                         Else                                V=""                        End If          End if        End If        GetDiyFieldValue=VEnd Function

点击查看原图


Bug版本： V9.05GBK
 
专业网站漏洞检测与修复及服务器安全维护、专业程序修改与二次开发及标签制作。QQ：2813239495 详谈
科汛商学院助您快速入门
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
＜上一主题 | 下一主题 ＞
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.42188秒 powered by KesionCMS 9.0