newuserlogin.asp

网易论坛 发表新贴子

<!--#include file="opendb.asp"-->
<%
 
  username=request.Form("username")
  pwd=trim(request.Form("password"))
  
  strSQL = "Select * from UserInf Where UserName="&"'"&username&"'" 
  
  rst.CursorType = 1
  
  rst.open strSQL
  
  if rst.RecordCount>0 then
%>
    <script language=vbscript>
       msgbox "该用户名已被使用，请重新键入",48,"注册失败" 
       window.location="newuserlogin.htm"
    </script> 
    
<%else
   
	 rst.close
	 str="select * from UserInf"
	 rst.open str,my_conn,1,3
     rst.AddNew
     rst("UserName")=username
     rst("Password")=pwd
     
     rst.Update
    
     rst.close
     
     set rst=nothing
    
     Session("UserName")=username
  %>   
    <script language=vbscript>
       msgbox "用户注册成功，欢迎进入论坛",48,"注册成功" 
       window.location="index.asp" 
    </script>   
  <%end if%>
<!--#include file="closedb.asp"-->