风讯官方论坛

首页 » FoosunCMS交流区 » Foosun3.x安装使用 » 自动返回上一页并自动刷新的方法

倚天 - 2005-4-23 20:28:00

先前自己也遇到这个情况，本打算到坛子里来找找相关资料，可惜没发现有用的东西，自己找了下资料，再试了下发现有几个方法，就发到这里来给大家分享哈

Response.redirect(request.servervariables("http_referer"))

在根目录下NewsReview.asp文件如下地方添加红色地方内容即可

set Rs1 = server.CreateObject ("ADODB.RecordSet")
  Sql1 = "select * from Review"
  Rs1.Open Sql1,Conn,1,3
  Rs1.addnew
  if Request.Form("NoName")="" then
  Rs1("UserID")=Replace(request("MemName"),"'","''")
  else
  Rs1("UserID")="匿名"
  end if
  Rs1("NewsID")=Replace(Request.form("NewsID"),"'","''")
  Rs1("Content")=Request.form("RevContent")
  Rs1("IP")=Request.ServerVariables("Remote_Addr")
  Rs1("AddTime")=now()
  Rs1("Isv")=1
  Rs1.update
  Response.redirect(request.servervariables("http_referer"))
  response.end
end if

[此贴子已经被作者于2005-4-23 20:44:09编辑过]

PLAYBOY+ - 2005-4-23 20:30:00

请问，加在哪个文件里？

[此贴子已经被作者于2005-4-23 20:30:14编辑过]

倚天 - 2005-4-23 20:34:00

无

[此贴子已经被作者于2005-4-23 21:04:13编辑过]

倚天 - 2005-4-23 20:37:00

NewsReview.asp最后一个end if下面

在根目录下NewsReview.asp文件如下地方添加红色地方内容即可

set Rs1 = server.CreateObject ("ADODB.RecordSet")
  Sql1 = "select * from Review"
  Rs1.Open Sql1,Conn,1,3
  Rs1.addnew
  if Request.Form("NoName")="" then
  Rs1("UserID")=Replace(request("MemName"),"'","''")
  else
  Rs1("UserID")="匿名"
  end if
  Rs1("NewsID")=Replace(Request.form("NewsID"),"'","''")
  Rs1("Content")=Request.form("RevContent")
  Rs1("IP")=Request.ServerVariables("Remote_Addr")
  Rs1("AddTime")=now()
  Rs1("Isv")=1
  Rs1.update
  Response.redirect(request.servervariables("http_referer"))
  response.end
end if

[此贴子已经被作者于2005-4-23 20:46:07编辑过]

PLAYBOY+ - 2005-4-23 20:50:00

哦，那算了，我试了一下，不行，看不到更多评论了～唉

倚天 - 2005-4-23 21:01:00

不是啊，我已经改过了，可以看到了，我不是给你发了短信通知你的嘛，晕

PLAYBOY+ - 2005-4-23 21:06:00

以下是引用倚天在2005-4-23 20:28:00的发言：

先前自己也遇到这个情况，本打算到坛子里来找找相关资料，可惜没发现有用的东西，自己找了下资料，再试了下发现有几个方法，就发到这里来给大家分享哈

Response.redirect(request.servervariables("http_referer"))

在根目录下NewsReview.asp文件如下地方添加红色地方内容即可

set Rs1 = server.CreateObject ("ADODB.RecordSet")
  Sql1 = "select * from Review"
  Rs1.Open Sql1,Conn,1,3
  Rs1.addnew
  if Request.Form("NoName")="" then
  Rs1("UserID")=Replace(request("MemName"),"'","''")
  else
  Rs1("UserID")="匿名"
  end if
  Rs1("NewsID")=Replace(Request.form("NewsID"),"'","''")
  Rs1("Content")=Request.form("RevContent")
  Rs1("IP")=Request.ServerVariables("Remote_Addr")
  Rs1("AddTime")=now()
  Rs1("Isv")=1
  Rs1.update
  Response.redirect(request.servervariables("http_referer"))
  response.end
end if

这个重新试了一下，非常好，谢谢！

1

查看完整版本: 自动返回上一页并自动刷新的方法

Powered by Discuz!NT Archiver 2.0.1115 2001-2008 Comsenz Inc.