<%
If Not IsSelfRefer() Then Call MessageBox("out","./")
Select Case Request.Form("action")
Case "Comments"
Set Guest = New Ok3w_Guest
Call Guest.Add()
Set Rs = Nothing
Call CloseConn()
Call MessageBox("非常感谢!你的评论已经成功提交;管理员审核后,才会显示出来。","article/" & Guest.TableID & ".html")
Case "Message"
Set Guest = New Ok3w_Guest
Call Guest.Add()
Set Rs = Nothing
Call CloseConn()
Call MessageBox("感谢您的提交","feedback_(200)(10)(9000).html")
End Select
%>
我只需要下面这段起作用...
下面这段是弹出一个对话框,并提示"提交成功"
点击确定后.则转到后面那个网址..
我希望. 点击确定后..返回上一页..如何写呢???
Case "Message"
Set Guest = New Ok3w_Guest
Call Guest.Add()
Set Rs = Nothing
Call CloseConn()
Call MessageBox("感谢您的提交","feedback_(200)(10)(9000).html")
End Select