战争研究论坛--[备份]论坛修改记录

网站首页
联系我们
论坛帮助

登陆

搜索

自选风格

论坛状态

论坛展区

我能做什么

>> 本站采用的建站技术

战争研究论坛 → 站务区 → [技术支持] → [备份]论坛修改记录

您是本帖的第 19646 个阅读者　　

* 贴子主题： [备份]论坛修改记录

投笔从戎

  头衔：SCJP+SCJD
  等级：宪兵总监
  威望：8
  文章：1418
  金钱：10137
  工作量：58745 points
  门派：毛皮动物联合工会
  注册：2001-10-29

	楼主

[备份]论坛修改记录
把最近给论坛写的程序和主要的修改操作做个记录
因为动网论坛本身是OpenSource的，我做的修改也就不加密了
新编写的程序没有放出来，如果有哪位朋友需要，可以做成普通的动网论坛插件包发布
不过这些东西除了我们自己用，估计别人也不会要

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

2004-3-8 14:51:02

投笔从戎

  头衔：SCJP+SCJD
  等级：宪兵总监
  威望：8
  文章：1418
  金钱：10137
  工作量：58745 points
  门派：毛皮动物联合工会
  注册：2001-10-29

	第2楼

[插件]安装勋章插件
1. 安装勋章插件

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
    这两个是新写的程序

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
    这个是新写的程序

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
    '###########################

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

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>
在这下面插入

<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>


然后查找
  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
修改结束。

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编辑过]

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)

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 =====

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

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 里加入连接

2005-2-8 13:35:44

投笔从戎

  头衔：SCJP+SCJD
  等级：宪兵总监
  威望：8
  文章：1418
  金钱：10137
  工作量：58745 points
  门派：毛皮动物联合工会
  注册：2001-10-29

	第13楼

[新功能]过滤垃圾广告自动注册机的花招
嗯，这次用的花招似乎有效，再没有广告户注册上来的说……这个还是加密一下好了，因为用的招数太简单了^^

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

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

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

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编辑过]

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>
在下面插入

<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>


    查找
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用于生成随机图片。

2010-10-31 20:23:01

本主题贴数17，分页： [1]

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

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