IP=request.form("IP")
MAC=request.form("MAC")
USER=request.form("USER")
MINGZI=request.form("MINGZI")
BUMEN=request.form("BUMEN")
sfsw=request.form("sfsw")
cpu=request.form("cpu")
nc=request.form("nc")
yp=request.form("yp")
pp=request.form("pp")
bz=request.form("bz")
dim
sql,rs
set
rs=server.createobject("adodb.recordset")
sql="select
*
from
us
where
mac='"&mac&"'"
'这里我用MAC来判断是否存在,当然你可以改成其它的
rs.open
sql,conn,1,3
if
not
rs.eof
then
response.write
"该MAC地址在数据库中已经存在"
response.end
end
if
rs.addnew()
rs("IP")=ip
rs("MAC")=mac
rs("USER")=user
rs("MINGZI")=mingzi
rs("BUMEN")=bumen
rs("sfsw")=sfsw
rs("cpu")=cpu
rs("nc")=nc
rs("yp")=yp
rs("pp")=pp
rs("bz")=bz
rs.update
response.write("<p
align='center'><font
color=red>添加成功!请返回</font></p>")
rs.close
set
rs
=
nothing
conn.close
set
conn=
nothing
%>
当点击"同意"时,从其所在表单给出一个判断参数提交到处理页面,然后由处理页面来判断这个参数,如果为真则进行数据库插入更新 *** 作,语法如下:update
表
set
字段="批准"
where
id="您要 *** 作的ID"
信息页面
<form
name="myform"
method="post"
action="处理页面">
<input
name="isset"
type="hidden"
value="OK">
</form>
处理页面
<%
isset
=
request.form("isset")
if
isset
=
"OK"
then
'=================
数据库 *** 作
'==================
end
if
%>
OK?
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)