一个数组的问题.
th001 2005-04-03 01:01:41 我有如下一段代码:
本想实现以下功能,当点击删除的时候,自动删除掉相应的内容,例如:在message表中message的值为:
|你|好|么?
点击 '你'"删除" 想让其删除'你'字.
<!--#include file="conn.asp"-->
<%
Dim username,realname,userid,message,tip
set rs=server.createobject("adodb.recordset")
sql="select * from message"
rs.open sql,cn,1,3
message=rs("message")
tip=Split(message,"|")
count=UBound(tip) - LBound(tip) + 1
%>
<% =count %>
<% ="<BR>" %>
<%
for i=1 to count-1
response.write tip(i)
%>
<A HREF="show_message.asp?messageid=<%=i%>">删除</A>
<%
next
%>
<% ="<BR>" %>
<%
message1=""
%>
<% id=request("messageid") %>
<% ="<BR>" %>
<% =id %>
<% ="<BR>" %>
<%
for i=0 to count-1
if i<>CInt(id) then
message1=message1&"|"&tip(i)
end if
'response.write tip(i)
next
%>
<%
for i=1 to count-1
response.write tip(i)&" "
next
%>
<% =message1 %>
<%
rs.close
sql="update message set message='"&message1&"'"
rs.open sql,cn,1,3
%>
运行结果如下:
4
你 删除 好 删除 么? 删除
你 好 么? |你|好|么?
确实 按相应的删除会删掉相应的字,但是我发现一个很奇怪的事情,就是如果按 删除'你'倒也罢了,如果按 删除'好'地址栏出现../show_message.asp?messageid=2的字样,如果再按刷新,则第一个 '你'字也不见了,要是 按删除 '么?'刷新,每刷一次前面的就掉一个,请问这到底是怎么回事情?
|你|好| 这样的情况使用message=rs("message") tip=Split(message,"|")数组内是什么样子?为什么?怎么改?