regedit.asp

树型ASP论坛下载

              </tr>
              <tr bgcolor="#D6D3CE"> 
                <td height="3" colspan="4" align="center">&nbsp;</td>
              </tr>
            </table>
            <font size="2"> 
            <input type="submit" name="Submit" value="申　请" >
            　 
            <input type="reset" name="Submit22" value="取　消" >
            　 
            <input type=button value='返回首页' onClick="window.open('index.asp','_top')"  name="button2" >
            </font> 
          </center>
        </div>
        <div align="center"></div>
      </form></td>
  </tr>
</table>
<%
else
name=left(request("name"),60)
password=left(request("password"),60)
password2=left(request("password2"),60)
email=left(request("email"),254)
qq=left(request("qq"),10)
pagename=left(request("pagename"),100)
pageurl=left(request("pageurl"),100)
ys=left(request("ys"),10)
hidden=left(request("hidden"),10)
if name="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请填入注册用户名');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
if password="" or password2=""then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请填入密码');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

if password<>password2 then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('填入的密码不一致，请重新输入一遍!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

if email="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入E-mail!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
If IsValidEmail(email)=false then
	    response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('错误的email输入');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

function IsValidEmail(email)'判断-------------------------
 dim names, name, i, c
 IsValidEmail = true
 names = Split(email, "@") '-----------判断有否@-------------------
 if UBound(names) <> 1 then '------------------------无----------------------
   IsValidEmail = false
   exit function
 end if
 for each name in names '分割的每段长度-----------------
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1)) '------------分割成每个字母或数字------------------
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then '---------------------
      IsValidEmail = false
      exit function
   end if
 next
 if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
 end if
 i = Len(names(1)) - InStrRev(names(1), ".") '---------------------------
 if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
 end if
 if InStr(email, "..") > 0 then
   IsValidEmail = false
 end if

end function '------------------------函数结束

if qq="" then
qq="-"
end if

if pagename="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入主页名称!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

if pageurl="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入主页地址!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if



name=server.htmlencode(name)
password=server.htmlencode(password)
email=server.htmlencode(email)
qq=server.htmlencode(qq)
pagename=server.htmlencode(pagename)
pageurl=server.htmlencode(pageurl)
ys=server.htmlencode(ys)
hidden=server.htmlencode(hidden)
Set rs1= Server.CreateObject("ADODB.Recordset")
sql1="select * from user where name='"&name&"'"
rs1.open sql1,conn,1,1
if not rs1.eof then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('这个用户名已经被注册，请换名!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from user"
rs.open sql,conn,3,2
rs.addnew
   rs("name")=name
   rs("password")=password
   rs("email")=email
   rs("qq")=qq
   rs("pagename")=pagename
   rs("pageurl")=pageurl
   rs("ys")=ys
   rs("total")=0
   rs("date")=date()
   rs("hidden")=hidden
   rs.update
%>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="364" height="411" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
        <tr bgcolor="#E6E6FF"> 
          <td width="356" height="5" align="center" bgcolor="#EFEFEF"><span
    style="font-family: Verdana; font-size: 9pt">申请成功，请复制你的计数器代码</span></td>
        </tr>
        <tr> 
          <td height="102" valign="top"> <%tmp = "http://" & request.servervariables("SERVER_NAME") & _            
               left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("regedit.asp"))%>
            请复制以下您的计数器代码：以下方框内是你设置的计数器代码，请复制后加入网页代码里: 
            <textarea name="textarea" cols="55" rows="3"><script src="../cc/<%=tmp%>counter.asp?name=<%=name%>&ys=<%=ys%>&hidden=<%=hidden%>"></script></textarea>
          </td>
        </tr>
        <tr> 
          <td height="3" bgcolor="#EFEFEF">以下是你申请时填写的资料：</td>
        </tr>
        <tr> 
          <td width="356" height="3">用户名： 
            <%response.write request.form("name")%> </td>
        </tr>
        <tr> 
          <td width="356" height="6">密码： 
            <%response.write request.form("password")%> </td>
        </tr>
        <tr> 
          <td width="356" height="10">Email： 
            <%response.write request.form("email")%> </td>
        </tr>
        <tr> 
          <td width="356" height="5">OICQ： 
            <%response.write request.form("oicq")%> </td>
        </tr>
        <tr> 
          <td width="356" height="2">主页名称： 
            <%response.write request.form("pagename")%> </td>
        </tr>
        <tr>
          <td height="7">主页链接： 
            <%response.write request.form("pageurl")%>
          </td>
        </tr>
        <tr> 
          <td height="7">计数器初始值：
            <%response.write request.form("total")%>
          </td>
        </tr>
        <tr> 
          <td width="356" height="7">计数器是否隐藏： 
            <%response.write request.form("hidden")%>
          </td>
        </tr>
        <tr> 
          <td width="356" height="3" align="center" bgcolor="#D6D3CE"><font size="2"> 
            <input type=button value='返回首页' onClick="window.open('index.asp','_top')"  name="button22" >
          </font></td>
        </tr>
      </table>
      <div align="center"></div></td>
  </tr>
  <tr> 
    <td><div align="center"><a href="../cfcount/addok.asp?name=<%=name%>"><br>
        </a></div></td>
  </tr>
</table>
<%end if
else%>
<br>
<br>
<br>
<br>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#CC3300"><div align="center" class="style2">对不起,本计数器系统已经暂停新用户注册!</div></td>
  </tr>
</table>
<%end if%>
<br>
<br>
<!--#include file="bottom.asp"-->
  </body>
</html>