& chr(34) & "yuaiwu" & chr
(34) ,"DSN=sqlsales;UID=sa;",3,3
if rs.RecordCount <>0 then
Response.Write "此用户已经登记,请选择别的用户名:"
else
dim fld(7)
dim value(7)
fld(0)="ID"
fld(1)="name"
fld(2)="PWD"
fld(3)="Email"
fld(4)="address"
fld(5)="phone"
fld(6)="post"
fld(7)="sfz"
value(0)=Request.Form("txtID")
value(1)=Request.Form("txtname")
value(2)=Request.Form("txtpwd")
value(3)=Request.Form("txtEmail")
value(4)=Request.Form("txtadd")
value(5)=Request.Form("txtphone")
value(6)=Request.Form("txtPost")
value(7)=Request.Form("txtSFZ")
rs.AddNew fld,value
rs.Update
end if
rs.Close
end if
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgColor=oldlace>
<p align=center><font size=6 color=midnightblue>会 员 申 请</font></p>
<P>
<form action="registry.asp" method="post">
<TABLE border=1 cellPadding=0 cellSpacing=0 width="100%">
<TR>
<TD bgColor=bisque>用户名</TD>
<TD><INPUT id=txtID name=txtID
style="HEIGHT: 22px; WIDTH: 275px">**</TD></TR>
<TR>
<TD bgColor=bisque>密码</TD>
<TD><INPUT id=password1 name=txtPWD
type=password
style="HEIGHT: 22px; WIDTH: 274px">**</TD></TR>
<TR>
<TD bgColor=bisque>确认</TD>
<TD><INPUT id=password2 name=txtPWD1
type=password
style="HEIGHT: 22px; WIDTH: 275px">**</TD></TR>
<TR>
<TD bgColor=bisque>姓名</TD>
<TD><INPUT id=text2 name=txtname
style="HEIGHT: 22px; WIDTH: 274px">**</TD></TR>
<TR>
<TD bgColor=bisque>身份证号码</TD>
<TD><INPUT id=text3 name=txtSFZ
style="HEIGHT: 22px; WIDTH: 274px"></TD></TR>
<TR>
<TD bgColor=bisque>Email</TD>
<TD><INPUT id=text4 name=txtEmail
style="HEIGHT: 22px; WIDTH: 273px"></TD></TR>
<TR>
<TD bgColor=bisque>联系地址:</TD>
<TD><INPUT id=text5 name=txtAdd
style="HEIGHT: 22px; WIDTH: 272px">**</TD></TR>
<TR>
<TD bgColor=bisque>邮政编码:</TD>
<TD><INPUT id=text6
name=txtPost
style="HEIGHT: 22px; WIDTH: 270px">**</TD></TR>
<TR>
<TD bgColor=bisque>联系电话:</TD>
<TD><INPUT id=text5 name=txtPhone
style="HEIGHT: 22px; WIDTH: 270px"></TD></TR>
</TABLE></P>
<P align=center><INPUT id=submit1 name=cmdSubmit type=submit value=确
认><INPUT id=reset1 name=cmdCancel type=reset value=取消></P></FORM>
<P><FONT color=orangered>请注意:</FONT></P>
<UL>
<LI><FONT color=orangered>带有 ** 号的栏目是必须填写的,其他的栏目可以不
填</FONT>
<LI><FONT color=orangered>以上信息应如实填写,以便我们能与您取得及时的联
系</FONT></LI></UL>
<P> </P>
</BODY></HTML>
这个登录界面和大多数网上的登录新用户类似。
小结:
几个程序都做了一个简要地说明,当然,程序做地非常简单,还有很多功能没有
或有待完美,但它却示范了一个简单的范例,在此仅供大家参考。如果大家有兴趣,
可以把上面的程序试一下,祝大家成功!
(34) ,"DSN=sqlsales;UID=sa;",3,3
if rs.RecordCount <>0 then
Response.Write "此用户已经登记,请选择别的用户名:"
else
dim fld(7)
dim value(7)
fld(0)="ID"
fld(1)="name"
fld(2)="PWD"
fld(3)="Email"
fld(4)="address"
fld(5)="phone"
fld(6)="post"
fld(7)="sfz"
value(0)=Request.Form("txtID")
value(1)=Request.Form("txtname")
value(2)=Request.Form("txtpwd")
value(3)=Request.Form("txtEmail")
value(4)=Request.Form("txtadd")
value(5)=Request.Form("txtphone")
value(6)=Request.Form("txtPost")
value(7)=Request.Form("txtSFZ")
rs.AddNew fld,value
rs.Update
end if
rs.Close
end if
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgColor=oldlace>
<p align=center><font size=6 color=midnightblue>会 员 申 请</font></p>
<P>
<form action="registry.asp" method="post">
<TABLE border=1 cellPadding=0 cellSpacing=0 width="100%">
<TR>
<TD bgColor=bisque>用户名</TD>
<TD><INPUT id=txtID name=txtID
style="HEIGHT: 22px; WIDTH: 275px">**</TD></TR>
<TR>
<TD bgColor=bisque>密码</TD>
<TD><INPUT id=password1 name=txtPWD
type=password
style="HEIGHT: 22px; WIDTH: 274px">**</TD></TR>
<TR>
<TD bgColor=bisque>确认</TD>
<TD><INPUT id=password2 name=txtPWD1
type=password
style="HEIGHT: 22px; WIDTH: 275px">**</TD></TR>
<TR>
<TD bgColor=bisque>姓名</TD>
<TD><INPUT id=text2 name=txtname
style="HEIGHT: 22px; WIDTH: 274px">**</TD></TR>
<TR>
<TD bgColor=bisque>身份证号码</TD>
<TD><INPUT id=text3 name=txtSFZ
style="HEIGHT: 22px; WIDTH: 274px"></TD></TR>
<TR>
<TD bgColor=bisque>Email</TD>
<TD><INPUT id=text4 name=txtEmail
style="HEIGHT: 22px; WIDTH: 273px"></TD></TR>
<TR>
<TD bgColor=bisque>联系地址:</TD>
<TD><INPUT id=text5 name=txtAdd
style="HEIGHT: 22px; WIDTH: 272px">**</TD></TR>
<TR>
<TD bgColor=bisque>邮政编码:</TD>
<TD><INPUT id=text6
name=txtPost
style="HEIGHT: 22px; WIDTH: 270px">**</TD></TR>
<TR>
<TD bgColor=bisque>联系电话:</TD>
<TD><INPUT id=text5 name=txtPhone
style="HEIGHT: 22px; WIDTH: 270px"></TD></TR>
</TABLE></P>
<P align=center><INPUT id=submit1 name=cmdSubmit type=submit value=确
认><INPUT id=reset1 name=cmdCancel type=reset value=取消></P></FORM>
<P><FONT color=orangered>请注意:</FONT></P>
<UL>
<LI><FONT color=orangered>带有 ** 号的栏目是必须填写的,其他的栏目可以不
填</FONT>
<LI><FONT color=orangered>以上信息应如实填写,以便我们能与您取得及时的联
系</FONT></LI></UL>
<P> </P>
</BODY></HTML>
这个登录界面和大多数网上的登录新用户类似。
小结:
几个程序都做了一个简要地说明,当然,程序做地非常简单,还有很多功能没有
或有待完美,但它却示范了一个简单的范例,在此仅供大家参考。如果大家有兴趣,
可以把上面的程序试一下,祝大家成功!