关于JS调用的问题,帮帮忙!

来源:百度知道 编辑:UC知道 时间:2024/05/26 10:27:10
调用代码如下: 这是个调用论坛主题代码.我意思是想在每个主题后加个图.该怎么搞? 菜鸟一个..帮帮哈.!

<%
dim foolcat,title
dim js,strsql
set js = server.CreateObject("ADODB.RecordSet")
strSql = "select top "&HOST_JS&" * from QiQiBoy_Topic_Disp where ParentID=0 Order By TopicID Desc"
set js = conn.Execute (StrSql)
do until js.eof
title=""&js("Title")&" - "&js("DateAndTime")&""
if len(title)>32 then
title=left(title,32)+"..."
else
title=title
end if

tmp = "http://" & request.servervariables("SERVER_NAME") & _
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/js/topic_js.asp"))
foolcat = foolcat + "·<a href="&tmp&"/p.asp?/="&js("RootID")&">" & title & "</a><br>"
i=i+1
if i>=HOST_

foolcat = "document.write('<img src=你的图片地址>'+'" & foolcat & "')"
就这样!

那把上面的个去掉
加在这里吧
foolcat = foolcat + "<img src=你的图片地址>·<a href="&tmp&"/p.asp?/="&js("RootID")&">" & title

都不明白你的意思。整个效果图来看哈