2.8w+
社区成员
- 主页
替换问题，，替换成多条记录，特急，，，，谢谢！
问题是这样的：
首先我在库中查询出8条记录。
Sql="select top 8 * from [data] where title like '%"&KEY&"%' order by id desc"
然后我想用替换语句把原页中的关键字[KEY]，替换成这查询出的八条记录，怎么实现。
content = replace(content,"KEY",**********)
快帮我啊！
谢谢大家
首先我在库中查询出8条记录。
Sql="select top 8 * from [data] where title like '%"&KEY&"%' order by id desc"
然后我想用替换语句把原页中的关键字[KEY]，替换成这查询出的八条记录，怎么实现。
content = replace(content,"KEY",**********)
快帮我啊！
谢谢大家
...全文
请发表友善的回复…
发表回复
pipifirst 2004-04-11
怎么回事啊？
pipifirst 2004-04-11
只有一条！
pipifirst 2004-04-11
好象也不行吧
zhengxianping 2004-04-11
楼上的方法实现不了吗？
Homk 2004-04-11
<%set rs = server.createobject("adodb.recordset")
Sql="select top 8 * from [data] where title like '%"&KEY&"%' order by id desc"
rs.open sql,conn,1,1
%>
<table>
<%
dim LikeKey
do while not rs.eof
LikeKey = rs("title")
content = replace(content,"KEY",LikeKey)
%>
<tr>
<td><%=content%></td>
<tr>
<% rs.movenext
loop
%>
</table>
Sql="select top 8 * from [data] where title like '%"&KEY&"%' order by id desc"
rs.open sql,conn,1,1
%>
<table>
<%
dim LikeKey
do while not rs.eof
LikeKey = rs("title")
content = replace(content,"KEY",LikeKey)
%>
<tr>
<td><%=content%></td>
<tr>
<% rs.movenext
loop
%>
</table>
pipifirst 2004-04-11
快，有会的吗？帮我忙啊
pipifirst 2004-04-11
Homk(LUN)
的方法只能查询出一条啊
的方法只能查询出一条啊
diveas 2004-04-11
循环从上页获取的n条纪录，用结构化查询语句更新。
diveas 2004-04-11
FOR EACH list in request.form("list")
sql="update 表 set 字段=true where 主键ID="&list&""
'Response.Write sql
set objrs=conn.execute(sql)
next
sql="update 表 set 字段=true where 主键ID="&list&""
'Response.Write sql
set objrs=conn.execute(sql)
next
Homk 2004-04-11
循环来实现~
先把查寻出来的一个记录放到变量里
然后用这个变量来替换
set rs = server.createobject("adodb.recordset")
Sql="select top 8 * from [data] where title like '%"&KEY&"%' order by id desc"
rs.open sql,conn,1,1
dim LikeKey
do while not rs.eof
LikeKey = rs("title")
content = replace(content,"KEY",LikeKey)
rs.movenext
loop
先把查寻出来的一个记录放到变量里
然后用这个变量来替换
set rs = server.createobject("adodb.recordset")
Sql="select top 8 * from [data] where title like '%"&KEY&"%' order by id desc"
rs.open sql,conn,1,1
dim LikeKey
do while not rs.eof
LikeKey = rs("title")
content = replace(content,"KEY",LikeKey)
rs.movenext
loop