saveuser1.asp

电子书下载系统 后台管理：admin/index.asp 超级用户：admin 密码：admin 请在db/usre.asp,admin/usres更新数据库地址,防止他人下载。 建议把.

<!--#include file="users.asp" -->
<!--#include file="jl.asp" -->
<%
   username=LCase(Request("username"))
   password=LCase(Request("newpin"))
   right_class=CInt(Request("right_class"))

   Set rs=Server.CreateObject("Adodb.RecordSet")
   
   rs.Open "Select * from admin where admin='"&username&"'",conn

   if not rs.EOF then

   Response.Write "<font color=red><div align=center><br><br>该用户名已经存在</div></font>"
   Response.End   

   end if
   rs.close
   sql="select * from admin"
   rs.open sql,conn,1,3
   rs.addnew
   rs("admin")=username
   rs("pws")=password
   rs("qx")=right_class
   rs.update
   rs.Close
   set rs=Nothing
   
   conn.Close
   set conn=Nothing

   Response.Redirect "adminuser.asp"
%>