oask问答系统v2.0漏洞

今天Y总要让检查一个问答系统的安全,因为他要用,

没办法就当做好人吧。忍着看了下代码

呼呼,那么流行的oask系统还犯那么低级的cookie错误

cookie代码

后台写入

转帖请说明出处

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
系统特色: 一款类似百度知道系统的问题解答系统,问题页面自动生成静态网页 系统特色: 1.本系统结合了仿百度知道程序和仿新浪爱问程序的共同优点,设计更加合理 2.问题页面实时生成静态页面,减少系统开销,更利于搜索引擎的收录 3.完美使用系统缓存,减少数据库读取次数 4.完善的后台管理功能 5.支持问题的附件上传 6.对搜索引擎的优化:支持Keywords和Description页面头部标签的自定义 v1.01更新: 1.修整中文用户名登陆后无法处理问题的BUG(问题需要重新发布,用户需要重新登陆) 2.修复右上角用户登陆信息无法显示的问题 后台登陆用户名:admin 登陆密码:admin 1.本系统结合了仿百度知道程序和仿新浪爱问程序的共同优点,设计更加合理 2.问题页面实时生成静态页面,减少系统开销,更利于搜索引擎的收录 3.完美使用系统缓存,减少数据库读取次数 4.完善的后台管理功能 5.支持问题的附件上传 6.对搜索引擎的优化:支持Keywords和Description页面头部标签的自定义 7.其他...... 系统安装方法: 1.修改Conn.asp中的数据库文件名称askDBFile 2.直接修改config.asp中的设置信息,或者登陆后台管理修改基本设置信息 3.登陆后台管理,按照您的网站调整问题分类目录 4.页面顶部和底部的内容修改,请修改template目录下的tmp_top.asp和tmp_end.asp 5.后台管理地址:安装目录/admin/后台登陆用户名:admin登陆密码admin 提示: 此版本为完全免费版,所以,不承诺系统安装调试和后续升级。 如需效率优越的MSSQL存储过程版,请联系购买,价格从优。 SQL存储过程版,负责系统调试和后续升级等服务
if (is.null(sub.caption)) { cal <- x$call if (!is.na(m.f <- match("formula", names(cal)))) { cal <- cal[c(1, m.f)] names(cal)[2L] <- "" } cc <- deparse(cal, 80) nc <- nchar(cc[1L], "c") abbr <- length(cc) > 1 || nc > 75 sub.caption <- if (abbr) paste(substr(cc[1L], 1L, min(75L, nc)), "...") else cc[1L] } place_ids <- function(x_coord, y_coord, offset, dif_pos_neg){ extreme_points <- as.vector(Rfast::nth(abs(y_coord), k = id.n, num.of.nths = id.n, index.return = TRUE, descending = TRUE)) if(dif_pos_neg){ idx_x_pos <- extreme_points[which(y_coord[extreme_points] >= 0)] idx_x_neg <- setdiff(extreme_points, idx_x_pos) idx_y_pos <- y_coord[idx_x_pos] idx_y_neg <- y_coord[idx_x_neg] idx_x_pos_id <- x_coord[idx_x_pos] idx_x_neg_id <- x_coord[idx_x_neg] if(length(idx_x_pos)>0){ graphics::text(idx_x_pos_id, idx_y_pos, labels = labels.id[idx_x_pos], col = col.id, cex = cex.id, xpd = TRUE, pos = 3, offset = offset) } if(length(idx_x_neg)>0){ graphics::text(idx_x_neg_id, idx_y_neg, labels = labels.id[idx_x_neg], col = col.id, cex = cex.id, xpd = TRUE, pos = 1, offset = offset) } } else{ idx_x <- extreme_points idx_y <- y_coord[idx_x] idx_x_id <- x_coord[idx_x] labpos <- label.pos[1 + as.numeric(idx_x_id > mean(range(x_coord)))] graphics::text(idx_x_id, idx_y, labels = labels.id[idx_x], col = col.id, cex = cex.id, pos = labpos, xpd = TRUE, offset = offset) } } one.fig <- prod(graphics::par("mfcol")) == 1 if (ask) { oask <- grDevices::devAskNewPage(TRUE) on.exit(grDevices::devAskNewPage(oask)) }
06-09
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值