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

📄 register.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="main.asp" -->
<!--#include file="public.asp" -->
<%
if request("action")="edit" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select *  from "&WebSqlType&"_member where "&WebSqlType&"_ID="&trim(request("mid"))
rs.open sql,conn,1,3
'rs.addnew
rs(""&WebSqlType&"_Email")=request("Email")
if request("addone_id")<>"" then
rs(""&WebSqlType&"_ypaddone")=request("addone_id")
end if
if request("addtwo_id")<>"" then
rs(""&WebSqlType&"_ypaddtwo")=request("addtwo_id")
end if
rs(""&WebSqlType&"_RealName")=request("RealName")
rs(""&WebSqlType&"_Sex")=request("Sex")
rs(""&WebSqlType&"_ll")=request("year")&"-"&request("month")&"-"&request("day")
rs(""&WebSqlType&"_sj")=request("sj")
rs(""&WebSqlType&"_tel")=request("tel")
rs(""&WebSqlType&"_xxone")=request("xxone")
rs(""&WebSqlType&"_zhiwei")=request("zhiwei")
rs(""&WebSqlType&"_pic")=request("pic")
rs(""&WebSqlType&"_qq")=request("qq")
rs(""&WebSqlType&"_msn")=request("msn")
rs(""&WebSqlType&"_webname")=request("webname")
rs(""&WebSqlType&"_realname")=request("realname")
rs(""&WebSqlType&"_book")=request("book")
rs.update
rs.close
response.Write("<script>alert(""您的信息己成功提交！您可以创建圈子!"");location.href='person/add.asp';</script>")
end if
%>
<!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 name=keywords content="<%=OKAr%>" />
<meta name="description" content="<%=OKsize%>" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>新用户注册 - <%=cityname%></title>
<meta name="robots" content="follow,index" />
<link href="images/style.css" rel="stylesheet" type="text/css" />
<link href="images/msg.css" rel="stylesheet" type="text/css" />
<link rel="shortcut icon" href="/favicon.ico" />
<style>
<!--
#flashcontent p {
color: #000;
}
#foot {
display: block;
width: 720px;
margin: 0px auto;
}

-->
</style>
</head>
<body>
<div id="append_parent"></div>
<div id="wrap">
<!--#include file="top.asp" -->

  <DIV class=main>
<DIV class=main-box-5>
<DIV class=box-top>
<DIV></DIV></DIV>
<DIV class=nav>我的位置：<A href="index.asp">首页</A> &raquo; 
<STRONG>用户注册</STRONG></DIV>
<DIV class=box>

<TABLE class=title cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD class=title-l></TD>
    <TD>用户注册</TD>
    <TD class=title-r></TD></TR></TBODY></TABLE>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
	<script language="JavaScript">
<!--
function checkdata() {
if( thisForm.username.value =="" || thisForm.username.value=="") {
alert("\用户注册出错，下面是产生错误的可能原因：\n\n·用户名不能为空!")
return false;
}
if( thisForm.Password.value =="" || thisForm.Password.value.length<4 || thisForm.Password.value.length>16) {
alert("\用户注册出错，下面是产生错误的可能原因：\n\n·请输入 4-16 位的密码")
return false;
}
if( thisForm.Password1.value =="" || thisForm.Password1.value.length<4 || thisForm.Password1.value.length>16) {
alert("\用户注册出错，下面是产生错误的可能原因：\n\n·请输入您的确认密码")
return false;
}
if( thisForm.Password.value != thisForm.Password1.value ) {
alert("\用户注册出错，下面是产生错误的可能原因：\n\n·密码与确认密码不一致，请重新输入")
return false;
}
if( thisForm.Email.value =="" || thisForm.Email.value=="") {
alert("\用户注册出错，下面是产生错误的可能原因：\n\n·E_mail不能为空!")
return false;
}

if( thisForm.addone.value =="" || thisForm.addone.value=="") {
alert("\用户注册出错，下面是产生错误的可能原因：\n\n·地区不能为空!")
return false;
}
if( thisForm.addtwo.value =="" || thisForm.addtwo.value=="") {
alert("\用户注册出错，下面是产生错误的可能原因：\n\n·区域不能为空!")
return false;
}


return true;
}
function isNumberString (InString,RefString)
{
if(InString.length==0) return (false);
for (Count=0; Count < InString.length; Count++)  {
	TempChar= InString.substring (Count, Count+1);
	if (RefString.indexOf (TempChar, 0)==-1)  
	return (false);
}
return (true);
}
// -->
</script>
 <%if request("user")="" then%>
	<FORM method=post name=thisForm action="server.asp"  onSubmit="return checkdata()">
        <br>
        <TABLE width=90% border=0 align="center" cellPadding=6 cellSpacing=0 borderColor=#111111 
      style="BORDER-COLLAPSE: collapse">
          <TBODY>

            <TR> 
              <TD width=17% height=30 align=right><span class="STYLE1">用 户 名：</span></TD>
              <TD height=30 align=left><input name=username class=fieldalp id="username" size=20 
            maxlength=20> 
              (<font 
            color=#624b35>注:4-16位;只限数字(0-9)和英文(a-z))</font></TD>
            </TR>
            <TR> 
              <TD width=17% height=30 align=right><span class="STYLE1">密　　码：</span></TD>
              <TD width=83% height=30 align=left><INPUT name=Password type=password 
            class=fieldalp id="Password" size=16 maxLength=20>
              <FONT color=#FF6600>(密码至少4位，不要与用户名相同，更不能使用银行卡取款密码。) </FONT></TD>
            </TR>
            <TR> 
              <TD width=17% height=30 align=right><span class="STYLE1">重复密码：</span></TD>
              <TD width=83% height=30 align=left><INPUT name=Password1 type=password class=fieldalp id="Password1" size=16 
            maxLength=20> 
              <FONT 
            color=#624b35>(请再次输入密码。) </FONT></TD>
            </TR>

            
            
            <TR> 
              <TD width=17% height=30 align=right><span class="STYLE1">E_MAIL：</span></TD>
              <TD width=83% height=30 align=left><input name=Email 
            class=fieldalp id="Email" size=20 maxlength=60 />
              <FONT 
            color=#624b35>(非常重要，找回密码用，请准确填写您的<FONT face=Verdana 
            style="FONT-SIZE: 11px">E-MAIL</FONT>地址，最好是您的MSN地址) </FONT></TD>
            </TR>
			              <TR>
              <TD height=30 align=right><span class="STYLE1">所在地区：</span></TD>
              <TD height=30 align=left><%sql = "select *  from "&WebSqlType&"_ypaddtwo order by "&WebSqlType&"_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1%>
            <script language = "JavaScript">
