reg3.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>
                  　
                 校友录从去年10成立到现在，已经快有一年了，在这些日子里，在同学们的呵护，校友录不断的成长，已经用上第三个版本，界面、功能逐渐走向成熟。<br>
                 　现在回想一下校友录刚成立的时的情况，真的很感叹我那时的勇气，那么差劲的小站也拿得出手，或许这就是朋友们所说的进步，虽然现在的版面也算不上什么好，但我可以肯定比上次的好，这就代表着改版成功，我有一种习惯：网站刚做好时，觉得还不错，但用上一两个月后，就开始厌烦，于是又开始新的改版。我想这应该是个好的习惯，你说呢？<br>                 　
                 谢谢你的注册，你这是在为我打气，表明你是支持我的。看着那不断增长的注册人数，我很是喜悦，毕竟我的付出有了回报。在这一年里，我在校友录上就花去了450元的现金，别提那平时的上网费和电费了，有人说我很傻，我也知道我这样是很对不起我家人，花去了他们的血汗，却没有得到什么，但我又无法停下来，因为这是我一手将它带大的，我不能让它说挂就挂，这是我信念的代言。</TD></TR>
              <TR>
                <TD align=middle><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("bjname")=bjname
		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("blood")=blood
		rs("userclass")=userclass
		rs("shengxiao")=shengxiao
		rs("usergroup")=1
	rs.update
	rs.close
	set rs=nothing%>
<br><font color=red size=6>恭喜你！！！</font><br><br>你已经成为<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select sitename from siteinfo"
rs.open sql,conn,1,1
response.write rs(0)%>的成员<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>