<!-- #include file="config.asp" -->
<!-- #include file="jk_md5.asp" -->
<!-- #include file="send_mail.asp" -->
<!-- #include file="val_code.asp" -->
<!-- #include file="skin.asp" -->
<%
dim err_head,reg_val
err_head=img_small("jt0")
index_url="user_main"
tit_fir=format_menu(index_url)
reg_val=int(web_var_num(web_setup,2,1))

sub register_val()
  dim val_var,username,password,val_true:val_true="no"
  val_var=code_form(trim(request.querystring("val_var")))
  '6b787975e41a76b18a09ff00384aad4c
  if len(val_var)<>32 then
%>
<table border=0>
<tr><td class=red>您输入的验证码有错误或已过期！</td></tr>
</table>
<%
    exit sub
  end if
  username=trim(request.querystring("username"))
  password=trim(request.querystring("password"))
  if var_null(username)<>"" and var_null(password)<>"" then
    if symbol_name(username)<>"yes" or symbol_ok(password)<>"yes" then
      response.write "<font class=red_2>您输入的 注册用户名 不符合相关规则！</font>"
    else
      password=jk_md5(password,"short")
      sql="select top 1 id from user_data where username='"&username&"' and password='"&password&"' and remark='"&val_var&"' and hidden=0"
      set rs=conn.execute(sql)
      if rs.eof and rs.bof then
        response.write "<font class=red>您输入的 注册用户名 和 验证信息码 可能有错误或已验证过！</font>"
      else
        val_true="yes"
      end if
      rs.close:set rs=nothing
      if val_true="yes" then
        conn.execute("update user_data set remark='',hidden=1 where username='"&username&"'")
        response.cookies(web_cookies)("time_load")=DateAdd("s",-5,now_time)
        response.cookies(web_cookies).path=web_var(web_config,4)
        response.cookies(web_cookies)("login_username")=username
        response.cookies(web_cookies)("login_password")=jk_encrypt(password)
        call cookies_yes()
%>
<font class=red>您已通过信息验证。</font>感谢您的注册！
<br><br>
<a href='user_main.asp'>用户中心</a>
<br><br>
请进入用户中心修改您的其它相关信息。
<%
        exit sub
      end if
    end if
  end if
%>
<br><br>
<table border=0>
<form action='?' method=get>
<input type=hidden name=action value='reg_val'>
<tr><td>注册用户名：</td><td><input type=text name=username value='' size=20 maxlength=20><%response.write redx%></td></tr>
<tr><td>登陆密码：</td><td><input type=password name=password value='' size=20 maxlength=20><%response.write redx%></td></tr>
<tr><td height=40>验证信息码：</td><td><font class=blue><%response.write val_var%></font></td></tr>
<input type=hidden name=val_var value='<%response.write val_var%>'>
<tr><td></td><td><input type=submit value='提交注册信息验证'></td></tr>
</form>
</table>
<%
end sub

sub nopass()
  dim pass_action
  pass_action=trim(request.form("pass_action"))
  select case pass_action
  case "question"
    if post_chk()<>"yes" then
      call close_conn()
      call cookies_type("post")
    end if
    response.write pass_question()
  case "chk"
    if post_chk()<>"yes" then
      call close_conn()
      call cookies_type("post")
    end if
    response.write pass_chk()
  case else
    response.write pass_type()
  end select
end sub

function pass_question()
  dim username
  username=trim(request.form("username"))
  if symbol_name(username)<>"yes" then
    pass_question="您输入的 <font class=red>登陆名称</font> 为空或不符合相关规则！<br><br>"&go_back
    exit function
  end if
  pass_question="<table border=0><form action='login.asp?action=nopass' method=post>" & _
		"<input type=hidden name=pass_action value='chk'>" & _
		"<tr height=40><td>登陆名称：</td><td><input type=text name=uname size=20 value='"&username&"' readonly class=black_bg></td></tr>" & _
		"<tr height=25><td>密码钥匙：</td><td><input type=password name=passwd size=20 maxlength=20></td></tr>" & _
		"<tr height=25><td>电子邮件：</td><td><input type=text name=email size=20 maxlength=50></td></tr>" & _
		"<tr height=40><td colspan=2 align=center><input type=submit value='取 得 密 码'></td></tr>" & _
		"<tr><td colspan=2 align=center class=htd><font class=gray>数据验证无误后将随机生成密码；<br>并发送到您的电子邮箱里。</font></td></tr>" & _
		"<input type=hidden name=username value='"&username&"'></form></table>"
