Sam工作室电脑技术区学习交流发帖后返回最后一层楼的实现(BBSXP)
    
 
发帖后返回最后一层楼的实现(BBSXP)
发起人:Samhelp  回复数:4  浏览数:1772  最后更新:2005/11/29 12:50:50 by Samhelp

选择查看 搜索更多相关主题  帖子排序:
2005/10/22 17:35:09
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线
发帖后返回最后一层楼的实现(BBSXP)

具体实现步骤:(凡新增加或有更改的内容标为红色)

●在ShowPost.asp文件中找到:
if rs.eof or rs.bof then error"<li>系统不存在该帖子的资料"
if rs("deltopic")=1 and membercode<4 then error"<li>该主题不存在!"
topic=ReplaceText(rs("topic"),"<[^>]*>","")

在这段下面添加:
QStr=Request.ServerVariables("Query_String")
if QStr<>"" then
session("PageURL")=request("Script_Name")&"?"&QStr
else
session("PageURL")=request("Script_Name")
end if

●再在该文件中找到:
<a href="favorites.asp?menu=add&url=topic&name=<%=id%>">收藏帖子</a> | ……

将其替换为:
<a name=last href="favorites.asp?menu=add&url=topic&name=<%=id%>">收藏帖子</a> | ……


●在retopic.asp文件中找到:
message=message&"<li>回复主题成功<li><a href=ShowPost.asp?id="&id&">返回主题</a><li><a href=ShowForum.asp?forumid="&forumid&">返回论坛</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=ShowForum.asp?forumid="&forumid&">")

将其替换为:
message=message&"<li>回复主题成功<li><a href="&Session("PageURL")&"#last>返回主题</a><li><a href=ShowForum.asp?forumid="&forumid&">返回论坛</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url="&Session("PageURL")&"#last>")


●在newtopic.asp文件中找到:
message="<li>新主题发表成功<li>"&ActivationForum&"<li><a href=ShowForum.asp?forumid="&forumid&">返回论坛</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=ShowForum.asp?forumid="&forumid&">")

将其替换为:
message="<li>新主题发表成功<li>"&ActivationForum&"<li><a href=ShowForum.asp?forumid="&forumid&">返回论坛</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=ShowPost.asp?id="&id&">")


●在EditTopic.asp文件中找到:
message="<li>修改帖子成功<li><a href=ShowPost.asp?id="&id&">返回主题</a><li><a href=ShowForum.asp?forumid="&forumid&">返回论坛</a><li><a href=Default.asp>返回社区首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=ShowForum.asp?forumid="&forumid&">")

将其替换为:
message="<li>修改帖子成功<li><a href="&Session("PageURL")&">返回主题</a><li><a href=ShowForum.asp?forumid="&forumid&">返回论坛</a><li><a href=Default.asp>返回社区首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url="&Session("PageURL")&">")

 

网内存知己,天涯若比邻
2005/10/24 14:45:06
Liki







角  色:版主
发 帖 数:592
经 验 值:4154
注册时间:2005/6/14
当前状态:离线
好好学习一下。就是和DVbbs一样吗?

Liki
2005/10/24 17:01:59
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线

是的

网内存知己,天涯若比邻
2005/10/24 17:45:28
Liki







角  色:版主
发 帖 数:592
经 验 值:4154
注册时间:2005/6/14
当前状态:离线
那太好了。谢谢!

Liki
2005/10/24 20:48:42
Andy328







角  色:普通会员
发 帖 数:1066
经 验 值:5168
注册时间:2005/4/14
当前状态:离线
谢谢!以收下了,有空我也去改改。

能在此相識也是一点缘!
有你的支持!
才可打做一个学习天地!
Andy328




  •  
  • 联系我们 - Sam工作室 - 论坛存档 - 返回顶部
    Powered by BBSdiy 3.15 MySQL © 2004-2019 Sam工作室
  • 粤ICP备05004044号
    Processed in 0.16 second(s)