跪求大哥们教我，谢谢

lovewangshuqiong 2006-10-20 04:30:17
怎么用cookies做一个注册登陆系统啊？求大哥们指教一下，谢谢！
...全文
92 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
飘零雾雨 2006-10-21
  • 打赏
  • 举报
 回复
汗流了一地^_^
lovewangshuqiong 2006-10-21
  • 打赏
  • 举报
 回复
万分感谢各位大哥教小弟我！
xt_yxl 2006-10-20
  • 打赏
  • 举报
 回复
REG_SAVE.ASP
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="GENERAL.CSS" rel="stylesheet" type="text/css">
<!--#include file="conn.asp"-->
<%
dim user
user=request.Form("name")
set rs=server.createobject("adodb.recordset")
sql="select * from user_name where name='"&user&"' "
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
%>
<title>江汉热线职员签到系统</title><table width="607" border="0" align="center"

cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="image/top.jpg" width="607" height="16"></td>
</tr>
<tr>
<td width="1" bgcolor="#6600FF"><br></td>
<td width="605" align="center" bgcolor="#FFFFFF">
xt_yxl 2006-10-20
  • 打赏
  • 举报
 回复
<table width="90%" border="0">
<tr>
<td height="40" align="center"><h3><font color="#AB0000">江汉热线职员签到系统 - 用户注册</font></h3></td>
</tr>
<tr>
<td height="30"><p>填写注册信息注意： 1.所有带<FONT color=#990000> * </FONT>号的项目必须填写<br>
　　　　　　　　　
2.非本公司人员请勿注册
<br>
　　　　　　　　　 3.信息必须真实.一经填写，不能修改． </p>
<hr size="1" noshade> </td>
</tr>
</table>
<FORM name=form1 action="reg_save.asp" method=post onSubmit="return formcheck();">
<TABLE border=0 cellpadding="4" cellspacing="1" bgcolor="#999999">
<TR bgcolor="#FFFFFF">
<TD width="90" height="25">用户名</TD>
<TD width="386"><INPUT name="name" class="inputbox" id="name" size=15>
<FONT color=#990000>* </FONT>（用户名必须为真实姓名）</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height="25">密 码</TD>
<TD><INPUT name="pwd" type=password class="inputbox" id="pwd" size=15>
<FONT color=#990000>* </FONT></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height="25">确认密码</TD>
<TD><INPUT name="pwd1" type=password class="inputbox" id="pwd1" size=15>
<FONT color=#990000>* </FONT></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height="25">密码提示问题</TD>
<TD><INPUT name="pwd_ask" type=text class="inputbox" id="pwd_ask" size=15>
<FONT color=#990000>* </FONT></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height="25">密码提示答案</TD>
<TD><INPUT name="pwd_answer" type=text class="inputbox" id="pwd_answer" size=15>
<FONT color=#990000>* </FONT></TD>
</TR>

