请各位帮忙用asp做一个网站注册登陆界面,很简单的,就是做登陆界面就可以了,做好然后存文件包
很简单的,就是做登陆注册界面就可以了,做好然后存文件压缩包,邮箱dandsai@qq.com谢谢啊，感激不尽...
很简单的,就是做登陆注册界面就可以了,做好然后存文件压缩包, 邮箱dandsai@qq.com谢谢啊， 感激不尽
展开
展开全部
我有发给我让我帮测试的，需要你拿去。数据库发给你
index.asp源码如下：
<html>
<head>
<title>用户登录页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p> </p>
<form name="form1" method="post" action="find.asp">
<p align="center"> </p>
<p align="center">用 户：
<input name="name" type="text" id="name" size="15">
</p>
<p align="center">密 码：
<input name="word" type="password" id="word" size="15">
</p>
<p align="center">
<input type="submit" name="Submit" value="提交">
</p>
<p> </p>
</form>
<p> </p>
<p> </p>
</body>
</html>
find.asp代码如下：<% Response.Buffer =true %>
<HTML>
<BODY>
<%
'收集用户填写的数据
N1=Trim(Request.Form("name"))
N2=trim(Request.Form("word"))
'检查用户名及密码是否为空
if N1="" or N2="" then
Response.Write "<p align=center>出错提示：用户名、密码不能为空！</p>"
Response.Write "<p align=center><a href=index.asp>点击这里重新进入</a></p>"
Response.End
end if
'显式地创建Recordset对象实例cn,并建立数据源连接
set cn=Server.CreateObject("ADODB.Recordset")
cn.Open " select * from users where user='" & N1 & "' and pwd='" & N2 & "' ","DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("woody.mdb")
'判断数据库表中的记录
if cn.eof then
Response.Write "<p align=center>出错提示：用户名不存在或用户名、密码不正确！</p>"
else
Response.Write "<H1><font color=red>欢迎您成功登录本公司网站</font></H1>"
cn.close
set cn=nothing
end if
%>
</BODY>
</HTML>
index.asp源码如下：
<html>
<head>
<title>用户登录页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p> </p>
<form name="form1" method="post" action="find.asp">
<p align="center"> </p>
<p align="center">用 户：
<input name="name" type="text" id="name" size="15">
</p>
<p align="center">密 码：
<input name="word" type="password" id="word" size="15">
</p>
<p align="center">
<input type="submit" name="Submit" value="提交">
</p>
<p> </p>
</form>
<p> </p>
<p> </p>
</body>
</html>
find.asp代码如下：<% Response.Buffer =true %>
<HTML>
<BODY>
<%
'收集用户填写的数据
N1=Trim(Request.Form("name"))
N2=trim(Request.Form("word"))
'检查用户名及密码是否为空
if N1="" or N2="" then
Response.Write "<p align=center>出错提示：用户名、密码不能为空！</p>"
Response.Write "<p align=center><a href=index.asp>点击这里重新进入</a></p>"
Response.End
end if
'显式地创建Recordset对象实例cn,并建立数据源连接
set cn=Server.CreateObject("ADODB.Recordset")
cn.Open " select * from users where user='" & N1 & "' and pwd='" & N2 & "' ","DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("woody.mdb")
'判断数据库表中的记录
if cn.eof then
Response.Write "<p align=center>出错提示：用户名不存在或用户名、密码不正确！</p>"
else
Response.Write "<H1><font color=red>欢迎您成功登录本公司网站</font></H1>"
cn.close
set cn=nothing
end if
%>
</BODY>
</HTML>
追问
你能帮我做好然后存压缩文件包吗？？我连软件都没下。可以吗？
追答
代码在另一台电脑上，明天发给你，
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
