addadmin1.asp

合同管理系统

<!--#include file=conn.asp-->
<%
  dim n,pass,founderr,errmsg
  n=trim(request("name"))
 pass=trim(request("pass"))
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where admin_name='"& n &"'"
  rs.open sql,conn,3,3
  while Not rs.eof
    errmsg=errmsg+"<br>"+"<li>此管理员以有"
    founderr=true
  wend
  if founderr=false then
  rs.addnew
  rs("admin_name")=n
  rs("admin_password")=pass
  rs.update
  else
   response.write errmsg
  end if
  response.write "<a href=admin1.asp>返回</a>"
  rs.close
  set rs=nothing
%>