<TR bgcolor="#FFFFFF">
<TD width="90" height=28>性别</TD>
<TD width="386">
<input type="radio" name="sex" value="男" checked>
男
<input type="radio" name="sex" value="女">
女 <FONT color=#990000>* </FONT></TD>
</tr>
<TR bgcolor="#FFFFFF">
<TD>通讯地址</TD>
<TD>
<INPUT class=inputbox size=30 name=address>
<FONT color=#990000>* </FONT></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD>身份证号码</TD>
<TD>
<INPUT name=iden class=inputbox id="iden" size=30>
<FONT color=#990000>* </FONT></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=28>电话 </TD>
<TD><INPUT name=tel class=inputbox id="tel" size=25>
<BR>
<FONT color=#990000>请按如下例子填写 0728-3263000 </FONT> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=28>手机 </TD>
<TD><INPUT name=mobile class=inputbox id="mobile" size=25 onblur=IsNum(this)>
<FONT color=#990000>* </FONT> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=35>电子信箱 </TD>
<TD><INPUT name=mail class=inputbox id="mail" size=40>
<FONT color=#990000>* </FONT> </TD>
</tr>
<TR bgcolor="#FFFFFF">
<TD height=35>QQ</TD>
<TD><INPUT name=qq class=inputbox id="qq" size=40 onblur=IsNum(this)>
<FONT color=#990000>* </FONT> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=28 valign="middle">年龄</TD>
<TD valign="middle"><label for="select">请选择</label>
：
<select name="age" id="age">
<%
dim ee
for ee=18 to 40%>
<option value="<%=ee%>"><%=ee%></option>
<%next%>
</select>
<FONT color=#990000>* </FONT> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=28 valign="middle">出生年月</TD>
<TD valign="middle">请选择：
<select name="age_year" id="age_year">
<%
dim bb
bb=now()
bb=year(bb)
bb=bb-16
for aa=1950 to bb%>
<option value="<%=aa%>"><%=aa%></option>
<%next%>
</select>
年
<select name="age_month" id="age_month">
<%
dim cc
for cc=1 to 12%>
<option value="<%=cc%>"><%=cc%></option>
<%next%>
</select>
月
<select name="age_day" id="age_day">
<%
dim dd
for dd=1 to 31%>
<option value="<%=dd%>"><%=dd%></option>
<%next%>
</select>
日<FONT color=#990000>* </FONT></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=28 valign="middle">学历</TD>
<TD valign="middle">请选择：
<label>
<select name="schooling" id="schooling">
<option value="初中及以下">初中及以下</option>
<option value="高中">高中</option>
<option value="大专">大专</option>
<option value="本科">本科</option>
<option value="硕士">硕士</option>
<option value="博士">博士</option>
<option value="博士后">博士后</option>
<option value="MBA">MBA</option>
</select>
<FONT color=#990000>* </FONT></label></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=28 valign="middle">毕业时间</TD>
<TD valign="middle">
请选择：
<select name="graduate" id="graduate">
<%
dim ttnow,i
ttnow=now()
ttnow=year(now())
for i=1990 to ttnow
%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
<FONT color=#990000>* </FONT> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=28 valign="top">职位</TD>
<TD><label>
请选择：
<select name="position" id="position">
<option value="职员">职员</option>
</select>
<FONT color=#990000>* </FONT></label></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height=28 valign="top">工作内容</TD>
<TD><textarea name=work_content cols=50 rows=7 wrap="VIRTUAL" class=inputtext id="work_content" ></textarea></TD>
</TR>
</table>
<br>
<input type=submit value=" 确 定 " name=submit class="inputbutton">
　
<input name="Submit" type="reset" class="inputbutton" value=" 重 填 ">
</FORM>
<br>
</td>
<td width="1" bgcolor="#6600FF"><br></td>
</tr>
<tr>
<td colspan="3"><img src="image/bottom.jpg" width="607" height="16"></td>
</tr>
</table>
</body>
</html>



xt_yxl 2006-10-20
  • 打赏
  • 举报
 回复
NND 我也有 刚进公司时写的 真是够烂的代码!
REG_FORM.ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="GENERAL.CSS" rel="stylesheet" type="text/css">
<title>江汉热线职员签到系统－用户注册</title>
<script>
function formcheck()
{
if (document.form1.name.value=="")
{
alert("用户名不能为空！");
return false;
}

if (document.form1.pwd.value.length < 6)
{
alert("密码至少6位！");
return false;
}

if (document.form1.pwd.value != document.form1.pwd1.value)
{
alert("两次输入的密码不相同！");
return false;
}
if (document.form1.pwd_ask.value=="")
{
alert("提示问题不能为空！");
return false;
}

if (document.form1.pwd_answer.value=="")
{
alert("回答问题不能为空！");
return false;
}
if (document.form1.address.value=="")
{
alert("地址不能为空！");
return false;
}
if (document.form1.post.value=="")
{
alert("邮编不能为空！");
return false;
}

if (document.form1.qq.value=="")
{
alert("QQ不能为空！");
return false;
}
if (document.form1.age.value=="")
{
alert("年龄不能为空！");
return false;
}
if (document.form1.age_year.value=="")
{
alert("出生年月不能为空！");
return false;
}
if (document.form1.ident.value=="")
{
alert("身份证号码不能为空！");
return false;
}
if (document.form1.mail.value=="")
{
alert("邮件地址不能为空！");
return false;
}

// if (!chkemail(document.form1.mail.value))
// {
// alert("Email地址不正确！");
// return false;
// }
// if (!confirm('注意：请确保您的信箱有效，否则无法收到回复确认信。是否继续？')) return false;
return true;
}

//检查Email地址格式
function chkemail(a)
{
var i=a.length;
var temp = a.indexOf('@');
var tempd = a.indexOf('.');
if (temp > 1) {
if ((i-temp) > 3){
if (tempd!=-1){
return 1;
}
}
}
return 0;
}
//检查字符串
function fucCheckSTR(NUM)
{
var i,j,strTemp;
strTemp="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_";
if ( NUM.length== 0)
return 0
for (i=0;i<NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i));
if (j==-1)
{
return 0;
}
}
return 1;
}
function resetForm() {
document.form1.reset();
}
</script>

<script language="javascript">

function IsNum(theField)
{
if (!IsNum2(theField.value))
{alert("这里只能输入数字！");
theField.value ="";
theField.focus();}
}
function IsNum2(s)
{
var Number = "0123456789.";
for (i = 0; i < s.length;i++)
{
// Check that current character isn't whitespace.
var c = s.charAt(i);
if (Number.indexOf(c) == -1) return false;
}
return true
}
</script>

