[求助]2秒后自动跳转网页的问题 - ASP

梦缘o☆无恒

电梯直达

1^#

发表于 2009-12-27 06:09:32 | 只看该作者回帖奖励

|正序浏览 |阅读模式

我在做这个网页时有这样的一个想法，如果注册成功了，就自动跳转到已登陆的网页，如果没有成功的话，就跳转到注册的地方。我知道有一种自动跳转的方法，就是<meta http-equiv="refresh" content="1; url=find1.asp">，但这样做的结果是不管注册成功已否都会跳转到那个已登陆的网页上，而不会跳转到重新注册的网页上，请问各位兄长，不知道有没有其它的方法，我上网查了一下，有是有的，但我不知道把那些代码怎么放到我的网页里，我把我网页上的代码发在这里，如果有办法的话，你就告诉我怎么做，把那些代码插在那里。
<body>
<%
set cn1=Server.CreateObject("ADODB.Connection")
cn1.open "dsn=cxb1"
a1=trim(request("user"))
a2=trim(request("pwd"))
a3=trim(request("pwd1"))
a4=trim(request("mail"))
a5=trim(request("mail1"))
if a2<>a3 then
response.write("<a href=login.asp>两次密码不正确，请返回重输</a>")
elseif a4<>a5 then
response.write("<a href=login.asp>两次输入的邮箱不正解，请返回重输</a>")
else
dim name
name=trim(request("user"))
N1=Trim(Request.Form("user"))
session("username")=N1
cn2=" '"&a1&"','"&a2&"','"&a4&"' "
cn1.Execute( "Insert into users(user,pwd,mail) values(" & cn2 &")")
cn1.close
set cn1=nothing
Response.Write "<a href=bbs.asp>注册成功，感谢你的支持！</a>"
end if
%>
</body>
</html>
多谢各位网页帮帮忙啊，小弟会感激不尽的。

收藏0

使用道具举报

融化冰河

9^#

发表于 2010-1-5 03:05:03 | 只看该作者

楼主那种裂纸欲出的大手笔，竟使我忍不住一次次的翻开楼主的帖子……

回复支持反对

使用道具举报

幸福乐园

8^#

发表于 2009-12-27 06:10:14 | 只看该作者

是啊，要的就是这样啊，呵呵，烦就烦在问题解决不了，人又气的半死。呵呵。

回复支持反对

使用道具举报

无民

7^#

发表于 2009-12-27 06:10:08 | 只看该作者

呵呵重要的是解决了问题，还能长知识！哈哈！

回复支持反对

使用道具举报

天泪离星

6^#

发表于 2009-12-27 06:10:02 | 只看该作者

Response.Write " 注册成功，感谢你的支持！二秒后自动返回<meta http-equiv=refresh content=""1;URL=成功.asp">"
else
Response.Write " 注册不成功，感谢你的支持！二秒后自动返回<meta http-equiv=refresh content=""1;URL=不成功.asp">"
endif

这样应该就行了，你试试！

回复支持反对

使用道具举报

ㄗs-﹎呯倓

5^#

发表于 2009-12-27 06:09:56 | 只看该作者

呵呵，我试一下啊，我看对不对，太好了，终于找到了，我这个可是想了好久啊，呵呵

回复支持反对

使用道具举报

天使替我爱你

4^#

发表于 2009-12-27 06:09:50 | 只看该作者

if 注册成功 then
Response.Write "<a href=bbs.asp>注册成功，感谢你的支持！</a>"
setTimeout("window.location='http://www.sohu.com'",3000)
else
.....
end if

回复支持反对

使用道具举报

天之骄灵

3^#

发表于 2009-12-27 06:09:45 | 只看该作者

<body>
<%
set cn1=Server.CreateObject("ADODB.Connection")
cn1.open "dsn=cxb1"
a1=trim(request("user"))
a2=trim(request("pwd"))
a3=trim(request("pwd1"))
a4=trim(request("mail"))
a5=trim(request("mail1"))
if a2<>a3 then
response.write("<a href=login.asp>两次密码不正确，请返回重输</a>")
elseif a4<>a5 then
response.write("<a href=login.asp>两次输入的邮箱不正解，请返回重输</a>")
else
dim name
name=trim(request("user"))
N1=Trim(Request.Form("user"))
session("username")=N1
cn2=" '"&a1&"','"&a2&"','"&a4&"' "
cn1.Execute( "Insert into users(user,pwd,mail) values(" & cn2 &")")
cn1.close
set cn1=nothing
Response.Write "注册成功，感谢你的支持！3秒钟后自动转向bbs.asp"
Response.Write("<script language=javascript>setTimeout("window.location='bbs.asp'",3000)
</script>")
%>
</body>
</html>

不成功的自己参考解决吧

回复支持反对

使用道具举报

羽衣独舞

2^#

发表于 2009-12-27 06:09:39 | 只看该作者

不懂啊，这样，那这个语句是放在我那个程序里的那里啊。不知道啊，呵呵

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册