check.asp

来自「企业进销存管理系统 企业级别的进销存管理系统」· ASP 代码 · 共 32 行

<%
cname=request("hcname")
pass=request("hpass")
repass=request("hrepass")
quan=request("hsel")
set conn=server.createobject("adodb.connection")
conn.open application("dsn")
%>
<%
set myrs=server.createobject("adodb.recordset")
sql="select max(id) as id from userlist"
myrs.open sql,conn,1,3
str=myrs("id")
id=cint(str)+1
id=cstr(id)
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select name,pass from userlist where name='"&cname&"'"
rs.open sql,conn,1,3
  if rs.eof then 
sql="insert into userlist(id,name,pass,quan) values('"&id&"', '"&cname&"', '"&pass&"', '"&quan&"')"
conn.execute sql
response.write "<script>alert('您已经成功添加操作员');window.location.href='addczy.asp';</script>"
       else
%>
<script language="javascript">
alert("您输入的用户名已经存在")
history.back(1)
</script>
<%end if%>