saveuseradd.asp

来自「人民医院眼科全站」· ASP 代码 · 共 41 行

ASP
41
字号
<!-- #include file="../include/bkconn.asp "-->
<!--#include file="checkUser.asp"-->
<!--#include file="test.asp"-->
<%
if Request("password1")<>Request("password2") then
	response.write "密码、确认密码不同<br><a href='Javascript:window.history.go(-1)'>返回</a>"
	response.End
end if
sql="select * from users where userID='"&Request("userID")&"'"
'response.write sql
'response.End
set rs=conn.execute (sql)
if not rs.eof then
	response.write "该用户名已存在<br><a href='Javascript:window.history.go(-1)'>返回</a>"
	response.End
end if
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       Set InsertCursor = Server.CreateObject("ADODB.Recordset")
       cmdTemp.CommandText = "SELECT * FROM users WHERE (name is null)"
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn
       InsertCursor.Open cmdTemp, , 1, 3
       InsertCursor.addnew 
       InsertCursor("userID") =Request("userID")
       InsertCursor("name") =Request("name")
       InsertCursor("password") =Request("password1")
	   InsertCursor("right") =Request("right")
       InsertCursor.Update
       InsertCursor.close
	   conn.close
       set InsertCursor=nothing
       set conn=nothing
%>
<script language=Javascript>
<!--
alert("添加成功!");
this.document.location="userAdd.asp";
-->
</script>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?