网站首页
联系我们
论坛帮助
   登陆 注册 搜索 自选风格 论坛状态 论坛展区 我能做什么

>> 本站采用的建站技术
战争研究论坛站务区[技术支持] → [备份]论坛修改记录

  发表一个新主题  发表一个新投票  回复主题 您是本帖的第 19359 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子 浏览下一篇主题
 * 贴子主题: [备份]论坛修改记录 保存该页为文件  报告本帖给版主  显示可打印的版本  把本贴打包邮递  把本贴加入论坛收藏夹  发送本页面给朋友  把本贴加入IE收藏夹 
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子楼主
[备份]论坛修改记录
把最近给论坛写的程序和主要的修改操作做个记录
因为动网论坛本身是OpenSource的,我做的修改也就不加密了

新编写的程序没有放出来,如果有哪位朋友需要,可以做成普通的动网论坛插件包发布
不过这些东西除了我们自己用,估计别人也不会要

[此贴子已经被作者于2004-3-18 20:42:21编辑过]





点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-3-8 14:51:02
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子2

[插件]安装勋章插件

1.  安装勋章插件






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-3-8 14:53:14
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子3

[新功能]更新主题回复数

1.  修改admin_index.asp
    查找 menu(3,0)="主题和帖子设置"
    在它下面插入
    menu(3,6)="<a href=admin_change_child.asp target=main>更新主题回复数</a>"

2.  上传admin_change_child.asp, admin_change_child_all.asp
    这两个是新写的程序






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-3-8 14:54:03
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子4

[新功能]用户工作量属性

1.  在[user]表新增work_points列
    ALTER TABLE [user] ADD COLUMN work_points long

2.  修改dispbbs.asp
2.1
    查找 if cint(skin)=1 and replyid=Announceid then
    在下面的3个sql中,在from前面,添加 ,U.work_points
2.2
    查找 response.write "  积分:" & userEP&"<br>"
    在它下面插入
    '############## work_points #############
    dim work_points
    work_points = rs("work_points")
    if IsNumeric(work_points) and work_points > 0 then
        response.write "  工作量:" & work_points & " points <br>"
    end if
    '###########################

3.  修改admin_index.asp
3.1
    查找 dim menu(7,10)
    改成 dim menu(7,12)
3.2
    查找 menu(2,0)="用户管理"
    在它下面插入
    menu(2,10)="<a href=admin_work_points.asp target=main>用户工作量管理</a>"

4.  上传admin_work_points.asp
    这个是新写的程序






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-3-8 14:54:56
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子5

[新功能]改进勋章插件

1.  在[xzdata]表新增xz_points列,存放每个勋章的相关工作量
    ALTER TABLE xzdata ADD COLUMN xz_points long

2.  修改admin_xzmanager.asp
    这个程序实际上整个重新写过一遍,看来原作者和调试者都不是很有经验的程序员,大小问题都有一些

3.  修改dispbbs.asp的显示勋章部分
    这部分程序也是重新写的,多次查询数据库合并成一次,用完了的结果集也要关上
    '############## 勋章 #############
    dim xzdata,xzdata_read
    dim xzrs
    dim xzname,xzsm,xzpicurl
    xzdata_read = rs("xzdata")
    if xzdata_read <> "" and xzdata_read <> "0|||0|||0|||0|||0" then
        xzdata = Replace(xzdata_read, "|||", ",")
        response.write "  勋章:"
        set xzrs=conn.execute("select * from xzdata where xzid in (" & xzdata & ")")
        do until (xzrs.eof)
            xzname = xzrs("xzname")
            xzsm = xzrs("xzsm")
            xzpicurl = xzrs("xzpicurl")
            response.write "<img src=" & Forum_info(7) & xzpicurl & " title="& xzname & ":" & xzsm & ">"
            xzrs.MoveNext
        loop
        xzrs.close
        set xzrs = nothing
        response.write "<br>"
    end if
    '###########################






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-3-8 14:56:06
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子6

[新功能]用户自选勋章程序

1.  改变了勋章数据存储结构,所以要清除以往数据
    update [user] set xzdata=''

2.  勋章表添加 xz_order 列
    ALTER TABLE xzdata ADD COLUMN xz_order long

3.  修改admin_xzmanager.asp
    加入 显示顺序 xz_order 属性

4.  修改admin_user.asp
    清除安装勋章插件时插入的代码