end function

function pass_chk()
  dim username,uname,passwd,email,newpass,uid,sbody,weburl,webname,sendmail
  username=trim(request.form("username"))
  uname=trim(request.form("uname"))
  passwd=trim(request.form("passwd"))
  email=trim(request.form("email"))
  if symbol_name(username)<>"yes" or username<>uname then
    pass_chk="您输入的 <font class=red>登陆名称</font> 为空或不符合相关规则！<br><br>"&go_back
    exit function
  end if
  if symbol_name(passwd)<>"yes" then
    pass_chk="您输入的 <font class=red>密码钥匙</font> 为空或不符合相关规则！<br><br>"&go_back
    exit function
  end if
  if email_ok(email)<>"yes" or len(email)>50 then
    pass_chk="您输入的 <font class=red>E-mail</font> 为空或不符合邮件规则！<br><br>"&go_back
    exit function
  end if
  sql="select top 1 id from user_data where username='"&username&"' and passwd='"&jk_md5(passwd,"short")&"' and email='"&email&"' and hidden=1"
  set rs=conn.execute(sql)
  if rs.eof and rs.bof then
    rs.close:set rs=nothing
    pass_chk="<font class=red>登陆名称</font> 和 <font class=red>密码钥匙</font> 有错或您已被锁定！<br><br>"&go_back
    exit function
  end if
  uid=rs("id")
  rs.close:set rs=nothing
  newpass=rand_num(6)
  sql="update user_data set password='"&jk_md5(newpass,"short")&"' where id="&uid
  conn.execute(sql)
  webname=web_var(web_config,1)
  weburl=web_var(web_config,2)
  sbody="注：本邮件为系统在用户取回密码时所发送的邮件！" & _
	vbcrlf&"--------------------------------------------------------" & _
	vbcrlf& webname & _
	vbcrlf& weburl & _
	vbcrlf&"--------------------------------------------------------" & _
	vbcrlf& _
	vbcrlf&"亲爱的"&username&"，你好！" & _
	vbcrlf& _
	vbcrlf&"您于 "&time_type(now_time,33)&" 使用了系统的密码取回功能！" & _
	vbcrlf& _
	vbcrlf&"系统生成的随机密码为："&newpass& _
	vbcrlf& _
	vbcrlf&"请尽快登陆本站并将您的修改一个复杂的密码！" & _
	vbcrlf& _
	vbcrlf& weburl &"login.asp"& _
	vbcrlf& _
	vbcrlf&"--------------------------------------------------------" & _
	vbcrlf&"更多精彩信息请访问：" & _
	vbcrlf& _
	vbcrlf& webname & _
	vbcrlf& weburl & _
	vbcrlf& _
	vbcrlf&"欢迎您的光临！"
  sendmail=sendmail=send_jmail(email,"系统邮件：取回密码",sbody,"（系统管理员）","system@mail")
  pass_chk="<font class=blue_1><b>"&username&"</b></font>，<font class=red>您已成功取回了密码（系统随机生成）！</font><br><br>" & _
	   "随机密码已发送到您的电子邮箱：<font class=red>"&email&"</font><br><br>" & _
	   "请及时取回密码并登陆本站重新修改。<br><br><a href='login.asp'>点击进入登陆页面</a>"
end function

function pass_type()
  pass_type="<table border=0><form action='login.asp?action=nopass' method=post><input type=hidden name=pass_action value='question'><tr height=40><td>您的登陆名称：</td><td><input type=text name=username size=20 maxlength=20></td></tr><tr height=40><td></td><td><input type=submit value='下 一 步'></td></tr></form></table>"
end function

sub register_main()
  if int(web_var_num(web_setup,8,1))=0 then
%>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr align=center><td height=100>
<font class=red>对不起！</font>本站暂停注册新的用户！<br><br>如有需要，请与管理员联系。
</td></tr></table>
<%
    exit sub
  end if
  
  dim reg_action,left_i
  reg_action=trim(request.form("reg_action"))
  if reg_action="reg_chk" and post_chk()<>"yes" then
    call close_conn()
    call cookies_type("post")
  end if
  select case reg_action
  case "reg_main"
    left_i=2
  case "reg_chk"
    left_i=3
  case else
    left_i=1
  end select
