软件下载的详细列表joekoecms1.2

http://www.joekoe.cn/forum/view_81961.html

1.2后台增加smtp邮件配置功能

http://www.bullcn.cn/article.asp?id=682

查看更多...

Tags: 原创原创

首先进入后台管理，影院管理－－影院模版管理中，正常有两个模板，点开，将HtmlNums(12)框内的代码替换成：

<script language=javascript>
<!--
function video_view(id,fid)
{
  if (note_emoney('在线收看此影片','{$v_emoney}','{$v_power}'))
  {
  open_win('video_player.asp?id='+id+'&fid='+fid,'video_player',600,430,'no');
  }
}
-->
</script>
  <tr>
  <td width='25%'><img src='{$picurl}small_plays.gif' border=0></td>
  <td width='75%'>{$nodown}{$friend}</td>
  </tr>
  <tr><td height=2></td><td></td></tr>
  <tr><td colspan=2 align=center width='100%' class=bw>
    <table border=0 width='98%' class=tf>
    <tr><td>
    {$body}
    </td></tr>
    </table>
  </td></tr>

注：全部替换

下载下面的压缩文件，解压后替换原文件，共三个文件，一个新增，两个替换。

查看更多...

将以下代码放在首页最后一个%>前面


Code:
sub main_center_pictrue(cs_tnum,cs_num,cs_cnum)
  dim tmp1,tmp_topic,tmp_url
  i=1
  sql="select top "&cs_tnum&" id,name,spic from gallery where hidden=1 and types='paste' order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    tmp_topic=rs(1)
    tmp_url="gallery_view.asp?id="&rs(0)
  if i=1 then tmp1=vbcrlf&"<tr>"
    tmp1=tmp1&vbcrlf&"<td width='10%'>" & _
         vbcrlf&" <table border=0 cellspacing=0 cellpadding=2>" & _
         vbcrlf&" <tr><td align=center>"&pic_fk(rs("spic"),1,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>"
  if i mod cs_num=0 then tmp1=tmp1&vbcrlf&"  </tr>" 
    rs.movenext
  i=i+1 
  loop
  rs.close
  tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 width='100%' class=table3>" & _
                 vbcrlf&"<tr><td class=td1> 精彩推荐</td></tr>" & _
                 vbcrlf&"<tr><td height=2 valign=top bgcolor='#DBCAAC'></td...

查看更多...

把乔克作为影视为主的站点，我想很多朋友都在尝试，作为学习者，我也和大家共享一点自己研究的东西。（如果有问题，欢迎高手批评指正！！）

运行环境：乔克CMS1.2+影视插件（同时自己改数据库为SQL了，如果ACCESS数据库的朋友调试出现问题，请修改数据库连接相关语句）

效果：首页随机调用自己定义的一定数量的影片

目的：不经常更新的朋友，可以用这个来弥补，造成更新很快的假相（不提倡弄虚作假，呵呵）

在首页index2.asp文件中加入以下定义：

Code:

sub main_center_video(vname,vgen,c_num,w_num)
dim osql,id,name,pnum
select case vgen
case "hot"
osql=" order by counter desc,id desc"
case "good"
osql=" and star=5 order by tim desc,id desc"
case else
osql=" order by id desc"
end select
pnum=100\c_num 
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write vname%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr align=center>
<%
if vgen="good" then
Dim idCollection,idArray,n,NN,idResult,idNum,idCount,idBound
idBound=50
set rs=joekoe_cms.exec("select count(id) as idCount from video where hidden=1 and star=5",1)
idCount=rs("idCount")
if idCount>idBound then
idCount=idBound
end if
rs.close
set rs=joekoe_cms.exec("select top " & idBound & " id from video where hidden=1 and star=5 order by id desc",1)
idCollection=""
do while not rs.eof
if n<idCount then
idCollection=idCollection & rs("id") & ","
else
idCollection=idCollection & rs("id")
end if
rs.movenext
loop
idArray=Split(idCollection,",")
idResult=""
idNum=0
do while idNum<6
Randomize()
NN=int(rnd()*Ubound(idArray)+1)
'response.write Ubound(idArray) & "-" & NN
'response.Flush()
if idArray(NN)<>"" then
idResult=idResult & idArray(NN) & ","
idArray(NN)=""
idNum=idNum+1
end if
loop
if len(idResult)>1 then
idResult=Left(idResult,Len(idResult)-1)
end if
rs.close
sql="select id,name,types,genre,lang,star,emoney,power,counter,star,remark,pic from video where id in (" & idResult & ") and hidden=1 and star=5 order by tim desc,id desc"

else
sql="select top "&c_num&" id,name,types,genre,lang,star,emoney,power,counter,star,remark,pic&nb...

查看更多...

该日志是私密日志，只有管理员或发布者可以查看！

修改方法：

1、找到admin_nsort.asp

添加一个定义分类页面的函数，你的页面与我的未必相同，请根据自己的不同板块页面修改：

function nsort_formastUrl(v_nsort,v_cid,v_sid)
dim tmp,tmp_cid,tmp_sid
tmp=web_dim(6)&v_nsort&"/"&v_nsort&"_list.asp?"
tmp_cid="c_id="&v_cid
if v_sid>0 then tmp_sid="&s_id="&v_sid
tmp=tmp&tmp_cid&tmp_sid
select case v_nsort
case "art"
tmp=web_dim(6)&"article/article_list.asp?action=more&"&tmp_cid&tmp_sid
case "shop","photo"
tmp=web_dim(6)&v_nsort&"/"&v_nsort&"_list.asp?"&tmp_cid&tmp_sid
case "news"
tmp=web_dim(6)&v_nsort&"/"&"class/c"&v_cid&".shtml"
if v_sid>0 then tmp=web_dim(6)&v_nsort&"/"&v_nsort&"_list.asp?"&tmp_cid&tmp_sid
case "gall"
tmp=web_dim(6)&"gallery/gallery.asp?types=paste&"&tmp_cid&tmp_sid
case "flash","film"
tmp=web_dim(6)&"gallery/gallery.asp?types="&v_nsort&"&"&tmp_cid&tmp_sid
end select
nsort_formastUrl=tmp
end function


2、修改过程：joekoe_chk_js()
可以把下面代码直接覆盖原来过程

sub joekoe_chk_js()
  dim rs2,sql2,ncid,temp1,file_name,c_num
  dim temp2,file_name2,temp3,file_name3
  file_name=web_dim(6)&"style/data_sort_"&nsort&".asp"
  file_name2=web_dim(6)&"nsort/ul_sort_"&nsort&".htm"
  file_name3=web_dim(6)&"nsort/ul_sort_"&nsort&".js"
  i=0
  ncid=0
  c_num=5
  sql="select count(c_id) from jk_class where nsort='"&nsort&"'"
  set rs=joekoe_cms.exec(sql,1)
  if not rs.eof then
    c_num=int(rs(0))-1
  end if
  rs.close
  temp1=temp1&"<"&"%" & _
      vbcrlf&"redim sort_dim("&c_num&")"
  sql="select c_id,c_name from jk_class where nsort='"&nsort&"' order by c_order,c_id"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    cid=rs(0)
    cname=rs("c_name")
    temp1=temp1&vbcrlf&"sort_dim("&i&")="""&code_fso(cname,1,1)&":"&cid
    temp2=temp2&vbcrlf&"<ul>"&vbcrlf&" <li&n...

查看更多...

该日志是私密日志，只有管理员或发布者可以查看！

打开数据库article 添加字段pic 100
打开admin_article 在相应处添加pic  
在上传图片上添加



打开article_view.asp

添加字段pic
response.write vbcrlf&article_view1(id,topic,tim,comto,author,pic)

打开con_article.asp

[hidden]function article_view1(v_id,v_topic,v_tim,v_comto,v_author,v_pic)
  dim n_pic,temp1
  if  v_pic<>"" and var_null(v_pic)<>"" then n_pic="<tr><td align=center><img src='"&pic_url(v_pic,0)&"' border=0 onload=""javascript:if(this.width>"&max_w&")this.width="&max_w&";""></td></tr>"
  temp1=temp1&vbcrlf&"<table cellspacing=0 cellpadding=1 class=table0>" & _
              vbcrlf&"<tr><td class=td> "+img_skin(web_img_m)+" "+v_topic+"</td></tr>" & _
              vbcrlf&"<tr class=bg_tds><td align=right height="&m_hei&" class=gray>作者："&v_author&"  出处："&v_comto&"  更新时间： "&v_tim&" </td></tr>" & _
              vbcrlf&"<tr><td height=10></td></tr>" & _
              vbcrlf&"<tr><td valign=top>" & _
              vbcrlf&"  <table border=0 class=tablew>"&n_pic&"<tr><td>" & _
   ...

查看更多...

sub main_news_pic(cs_tnum,cs_cnum,cs_sid)   
dim tmp1,tmp_topic,tmp_url   
tmp1=vbcrlf&"<tr align=center>"   
sql="select top "&cs_tnum&" id,topic,pic from news where hidden=1 and ispic=1 and c_id="&cs_sid&" order by id desc"   
set rs=joekoe_cms.exec(sql,1)   
do while not rs.eof   
tmp_topic=rs(1)   
tmp_url="news_view.asp?id="&rs(0)   
tmp1=tmp1&vbcrlf&"<td align=center>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td align=center>"&pic_fk(rs("pic"),1,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></tr>"
rs.movenext   
loop   
rs.close   
tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
vbcrlf&"<tr class=bg_td><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"&ukong  
end sub
调用:call main_news_pic(4,20,126)
蓝色:图片数量
绿色:标题字数
红色:一级栏目ID

查看更多...

查看更多...