asp更新数据库
⑴ asp如何批量更新数据库数据
第一个a.asp页面代码：
<script language=javascript>
function unselectall()
{
if(document.th_edit.chkAll.checked){
document.th_edit.chkAll.checked = document.th_edit.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
function ConfirmDel()
{
if(confirm("确定要修改吗？"))
return true;
else
return false;
}
</script>
</head>
<body>
<%
sub_number=request("sub_number")
sub_stores=request("sub_stores")
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from venshop_basket where sub_number='"+sub_number+"'"
rs.open sql,conn,1,3
%>
<table>
<tr>
<td>商品名称</td>
<td>订购数量</td>
<td>退货数量</td>
<td>配送门店</td>
<td>下单时间</td>
<td>退货原因</td>
</tr>
<form action="th_update.asp" name="th_edit" method="post" onSubmit="return ConfirmDel();"><%
do while not rs.eof
%>
<tr>
<td><input name="delid" type="checkbox" onClick="unselectall()" id="delid" value='<%=cstr(rs("basket_id"))%>'><%=rs("hw_name")%>
</td>
<td><%=rs("basket_count")%></td>
<td><input type="text" name="thcount" value='<%=rs("basket_count")%>'></td>
<td><%=sub_stores%></td>
<td><%=rs("basket_date")%></td>
<td><input type="text" name="yuanyin"></td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td><input name="chkAll" type="checkbox" id="chkAll" onclick="CheckAll(this.form)" value="checkbox" />全选</td>
<td><input type="submit" name="tuihuo" value="退货"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</form>
</table>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</body>
</html>
th_update.asp页面代码：
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<%
If Request("delid") & ""="" then
response.write "<script>alert('请选择要修改的信息!');history.go(-1);</script>"
else
arrdel=Request("delid")
basket_count=Request("basket_count")
thcount=Request("thcount")
for i=1 to arrdel.count
sql="update venshop_basket set basket_count='" & thcount(i) & "' where basket_id='" & arrdel(i) & "'"
conn.Execute sql
next
set conn=nothing
response.write "<script language=JavaScript>alert('修改成功！');location.href=ad_sub.asp;<script>"
response.Redirect("ad_sub.asp")
end if
%>
⑵ asp怎么修改数据库数据
rs.addnew 是新增
rs.update 是更新
rs.close 是关闭
<%
set conn=server.CreateObject("adodb.connection")
conn.open"provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("mdb.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from biao where answer='"&request.Form("radiobutton")&"'",conn,1,3
rs("num")=rs("num")+1
rs.update
rs.close
set rs=nothing
%>
这样就只是修改了，去掉rs.addnew 就行了的！
⑶ asp中如何实现sql数据库更新
if session("Username")="" then
Username=trim(request.form("Username"))
Password=trim(request.form("Password"))
sqlstr="select * from 用户源表 where 用户名='"&Username&"'and 密码='"&Password&"'"
set rs=Conn.execute(sqlstr)
if rs.eof then
Response.redirect "err.asp"
end if
session("Username")=Username
session("权限")=rs("权限")
sqlstr="update 用户表 set 上线次数=上线次数+1 where 用户名='"&Username &"'"
set rs=Conn.execute(sqlstr)
rs.close
end if
⑷ ASP数据库 更新 UPDATE操作语法
倒，，，刚仔细一看，也是你的贴。。。
刚回答了一个网友的同样的关于update的问题，转过来一下：
asp更新数据库时，可以用以下方式（我常用的，还有其他的方式）：
一、用recordset记录集的方式。
rs.open "select * from tablename where id="&request("id"),conn,1,3
rs("a")=request("a")
rs("b")=request("b")
rs.update
rs.close
用这种方式进行数据更新，有个好处就是当要更新的数据量非常大时，也可以很顺利的更新成功(比如备注型字段的数据，中间还包含了换行等等的)
二、用sql的update语句：
conn.execute("update tablename set a='"&request("a")&"',b='"&request("b")&"',c="&request("c")&" where id="&request("id"))
用上面的方法更新数据时，如果是SQL数据库，而你要更新的数据内容里含有比如单引号['],双横线[--]之类的特殊字符，就会更新不成功的，因为这时候SQL会认为是非法字符，而把你的单引号给去掉的。而且当如果更新的是备注型字段，里面包含了换行等字符，也会显得很乱。但用这种方法更新，速度比用recordset的速度要快很多，因为毕竟这是直接更新数据库，而recordset是对update的封装形式。
其实更新数据库，非常简单，如果你对字符串连接的单引号，双引号，&号的使用觉得很混乱，那就用recordset的方式进行，这样会很清晰，一点都不会有混乱的感觉的。而如果你能熟练的使用单引号，双引号，&号，那么你用update语句更新数据库，就大在的提交了速度(当然如果数据量小，我建议用recordset记录集的方式，因为这种方式一个字段对应一个值，一行一个，这样下来，很清晰，还可以对每行做个备注，以后改起来也方便。而用update的方式，所有的值和记录全部连在一块，老长的一串，看得人头都发麻，而且update还不能添加特殊字符，比如上面说的单引号等。。。)
刚回答的这个问题地址：http://..com/question/18663956.html
⑸ asp 更新数据库
这个代码会不会一打开页面就出错?
改为：
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from chengjiao where id="&request("id")
rs.open sql,conn,1,3
if rs.eof then
Response.Write("参数有错")
response.end
end if
if request("action")="yes" then
call formsubmit
else
call showform
end if
sub formsubmit()
更新
end sub
sub showform()
%>
表单 加一隐藏域
<input name="action" type="hidden" value="yes">
<% end sub %>
⑹ asp如何更新一条数据库记录使用update
<%
'连接数据库 db.mdb是您的数据库文件
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
conn.open connstr
'执行语句
conn.execute "update [表名] set [列名]=值 where [id]=编号"
%>
如下面一个数据库
数据库文件名 123.mdb
表名 userinfo
数据/列名 id username password
0 lorabit PiG!!!
1 paint DoG!!!
当paint用户需要更新其密码为PiG!!!时，我们就需要这样一段ASP
<%
'连接数据库 db.mdb是您的数据库文件
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("123.mdb")
conn.open connstr
'执行语句
conn.execute "update [userinfo] set [password]='PiG!!!' where [id]=1"
%>
你也可以使用下面这一段，两段的差别在于第一段是靠用户ID来确定行，而第二段是搜索用户名。
<%
'连接数据库 db.mdb是您的数据库文件
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("123.mdb")
conn.open connstr
'执行语句
conn.execute "update [userinfo] set [password]='PiG!!!' where [username]='paint'"
%>
如果还有不懂 QQ233349789
⑺ asp 怎么自动更新数据库某字段的值
那你可以使用电脑自带的任务计划来实现这个功能
这要用到计划任务，首先假定你这个程序的地址为“http://1.0.0.8/a.asp”，那么你编辑如下内容：
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
ie.navigate("http://1.0.0.8/a.asp")
ie.visible=1
Set IE = Nothing
存储成一个vbs后缀的文件，比如test.vbs。
在windows的管理工具——服务中启动“计划任务”服务。
在控制面板的“任务计划”中，双击“添加任务计划”。
点“下一步”。
点“浏览”，找到并选择你保存的VBS文件。
选择“每天”，点“下一步”。
点“下一步”。
输入你当前用户的登陆密码，点“下一步”。
点“完成”。
在任务计划中找到你新建的计划，双击它。
在“计划”中点“高级”。
选中“显示多项计划”。
点“删除”，再点“新建”。
将“开始时间”改为3：00，再点“新建”。
将“开始时间”改为8：50，再点“新建”。
将“开始时间”改为18：00，点“确定”。
计划配置完了，最后在你定时执行的程序的最后加上如下关闭窗口的代码：
<script language=javascript>
window.opener='';
window.close();
</script>
⑻ ASP程序 更新数据库记录
<%
UID=request("UID")
set rs2=server.CreateObject("adodb.recordset")
str2="Select * From zk_tuihuo"
rs2.open str2,connstr,1,3
rs2.addnew
rs2("zkBarcode")=Rs("oBarcode")
rs2("zkBookName")=Rs("oBookName")
rs2("zkTypeName")=Rs("oTypeName")
rs2("zkBookAuthor")=Rs("oBookAuthor")
rs2("zkBookpublished")=Rs("oBookpublished")
rs2("zkBooksCount")=Request.Form("tpcount")
rs2("zkISBN")=Request.Form("ISBN")
rs2("zkPublishyear")=Request.Form("tpdate")
rs2("zkBookID")=Request.Form("BookID")
rs2("zktpto")=Request.Form("tiaopeito")
rs2.update
rs2.close
set rs2=nothing
set rs=server.CreateObject("adodb.recordset")
str1="select* from proct_out where otpto='翠微店' and oBarcode='" & UID &"'"
rs.open str1,connstr,1,1
set rs3=server.CreateObject("adodb.recordset")
str3="Select * From BookInfo where Barcode='" & UID &"'"
rs3.open str3,connstr,1,1
Countr2=rs("oBookleft")
Countr=rs3("Bookleft")
tpcount=Request.Form("tpcount")
count2=Countr2-tpcount
count3=Countr+tpcount
str="update BookInfo set Bookleft="&count3 &" where Barcode='"&UID&"'"
str2="update proct_out set oBookleft="&count2 &" where otpto='翠微店' and oBarcode='"&UID&"'"
conn.execute(str)
conn.execute(str2)
Response.Write("<script language:javascript>javascript:window.opener=null;window.close();</script>")
%>
这样就行了 你试试
⑼ ASP 更新数据库字段内容
插入到你现有的ASP程序中
如何保存更新内容呢？
数据库结构：（一共三个字段）QuoteID（Long ），Quote（String ），Author（String）
下面一个技巧是如何让更新显示在任意一个页面上呢？
我们只要把更新内容和作者当返回值送给调用的页面即可。代码如下，其中logic是一个随机数，表示随机从数据库中显示哪个记录：
<%
Sub GetQuote(byVal strQuote, byval strAuthor)
Dim intMaxID&
Dim intRecordID
dim strSQL&
Dim oConn&
Dim oRS
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Database=mydb;DSN=Quotes;UID=sa;Password=;"
strSQL = "SELECT MaxID=max(QuoteId) from Quotes"
Set oRS = oConn.Execute(strSQL)
If oRS.EOF Then
strQuote = "站长太懒了，今天没有更新内容."
strAuthor = "呵呵"
Exit Sub
Else
intMaxID = oRS("MaxID")
End If
Randomize
intRecordID= Int(Rnd * intMaxID) + 1
strSQL = "Select * from quotes where QuoteID=" & intRecordID & ";"
Set oRS = oConn.Execute(strSQL)
If oRS.EOF Then
strQuote = "站长太懒了，今天没有更新内容."
strAuthor = "呵呵"
Exit Sub
Else
oRS.MoveFirst
strQuote = oRS("Quote")
strAuthor = oRS("Author")
End If
oRS.Close
oConn.Close
Set oRS = Nothing
set oConn = Nothing
End Sub
%>
其实在程序中如果使用一个嵌套的SQL能够提高性能，例如这样
Select * from Quotes where QuoteID = (Select int ( RND * Max(QuoteID) ) from Quotes );
可是问题是有些数据库的随机数函数是RAND而不是RND，如果要是你自己用的话，那当然可以使用这句话代替我上面介绍的方法，可别忘了，要是别人的数据库不支持RAND怎么办，呵呵。
现在我们将上面的代码保存到一个名叫quotes.inc的文件中来，下面就举一个如何调用它的例子把：
<HTML>
<HEAD>
<TITLE>例子</TITLE>
<!--#include virtual = "quotes.inc" -->
</HEAD>
<BODY>
<BR><BR>
<%
Dim strQuote
Dim strAuthor
GetQuote(strQuote, strAuthor)
%>
<TABLE BORDER=0 CELLPADDING=6 CELLSPACING=5 BGCOLOR="#000000" WIDTH=500>
<TR BGCOLOR="#CCCCCC">
<TD ALIGN=CENTER>
<B>"<% =strQuote %>" <BR>--<I><% =strAuthor %></I></B>
</TD>
</TR>
</TABLE>
<BR><BR>
</BODY>
</HTML>
其实你可以再加强点它的功能：
1.可以在子过程中给返回的字符串带上格式，这样显示会更加漂亮
2。将这个代码做成一个组件来调用
3。使用一个文本文件来代替数据库
4。将SQL放到存储过程中去
⑽ asp中使用update语句更新access数据库怎么做
spl="update "&CategoryName&"_SoftInfo set "&CategoryName&"_SoftInfo.SubcateName='"&trim(rs("SubCateName"))&"' where "&CategoryName&"_SoftInfo.SoftID="&request("SoftID")
你的字符串里面引号用很迷糊.多练练吧.有些是asp的东西.不应试内跟容sql混为一起