%>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr valign=top align=center><td width='23%'>
<br><br><br><img name=reg_left src='images/<%response.write web_var(web_config,5)%>/reg_left_<%=left_i%>.gif' border=0>
</td><td width='77%'>
  <table border=0 width='90%' cellspacing=0 cellpadding=0>
  <tr><td align=center height=80><img src='images/<%response.write web_var(web_config,5)%>/reg_top.gif' border=0></td></tr>
  <tr><td align=center height=300><%
  select case reg_action
  case "reg_main"
    call reg_type()
  case "reg_chk"
    response.write reg_chk()
  case else
    call reg_policy()
  end select
%><br><br></td></tr>
  </table>
</td></tr></table>
<%
end sub

sub reg_policy()
%>
<table border=0 width=450 cellspacing=0 cellpadding=0>
<tr><td class=htd>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="blue"><b>欢迎您将免费注册成为点绛唇社区一员！</b></font><br><br>
<font color="brown">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;热忱欢迎您加入点绛唇社区参加交流和讨论，本站点为免费的公共社区，将为您提供诸多精彩资迅！同时欢迎您到海风论坛一展身手。本站注册要求很简单：<br><br>
　(一)、拒绝一切违反国家宪法、法律和行政法规的行为； <br>
　(二)、互相尊重，互助互利，对自己的言论和行为负责。</font></td></tr>
<form name=form_reg action='login.asp?action=register' method=post>
<input type=hidden name=reg_action value='reg_main'>
<tr><td align=center height=50>
<input type=submit value="我已阅读并同意以上条款">&nbsp;┋&nbsp;<input type=button value="不同意" onClick="document.location='index.asp'">
</td></tr>
</form>
</table>
<%
end sub

sub reg_type()
  response.write val_code(1)
%><br>
<form name=val_name_frm action='val_username.asp' method=post target=hiddenframe>
<input type=hidden name=username value=''>
<input type=hidden name=email value=''>
</form>
<iframe width=0 height=0 src='about:blank' name=hiddenframe></iframe>
<script language=javascript>
<!--
function val_name()
{  
  var username=document.reg_frm.username.value;
  var email=document.reg_frm.email.value;
  if (username=="")
  { alert("请先填写您要注册的 用户名称！"); return false; }
  else
  {

    document.val_name_frm.username.value=username;
    document.val_name_frm.email.value=email;
    document.val_name_frm.submit();
  }
}

function reg_check()
{
  if (reg_frm.username.value=="")
  { alert("请填写您的 用户名称 ！"); return false; }
  if (reg_frm.password.value=="" || reg_frm.password2.value=="")
  { alert("请填写您的 登陆密码 和 确认密码 ！"); return false; }
  else
  {
    if (reg_frm.password.value != reg_frm.password2.value)
    { alert("登陆密码 和 确认密码 必须相同！"); return false; }
  }
  if (reg_frm.passwd.value=="")
  { alert("请填写您的 密码钥匙 ！"); return false; }
  if (reg_frm.email.value=="")
  { alert("请填写您的 Email ！"); return false; }
  if (reg_frm.valcode.value=="")
  { alert("请填写 验 证 码称 ！"); return false; }
}
-->
</script>
  <table border=0 width=360 cellspacing=0 cellpadding=2>
  <tr><td width='35%'></td><td width='65%'></td></tr>
  <form name=reg_frm action='login.asp?action=register' method=post onsubmit="frm_submitonce(this);">
  <input type=hidden name=reg_action value='reg_chk'>
  <tr><td align=center>用户名称：</td><td><input type=text name=username size=20 maxlength=20><%=redx%><input type=button value='验 证' class=bg_2 title='点击验证您填写的用户名是否可以注册' onclick="javascript:val_name();"></td></tr>
  <tr><td align=center>登陆密码：</td><td><input type=password name=password size=20 maxlength=20><%=redx%></td></tr>
  <tr><td align=center>确认密码：</td><td><input type=password name=password2 size=20 maxlength=20><%=redx%></td></tr>
  <tr><td align=center>密码钥匙：</td><td><input type=text name=passwd size=20 maxlength=20><%=redx%></td></tr>
  <tr><td align=center>E - mail：</td><td><input type=text name=email size=30 maxlength=50><%=redx%></td></tr>
<%if reg_val=0 then%>
  <tr><td colspan=2 class=red_3 align=center>请填写正确的E-mail地址，以正确接收注册验证邮件。</td></tr>