5.  修改dispbbs.asp
 '############## 勋章 #############
 dim xzdata
 dim xzrs
 dim xzname,xzsm,xzpicurl
 xzdata = rs("xzdata")
 if isNull(xzdata) or (xzdata = "") then
  response.write ""
    else
  response.write "  "
  set xzrs=conn.execute("select * from xzdata where xzid in (" & xzdata & ") order by xz_order")
  do until (xzrs.eof)
   xzname = xzrs("xzname")
   xzsm = xzrs("xzsm")
   xzpicurl = xzrs("xzpicurl")
   response.write "<img src=" & Forum_info(7) & xzpicurl & " title="& xzname & ":" & xzsm & ">"
   xzrs.MoveNext
  loop
  xzrs.close
  set xzrs = nothing
  response.write "<br><br>"
 end if
 '###########################

6.  上传user_xzmanager.asp
    这个程序是新写的

7.  增加“用户勋章管理”的连接

7.1 下拉菜单
    修改INC/CHAR.asp
    修改INC/Forum_js.asp

7.2 控制面板
    修改favlist.asp
    修改friendlist.asp
    修改modifyadd.asp
    修改modifypsw.asp
    修改myfile.asp
    修改MYMODIFY.ASP
    修改usermanager.asp
    修改usersms.asp






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-3-15 17:45:39
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子7

[补充]工作量和勋章的后台管理程序补充

admin_user.asp文件的修改。
查找select case request("userSearch")
在每个case 的 from前面加上  ,xzdata,共有10个左右
例如:
case 1
 sql="........... ,u.UserGroupID,u.xzdata,u.work_points from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid order by u.addDate desc"  
case 2                              ^--------------------^
         ..............................同样加上
查找下面这段
<tr>
<td width=20% class=forumrow>威望</td>
<td width=80% class=forumrow colspan=5><input size=45 name="userpower" type=text value="<%=rs("userpower")%>"></td>
</tr>
在这下面插入

<!-- 勋章 & 工作量 start -->
<tr>
<td width=20% class=forumrow>勋章</td>
<td width=80% class=forumrow colspan=5><INPUT size=45 TYPE="text" NAME="xz_data" value="<% =rs("xzdata") %>"></td> 格式:2,3
</tr>
<tr>
<td width=20% class=forumrow>工作量</td>
<td width=80% class=forumrow colspan=5><INPUT size=45 TYPE="text" NAME="work_points" value="<% =rs("work_points") %>"></td>
</tr>
<!-- 勋章 & 工作量 end -->


然后查找
  if isnumeric(request.form("userpower")) then
  rs("userpower")=request.form("userpower")
  end if

在这下面插入
        ' 勋章 & 工作量 start
        rs("xzdata")=request.form("xz_data")
  if isnumeric(request.form("work_points")) then
      rs("work_points")=request.form("work_points")
  end if
        ' 勋章 & 工作量 end

修改结束。






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-3-18 16:53:16
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子8

[小修改]直接显示金钱数并注释掉积分显示

dispbbs.asp文件的修改
查找
response.write "积分:" & userEP&"<br>"
改成
'response.write "积分:" & userEP&"<br>"
response.write "金钱:" & userWealth&"<br>"

[此贴子已经被作者于2004-6-15 14:34:52编辑过]





点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-6-14 9:53:42
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子9

[小修改]友情论坛的显示格式修改

