找回密码
 注册
搜索
热搜: 回贴
  • 前程无忧官网首页 有什么好的平台可以
  • 最新的销售平台 互联网营销的平台有哪
  • 制作网页的基本流程 网页制作和网页设
  • 【帝国CMS】输出带序号的列表(数字排
  • 网站建设公司 三一,中联,极东泵车的
  • 织梦 建站 织梦网站模版后台怎么更改
  • 云服务官网 哪些网站有免费的简历模板
  • 如何建网站要什么条件 建网站要用什么
  • 吉林市移动公司电话 吉林省退休人员网
  • 设计类毕业论文 网站设计与实现毕业论
查看: 88|回复: 2

注册后,返回首页,首页不能出现欢迎界面!

[复制链接]
发表于 2010-1-19 06:01:38 | 显示全部楼层 |阅读模式 IP:江苏扬州
首页有显示注册和登录的头文件<!--#include file="top.asp"-->
它的代码是:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>首页顶部</title>
</head>
<body>
<div align="center">
<center>
<table border="1" width="800" height="22">
<tr>
<td height="93" width="174" rowspan="2"><a href="http://www.netsfamily.com/ad/logo.gif" target="_blank"><img height="72" alt="网络家园论坛
网络家园论坛" src="LOGO.gif" width="172" border="0"></a></td>
<td height="45" width="610"><a href="index.asp">回首页</a></td>
</tr>
<tr>
<td height="48" width="610">
<%if session("username")<>""then
response.write(Session("username"))
response.write(",您好!欢迎你的到来到")
response.write("<a href='quit.asp'>")
response.write("<font size='2'>")
response.write("安全退出")
response.write("</font>")
response.write("</a>")
else
%>
<form action="login.asp" method="post">
用户名:<input type="text" name="username" size="20">密码:<input type="password" name="pwd" size="20"><input type="submit" value="登录" name="B1">
<a href="userregister.asp">注册</a></form></td>
</tr><%end if%>
</table>
</center>
</div>


然后注册页面的代码是:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<script language="JavaScript">
function checkform()
{
if(register.username.value=="")
{
alert("请您输用户名!")
document.register.username.focus();
return false
}


if(register.password.value=="")
{
alert("请您输密码!")
document.register.password.focus();
return false
}
if((register.password.value.length<6)||(register.password.value.length>16))
{
alert("密码必须在6到16位之间!")
document.register.password.focus();
return false
}

if(register.password.value != register.repwd.value)
{
alert("前后两次输入的密码必须一致!");
document.register.repwd.focus();
return false;
}
}
</script>
</head>

<body>
<form name="register" method="POST" action="register.asp" onSubmit="return checkform();">
<div align="center">
<center>
<table border="1" width="800" height="257">

<tr>
<td height="46">
填写注册表单</td>
</tr>
<tr>
<td height="47">用户名:<input type="text" name="username" size="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</td>
</tr>
<tr>
<td height="63">密码:<input type="password" name="password" size="20"></td>
</tr>
<tr>
<td height="77">&nbsp;再次输入密码:<input type="password" name="repwd" size="20"></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="填好了,注册!" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="reset" value="全部重写" name="B2"></p>
</form>
</body>
</html>

注册成功显示的页面代码是:
<% @Language="VBScript" %>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("mydb.mdb")
%>
<html>
<head>
<title>新用户注册</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
</head>
<body>
 
<p> </p>
<p> </p>
<p> </p>
<p> </p>


<%
set objRS=Server.CreateObject("ADODB.Recordset")
sql="select username from [user] where username = '"&Request("username")&"'"
objRS.open sql,conn,1,3
if not objRS.eof then
%>

</p>
<p align="center">&nbsp;对不起,您所注册的用户已经存在!请换个用户名。

<%
Response.Write("<a href=""javascript:history.go(-1);"">[返回重填]</a>")
response.end()
else

dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from [user]",conn,1,3
rs.AddNew
rs("username")=trim(Request("username"))
rs("pwd")=trim(Request("password"))
rs("userrank")=1
rs("registertime")=Now()
rs.update
rs.close

Response.Write("恭喜你注册成功!欢迎加入[网络家园]!<br>")
Response.Write("<a href=""index.asp"">[返回首页]</a>")


end if

objRS.close
conn.close
set objRS=nothing
set conn=nothing
%>
</p>

</body>
</html>

现在问题是:我注册成功之后返回首页,不是出现:“XXX,您好,欢迎您的到来!”
而还是出现要求需要填写“用户名:和密码:”这是怎么回事呢?
我查看了一下数据库,也填加成功了啊!请大家帮忙指教啊!
发表于 2010-2-28 16:05:10 | 显示全部楼层 IP:香港
好得不能再好的好帖!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )

GMT+8, 2024-9-30 05:33 , Processed in 0.467852 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表