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