<%end if%>
  <tr><td align=center>您的性别：</td>    <td>&nbsp;<input type=radio name=sex value='boy' checked class=bg_1>&nbsp;男孩&nbsp;<img src=images/main/Male.gif>&nbsp;&nbsp;&nbsp;<input type=radio name=sex value='girl' class=bg_1>&nbsp;女孩&nbsp;<img src=images/main/Female.gif>&nbsp;&nbsp;<%response.write redx%></td></tr>
  <tr><td align=center>验 证 码：</td><td><%response.write val_code(2)%></td></tr>
  <tr><td></td><td height=50><input type=submit value=' 现 在 注 册 ' onclick="return reg_check()"></td></tr>
  </form>
  <tr><td colspan=2 height=30><hr size=1 color=#c0c0c0 width='90%'></td></tr>
  <tr><td colspan=2>
<p style='line-height: 150%'><font class=red_2>用户注册注意事项：</font><br>
&nbsp;&nbsp;&nbsp;1、用户名称注册申请成功之后将不能更改。<br>
&nbsp;&nbsp;&nbsp;2、用户名称可以是大小写英文字母（a~z、A~Z）、阿拉伯数字（0~9）、
连接字符“-”、下划线“_”和汉字组成；首字符不能为连接字符“-”或下划线“_”，长度不能超过20位。例：joe_527<br>
&nbsp;&nbsp;&nbsp;3、登陆密码只能由大小写英文字母（a~z、A~Z）、阿拉伯数字（0~9）、
连接字符“-”和下划线“_”组成。例：dw7v9j<br>
&nbsp;&nbsp;&nbsp;4、如出现“<font class=red>验证码错误</font>”的提示，请刷新后再填写注册信息。<br>
&nbsp;&nbsp;&nbsp;5、以上要填写的注册信息的内容均不区分大小写。</p>
  </td></tr>
  </table>
<%
end sub

