📄 userappend.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="usertop.asp" -->
<html>
<head>
</head>
<body>
<%
'判断用户是否具有添加数据的权限
if Session("level") < 3 then
Response.write"<br><br><br><br><br><br><font color=red>您没有操作权限或连接已经超时，请重新登录！</font>"
Response.end
end if
if Request.Form("add")="确定" then
on error resume Next
'取得用户输入的数据
d_user=Trim(Request.form("user"))
d_pass=Trim(Request.form("pass"))
d_level=Trim(Request.form("level"))
'判断是否已存在该用户
sql="Select * From t_user Where d_user='"&user&"'"
set rs=conn.Execute(sql,,adcmdtext)
'添加时使用的sql语句
fields=array("d_user","d_pass","d_level")
values=array(d_user,d_pass,d_level)
sql="Insert Into t_user("&Join(fields,",")&") values('"&Join(values,"','")&"')"
'添加数据
conn.Execute sql
'判断执行是否成功
if conn.Errors.Count > 0 then
Response.Write"<p><font color=red>该用户已存在，请查核后添加！</font></p>"
else
Response.write"<p><font color=red>数据添加成功！</font></p>"
end if
Response.end
end if
Set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -