ASP删除记录问题，怎么改？谢谢啦。。

来源：百度知道 编辑：UC知道 时间：2024/06/06 19:44:05
<%
'打开场地数据库------------------
gym_conn= "Provider=SQLOLEDB;Server=(local);DATABASE=xiangmu;uid=sa;PWD="
set rs_badminton=server.CreateObject("adodb.recordset")
sql = "select * from badminton"
rs_badminton.open sql,gym_conn,3,2
rs_badminton.movefirst
while(not rs_badminton.eof or rs_badminton.bof)
%>
<tr>
<td class="text"><div align="left"><%= rs_badminton("位置") %></div></td>
<td class="text"><div align="left"><%= rs_badminton("费用") %></div></td>
<td class="text"><div align="left"><%= rs_badminton("3:00-4:00") %></div></td>
<td class="text"><div align="left"><%= rs_badminton(&q

<%
weiji=Request("位置")
gym_conn= "Provider=SQLOLEDB;Server=(local);DATABASE=xiangmu;uid=sa;PWD="
set rs_del=server.CreateObject("adodb.recordset")
sql="select * from badminton where 位置="&weiji
rs_del.open sql,gym_conn,2,3 '（15行）
rs_del.delete
rs_del.update
rs_del.colse
set rs_del=nothing
%>

补充:
你的'位置'返回是%什么的还是空呢,你write一下看看是空还是url代码.如果是url代码问题,那么把这个放最前面:
<% 'url代码转换为gb代码.
cc=request("cx") '这里是你的返回函数值,"cx"自己修改.
Dim s
dim t
dim i
dim jjjj
dim h
dim l
dim xxxx
s=""
xxxx=Len(cc)
For i =1 to xxxx
t = Mid(cc,i,1)
jjjj = Asc(t)
If jjjj> 0 Then
If f Then
s = s & "%" & Right("00" & Hex(Asc(t)),2)
Else
s = s & t
End If
Else
If jjjj < 0 Then jjjj = jjjj + &H10000
h = (jjjj And &HFF00) \