function reg_chk()
  dim username,password,password2,passwd,email,red,val_var,sbody,weburl,webname,sendmail
  dim send_u,accept_u,topic,word,types,isread,red_3
  username=trim(request.form("username"))
  password=trim(request.form("password"))
  password2=trim(request.form("password2"))
  passwd=trim(request.form("passwd"))
  email=code_form(trim(request.form("email")))
  red=""
  if symbol_name(username)<>"yes" then
    red=red&err_head&"您输入的 <font class=red>用户名称</font> 为空或不符合相关规则！<br>"
  else
    if health_name(username)<>"yes" then
      red=red&err_head&"您输入的 <font class=red>用户名称</font> 含有<font class=red>本系统禁用字符</font>！<br>"
    end if
  end if
  if symbol_ok(password)<>"yes" then
    red=red&err_head&"您输入的 <font class=red>登陆密码</font> 为空或不符合相关规则！<br>"
  else
    if password<>password2 then
      red=red&err_head&"您输入的 <font class=red>登陆密码</font> 和 <font class=red>确认密码</font> 不一致！<br>"
    end if
  end if
  if symbol_name(passwd)<>"yes" then
    red=red&err_head&"您输入的 <font class=red>密码钥匙</font> 为空或不符合相关规则！<br>"
  end if
  if email_ok(email)<>"yes" or len(email)>50 then
    red=red&err_head&"您输入的 <font class=red>E-mail</font> 为空或不符合邮件规则！<br>"
  end if
  if val_code(3)<>"yes" then
    red=red&err_head&"您输入的 <font class=red>验 证 码</font> 为空或有错误！<br>"
  end if
  
  if red="" then
    password=jk_md5(password,"short")
    sql="select * from user_data where username='" & username & "'"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,3
    if rs.eof and rs.bof then
      rs.addnew
      rs("username")=username
      rs("password")=password
      rs("passwd")=jk_md5(passwd,"short")
      rs("email")=email
      if trim(request.form("sex"))="girl" then
        rs("sex")=0
      else
        rs("sex")=1
      end if
      rs("face")="0"
      rs("tim")=now_time
      rs("power")="user"
      if reg_val=0 then
        rs("hidden")=false
        val_var=jk_md5(rand_num(10),"long")
        rs("remark")=val_var
      else
        rs("hidden")=true
        rs("remark")=""
      end if
      rs("bbs_counter")=0
      rs("counter")=0
      rs("integral")=0
      rs("emoney")=0
      rs("login_num")=0
      rs("last_tim")=now_time
      rs("popedom")="00000000000000000000000000000000000000000000000000"
      rs.update
      rs.close:set rs=nothing
      
      conn.execute("update configs set new_username='"&username&"',num_reg=num_reg+1 where id=1")
	  accept_u=""&username&""
        send_u="『点绛唇社区』"
        topic=web_var(web_config,1)&" 欢迎您的到来！"
        word=web_var(web_config,1)&"全体用户欢迎您的到来！[br]" & _
		               "如有任何疑问请及时联系网站管理员。[br]" & _
                       "如有任何使用上的问题请查看网站帮助。[br]" & _
                       "感谢您注册本站，让我们一起来建设这个网上家园！[br]"& _
                       "本站使用“欧元”虚拟货币，赚取更多“欧元”请查看：[br]"& _
                       "http://cn.cnna.cn/hifi/forum_view.asp?forum_id=2&view_id=587[br]"
        sql="insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&accept_u&"','"&send_u&"','"&topic&"','"&word&"',Now(),1,false)"
      conn.Execute(sql) 
      
      if int(web_var_num(web_setup,2,1))=0 then
        webname=web_var(web_config,1)
        weburl=web_var(web_config,2)
        sbody="注：本邮件为系统在用户注册时所发送的邮件！" & _
	      vbcrlf&"--------------------------------------------------------" & _
	      vbcrlf& webname & _
	      vbcrlf& weburl & _
	      vbcrlf&"--------------------------------------------------------" & _
	      vbcrlf& _
	      vbcrlf&"亲爱的"&username&"，你好！" & _
	      vbcrlf& _
	      vbcrlf&"您于 "&time_type(now_time,33)&" 在点绛唇社区注册了用户！" & _
	      vbcrlf& _
	      vbcrlf&"请尽快访问以下地址以确认您的注册信息："& _
	      vbcrlf& _
	      vbcrlf& weburl &"login.asp?action=reg_val&val_var="&val_var& _
	      vbcrlf& _
	      vbcrlf&"并请在确认后登陆本站修改您的相关注册信息！" & _
	      vbcrlf& _
	      vbcrlf& weburl &"login.asp"& _
	      vbcrlf& _
	      vbcrlf&"--------------------------------------------------------" & _
	      vbcrlf&"更多精彩信息请访问：" & _
	      vbcrlf& _
	      vbcrlf& webname & _
	      vbcrlf& weburl & _
	      vbcrlf& _
	      vbcrlf&"欢迎您的光临！"
        sendmail=sendmail=send_jmail(email,"系统邮件：注册验证",sbody,"（系统管理员）","system@mail")
        reg_chk="<font class=red><b>"&username&"</b></font>，您已成功注册成为本站用户。<br><br>您现在的状态为：<font class=red_3>未审核</font>，请尽快查收您的电子邮箱并进行注册验证。谢谢！"
      else
        response.cookies(web_cookies)("time_load")=DateAdd("s",-5,now_time)
        response.cookies(web_cookies).path=web_var(web_config,4)
        response.cookies(web_cookies)("login_username")=username
        response.cookies(web_cookies)("login_password")=password
        call cookies_yes()
        reg_chk="恭喜！<font class=red><b>"&username&"</b></font>，您已成功注册成为本站用户。<br><br><a href='login.asp'>现在进行登陆</a><br><br>请尽快登陆并修改您的个人资料。"

		

      end if
      exit function
    else
      red=err_head&"您输入的 <font class=red>用户名称（<b>"&username&"</b>）</font> 已经被注册！<br>" & _
	       err_head&"请重新选择输入您的 <font class=red>用户名称</font> 以并继续注册！<br>"
      rs.close:set rs=nothing
      reg_chk=found_error(red,300):exit function
    end if
    rs.close:set rs=nothing
  else
    red=red&err_head&"请查阅有关 <a href='help.asp?action=register' class=red_3>用户注册注意事项</a> 并重新填写。"
    reg_chk=found_error(red,280):exit function
  end if
end function

