⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 editreg2.asp

📁 一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP
💻 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>
            <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>
</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> - <B>编辑资料</B></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 truename,userface,sql,password,password2
	truename=Trim(Request.Form("name"))
	userface=Trim(Request.Form("userface"))
	password2=Trim(Request.Form("userpassword2"))
	if 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 username,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=session("wzname")
	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"))
	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"))
	userjz=Trim(Request.Form("userjz"))
	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")
sql="select * from user where username='"&username&"'"
rs.open sql,conn,1,3
	if password="" and password2="" then
	if rs("userclass")<>userclass then
	Session("userclass")=userclass
	end if
		rs("username")=username
		rs("name")=truename
		rs("usersex")=sex
		rs("qq")=oicq
		rs("useremail")=email
		rs("homephone")=homephone
		rs("homeaddr")=homeaddr
		rs("homezip")=homezip
		rs("userjz")=userjz
		rs("newphone")=newphone
		rs("newaddr")=newaddr
		rs("newzip")=newzip
		rs("userquestion")=question
		rs("useranswer")=answer
		rs("usertype")=usertype
		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%>
		<br><font color=red size=6>资料更新成功！！</font><br><br>你的密码没有改变<br><br>如果你不是在校学生，你还没有加入到班级，那就去“班级”栏目创建吧，如果那里也没有你班级选项，那请与管理员联系
<%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
if rs("userclass")<>userclass then
	Session("userclass")=userclass
	end if
rs("userpassword")=password
rs("username")=username
		rs("name")=truename
		rs("usersex")=sex
		rs("qq")=oicq
		rs("useremail")=email
		rs("homephone")=homephone
		rs("homeaddr")=homeaddr
		rs("homezip")=homezip
		rs("newphone")=newphone
		rs("newaddr")=newaddr
		rs("newzip")=newzip
		rs("userjz")=userjz
		rs("userquestion")=question
		rs("useranswer")=answer
		rs("usertype")=usertype
		rs("bjname")=bjname
		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
end if%>
<br><font color=red size=6>资料更新成功！！！</font><br><br>
你的密码已经更新，请用新的密码登录使用<br><br>如果你不是在校学生，你还没有加入到班级，那就去“班级”栏目创建吧，如果那里也没有你班级选项，那请与管理员联系
<%end if
	set rs=nothing%>
	<%end if%>
</DIV></TD></TR></TBODY></TABLE>
                 </TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"-->
	</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -