首页调用最新留言(论坛)
select top 10 subject,id from KS_GuestBook order by id desc
循 环 体
[loop=10]
<li>.<a href="/guestbook/display.asp?id={$Field(id,num,1,)}" target="_blank">{$Field(subject,Text,30,...,0,)}</a></li>
[/loop]
系统函数标签里->其它->论坛帖子调用
留言板css定义
在images文件夹的index.css里注明有“/*留言系统*/”的
而且留言模版页里面也是带有CSS的,两个文件都看看
实现最新留言标题和回复内容
select top 10 AddTime,ID,Memo,UserName from KS_GuestBook where verific=1 order by id desc
在这查询语句中在加上回复字段!
调用网站留言(也就是最新几条留言记录)
[select top 10 AddTime,ID,Subject from KS_GuestBook order by id desc
[loop=8]
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>·<a href="/GuestBook/display.asp?id={$Field(ID,Num,0,2)}" target="_blank" title="{$Field(Subject,Text,0,...,0,)}">{$Field(Subject,Text,14,,0,暂时无留言咨询)}</a><font color="666666"> ({$Field(AddTime,Date,MM-DD)}) </font></td>
</tr>
</table>
[/loop]
<div align=right><a target=_blank href=/GuestBook>更多...</a></div>
首页最新留言8条调用
我在首页调用最新8条留言,按照系统原带的SQL留言标签修改成{SQL_最新帖子(8)} : select top {$Param(0)} ID,Subject,AddTime from KS_GuestBook where verific=1
order by addtime desc
order by id desc
[loop={$Param(0)}] ·{$Field(Subject,Text,31,,0,)}
<table border="0" width="99%" align="center" cellpadding="0" cellspacing="0" class="announce">
[loop={$Param(0)}]
<tr>
<td height="19" align="left">·<a target="_blank" href="{$GetSiteUrl}guestbook/display.asp?id={$Field(ID,GetInfoUrl,0,2)}">{$Field(Subject,Text,31,,0,)}</a></td>
<td align="right">{$Field(AddTime,Date,MM-DD)}</td>
</tr>
<tr><td background="{$GetSiteUrl}images/m-dot.gif" height="1" colspan="2"></td></tr>
[/loop]
</table>
留言本放到首页
直接将留言本的留言代码复制到首页就差不多了,自己稍加修饰下便是了
<form action="/guestbook/Save_Post.asp" method="post" name="myform" onSubmit="return datacheck();">
注意红色的地址
调用出最新回复一问一答的形式,点击还能进入问题:
select top 10 AddTime,Subject,content from KS_GuestBook a,KS_GuestReply b where a.id=b.topicid order by a.id desc
[loop=10]
<li>问:{$Field(Subject,Text,0,...,0,)} {$Field(AddTime,Text,0,...,0,)}<br>
答:{$Field(content,Num,0,2)}</li>
[/loop]
首页的留言板如何调用一个分类?
select top 10 AddTime,ID,Memo,UserName from KS_GuestBook order by id desc
加上条件了,看看以下行不行
select top 10 AddTime,ID,Memo,UserName from KS_GuestBook where boardid=分类ID order by id desc
[loop=10]
<div class="side_hotnav">
<font color=green>♀</font>
<font color=red>{$Field(UserName,Text,10,...,2,)}:</font>
<a href="/GuestBook/display.asp?id={$Field(ID,Text,0,...,0,)}" target="_blank">
{$Field(Memo,Text,47,...,2,)}</a>
</DIV>
[/loop]
1.最新帖子调用
第一步 sql标签名称: 最新帖子
数 据 源: KesionCMS主数据库
ajax输出:否
标签类型:普通标签
第二步参数说明:调用条数
sql语句:select top {$Param(0)} ID,Subject,AddTime from KS_GuestBook where verific=1 order by addtime desc
第三步:sql标签循环体
<table border="0" width="99%" align="center" cellpadding="0" cellspacing="0" class="announce">
[loop={$Param(0)}]
<tr>
<td height="25" align="left">·<a target="_blank" href="{$GetSiteUrl}guestbook/display.asp?id={$Field(ID,GetInfoUrl,0,2)}">{$Field(Subject,Text,35,,0,)}</a></td>
<td align="right">{$Field(AddTime,Date,YYYY-MM-DD)}</td>
</tr>
<tr><td background="{$GetSiteUrl}images/m-dot.gif" height="1" colspan="2"></td></tr>
[/loop]
</table>
最后一步,在模型里调用
{SQL_最新帖子(10)}
2.最新评论调用
第一步 sql标签名称: 最新评论
数 据 源: KesionCMS主数据库
ajax输出:否
标签类型:普通标签
第二步 参数说明:调用条数
sql语句:select top 12 ID,ChannelID,InfoID,Content,AddDate from KS_Comment where verific=1 order by adddate desc
第三步:sql标签循环体
[loop=12]
<img src="/UpFiles/blue.gif" border="0"><a target="_blank" title="{$Field(Content,Text,0,...,2,)}" href="/plus/Comment.asp?ChannelID={$Field(channelid,Num,0,2)}&ClassID={$Field(classid,Num,0,2)}&InfoID={$Field(infoid,Num,0,2)}">{$Field(content,Text,46,...,2,)}</a> ({$Field(AddDate,Date,MM-DD)})<br />
[/loop]
最后一步,在模型里调用
{SQL_最新评论(10)}
3.最新留言调用
第一步
sql标签名称: 最新留言
数 据 源: KesionCMS主数据库
ajax输出:否
标签类型:普通标签
第二步
参数说明:调用条数
sql语句:select top 10 id,AddTime,Memo,Name from KS_GuestBook order by id desc第三步:
sql标签循环体
[loop=7]
<img border="0" src="/images/editfile.gif">[{$Field(Name,Text,10,...,2,)}]-{$Field(Memo,Text,36,...,2,)} ({$Field(AddTime,Date,MM-DD)})
<br />
[/loop]
最后一步,在模型里调用
{SQL_最新留言(10)}
div布局下留言板之签写留言当前心情头像的修改方法
|
文件:Post.asp 行数:101(按钮)和103(头像) 解决方法:在网站调用的css文件中加上一下代码: /*浮动样式,可以自定义*/ .left {float:left;} .right {float:right;} 在该文件代码中添加调用的浮动样式,修改后的代码如下: Function EmotList() Dim I For I=1 To 30 EmotList=EmotList & "<input class=""left"" type=""radio"" name=""txthead"" value=""" & I & """" IF I=1 Then EmotList=EmotList & " Checked" EmotList=EmotList & " ><img class=""left"" src=""../Images/Face1/Face" & I & ".gif"" border=""0"">" IF I Mod 15=0 Then EmotList=EmotList & "<BR>" Next End Function IF I Mod 15=0 表示每行15个,输出15个后换行,因为一共有30个表情,所以15个一行的话就是两行,如果你需要自己设置行数,请自己计算 |