Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > WEB(ASP,PHP,...) > View Code
Admin_Add.asp
Package: qiyeguanli.rar　[view]
Upload User: ahxunteng
Upload Date: 2022-05-16
Package Size: 1606k
Code Size: 1k
Category:

WEB(ASP,PHP,...)

Development Platform:

VBScript

Admin_Add.asp：Code Content
  1. <!--#include file="bsconfig.asp"-->
  2. <!--#include file="inc/md5.asp"-->
  4. <%
  5. password=replace(trim(Request("pwd1")),"'","")
  6. password=md5(password)
  7. set rs=server.createobject("adodb.recordset")
  8. sqltext="select * from Admin where UserName='" & request.form("UserName") & "'"'or RealName='" & request.form("realname") & "'and PassWord='" & password & "'"
  9. rs.open sqltext,conn,1,1
  11. '查找数据库，检查此管理员是否已经存在
  12. if rs.recordcount >= 1 then
  13. if rs("UserName")=request.form("UserName") then
  14. %>
  15. <script language='javascript'>alert ("此管理员帐号已经存在，请选用其它名称!"); location='Admin.asp';</script>
  16. <%
  17. response.end
  18. rs.close
  19. end if
  20. end if
  23. set rs=server.createobject("adodb.recordset")
  24. sqltext="select * from Admin"
  25. rs.open sqltext,conn,3,3
  27. '添加一个管理员帐号到数据库
  28. rs.addnew
  29. rs("UserName")=request.form("UserName")
  30. rs("RealName")=request.form("RealName")
  31. rs("PassWord")=password
  32. rs.update
  33. Response.Redirect "Admin.asp"
  35. %>