?? adduser2.asp
字號:
<!--#include file=conn.asp-->
<%
dim name,pw,message
count=0
name=trim(request("name"))
pw=trim(request("password"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select username from [admin] where username='"&name&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
else
rs.close
rs.open "select * from [admin]",conn,1,3
rs.addnew
rs("username")=name
rs("password")=pw
rs.update
rs.close
set rs=nothing
message="加入成功!"
sub usererr()
message="對不起,此用戶名已經存在!"
end sub
end if
response.redirect"adduser.asp?message="&message
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -