register.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="include/skin.asp" -->
<!-- #include file="include/jk_md5.asp" -->
<!-- #include file="include/jk_email.asp" -->
<!-- #include file="include/jk_sendmail.asp" -->
<!-- #include file="include/jk_val_code.asp" -->
<!-- #include file="include/jk_ip_stop.asp" -->
<%
dim useripstop,username
useripstop=0
iframe=true
index_url="register"
tit_fir="注册新用户"
dim val_url
val_url=joekoe_cms.web_urls
select case action
 case "resend"
  tit="重新发送注册验证邮件"
 case "reg_val"
  tit="注册用户邮件验证"
case "main"
  tit="填写注册用户资料"
case "val"
  tit="填写用册资料验证"
case "chk"
  tit="注册新用户成功"
case else
  tit="注册新用户条款"
end select

call web_head(0,0,2,0,0)
if login_username<>"" then
  call format_redirect("user_main.asp")
end if
'----------------------------中间 开始----------------------------
%>
<table border=0 width='70%'>
<tr><td align=center>
  <table cellspacing=1 cellpadding=4 class=table>
  <tr><td class=td0>&nbsp;<%response.write img_skin("m_user")&tit%></td></tr>
  <tr class=bg_td><td align=center height=300>
<%
if int(format_mid_num(2))=0 then
  call user_ip_stop1(1)
   if useripstop=0 then
  select case action
  case "resend"
     call register_resend()
  case "reg_val"
    call register_reg_val()
  case "main"
    call register_main()
  case "val"
    call register_val()
  case "chk"
    call register_chk()
  case else
    call register_read()
  end select
  end if
else
  response.write "<font class=red>目前网站已暂停新用户注册！</font>"
end if
%>
  </td></tr>
  </table>
</td></tr>
</table>
<script language=JavaScript src='style/softkeyboard.js'></script>
<script>
window.onload=
	function ()
	{
		password1=null;		
		initCalc();
		Load();
	}
</script>
<%
response.write ukong
'----------------------------中间 结束----------------------------
call web_end(0,0)

sub register_resend()
  dim username,password,email,found_err,u_id,u_tmp,val_var,sbody,sendmail,stit,temp1,passwd
  if joekoe_cms.chk() then
    username=trim(request.form("username"))
    password=trim(request.form("password"))
    email=joekoe_cms.code_form(request.form("email"))
    found_err=""
    if symbol_name(username)=false then
      found_err=found_err&"+您输入的 <font class=red>用户名称</font> 为空或不符合相关规则！<br>"
    end if
    if symbol_ok(password)=false then
      found_err=found_err&"+您输入的 <font class=red>登陆密码</font> 为空或不符合相关规则！<br>"
    end if
    if email_ok(email,50)=false then
      found_err=found_err&"+您输入的 <font class=red>E-mail</font> 为空或不符合邮件规则！<br>"
    end if
    if val_chk("resend")=false then
      found_err=found_err&"+您输入的 <font class=red2>验 证 码</font> 为空或者有错误存在！<br>"
    end if
    if found_err<>"" then
      response.write found_error(found_err,260)
      exit sub
    end if
    sql="select top 1 "
	passwd=password
    password=jk_md5(password,"short")
    sql="select top 1 id,tmp from user_data where username='"&username&"' and password='"&password&"' and email='"&email&"' and hidden=0"
    set rs=joekoe_cms.exec(sql,1)
    if rs.eof then
      rs.close
      found_err=found_err&"+您输入的 <font class=red>用户验证信息</font> 有错误或已验证！<br>"
      response.write found_error(found_err,260)
      exit sub
    end if
    u_id=rs(0)
    u_tmp=rs(1)
    rs.close
    val_var=jk_md5(joekoe_cms.rand_num(10),"long")
    if var_null(u_tmp)<>"" and len(val_var)<>len(u_tmp) then
      found_err=found_err&"+您输入的 <font class=red>用户信息</font> 为非注册原因被设为未审核状态！<br>"&u_tmp
      response.write found_error(found_err,320)
      exit sub
    end if
    
    sql="update user_data set tmp='"&val_var&"' where id="&u_id
    call joekoe_cms.exec(sql,0)
    
    stit=tit
    sbody="您于 "&joekoe_cms.time_type("",2)&" 提交重新发送注册验证邮件！" & _
	  vbcrlf&"" & _
	  vbcrlf&"用户名称："& username & _
	  vbcrlf&"登陆密码："& passwd & _
	  vbcrlf& _
	  vbcrlf&"请尽快访问以下地址以验证您的注册信息："& _
	  vbcrlf& _
	  vbcrlf& val_url &"register.asp?action=reg_val&val_var="&val_var& _
	  vbcrlf& _
	  vbcrlf&"请在验证后登陆本站用户中心修改您的相关注册信息！"& _
	  vbcrlf& _
	  vbcrlf&"用户登陆页面：" & _
	  vbcrlf& val_url &"login.asp"
    temp1="恭喜！<font class=blue><b>"&username&"</b></font>，您已成功提交重新发送注册验证邮件。<br><br>您现在的状态为：<font class=red>未审核</font><br><br>请尽快查收您的邮箱（"&email&"）并进行<a href='register.asp?action=reg_val'>注册验证</a>身份！<br><br>"
    sendmail=send_mail(username,email,stit,sbody)
    if sendmail then
      temp1=temp1&"<font class=red>注册验证邮件已成功发送至邮箱（"&email&"）中！</font>"
    else
      temp1=temp1&"<font class=red2>系统配置不正常，注册邮件没有能正确发送！</font>"
    end if
    response.write temp1
    call val_chk_end("resend")
    exit sub
  end if
%>
<table border=0>
<form name=reg_frm action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>用户名称：</td>
<td><input type=text name=username size=20 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>登陆密码：</td>
<td><input type=password name=password size=15 maxlength=20<%if int(format_mid_num(46))=0 then%> readOnly onKeyDown="Calc.password.value=this.value" onChange="Calc.password.value=this.value" onclick="password1=this;showkeyboard();this.readOnly=1;Calc.password.value=''"<%end if%>><%response.write redx%></td>
</tr>
<tr>
<td>E - mail：</td>
<td><input type=text name=email size=30 maxlength=50><%response.write redx%></td>
</tr>
<tr>
<td>验 证 码：</td>
<td><%response.write val_code("resend")%></td>
</tr>
<tr><td colspan=2 align=center height=30><input type=submit value='重新发送注册验证邮件'></td></tr>
</form>
</table>
<br>
<table border=0 width=350>
<tr><td align=center class=htd>注：执行本操作可以将您的注册验证邮件重新发送一遍！<br>但如果是因为非注册原因被设为未审核时，将不能进行本操作。</td></tr>
</table>
<%
end sub


sub register_reg_val()
  call user_ip_stop1(1)
  if useripstop=0 then
  dim val_var,id,username,password,found_err
  val_var=joekoe_cms.code_form(request.querystring("val_var"))
  if len(val_var)<>32 or symbol_name(val_var) then
