Question

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

<%
'打开场地数据库------------------
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("4:00-5:00") %></div></td>
<td class="text"><div align="left"><%= rs_badminton("5:00-6:00") %></div></td>
<td class="text"><div align="left"><%= rs_badminton("6:00-7:00") %></div></td>
<td class="text"><div align="left"><a href=del.asp>删除</a></div></td>
</tr>
%>

以下为del.asp代码：

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

错误类型：
Microsoft OLE DB Provider for SQL Server (0x80040E14)
第 1 行: '位置' 附近有语法错误。
/数据实验二/del.asp, 第 15 行
是否这句话"weiji=Request("位置") "根本就无法接收数据信息??

Answer 1

<%
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) \ &HFF
l = jjjj And &HFF
s = s & "%" & Hex(h) & "%" & Hex(l)
End If
Next
%>