sub login_chk()
  dim username,password,red,id,power,hidden,face,old_url
  old_url=var_null(request.querystring("old_url"))
  
  if symbol_name(login_username)="yes" then
    username=login_username
  else
    username=trim(request.form("username"))
  end if
  if symbol_ok(login_password)="yes" then
    password=login_password
  else
    password=trim(request.form("password"))
    password=jk_md5(password,"short")
  end if

  red=""
  if symbol_name(username)<>"yes" then
    red=red&err_head&"您输入的 <font class=red_3>用户名称</font> 为空或不符合相关规则！<br>"
  end if
  if symbol_ok(password)<>"yes" then
    red=red&err_head&"您输入的 <font class=red_3>登陆密码</font> 为空或不符合相关规则！<br>"
  end if

  if red="" then
    sql="select top 1 id,username,power,hidden from user_data where username='"&username&"' and password='"&password&"'"
    set rs=conn.execute(sql)
    if rs.eof and rs.bof then
      red=err_head&"您输入的 <font class=red>用户名称</font> 和 <font class=red>登陆密码</font>  有错误！<br>" & _
	       err_head&"请重新输入以并继续登陆本站！"
      response.write found_error(red,260)
    else
      username=rs("username"):power=rs("power"):hidden=rs("hidden")
      if hidden=true then
        response.cookies(web_cookies)("time_load")=DateAdd("s",-5,now_time)
        response.cookies(web_cookies).path=web_var(web_config,4)
        response.cookies(web_cookies)("login_username")=username
        response.cookies(web_cookies)("login_password")=password

        sql="update user_data set last_tim='"&now_time&"' where username='"&username&"'"
        conn.execute(sql)
        tit=request.cookies(web_cookies)("guest_name")
        if var_null(tit)<>"" then
          conn.execute("delete from user_login where l_username='"&tit&"'")
        end if
        
        if trim(request.form("memery_info"))="yes" then
	  response.cookies(web_cookies)("iscookies")="yes"
	  response.cookies(web_cookies).expires=date+365
        end if
        call cookies_yes()
        '----------------------------------------------------------------------------
        if old_url<>"" then
	  rs.close:set rs=nothing:call close_conn()
	  call format_redirect(old_url)
	  response.end
        end if
	'----------------------------------------------------------------------------
	if trim(request.form("re_log"))="yes" and len(request.servervariables("http_referer"))>3 then
	  rs.close:set rs=nothing:call close_conn()
	  call format_redirect(request.servervariables("http_referer"))
	  response.end
	end if
	'----------------------------------------------------------------------------
	response.write "<meta http-equiv='refresh' content='"&web_var(web_num,5)&"; url="&index_url&".asp'><br><br><br>你好，<font class=red>"&username&"</font>&nbsp;你现在是 <font class=red>"&format_power(power,1)&"</font> 登陆模式<br><br>" & _
		       vbcrlf & "<a href='"&index_url&".asp'>进入"&tit_fir&"</a>&nbsp;┋&nbsp;<a href='login.asp?action=logout'>退出本次登陆</a><br><br><br>"
      else
        response.write "<font class=red>您的用户帐号还未审核！</font><br><br>请与查收您在注册时的电子邮箱并确认您的注册信息。"
      end if
    end if
    rs.close
  else
    red=red&err_head&"请查阅有关 <a href='help.asp?action=register' class=red_3>用户注册注意事项</a> 并重新填写。"
    response.write found_error(red,280)
  end if
end sub

sub login_main()
  dim old_url
  old_url=var_null(request.querystring("old_url"))
  if old_url<>"" then old_url="&old_url="&old_url
%>
<table border=0>
<form name=login_frm method=post action='login.asp?action=login_chk<%response.write old_url%>' onsubmit="return login_true()">
<tr><td align=center height=30>用户名称：&nbsp;<input type=text name=username size=15 maxlength=20 tabindex=1>&nbsp;&nbsp;</td></tr>
<tr><td align=center>登陆密码：&nbsp;<input type=password name=password size=15 maxlength=20 tabindex=2>&nbsp;&nbsp;</td></tr>
<tr><td align=center height=30 align=center><input type=radio name=memery_info value='no' class=bg_1>&nbsp;登陆一次&nbsp;
<input type=radio name=memery_info value='yes' checked class=bg_1>&nbsp;永久登陆</td></tr>
<tr><td align=center>
<input type=button value='注 册' onClick="document.location='login.asp?action=register'">&nbsp;&nbsp;
<input type=button value='忘记密码' onClick="document.location='login.asp?action=nopass'">&nbsp;&nbsp;
<input type=submit value='登 陆' tabindex=3>
</td></tr>
</table>
<%
end sub
%>