var onecount1;
onecount1=0;
subcat1 = new Array();
<%count = 0
do while not rs.eof%>
subcat1[<%=count%>] = new Array("<%= trim(rs(""&WebSqlType&"_addtwo"))%>","<%= trim(rs(""&WebSqlType&"_addone_id"))%>","<%= trim(rs(""&WebSqlType&"_addtwo_id"))%>");
        <%count = count + 1
        rs.movenext
        loop
        rs.close
        set rs=nothing%>
onecount1=<%=count%>;

function changelocation1(addone)
    {
    document.thisForm.addtwo.length = 0; 

    var addone=addone;
    var i;
    document.thisForm.addtwo.options[0] = new Option('请选择地区(市)','');
    for (i=0;i < onecount1; i++)
        {
            if (subcat1[i][1] == addone)
            { 
                document.thisForm.addtwo.options[document.thisForm.addtwo.length] = new Option(subcat1[i][0], subcat1[i][2]);
            }        
        }
        
    }
      </script>
	  <select name="addone" id="addone" onChange="changelocation1(document.thisForm.addone.options[document.thisForm.addone.selectedIndex].value)">
		         <%
sql="select *  from "&WebSqlType&"_ypaddone where "&WebSqlType&"_addone_id=16 order by "&WebSqlType&"_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof%>
              <option value="<%=rs(""&WebSqlType&"_addone_id")%>" selected><%=rs(""&WebSqlType&"_addone")%></option>
              <%rs.movenext
wend
rs.Close()
%>
             
              <%
sql="select *  from "&WebSqlType&"_ypaddone where "&WebSqlType&"_addone_id<>16 order by "&WebSqlType&"_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof%>
              <option value="<%=rs(""&WebSqlType&"_addone_id")%>"><%=rs(""&WebSqlType&"_addone")%></option>
              <%rs.movenext
wend
rs.Close()
%>
            </select>
              <select name="addtwo" id="addtwo">
                <option selected value="">请选择地区(市)</option>
				  <%
sql="select *  from "&WebSqlType&"_ypaddtwo where "&WebSqlType&"_addone_id=16 order by "&WebSqlType&"_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof%>
              <option value="<%=rs(""&WebSqlType&"_addtwo_id")%>"><%=rs(""&WebSqlType&"_addtwo")%></option>
              <%rs.movenext
wend
rs.Close()
%>
            </select></TD>
            </TR> 
			<TR>
              <TD height=30 align=right><span class="STYLE1">性别:</span></TD>
              <TD height=30 align=left>&nbsp;
                <input name="Sex" type="radio" value="男" checked="checked" />
                男 
                <input type="radio" name="Sex" value="女" />
                女                
              </TD>
            </TR>         
            <TR align="center"  valign="bottom"> 
              <TD height=56 colSpan=2> <input name=Step2  style="FONT-FAMILY: 宋体; FONT-SIZE: 12px; HEIGHT: 30px" type=submit value="下一步，成为会员">              </TD>
            </TR>
          </TBODY>
        </TABLE>
      </form>
	  <%
	  end if
	  if request("user")<>"" then%>
<%sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_username='"&request("user")&"'"
set rs2=server.createobject("adodb.recordset")                     
rs2.open sql,conn,1,1                     
if rs2.eof and rs2.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else
%>
	  <FORM method=post name=thisForm action="register.asp?action=edit" style="margin-top:0px;"  onSubmit="return checkdata()">
	    <input type="hidden" name="mid" value="<%=rs2(""&WebSqlType&"_id")%>">
        <TABLE width=90% border=0 align="center" cellPadding=6 cellSpacing=0 borderColor=#111111
12

⌨️ 快捷键说明

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