1.  index.asp的修改

    查找
    response.write "<BR><table cellpadding=3 cellspacing=1 align=center class=tableborder1>"&_
 "<TR><Th  colSpan=2 align=left height=25>-=> 友情论坛</Th></TR>"&_
 "<TR><TD vAlign=top class=tablebody1 width=100% >"&_
 "<table width=100% >"

    和其下面的
    '=========生日显示开始================

    把二者之间的代码改成
    myCache.name="bbslink"
    if myCache.valid then
        response.write myCache.value
        'mycache.makeEmpty
    else
        Dim linkinfo

        sql="select boardname,readme,url from bbslink where islogo=0 order by id"
        set rs=conn.execute(sql)
        if not rs.eof and not rs.bof then
            linkinfo = linkinfo & "<tr><td>"
            do while not rs.eof
                linkinfo = linkinfo & " [ <a href="&rs(2)&" target=_blank title="""&rs(1)&""">"&rs(0)&"</a> ] "
                rs.movenext
            loop
            linkinfo = linkinfo & "</td></tr>"
        end if

        sql="select boardname,readme,url,logo from bbslink where islogo=1 order by id"
        set rs=conn.execute(sql)
        if not rs.eof and not rs.bof then
            linkinfo = linkinfo & "<tr><td><hr align=center size=1 color="&forum_body(27)&"></td></tr>"
            linkinfo = linkinfo & "<tr><td>"
            do while not rs.eof
                linkinfo = linkinfo & "  <a href="&rs(2)&" target=_blank><img src="""&rs(3)&""" border=0 alt="""&rs(0)&":"&rs(1)&""" height=31 width=88></a> "
                rs.movenext
            loop
            linkinfo = linkinfo & "</td></tr>"
        end if

        set rs=nothing
        if isnull(linkinfo) or linkinfo="" then linkinfo=" "
        myCache.add linkinfo,dateadd("n",9999,now)
        response.write linkinfo
    end if

    response.write "</table></TD></TR></table>"

2.  admin_link.asp的修改

    查找
    sub cache_link()
    和
    end sub

    把二者之间的代码替换成
    myCache.name="bbslink"
    Dim linkinfo

    sql="select boardname,readme,url from bbslink where islogo=0 order by id"
    set rs=conn.execute(sql)
    if not rs.eof and not rs.bof then
        linkinfo = linkinfo & "<tr><td>"
        do while not rs.eof
            linkinfo = linkinfo & " [ <a href="&rs(2)&" target=_blank title="""&rs(1)&""">"&rs(0)&"</a> ] "
            rs.movenext
        loop
        linkinfo = linkinfo & "</td></tr>"
    end if

    sql="select boardname,readme,url,logo from bbslink where islogo=1 order by id"
    set rs=conn.execute(sql)
    if not rs.eof and not rs.bof then
        linkinfo = linkinfo & "<tr><td><hr align=center size=1 color="&forum_body(27)&"></td></tr>"
        linkinfo = linkinfo & "<tr><td>"
        do while not rs.eof
            linkinfo = linkinfo & "  <a href="&rs(2)&" target=_blank><img src="""&rs(3)&""" border=0 alt="""&rs(0)&":"&rs(1)&""" height=31 width=88></a> "
            rs.movenext
        loop
        linkinfo = linkinfo & "</td></tr>"
    end if

    set rs=nothing
    if isnull(linkinfo) or linkinfo="" then linkinfo=" "
    myCache.add linkinfo,dateadd("n",9999,now)






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-6-16 18:14:59
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子10

[Debug]修改论坛显示主题列表的BUG

list.asp查找这一行:
 do while not RsTopic.eof and page_count<Cint(Board_Setting(26))


替换成:
'===== tbcr 2004.07.19 =====
 dim show_num
 show_num = Cint(Board_Setting(26))
 if currentpage = 1 then show_num = show_num + AllTopNum
 do while not RsTopic.eof and page_count < show_num
'===== tbcr end =====






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-7-18 7:26:49
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子11
[新功能]按用户威望搜索
管理中心 -> 用户管理
按用户威望搜索

1.  查找这段:
<tr>
<td width=100% class=forumrow align=center colspan=6><input name="submit" type=submit value="   搜  索   "></td>
</tr>

    在它前面插入:
<tr>
<td width=20% class=forumrow>用户威望</td>
<td width=80% class=forumrow colspan=5>
<select name="user_power">
  <option value="-1"><0</option>
  <option value="0" selected>任意</option>
  <option value="1">>0</option>
  <option value="2">>=2</option>
  <option value="5">>=5</option>
  <option value="8">>=8</option>
</select>
</td>
</tr>

2.  查找这段:
  if sqlstr="" then
  response.write "<tr><td colspan=6 class=forumrow>请指定搜索参数!</td></tr>"
  response.end
  end if

    在它前面插入:
'按用户威望搜索 start
  dim request_power, str_power
  request_power = cint(request("user_power"))
  str_power = ""
  if request_power < 0 then
   str_power = " u.UserPower<0"
  elseif request_power > 0 then
   str_power = " u.UserPower>="&request_power
  end if
  if str_power<>"" then
   if sqlstr="" then
   sqlstr=str_power
   else
   sqlstr=sqlstr & " and" & str_power
   end if
  end if
'按用户威望搜索 end






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2004-11-22 15:58:00
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子12
[新功能]主题合并

合并主题的功能

1. admin_join.asp 这个是新写的程序

2. 在 admin_index.asp 里加入连接






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2005-2-8 13:35:44
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子13

[新功能]过滤垃圾广告自动注册机的花招

嗯,这次用的花招似乎有效,再没有广告户注册上来的说……这个还是加密一下好了,因为用的招数太简单了^^


此内容要求威望达到1以上才可以浏览






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2009-6-9 21:02:17
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子14

1.
找到
  response.write "<img src="&Forum_info(8)&rs(6)&" border=0 alt=发贴心情> <b>"
改成
  response.write "<b>"


================
2.
找到
function isOnline(Userid,sex)
 dim ors
 set ors=conn.execute("select username from online where userid="&userid&" "&userhiddensql&"")
 if ors.eof and ors.bof then
  if sex=1 then
  isonline="<img src=pic/ofMale.gif alt=帅哥哟,离线,有人找我吗?>"
  else
  isonline="<img src=pic/ofFeMale.gif alt=美女呀,离线,快来找我吧!>"
  end if
 else
  if sex=1 then
  isonline="<img src=pic/Male.gif alt=帅哥哟,在线,有人找我吗?>"
  else
  isonline="<img src=pic/FeMale.gif alt=美女呀,在线,快来找我吧!>"
  end if
 end if
 ors.close
 set ors=nothing
end function

改成
function isOnline(Userid,sex)
 dim ors
 set ors=conn.execute("select username from online where userid="&userid&" "&userhiddensql&"")
 if ors.eof and ors.bof then
  if sex=0 then
  isonline="<img src=pic/ofFeMale.gif alt=女,离线>"
  else
  isonline="<img src=pic/ofMale.gif alt=男,离线>"
  end if
 else
  if sex=0 then
  isonline="<img src=pic/FeMale.gif alt=女,在线>"
  else
  isonline="<img src=pic/Male.gif alt=男,在线>"
  end if
 end if
 ors.close
 set ors=nothing
end function

================
3.
找到并删掉
 if istopic then response.write "  <a href=""postagree.asp?boardid="&boardid&"&id="&Announceid&"&isagree=1"" title=""同意该帖观点,给他一朵鲜花,将消耗您"&GroupSetting(47)&"点金钱""><img src="&Forum_info(7)&Forum_BoardPic(6)&" border=0>鲜花</a>(<font color="&Forum_body(8)&">"&isagree&"</font>)  <a href=""postagree.asp?boardid="&boardid&"&id="&Announceid&"&isagree=2"" title=""不同意该帖观点,给他一个鸡蛋,将消耗您"&GroupSetting(47)&"点金钱""><img src="&Forum_info(7)&Forum_BoardPic(7)&" border=0>鸡蛋</a>(<font color="&Forum_body(8)&">"&noagree&"</font>)"


================
4.
找到 inner join,改成 left join,一共是4个连续的

================
5.
找到
 response.write "  等级:"& userclass &"<BR>"
改成
 '等级,如为空则无此用户
 if userclass="" or isNull(userclass) or isempty(userclass) then 
  response.write "  等级:该用户已删除<BR>"
 else
  response.write "  等级:"& userclass &"<BR>"
 end if






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2009-6-17 22:02:29
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子15

针对搜索引擎优化

1. INC/const.asp
删除
 response.write "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=3>正在登陆论坛……<br><br>本系统要求使用COOKIES,假如您的浏览器禁用COOKIES,您将不能登录本系统……"
 response.end


2. list.asp
删除两处
 if not isnull(LastPost(4)) and LastPost(4)<>"" then response.write "<img src=""images/files/"&LastPost(4)&".gif"" >"


查找
response.write "<a href=""dispbbs.asp?boardID="& RsTop("boardid") &"&ID="& RsTop("topicid") &""" title=""《"& htmlencode(RsTop("title")) &"》<br>作者:"& htmlencode(RsTop("postusername")) &"<br>发表于"& RsTop("dateandtime") &"<br>最后跟贴:"& body &"..."">"
改成
response.write "<a href='dispbbs.asp?boardID=" +cstr(RsTop("boardid"))+ "&ID=" +cstr(RsTop("topicid"))+ "'>"

