add_admin.asp

--- --- --- --- --- --- --- --- --- --- --- --- --- --- 该程序由2001计算机信息管理系应田丰开发 本程序学历文凭考试相关流程编写

<!--#include file="conn.asp"-->
<%
dim admin_name,admin_pwd
admin_name=trim(request("name"))
admin_pwd=trim(request("pwd"))

if admin_name="" or admin_pwd="" then
  	response.write "<script language='javascript'>window.confirm('两者不能为空')</script>"
	response.write "<script language='javascript'>parent.window.history.go(-1);</script>"
	response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&admin_name&"'"
rs.open sql,conn,1,3
%>
<%
if not rs.eof then
  	response.write "<script language='javascript'>window.confirm('您输入的用户名已经存在')</script>"
	response.write "<script language='javascript'>parent.window.history.go(-1);</script>"
	response.end
else
	rs.addnew
	rs("admin_name")=admin_name
	rs("admin_pwd")=admin_pwd
	rs.update
	rs.close
	set rs=nothing
	response.write "<script language='javascript'>window.confirm('用户已经成功添加到数据库')</script>"
	response.write "<script language='javascript'>parent.window.history.go(-1);</script>"
end if

%>