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

[私密日志] 私密日志

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

[私密日志] 私密日志

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

更新

sql="select * from sta"
    call joekoe_cms.exec("",-1)
    rs.open sql,conn,1,3
    rs.addnew
    rs("ip")=user_ip
    ……
    rs.update
    rs.close

查看更多...

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

网摘统计修正

set rs=joekoe_cms.exec("select count(*) as Num from zhai where UserID='"&UserID&"' and ' '+Tags+' ' like '% "&TagArray(i)&" %'",1)    

引用内容 引用内容
call joekoe_cms.exec("update tags set num="&num&" where tag='"&TagArray(i)&"'",0)

查看更多...

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

管理后台经常自动退出

服务器端系统超时时间设定过短造成的
分类:Cms | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 699

[私密日志] 私密日志

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

[私密日志] 私密日志

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

书库调用

sub book()
dim cid,dateandtime,title,b_name,sql1,rs1,articleid,b_id,sql3,rs3,classid,temp1,sql2,c_name,zuozhe,c_id,rs2,tiime
%>

<table cellspacing=0 cellpadding=4 class=table>
<tr><td class=td> 最新更新</td></tr>
<tr class=bg_td><td align=center>
<table border=0 width='100%'>
<%
  sql="select * from bb_class order by tiime desc"
  set rs=joekoe_cms.exec(sql,1)
  for i=1 to 6
  if rs.eof then exit for
  zuozhe=rs("zuozhe")
  tiime=rs("tiime")
%>
<tr>
<%
cid=rs("c_id")
sql3="select * from jk_class where c_id="&cid
set rs3=joekoe_cms.exec(sql3,1)
b_id=rs("b_id")
response.write"<td> [<a href='book_list.asp?id="&rs3("c_id")&"'>"&rs3("c_name")&"</a>]  <a href='book_view.asp?b_id="&b_id&"'>"&rs("b_name")&"</a>  "
rs3.close
sql2="select * from b_article where b_id="&b_id&" and page=1 order by articleid desc"
set rs2=joekoe_cms.exec(sql2,1)
if rs2.eof and rs2.bof then
  response.write "暂无内容更新"
else
  dateandtime=rs2("dateandtime")
  title=rs2("title")
  articleid=rs2("articleid")
  c_id=rs2("c_id")
  rs2.close
  sql1="select * from bc_class where c_id="&c_id
  set rs1=joekoe_cms.exec(sql1,1)
  c_name=rs1("c_name")
  rs1.close
  response.write"   <a href='book_jie.asp?b_id="&b_id&"&aid="&articleid&"'><font class=gray>"&c_name&"  "&title&"</font></a></td>"
end if
  response.write"<td><a href='book_show.asp?word="&zuozhe&"'><font class=blue>"&zuozhe&"</font></td><td class=tims align=right><"&mid(tiime,6,4)&"></td>"
response.write"</tr>"
rs.movenext
  next
  rs.close
  response.write"</table>"&...

查看更多...

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

逆风音乐插件 图文调用

sub main_center_music(cs_tnum,cs_cnum)
  dim tmp1,tmp_topic,tmp_url
  tmp1=vbcrlf&"<tr align=center>"
  sql="select top 4 id,name,singer,s_id,n_id,lang,ptim,words,hits,pic from music_disk order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    tmp_topic=rs(1)
    tmp_url="music_disk_view.asp?id="&rs(0)
    tmp1=tmp1&vbcrlf&"<td>" & _
         vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
         vbcrlf&" <tr><td align=center>"&pic_fk(rs("pic"),4,tmp_url)&"</td></tr>" & _
         vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"' target=_blank>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
         vbcrlf&" </table>" & _
         vbcrlf&"</td>"
    rs.movenext
  loop
  rs.close
  tmp1=tmp1&vbcrlf&"</tr>"
  tmp1="<table border=0 cellspacing=0 cellpadding=0 width='519'>"&tmp1&vbcrlf&"</table>"
  response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
                 vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
                 vbcrlf&"</table>"&ukong
end sub

查看更多...

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

音乐 电影频道文字调用


case "video"
tmp_title="影视频道"
tmp_tit="影视标题"
tmp_count="浏览次数"
type1=""
 tmp_img="video"
tmp_table="video"
tmp_record="id,name,username,tim,counter"

case "music"
tmp_title="音乐频道"
tmp_tit="音乐频道"
tmp_count="浏览次数"
tmp_img="music"
type1=""
tmp_table="mv_special"
tmp_record="SpecialID,name,NClass,tim,tims,hits"

查看更多...

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