%>
<table border=0>
<tr><td><font class=red>您输入的验证码有错误或已过期！</font></td></tr>
</table>
<%
    exit sub
  end if
  if joekoe_cms.chk() then
    username=trim(request.form("username"))
    password=trim(request.form("password"))
    found_err=""
    if symbol_name(username)=false then
      found_err=found_err&"+您输入的 <font class=red>用户名称</font> 为空或不符合相关规则！<br>"
    end if
    if symbol_ok(password)=false then
      found_err=found_err&"+您输入的 <font class=red>登陆密码</font> 为空或不符合相关规则！<br>"
    end if
    if val_chk("reg_val")=false then
      found_err=found_err&"+您输入的 <font class=red>验 证 码</font> 为空或有错误！<br>"
    end if
    if found_err="" then
      password=jk_md5(password,"short")
      sql="select top 1 id from user_data where username='"&username&"' and password='"&password&"' and tmp='"&val_var&"' and hidden=0"
      set rs=joekoe_cms.exec(sql,1)
      if rs.eof then
        found_err=found_err&"+您输入的 <font class=red>用户验证信息</font> 有错误或已验证！<br>"
      else
        id=rs("id")
      end if
      rs.close
    end if
    if found_err<>"" then
      response.write found_error(found_err,260)
      exit sub
    end if
    call joekoe_cms.exec("update user_data set tmp='',hidden=1 where id="&id,0)
    call cookies_load()
    response.cookies(joekoe_cms.web_cookies).path=joekoe_cms.web_dir
    response.cookies(joekoe_cms.web_cookies)("login_username")=username
    response.cookies(joekoe_cms.web_cookies)("login_password")=jk_encrypt(password)
    response.write vbcrlf&"<font class=blue><b>"&username&"</b></font>，您已通过注册信息验证！<br><br><flon class=red>从现在起您正式成为我们的注册用户。</font><br><br>请进入 <a href='user_main.asp'>用户中心</a> 修改您的其它相关信息。"
    call val_chk_end("reg_val")
    exit sub
  end if
%>
<table border=0>
<form name=reg_val_frm action='?action=<%response.write action%>&val_var=<%response.write val_var%>' method=post onsubmit="frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<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 size=15 maxlength=20<%if int(format_mid_num(46))=0 then%> readOnly onKeyDown="Calc.password.value=this.value" onChange="Calc.password.value=this.value" onclick="password1=this;showkeyboard();this.readOnly=1;Calc.password.value=''"<%end if%>><%response.write redx%></td></tr>
<tr><td height=40>验证信息码：</td><td><font class=blue><b><%response.write val_var%></b></font></td></tr>
<tr><td>验 证 码：</td><td><%response.write val_code("reg_val")%></td></tr>
<tr><td colspan=2 align=center height=30><input type=submit value='提交注册信息验证'></td></tr>
</form>
</table>
<%
end if
end sub

sub register_chk()
  call user_ip_stop1(1)
   if useripstop=0 then
  dim username,password,password2,passwd,email,found_err,reg_val,val_var,sbody,sendmail,stit,temp1
  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=joekoe_cms.code_form(request.form("email"))
  found_err=""
  if symbol_name(username)=false then
    found_err=found_err&"+您输入的 <font class=red>用户名称</font> 为空或不符合相关规则！<br>"
  else
    if health_name(username)=false then
      found_err=found_err&"+您输入的 <font class=red>用户名称</font> 含有<font class=red>本系统禁用字符</font>！<br>"
    end if
  end if
  if symbol_ok(password)=false then
    found_err=found_err&"+您输入的 <font class=red>登陆密码</font> 为空或不符合相关规则！<br>"
  else
    if password<>password2 then
      found_err=found_err&"+您输入的 <font class=red>登陆密码</font> 和 <font class=red>确认密码</font> 不一致！<br>"
    end if
  end if
  if len(password)<int(dim_num(23)) then
    found_err=found_err&"+您输入的 <font class=red>登陆密码</font> 长度小于"&dim_num(23)&"！<br>"
  end if
  if symbol_name(passwd)=false then
    found_err=found_err&"+您输入的 <font class=red>密码钥匙</font> 为空或不符合相关规则！<br>"
  end if
  if email_ok(email,50)=false then
    found_err=found_err&"+您输入的 <font class=red>E-mail</font> 为空或不符合邮件规则！<br>"
  end if
  if val_chk("reg")=false then
    found_err=found_err&"+您输入的 <font class=red2>验 证 码</font> 为空或有错误，请勿非法提交！<br>"
  end if
  if found_err="" then
    password=jk_md5(password,"short")
    sql="select top 1 id from user_data where username='"&username&"'"
    set rs=joekoe_cms.exec(sql,1)
    if not rs.eof then
      found_err=found_err&"+您输入的 <font class=red>用户名称（<font class=blue><b>"&username&"</b></font>）</font> 已被注册！<br>"
    end if