这是我写的一个 网站注册程序 由于是新手 其中问题多多 请各位高手指教 如果能稍加指导一下 就感谢万分了!
我使用的系统是:win2003 用的是FrontPage 数据库是SQL 所有的信息都存在sunzhi-数据库-ASPTestreg-sysreg的表里. 下边是我写完的部分代码 有很多错误,让大家见笑了,希望大家能给点改进意见,和指出我的错误 谢谢了!
index.asp
----------------------------------------------------------
<html>
<body>
<p>欢迎来到本站,您必须加入成为本站会员,才有权使用本站的功能.</p>
<form action="checkpwd.asp"method="post">
<table width="40%"align="center">
<tr>
<td align="center">
<font color="#3333FF">帐号:</font>
<input type="text"name="username"size"15"></td>
</tr>
<tr>
<td align="center">
<font color="#3333ff">密码:</font>
<input type="password"name="password"size"15"></td>
</tr>
<tr>
<td align="center">
<input type="submit"value="登陆">
<input type="reset"value="重填">
</td>
</tr>
</table>
</form>
<p align="center">
<a href="join.asp">加入会员</a>
<a href="search_pwd.htm">查询密码</a></p>
</body>
</html>
---------------------------------------------------
join.asp
<html>
<head>
<title>加入会员</title>
</head>
<script language="vbscript">
<!--
Sub Checkdata()
If Attend.Id.Value = Empty Then
Window.Alert "“用户帐号”一定要填写哦..."
Exit Sub
End if
If Len(Attend.Id.Value) >10 Then
Window.Alert "“用户帐号”不可以超过 10 个字符哦..."
Exit Sub
End if
If Attend.Password.Value = Empty Then
Window.Alert "“用户密码”一定要填写哦..."
Exit Sub
End if
If Len(Attend.Password.Value) > 10 Then
Window.Alert "“用户密码”不可以超过 10 个字符哦....."
Exit Sub
End if
If Attend.RePassword.Value = Empty Then
Window.Alert "“密码确认”字段忘了填哦..."
Exit Sub
End if
If Attend.RePassword.Value <> Attend.Password.Value Then
Window.Alert "“密码确认”字段与“使用者密码”字段一定要相同..."
Exit sub
End if
If Attend.Name.Value = Empty Then
Window.Alert "您一定要留下真实姓名哦！..."
Exit sub
End if
If Attend.Year.Value = Empty Then
Window.Alert "您忘了填“出生年”字段了..."
Exit sub
End If
If Attend.Month.Value = Empty Then
Window.Alert "您忘了填“出生月”字段了..."
Exit sub
End If
If Cint(Attend.Month.Value) >12 or Cint(Attend.Month.Value) < 1 Then
Window.Alert "“出生月”应该界于 1-12 之间哦！..."
Exit sub
End If
If Attend.Day.Value = Empty Then
Window.Alert "您忘了填“出生日”字段了..."
Exit sub
End If
If Cint(Attend.Month.Value) = 2 Then
If Cint(Attend.Day.Value) > 29 Then
Window.Alert "二月只有 28 天，最多 29 天"
Exit sub
End If
If Cint(Attend.Day.Value) = 29 Then
Answer = MsgBox ("二月通常只有 28 天，您真的是 " & Attend.Day.Value & " 日生的吗？", 52)
If Answer = 7 Then Exit sub
End If
End If
If Cint(Attend.Month.Value) = 4 or Cint(Attend.Month.Value) = 6 or _
Cint(Attend.Month.Value) = 9 or Cint(Attend.Month.Value) = 11 Then
If Cint(Attend.Day.Value) > 30 Then
Window.Alert "4 月、6 月、9 月、11 月只有 30天哦！..."
Exit sub
End If
Else
If Cint(Attend.Day.Value) >31 Then
Window.Alert "1 月、3 月、5 月、7 月、8 月、10 月、12 月只有 31 天哦！..."
Exit sub
End If
End If
If Cint(Attend.Day.Value) > 31 or Cint(Attend.Day.Value) < 1 Then
Window.Alert "出生日应该在 1-31 之间"
Exit sub
End If
Attend.Submit
End sub
-->
</script>
<body>
<p align="center"></p>
<form name="attend"method="post"action="addmember.asp">
<table border="2"align="center"bordercolor="#6666FF">
<tr>
<td colspan="2"bgcolor="#6666FF"align="center">
<font color="#FFFFFF">请填入下列数据（标示“*”字段请务必填写）</font>
</td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">*用户账号:</td>
<td><input type="text" name="id" size="15">(请使用英文或数字键）</td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">*用户密码:</td>
<td><input type="password" name="password" size="15">(请使用英文或数字键）</td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">*密码确认:</td>
<td><input type="password" name="repassword" size="15">(再输入一次密码)</td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">*姓名:</td>
<td><input type="text" name="name" size="8"></td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">*性别:</td>
<td>
<input type="radio" name="sex" vlaue="男"checked>男
<input type="radio" name="sex" value="女">女
</td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">*生日:</td>
<td>公元
<input type="text" name="year" size="2">年
<input type="text" name="month" size="2">月
<input type="text" name="day" size="2">日
</td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">电话:</td>
<td><input type="text" name="cellphone" size="45"></td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">移动电话:</td>
<td><input type="text" name="cellphone" size="20"></td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">地址:</td>
<td><input type="text" name="address" size="45"></td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">E-mail 账号:</td>
<td><input type="text" name="email" size="30"></td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">个人网站:</td>
<td><input type="text" name="url" size="40" value="http://"></td>
</tr>
<tr bgcolor="#99FF99">
<td align="right">备注:</td>
<td><textarea name="comment" rows="4" cols="45"></textarea></td>
</tr>
<tr bgcolor="#99FF99">
<td align="center"colspan="2">
<input type="button" value="加入会员" onclick="checkdata">
<input type="reset" value="重新填写"></td>
</tr>
</table>
</form>
</body>
</html>
-----------------------------------------------------------
conn.asp (这个对我来说是个特大号的难题希望高手能指点我一下,我不知道 我这么写对不对,希望能得到一个肯定的回答)
<%
set conn=server.createobject("adodb.conneciton")
coon.connectionstring="driver={sql server};server=sunzhi;uid=sa;pwd=123;database=asptext-reg
conn.open
%>
-------------------------------------------------
checkpwd.asp (说实话我这页的代码是抄的 我自己都不知道对不对 请教大家了 谢谢)
<!--#include file="conn.asp"-->
<%
id=trim(request("username"))
password=trim(request("password"))
if(id="" or password="")then
response.redirect"index.asp"
response.end
end if
dim strsql,objrs
strsql="select*from users where id="&username&""
strsql=strsql&"and password=""&password&""
set objrs=getsqlrecordset(strsql,"data.mdb","users")
if objrs.eof then
response.write"用户名称或密码错误,请确定输入的帐号及密码是正确的,若有问题,请向站长询问."
response.end
end if
response.cookies("id")=username
response.cookies("password")=password
response.cookies("passed")="passed"response.redirect"main.asp"
%>
别的暂时还没写好 先请大家看这么多吧
