HxCmsV8.0本站首页留言调控方法

'=================================================
'过程名：index_book2
'作  用：首页留言调用
'参  数：num-------------调用条数
'        fontnum---------标题长度
'Web:    http://www.Hxcms.net
'=================================================
sub index_book2(num,fontnum)
sql="select top "&num&" id,zt,name,words,date,reply from words order by date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<ul  class=""list"">"
if rs.eof and rs.bof then
Response.Write "<li>暂时没有留言</li>"
else
do while not rs.eof
Response.Write "<li><span>"
If rs("reply")<>"" Then
Response.Write "[已回复]"
else
Response.Write "<FONT color=red>[未回复]</FONT>"
end if
Response.Write "</span>"

Response.Write "<a href=""GuestBook/Index.asp"" title=""留言姓名："&rs("name")&"&#13&#10留言时间："&rs("date")&""">"&gotTopic(rs("zt"),fontnum)&"</a>" & vbCrLf
Response.Write "</li>" & vbCrLf
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.Write "</ul>"
end sub

第二步：在你首页需要调用的地方，特效//用<%call index_book2(10,26)%> 标签调用，即可.