欢迎各位兄弟 发布技术文章

这里的技术是共享的

You are here

asp 插入数据库 添加数据 有大用

ASP数据库中添加数据

我做了一个添加电脑的ASP页面,一个是index.asp,一个是tianjia_conn.asp,现在已经连接数据库,也可以向数据库中添加数据,但是关键是现在可以添加重复的数据,一条命令可以添加几十次上百次,我本来想法是添加数据之前查询一下数据库中是否有这条数据,如果有就跳出窗口说“数据已经存在”,如果没有这条数据则添加,请问怎么实现,下面是代码index.asp
<form name="form1" method="post" action="tianjia.asp" onsubmit="return checkform();">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="35%" align="right">IP:</td>
<td width="16%" align="left"><input name="IP" type="text" id="IP"></td>
<td width="70" align="right"> CPU: </td>
<td align="left"><input name="cpu" type="text" id="cpu" /></td>
</tr>
<tr align="center">
<td width="35%" align="right">MAD地址:</td>
<td align="left"><input name="MAC" type="text" id="MAC"></td>
<td width="70" align="right">内存: </td>
<td align="left"><input name="nc" type="text" id="nc" /></td>
</tr>
<tr align="center">
<td width="35%" align="right">使用人:</td>
<td align="left"><input name="USER" type="text" id="USER"></td>
<td width="70" align="right">硬盘: </td>
<td align="left"><input name="yp" type="text" id="yp" /></td>
</tr>
<tr align="center">
<td width="35%" align="right">主机名:</td>
<td align="left"><input name="MINGZI" type="text" id="MINGZI"></td>
<td width="70" align="right">品牌:</td>
<td align="left"><input name="pp" type="text" id="pp" /></td>
</tr>
<tr align="center">
<td width="35%" align="right">部门:</td>
<td align="left"><input name="BUMEN" type="text" id="BUMEN"></td>
<td width="70" rowspan="2" align="right">备注: </td>
<td rowspan="2" align="left"><textarea name="bz" id="bz"></textarea></td>
</tr>
<tr align="center">
<td align="right">是否上网:</td>
<td align="left"><input name="sfsw" type="text" id="sfsw" value="" /></td>
</tr>
<tr align="center">
<td height="50" colspan="4" align="center"><input type="submit" name="Submit" value="提交"> </td>
</tr>
</table>
</form>
下面是tianjia.asp
<%
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"
rs.open sql,conn,1,3
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
%>
添加数据之前怎么实现查询数据库中是否有数据



<%
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
%>



你添加数据 又不需要返回值!你写得麻烦了 可以用<%

set rs=conn.execute("Select count(*) as num form us where ip="&ip)
If rs.eof then
conn.execute("Insert into us ('字段','字段') values (后面是值)")
else
Response.write "false"
end if
%>


来自 https://zhidao.baidu.com/question/304523453.html






asp 怎么写入数据库

想在里面再加一个Enjituanabout字段写入要怎么改
<input type="hidden" name="jituanabout" value="<%=Server.HTMLEncode(rs_Market("Enjituanabout"))%>">
<iframe ID="eWebEditor1" src="Southidceditor/ewebeditor.asp?id=Enjituanabout&style=southidc" frameborder="0" scrolling="no" width="550" HEIGHT="450"></iframe>

<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%if Request.QueryString("mark")="southidc" then
jituanabout=Request("jituanabout")
set rs=server.createobject("adodb.recordset")
sql="select * from about"
rs.open sql,conn,1,3
rs("jituanabout")=jituanabout
rs.update
rs.close
response.redirect "Admin_kailun_abouts.asp"
end if
sql="select * from about"
Set rs_Market= Server.CreateObject("ADODB.Recordset")
rs_Market.open sql,conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="862" align="center" valign="top"> <strong><br>
</strong> <table width="560" border="0" cellpadding="2" cellspacing="1" class="table_southidc">
<tr>
<td height="25" class="back_southidc">
<div align="center"><strong>凯伦-关于集团设置</strong><strong></strong></div></td>
</tr>
<tr>
<form method="POST" action="Admin_kailun_abouts.asp?mark=southidc">
<td><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="300" bgcolor="#ECF5FF">
<input type="hidden" name="jituanabout" value="<%=Server.HTMLEncode(rs_Market("jituanabout"))%>">
<iframe ID="eWebEditor1" src="Southidceditor/ewebeditor.asp?id=jituanabout&style=southidc" frameborder="0" scrolling="no" width="550" HEIGHT="450"></iframe>

</td>
</tr>
<tr bgcolor="#ECF5FF">
<td height="30"> <div align="center">
<input type="submit" value=" 修 改 "
name="cmdok">
 
<input type="reset" value=" 重 写 "
name="cmdcancel">
</div></td>
</tr>
</table></td>
</form>
</tr>
</table>
<strong> </strong></td>
</tr>
</table>
<%
rs_jituanabout.close
set rs_jituanabout=nothing
%>
<!-- #include file="Inc/Foot.asp" -->
我不懂编程 我给个错误的演示 如果不行我只能分开一个一个做了
content 和Encontent 是ewebEditor传递过来的值

<%if Request.QueryString("mark")="southidc" then
jituanabout=Request("content") and Enjituanabout=Request("Encontent")
set rs=server.createobject("adodb.recordset")
sql="select * from about"
rs.open sql,conn,1,3
rs("jituanabout")=jituanabout
rs("Enjituanabout")=Enjituanabout
rs.update
rs.close
response.redirect "Admin_kailun_abouts.asp"
end if
sql="select * from about"
Set rs_Market= Server.CreateObject("ADODB.Recordset")
rs_Market.open sql,conn,1,1
%>
 我来答  举报
匿名用户
推荐于2017-09-09
OleDbConnection conn = new OleDbConnection();
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|db1.mdb";
OleDbCommand comm = new OleDbCommand();
conn.Open();
comm.Connection = conn;
comm.CommandText = "Insert Into [Time] ([begin],[over],[name]) Values (@begin,@over,@name)";
comm.Parameters.AddWithValue("@begin", a);
comm.Parameters.AddWithValue("@over", b);
comm.Parameters.AddWithValue("@name", c);
comm.ExecuteNonQuery();
conn.Close();

注意:
1、以上代码是以access数据为例。
2、如果表里面有其他不能为空的字段存在,需要给他们提供值,自动增加的字段除外。
3、db1.mdb文件的只读属性去掉,在文件的属性-安全性里面,添加 everyone帐号和NETWORK Service 帐号可修改权限。
嗨键盘
推荐于2017-09-17 · TA获得超过115个赞
什么意思啊?
你这里不是有写入数据库的语句吗?

set rs=server.createobject("adodb.recordset")
sql="select * from about"
rs.open sql,conn,1,3
rs("jituanabout")=jituanabout
rs.update
rs.close

你这是更新的语句

要是写入就在这里家个

set rs=server.createobject("adodb.recordset")
sql="select * from about"
rs.open sql,conn,1,3
rs.addnews
rs("jituanabout")=jituanabout
rs.update
rs.close
 本回答被提问者采纳

来自 https://zhidao.baidu.com/question/35947987.html


普通分类: