www.tjgcgs88.cn-狠狠久久亚洲欧美专区不卡,久久精品国产99久久无毒不卡,噼里啪啦国语版在线观看,zσzσzσ女人极品另类

我在本機(jī)幫你測(cè)試了，建議及代碼如下：
1、將數(shù)據(jù)庫(kù)里【訂單號(hào)】字段 改為英文
代碼如下：替換del.asp即可

注意將代碼中 兩個(gè) 字段 替換為你修改過(guò)的英文字段
<%

Dim BID
BID=Trim(Request("BID"))
if Not(IsNumeric(BID)) then '如果地址欄傳遞的定單號(hào)不是數(shù)字
response.write"<script language='javascript'>alert('賬單號(hào)不合法！');history.back(-1);</script>"
response.End
end if

Set conn = Server.CreateObject("ADODB.Connection")
P1="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&Server.MapPath("../common/DataBase/pgc.mdb")
conn.open p1

Set Rs=Server.CreateObject("ADODB.recordset")
sql="select * from [ddmxb] where 字段'="&BID&""
response.write sql
Rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
Response.write"沒(méi)有對(duì)應(yīng)記錄，或者記錄已經(jīng)被刪除"
else
Conn.execute("delete * from [ddmxb] where 字段="&BID&"")
Response.write"刪除成功！"
end if
Set Rs=nothing
Conn.close
set conn=nothing
%>
回答完畢，有問(wèn)題請(qǐng)補(bǔ)充

你數(shù)據(jù)庫(kù)的訂單號(hào)是什么類型的
如果是文本的話
下面這句
sql="select * from [ddmxb] where 定單號(hào)="&BID&""
要改成
sql="select * from [ddmxb] where 定單號(hào)='"&BID&"'"
這句
Conn.execute("delete * from [ddmxb] where 定單號(hào)="&BID&"")
也改成
Conn.execute("delete * from [ddmxb] where 定單號(hào)='"&BID&"'")

注意單引號(hào)

a href="del.asp?BID=<%=Rs("定單號(hào)")%>" onclick='Javascript:return confirm("你確定要?jiǎng)h除嗎？");'>刪除</a>

該頁(yè)連接到 del.asp?bid=定單號(hào)

del.asp頁(yè)首先應(yīng)該這樣些
<%dim conn,connstr,db,startime
startime=timer()
db="../common/DataBase/pgc.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
sub closedb()
conn.close
set conn=nothing
end sub
'######################################################連接ACCESS數(shù)據(jù)庫(kù)
set rs=server.createobject("adodb.recordset")
sql="select * from ddmxb where 訂單號(hào)="'"&bid&"
'###########################讀取ddmxb表中訂單號(hào)為連接過(guò)來(lái)的bid值的記錄
rs.open sql,conn,3,2
'###########################打開(kāi)為可讀寫(xiě)刪
rs.delete
'#########################刪除檢索的該記錄
response.write "<script language='javascript'>"
response.write "alert('刪除成功！');"
response.write "location.href='"&request.servervariables("http_referer")&"';"
response.write "</script>"
'###########################刪除成功并返回前一頁(yè)
rs.close
set rs=nothing
%>

Rs.open sql,conn,1,1
把后面那個(gè)1改成3

sql="select * from [ddmxb] where 定單號(hào)="&BID&""
這句，由于那個(gè)BID是數(shù)字型的，所以不用加后面的&""
Set Rs=Server.CreateObject("recordset")
sql="select * from [ddmxb] where 定單號(hào)="&BID
Conn.execute("delete * from [ddmxb] where 定單號(hào)="&BID)
If err.number<>0 then
Response.write"沒(méi)有對(duì)應(yīng)記錄，或者記錄已經(jīng)被刪除"
end if
Set Rs=nothing
Conn.close
set conn=nothing

各位兄弟姐妹,是第十行出錯(cuò)了conn=server.createObject("adodb.connection")
原因是缺少對(duì)象.你以前是寫(xiě)java之類的語(yǔ)言的吧.
在ASP的VB中創(chuàng)建對(duì)象應(yīng)該加Set關(guān)鍵字
這句話應(yīng)該寫(xiě)成
Set conn = Server.CreateObject("Adodb.Connection")
對(duì)于普通變量如字符串可以直接寫(xiě)connstr = "I love You"

相關(guān)評(píng)說(shuō)：

藍(lán)賤13666959928： ASP如何批量刪除ACCESS數(shù)據(jù)庫(kù)中的內(nèi)容
貢覺(jué)縣余高： ______ 數(shù)據(jù)庫(kù)操作用SQL完成,delete * from 表名 where 條件

藍(lán)賤13666959928： asp對(duì)Access數(shù)據(jù)庫(kù)的增加、修改、刪除
貢覺(jué)縣余高： ______ 增加:insert into 表名 values('插入的內(nèi)容') 刪除:delete from 表名 [where<條件>] 查詢:select* from 表名 where 條件 修改:update 表名 set 列名=表達(dá)式 where 條件 根據(jù)具體情況把相應(yīng)的地方填上就行了.我說(shuō)的很籠統(tǒng),具體還要你自己體會(huì). 我建議你去買本數(shù)據(jù)庫(kù)的書(shū)看看!很有用的!

藍(lán)賤13666959928： ASP如何鏈接access數(shù)據(jù)庫(kù)文件及如何更改刪除access數(shù)據(jù)庫(kù)內(nèi)容??
貢覺(jué)縣余高： ______ <% set conn = Server.CreateObject(＂ADODB.Connection＂) sql=＂Driver={Microsoft Access Driver (*.mdb)}; DBQ=＂& server.mappath(＂user.mdb＂) conn.open sql str1=＂delete from table where 條件＂ '刪除記錄 conn.execute str1 str2=＂...

藍(lán)賤13666959928： 在asp中刪除access中的數(shù)據(jù)
貢覺(jué)縣余高： ______ if request.querystring(＂action＂)=＂del＂ then dim id id=request.querystring(＂id＂) sql=＂delete from student where id='＂ & id & ＂'＂ conn.Execute sql end if 在你的刪除按鈕加入這個(gè)連接,?id=記錄集(＂id＂)&action=del

藍(lán)賤13666959928： asp 刪除access數(shù)據(jù)庫(kù)表中的數(shù)據(jù)
貢覺(jué)縣余高： ______ 這里建議TioZlc將鏈接改寫(xiě)一下: &lt;a href=＂del.asp?BID=&lt;%=Rs(＂定單號(hào)＂)%&gt;＂ onclick='Javascript:return confirm(＂你確定要?jiǎng)h除嗎?＂);'&gt;刪除&lt;/a&gt; 至于為什么把del.asp?后的變量改寫(xiě)成英語(yǔ)而非中文 主要是涉及...

藍(lán)賤13666959928： ASP+Access怎么刪除指定表,是刪除 而不是只刪除表中的數(shù)據(jù). -
貢覺(jué)縣余高： ______ 打開(kāi)MDB,直接刪.

藍(lán)賤13666959928： asp如何自動(dòng)刪除access數(shù)據(jù)庫(kù)過(guò)期記錄?高分求助?
貢覺(jué)縣余高： ______ 網(wǎng)站頁(yè)面在沒(méi)有打開(kāi)時(shí)能自動(dòng)執(zhí)行 asp+access是不可能做得到,但是通過(guò)其他方式可以間接實(shí)現(xiàn)該功能,如果你的網(wǎng)站一直沒(méi)有人訪問(wèn),建議就不要做站了,只要有人訪問(wèn)就可以執(zhí)行ASP程序,哪怕你的客戶現(xiàn)在就要查看記錄,我相信該刪除的數(shù)據(jù)一樣可以馬上執(zhí)行刪除,客戶當(dāng)時(shí)是看不到過(guò)期信息的,不過(guò)刪除可以完全刪除數(shù)據(jù)庫(kù)數(shù)據(jù),或者做個(gè)刪除的標(biāo)記不顯示出來(lái),以后統(tǒng)一刪除過(guò)期信息. 實(shí)現(xiàn)以上功能: 1.需要記錄發(fā)布信息的時(shí)間(服務(wù)器時(shí)間) 2.記錄并更新當(dāng)前時(shí)間數(shù)據(jù)(服務(wù)器時(shí)間) 3.比較時(shí)間 4.通過(guò)比較時(shí)間結(jié)果自動(dòng)刪除數(shù)據(jù).

藍(lán)賤13666959928： ASP刪除數(shù)據(jù)庫(kù)記錄 -
貢覺(jué)縣余高： ______ 首先你的checkbox上有那個(gè)yid值:<input name=＂del＂ id=＂del＂ type=＂checkbox＂ value=＂<%=rs(＂yid＂)%>＂/> 下一個(gè)頁(yè)面取id做刪除操作,假設(shè)可用連接是conn id = request(＂del＂) if id <>＂＂ then sql=＂delete from gg where y_id=＂&id conn.execute(sql) end if

藍(lán)賤13666959928： 用ASP刪除ACCESS數(shù)據(jù)庫(kù)中某一字段內(nèi)容
貢覺(jué)縣余高： ______ &lt;html&gt;&lt;head&gt;&lt;title&gt;用ASP刪除ACCESS數(shù)據(jù)庫(kù)中的數(shù)據(jù)&lt;/title&gt; &lt;/head&gt;&lt;body&gt;&lt;ctenter&gt; &lt;%Dim Db,StrSQL,Rs Set Db=Server.CreateObject(＂ADODB.Connection＂) Db.Open ＂Dbq=＂&amp;Server....

藍(lán)賤13666959928： asp如何刪除數(shù)據(jù)庫(kù)某表中的所有記錄? -
貢覺(jué)縣余高： ______ <% Dim conn,connSql ConnSql=＂driver={SQL Server};server=.; uid=sa;pwd=sa;database=lab1＂ Set conn = Server.CreateObject(＂Adodb.Connection＂) conn.open connSql dim dsql dsql=＂delete from [table]＂ conn.execute dsql conn.execute dsql conn.close set conn=nothing%>