你测试时可以在后面跟id=...来测试一下
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312" />
<title>会员注册</title>
<%
'下面我就开始写程序,
'至于提交到数据库呢你应该可以搞定吧
dim username,password,repassword,MemberID
'因为有可能别人来到网站后会先浏览其它页面再注册.为避免会员ID丢失,用一个Session来记住会员的ID
session("MemberID")=trim(request.querystring("id"))
'下面接收表单数据
if request("action")="reg" then
username=trim(request.form("username"))
password=trim(request.form("password"))
repassword=trim(request.form("repassword"))
MemberID=trim(request.form("MemberID"))
if password<>repassword then
response.write("<script>alert('两次输入的密码不一致,请返回重新输入!')history.go(-1)</script>")
response.end()
end if
'下面就是你的写入数据库的 *** 作了
'---------------------------------
'这里写你的数据库连接代码
'----------------------------------
'conn.open '打开数据库
'下面是注册成功后给推荐人增加一次推荐成绩
' if MemberID<>"" and not(isnull(MemberID)) then
' '先判断会员是否存在
'
' set rs=server.createobject("adodb.recordset")
' sql="select * from 会员表 where id="&MemberID&""
' rs.open sql,conn,1,1
' if rs.eof then '如果不存在该会员就返回
' response.write("<script>alert('找不到该会员,请返回重新输入!')history.go(-1)</script>")
' response.end()
' else
'rs("TuiJianNUM")=rs("TuiJianNUM")+1 '将这个ID
'rs.update
' end if
' rs.close
' end if
'下面是写入注册信息
'set rs=server.createobject("adodb.recordset")
' sql="insert into 会员表(username,password,MemberID) values('"&username&"','"&password&"',"&MemberID&")"
' rs.open sql,conn,1,3
' response.write "恭喜注册成功"
' response.end()
' rs.close
'以上代码是将注册信息写进数据库
'下面我将它直接输入来,因为没有做数据库,.上面的代码你把数据库做好后可以直接用了,
response.write "用户名:"&username&"<br>密码:"&password&"<br>推荐人ID:"&MemberID
end if
%>
</head>
<body>
<form id="form1" name="form1" method="post" action="?action=reg">
<table width="477" height="259" border="0">
<tr>
<td colspan="2" align="center">会员注册</td>
</tr>
<tr>
<td width="139">用户名</td>
<td width="328"><label>
<input type="text" name="username" />
</label></td>
</tr>
<tr>
<td>密码</td>
<td><label>
<input type="password" name="password" />
</label></td>
</tr>
<tr>
<td>确认密码</td>
<td><label>
<input type="password" name="repassword" />
</label></td>
</tr>
<tr>
<td><label></label>
<label>推荐人ID</label></td>
<td><label>
<input type="text" name="MemberID" value="<%=session("MemberID")%>" <%if session("MemberID")<>"" and not(isnull(session("MemberID"))) then response.write "readonly"%>/>
</label></td>
</tr>
<tr>
<td colspan="2" align="center"><label>
<input type="submit" name="Submit" value="注册成会员" />
</label>
<label>
<input type="reset" name="Submit2" value="重置" />
</label></td>
</tr>
</table>
</form>
</body>
</html>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)