查找
response.write "<a href=""dispbbs.asp?boardID="& RsTopic("boardid") &"&ID="& RsTopic("topicid") &""" title=""《"& htmlencode(RsTopic("title")) &"》<br>作者:"& htmlencode(RsTopic("postusername")) &"<br>发表于"& RsTopic("dateandtime") &"<br>最后跟贴:"& body &"..."">"
改成
response.write "<a href='dispbbs.asp?boardID=" +cstr(RsTopic("boardid"))+ "&ID=" +cstr(RsTopic("topicid"))+ "'>"


查找
if len(RsTop("title"))>26 then
 response.write left(htmlencode(RsTop("title")),26)&"..."
else
 response.write htmlencode(RsTop("title"))
end if
改成
if len(RsTop("title"))>40 then
 response.write left(htmlencode(RsTop("title")),40)&"..."
else
 response.write htmlencode(RsTop("title"))
end if


查找
if len(RsTopic("title"))>26 then
 response.write left(htmlencode(RsTopic("title")),26)&"..."
else
 response.write htmlencode(RsTopic("title"))
end if
改成
if len(RsTopic("title"))>40 then
 response.write left(htmlencode(RsTopic("title")),40)&"..."
else
 response.write htmlencode(RsTopic("title"))
end if






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2009-7-16 13:43:14
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子16

为了迎接加加家的4岁资深军迷成为新一代领导集体核心,改了用户基本信息的两个文件 reg.asp和mymodify.asp,生日的选择上限从2000年增加到2010年。

[此贴子已经被作者于2010-10-18 21:09:45编辑过]





点击查看用户来源及管理<br>发贴IP:*.*.*.* 2010-10-18 21:06:07
 投笔从戎 男,离线
  
  
  头衔:SCJP+SCJD
  等级:宪兵总监
  威望:8
  文章:1418
  金钱:10137
  工作量:58745 points
  门派:毛皮动物联合工会
  注册:2001-10-29
给投笔从戎发送一个短消息 把投笔从戎加入好友 查看投笔从戎的个人资料 搜索投笔从戎在[技术支持]的所有贴子 点击这里发送电邮给投笔从戎 访问投笔从戎的主页 引用回复这个贴子 回复这个贴子17

刚研究了一下图片验证码的问题,顺路把防广告验证做成正规的图片验证码。
13楼的小花招废弃了,改成:

1. reg.asp的修改

  查找
<Th colSpan=2 height=24>新用户注册</TD>

在下面插入
<!-- 防广告验证 2009-5-23/2010-10-31 -->
<TR> 
<TD width=40% class=tablebody1><B>防广告验证</B>:<BR>录入图片验证码</TD>
<TD width=60%  class=tablebody1><input type="text" name="img_code" size="30" /><img src="imgcode.asp" style="cursor:hand" onclick="this.src = this.src+'?'+Math.random();"  alt="看不清?点一下" /></TD>
</TR>
<!-- 防广告验证 2009-5-23/2010-10-31 -->


    查找
if request("quesion")="" then
   errmsg=errmsg+"<br>"+"<li>请输入密码提示问题。"
 founderr=true

    在这句前面插入
'防广告注册验证====2009-05-23/2010-01-22/2010-10-31====
'图片验证码校验,Session中使用"GetImgCode"存储
dim img_code
img_code = Trim(request("img_code"))
if IsEmpty(img_code) or img_code = "" or CStr(Session("GetImgCode")) <> CStr(img_code) then
    errmsg=errmsg+"<br>"+"<li>未通过防广告验证。"
    founderr=true
end if
'====2009-05-23/2010-10-31====

2. 加入一个新文件imgcode.asp用于生成随机图片。






点击查看用户来源及管理<br>发贴IP:*.*.*.* 2010-10-31 20:23:01

本主题贴数17,分页: [1]
 *快速回复:[备份]论坛修改记录
你的用户名:    还没注册?    密码:    忘记密码?
  • [ 还没注册 ]
  • [ 忘记密码 ]
  • [加入心情图标]
  • 将放在帖子的前面
  •                           
                              
    内容
  • HTML标签: 不可用
  • UBB标签: 可用
  • 贴图标签: 可用
  • 多媒体标签:不可用
  • 表情字符转换:可用
  • 上传图片:不可用
  • 最多128KB
  • 邮件回复 显示签名   [Ctrl+Enter直接提交贴子]

    管理选项锁定 | 解锁 | 提升 | 删除 | 移动 | 解固 | 总固顶 | 奖励 | 惩罚 | 发布公告

    Powered by:Dvbbs Version 6.0.0 (战争研究修改版)
    Copyright ©2000 - 2002 AspSky.Net , 页面执行时间:484.863毫秒