reg2.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD width=200 bgColor=#f4f4f4>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD vAlign=top height=350>
            <TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%" 
            align=center border=0>
              <TBODY>
              <TR>
                <TD align=middle width="100%"><IMG height=8 alt="" 
                  src="image/stu.htm" width=1 name=""></TD></TR></TBODY></TABLE>
            <TABLE id=AutoNumber4 
            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
            cellSpacing=0 cellPadding=0 width="90%" align=center 
bgColor=#ffffff>
              <TBODY>
              <TR>
                <TD align=middle width="100%"><IMG height=40 
                  src="image/vreg.gif" width=180></TD>
              </TR>
              <TR>
                <TD align=middle><IMG height=8 alt="" src="image/stu.htm" 
                  width=1 name=""></TD></TR>
              <TR>
                <TD align=left>
                  　
                 三载同窗数卷书，一朝高考俱登科，四年深造出栋梁，十年相约看黄河。少年以后都将成为国家的栋梁之材，遍布与祖国的大江南北，也许很难再聚到一起。但我们有校友录，大家在闲暇时可以来看看，絮絮以往的同学情，师生情，校友录因为刚建好不久，肯定还有很多不足之处，希望留下您的宝贵意见，我将尽量改善它，通过我们大家的共同努力来使它更加完善，更加完美，如果您有什么更好的建议，也请与我们联系，我们将根据情况来采纳。<IMG height=8 alt="" src="image/stu.htm" 
                  width=1 name=""></TD>
              </TR>
              </TBODY></TABLE>
            </TD>
        </TR></TBODY></TABLE></TD>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1 
      name=""></TD>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top height=52>
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle> 当前位置: <A 
            href="index.asp">网站首页 - </A>注册会员</TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG src="image/more.gif" 
                    border=0></DIV></TD></TR><TR>
                      <TD colSpan=2>
                        <DIV align=center>
<% dim username,password,truename,userface,password2
	username=Trim(Request.Form("username"))
	password=Trim(Request.Form("userpassword"))
	truename=Trim(Request.Form("name"))
	password2=Trim(Request.Form("userpassword2"))
	userface=Trim(Request.Form("userface"))
	if username="" or password="" or password2="" or truename="" or userface="" then %>
		<br><font color=red size=6>SORRY！！！</font><br><br>
注册信息不完整，以下项目是必填项目：用户名，密码，真实姓名，头像<br><br>
<a href='javascript:history.go(-1)'><font color=red size=4>请返回重新输入</font></a>
		<%else
		dim rs
	set	rs=conn.execute ("select username from user where username='"&username&"'")
	if not rs.eof then
	rs.close
	set rs=nothing%>
		<br><font color=red size=6>SORRY！！！</font><br><br>用户名已经被注册，请重选一个<br><br>
建议用你的姓名或者姓名的拼音，以便于记忆<br><br>
<a href='javascript:history.go(-1)'><font color=red size=4>请返回重新输入</font></a>
	<%else
if password<>password2 then%>
<br><font color=red size=6>SORRY！！！</font><br><br>你的密码输入有误<br><br>
请将两个密码保持一致<br><br>
<a href='javascript:history.go(-1)'><font color=red size=4>请返回重新输入</font></a>
<%else
		dim email,question,answer
	dim oicq,homephone,homeaddr,homezip,newphone,newaddr,usergroup
	dim newzip,usersign,shengxiao,blood,love,job,userclass,userjz
	dim usertype,bjname,userbirthday,homepage,width,height,userphoto
	username=Trim(Request.Form("username"))
	password=Trim(Request.Form("userpassword"))
	email=Trim(Request.Form("useremail"))
	truename=Trim(Request.Form("name"))
	question=Trim(Request.Form("userquestion"))
	answer=Trim(Request.Form("useranswer"))
	oicq=Trim(Request.Form("qq"))
	userjz=Trim(Request.Form("userjz"))
	homephone=Trim(Request.Form("homephone"))
	homeaddr=Trim(Request.Form("homeaddr"))
	homezip=Trim(Request.Form("homezip"))
	newphone=Trim(Request.Form("newphone"))
	newaddr=Trim(Request.Form("newaddr"))
	newzip=Trim(Request.Form("newzip"))
	sex=Trim(Request.Form("usersex"))
	usertype=Trim(Request.Form("usertype"))
	bjname=Trim(Request.Form("bjname"))
	userbirthday=Trim(Request.Form("userbirthday"))
	homepage=Trim(Request.Form("homepage"))
	usersign=Trim(Request.Form("usersign"))
	shengxiao=Trim(Request.Form("shengxiao"))
	blood=Trim(Request.Form("blood"))
	love=Request.Form("love")
	job=Trim(Request.Form("job"))
	userface=Trim(Request.Form("userface"))
	width=Trim(Request.Form("width"))
	height=Trim(Request.Form("height"))
	userclass=Request.Form("userclass")
	userphoto=Trim(Request.Form("userphoto"))
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from user where 1=2",conn,1,3
	rs.addnew()
		rs("username")=username
		rs("userpassword")=password
		rs("name")=truename
		rs("usersex")=sex
		rs("qq")=oicq
		rs("userjz")=userjz
		rs("useremail")=email
		rs("homephone")=homephone
		rs("homeaddr")=homeaddr
		rs("homezip")=homezip
		rs("newphone")=newphone
		rs("newaddr")=newaddr
		rs("newzip")=newzip
		rs("userquestion")=question
		rs("useranswer")=answer
		rs("userlogins")=0
		rs("usertype")=usertype
		rs("joindate")=now()
rs("lastlogin")=now()
		rs("userface")=userface
		rs("userbirthday")=userbirthday
		rs("width")=Clng(Width)
		rs("height")=Clng(Height)
		rs("homepage")=homepage
		rs("usersign")=usersign
		rs("userphoto")=userphoto
		rs("homepage")=homepage
		rs("job")=job
		rs("love")=love
		rs("zlopen")=request.form("zlopen")
		rs("blood")=blood
		rs("userclass")=userclass
		rs("shengxiao")=shengxiao
	rs.update
	rs.close
	set rs=nothing%>
<br><font color=red size=6>恭喜你！！！</font><br><br>你已经成为<%Set rs=conn.execute ("select sitename from siteinfo")
response.write rs(0)
rs.close%>的成员<br><br>
现在快去登录享受这里给你带来的惊喜吧！<br><br>如果你不是在校学生，你还没有加入到班级，那就去“班级”栏目创建吧，如果那里也没有你班级选项，那请与管理员联系
<br><br><a href="index.asp"><font color=red size=4>去校友录首页登录</font></a>
	<%end if
	end if
	end if%>
</DIV></TR></TBODY></TABLE>
                 </TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"--></BODY></HTML>