addacasp.asp

来自「本网上拍卖系统选用ASP + SQL Server进行开发, 是一个基于Brow」· ASP 代码 · 共 38 行

<%

SqlDatabaseName = "paimai"            			      '数据库名
SqlUsername = "sa"                                    '用户名
SqlPassword = " "                                      '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr

if request("action")="add" then	'隐藏提交 action 的值如果为 add 
     
	sql="select * from [admin] where adminn='"&trim(request("adminn"))&"';"	'首先按提交的用户名查询数据库
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3
	if not rs.eof then	'如果记录集没有到结尾的话（没有到结尾其实就是说有相应的数据）
		response.Write("<script>alert('该管理员名已经被添加了！');history.back();</script>")	'提示更换其他用户名进行注册
		response.End()	'因为我们确保用户名是唯一的
	end if
	rs.close
	set rs=nothing

     sql="select * from [admin] "
     set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3	'以写入方式打开
	rs.addnew	'添加新的记录
	rs("adminn")=trim(request("adminn"))
	rs("adminpwd")=trim(request("adminpwd"))
	rs("adminrpwd")=trim(request("adminrpwd"))

	rs.update
	rs.close
	set rs=nothing
	response.Write("<script>alert('添加成功！');window.location.href='adda.asp';</script>")
end if
%>