分类: Cms预览模式: 普通 | 列表

网站图片竖行通用调用

显示被隐藏内容 显示被隐藏内容
sub main_pic(cs_tnum,cs_data,cs_sid,cs)   
dim tmp1,tmp_topic,tmp_url,n
select case cs
case "0"
n="c"
case"1"
n="s"
end select
tmp1=vbcrlf&"<tr align=center>"   
sql="select top "&cs_tnum&" id,topic,pic from "&cs_data&" where hidden=1  and "&n&"_id="&cs_sid&" order by pic desc"   
set rs=joekoe_cms.exec(sql,1)   
do while not rs.eof   
tmp_topic=rs(1)   
tmp_url="/"&cs_data&"/"&cs_data&"_view.asp?id="&rs(0)   
tmp1=tmp1&vbcrlf&"<td align=center>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td height=15></td></tr>" & _
vbcrlf&" <tr><td align=center><a href="&tmp_url&" target=_blank>"&pic_url(rs("pic"),5)&"</a></td></tr>" & _
vbcrlf&" </table>" & _
vbcrlf&"</td></tr>"
rs.movenext   
loop   
rs.close   
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
vbcrlf&"<tr class=bg_td><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"
end sub


<%call main_center_list("news",5,15,1)%>
隐藏内容 隐藏内容
该内容已经被作者隐藏,只有会员才允许查阅 登录 | 注册

查看更多...

分类:Cms | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 824

屏蔽关键字

传奇私服|私服登陆器|手机铃声 |免费铃声 |mp3铃声 |都市乐购|翻译公司|wow power leveling|wow gold

查看更多...

分类:Cms | 固定链接 | 评论: 9 | 引用: 0 | 查看次数: 844

菜单

HTML代码


[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

查看更多...

分类:Cms | 固定链接 | 评论: 6 | 引用: 0 | 查看次数: 740

[私密日志] 私密日志

该日志是私密日志,只有管理员或发布者可以查看!
分类:Cms | 固定链接 | 评论: 5 | 引用: 0 | 查看次数: 594

[私密日志] 私密日志

该日志是私密日志,只有管理员或发布者可以查看!
分类:Cms | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 591

禁止留言广告

修改文件:gbook.asp 
1.在sub gbook_write()内找到dim ....定义变量行的最后加上,datagl 

2.在found_err=""的前面加上 

引用内容 引用内容
datagl="**|**|发电机|**|火车票|**|**|矫直机|安利|手机铃声|铃声下载|手机图片|金属探测器|单机游戏|木业|液压机|防水|材料|钢管|加工|玩具|**|广告|**|**"


3.在found_err=""的后面加上 

引用内容 引用内容
for i=0 to ubound(split(datagl,"|")) 
      if instr(drword,split(datagl,"|")(i))>0 then 
        found_err=found_err&"+对不起,您输入的内容涉嫌广告,禁止留言!<br>" 
      end if 
    next



显示被隐藏内容 显示被隐藏内容
增加后台管理

datagl=web_dim(25)

打开
admin_config_edit.asp

增加

<tr>
<td>留言过滤:</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=web_dim_25 rows=3 cols=61><%response.write web_dim(25)%></textarea></td>
  <td><%call admin_read("","不健康字符","网站注册新用户时要保留下来的用户名,多个关键字请用“:”(小写的冒号)格开")%></td>
  </tr>
  </table>
</td>
</tr>
隐藏内容 隐藏内容
该内容已经被作者隐藏,只有会员才允许查阅 登录 | 注册

查看更多...

分类:Cms | 固定链接 | 评论: 5 | 引用: 0 | 查看次数: 697

[私密日志] 私密日志

该日志是私密日志,只有管理员或发布者可以查看!
分类:Cms | 固定链接 | 评论: 6 | 引用: 0 | 查看次数: 579

[私密日志] 私密日志

该日志是私密日志,只有管理员或发布者可以查看!
分类:Cms | 固定链接 | 评论: 6 | 引用: 0 | 查看次数: 602

[私密日志] 私密日志

该日志是私密日志,只有管理员或发布者可以查看!
分类:Cms | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 617

[私密日志] 私密日志

该日志是私密日志,只有管理员或发布者可以查看!
分类:Cms | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 622