</head>
<body>
<table width="607" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="image/top.jpg" width="607" height="16"></td>
</tr>
<tr>
<td width="1" bgcolor="#6600FF"><br></td>
<td width="605" align="center" bgcolor="#FFFFFF">
podvcd 2006-10-20
  • 打赏
  • 举报
 回复
为什么不用session呢
session安全啊
freelyl 2006-10-20
  • 打赏
  • 举报
 回复
呵呵.....有空多去找点免费源代码来看，有好外
lovewangshuqiong 2006-10-20
  • 打赏
  • 举报
 回复
谢谢大哥们
edge2906 2006-10-20
  • 打赏
  • 举报
 回复
你小子走运 正好我昨天做了一个 源代码给你

index页
<%
cookie = request.Cookies("erp")
if cookie = "" or trim(request("cook")) = "index" then
%>
<table width="815" height="600" background="img/loginbg.gif" border="0" cellspacing="0" cellpadding="0"><form name="form" method="post" action="login.asp">
<tr>
<td width="501" height="302"> </td>
<td width="314"> </td>
</tr>
<tr>
<td height="25"> </td>
<td align="left"><font size="3">用户名：</font><input type="text" name="uid"></td>
</tr>
<tr>
<td height="25"> </td>
<td align="left"><font size="3">密  码：<input type="password" name="psd"></font></td>
</tr>
<tr>
<td height="25"> </td>
<td align="left">        <input type="submit" name="submit" value="提交">    <input type="checkbox" name="cookie" value="1"><font size="-3">保持30天</font></td>
</tr>
<tr>
<td height="223"> </td>
<td> </td>
</tr>
</form></table>
<%
else
session("id") = request.Cookies("erp")("id")
session("lv") = request.Cookies("erp")("lv")
response.Redirect("default.asp")
end if
%>

~~~~~~~~~~~~~~~我是华丽的分隔线~~~~~~~~~~~~~~

login页
<%
uid = trim(request("uid"))
psd = trim(request("psd"))
set rs = server.CreateObject("adodb.recordset")
sql = "select * from adminlist where username = '"&uid&"'"
rs.open sql,conn,1,3
if not rs.eof then
if rs("password") = psd then
session.Timeout = 480
session("lv") = rs("lv")
session("id") = rs("id")
if trim(request("cookie")) = "1" then
Response.Cookies("erp")("lv")=rs("lv")
Response.Cookies("erp")("id")=rs("id")
Response.Cookies("erp").Expires=Date + 30
end if
response.Redirect("default.asp")
else
Response.Write "<script language='javascript'>window.confirm('对不起，密码不正确！！');</script>"
Response.Write "<script language='javascript'>parent.window.history.go(-1);</script>"
end if
else
Response.Write "<script language='javascript'>window.confirm('对不起，该用户不存在！！');</script>"
Response.Write "<script language='javascript'>parent.window.history.go(-1);</script>"
end if
conn.close
set conn = nothing
%>
沧海小鱼 2006-10-20
  • 打赏
  • 举报
 回复
可以去下一个很简单的源代码，比如小型企业站的后台
求大佬花一分钟教教我数据库》》》》小白上线
大哥们求帮助 我自己弄得一个网站只想做一个登陆跳转网站。这个网站跳转其他网站。相当于作为一个拦截非付费用户中间这个登陆拦截是不是设计云数据库和云服务器，？还有就是我如果购买云服务器的话他是不是自带...
P800刷英文WM6教程以及常见问题整理
aRay，你好，我的机子是T-Mobile的定制机，型号是HERM300，我现在在荷兰，所以机子的版本是荷兰语的WM5.0，看到你说的这个rom可以刷英语的，不知道我的这个机子可不可以刷，谢谢！ aRAY Says: June 17th, ...
哥:我要嫁给你!（让人巨感动）
一周前，在加拿大的同学给我电话，顾城和他妹妹，还有他们没有出生的孩子出了车祸，当场死亡； 我的大脑瞬间一片空白，甚至于不敢相信电话那头的老同学是不是在开愚人节的玩笑；然而，这的确是真的，顾城一家在...
杨宁：水流花开
2004年，杨老师的修道经历以《水流花开》的书名印出来了，我和何军强拿了很多，送给公司的同事们看。后来回到山西，杨宁老师的弟弟杨龙，在我的要求下，又给我寄过这本书。 今天，在整理书架的时候，看到了杨宁的这...
从零开始构建MySql数据库(详细讲解)
[软件操作]从零开始构建MySql数据库(详细讲解)   ...更多发布于：2012-12-13 11:58 ...在网上看到mysql的文章,本想学习下,...现将此篇"从零构建MySql数据库"献于那些与我一样的新手们......错误之处,还请各位斧正.
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章