CMS2.0

CMS]Joekoe CMS 2外部JS调用方法说明
Joekoe CMS 2外部JS调用分为两部分，一部分是论坛，另一部分为常规栏目（下载、新闻、文章及其克隆栏目），此方法仅适用于打过 Joekoe CMS 2.0 SP2（包括程序和组件的更新）的版本使用。

论坛JS调用
相关文件：forum_js.asp
调用示例：
<script language=javascript src='forum_js.asp?forum_id=7&style=&cnum=10&tnum=20&isout=&iswin='></script>
参数说明：
forum_id　论坛某一分类ID，为空表示所有论坛的调用
style　调用类型，可选参数“good”(精华)、“hot”(热门)、“reply”(最新回复)以及空值(最新主题)
cnum　调用主题的条量，为1-100的正整数，默认为20
tnum　调用主题显示的长度，为1-100的正整数，默认为20
isout　是否为网站外部调用，“yes”表示是，否则为站内调用，默认为“no”
iswin　是否开启新窗口，“yes”表示开启新窗口，“no”表示原窗口，，默认为“yes”

栏目JS调用
相关文件：js.asp
调用示例：
<script language=javascript src='js.asp?index_url=news&sorts=&sortid=32&style=&cnum=5&tnum=20&isout=yes'></script>
参数说明：
index_url　栏目类型，如“news”、“article”、“down”等
sorts　栏目分类类型，“c”为大分类，否则为小分类
sortid　栏目分类的ID值，与上面的参数配合使用
style　调用类型，可选参数“good”(推荐)、“hot”(热门)、“pic”(图片，只在新闻类型的栏目时使用)以及空值(最新)
cnum　调用主题的条量，为1-100的正整数，默认为20
tnum　调用主题显示的长度，为1-100的正整数，默认为20
isout　是否为网站外部调用，“yes”表示是，否则为站内调用，默认为“no”
iswin　是否开启新窗口，“yes”表示开启新窗口，“no”表示原窗口，，默认为“yes”
----------------------------------------------------------------------------------------------------
[CMS]有关Cookies、Session、Application在CMS2里的正确使用方法
Cookies的使用方法
写入Cookies
Sub cookies_set(ByVal cookiesname As String, ByVal cookiesvar As Variant)
示例：call joekoe_cms.cookies_set("test","test word")
读取Cookies
Function cookies_get(ByVal cookiesname As String) As Variant
示例：teststr=joekoe_cms.cookies_get("test")
删除Cookies
Sub cookies_del(ByVal cookiesname As String)
示例：call joekoe_cms.cookies_del("test")
相关注意事项
在系统页面重定之前请使用如下语句：
call joekoe_cms.cookies_load()

Session的使用方法
写入Session
Sub session_set(ByVal sessionname As String, ByVal sessionvar As Variant)
示例：call joekoe_cms.session_set("test","test word")
读取Session
Function session_get(ByVal sessionname As String) As Variant
示例：teststr=joekoe_cms.session_get("test")
删除Session
Sub session_del(ByVal sessionname As String)
示例：call joekoe_cms.session_del("test")

Application的使用方法(缓存)
写入缓存
Sub cache_set(ByVal cachename As String, ByVal cachevar As Variant)
示例：call joekoe_cms.cache_set("test","test word")
读取缓存
Function cache_get(ByVal cachename As String) As Variant
示例：teststr=joekoe_cms.cache_get("test")
删除单个缓存
Sub cache_del(ByVal cachename As String)
示例：call joekoe_cms.cache_del("test")
删除一组缓存
Sub cache_delete(Optional ByVal cnv As String = "")
示例：
call joekoe_cms.cache_delete("forum_")
上面这一句将删除所有开头为“forum_”的缓存，如“forum_data”，“forum_tops”等
call joekoe_cms.cache_delete()
上面这一句将删除网站当前使用的所有缓存，在使用时请注意
判断缓存是否存在
Function is_cache(ByVal c_obj As String) as Boolean
示例：
if joekoe_cms.is_cache("forum_data") then
  '缓存“forum_data”存在时的操作
else
  '缓存“forum_data”不存在时的操作
end if
-----------------------------------------------------------------------------------------------
[分享]关于首页页面分段显示的函数解释
call web_lefter()
以上是左边开始
这里可以添加左边的内容

call web_center()
以上为左边结束，中间空一个间隙

以下为中间开始


中间结束
call web_righter()
call web_branch(0)



以上为中间的一个完整段，包括左边和中间



如果是中间一段不想再分左右栏
可以直接在2个call web_branch(0)之间加入一个完整的表格
<table border=0 cellspacing=0 cellpadding=0 width="100%">
<tr valign=top>
<td width='50%' align=right><%call main_center_list("forum",8,20,0)%></td>
<td width='50%'><%call main_center_list("news",8,24,0)%></td>
</tr>
</table>
这样就是实现中间通栏了
------------------------------------------
[分享]动手增强CMS2.0短信功能
乔客在做程序时，不可能按所有用户的个性要求去做，所以，有些功能就需要大家自己动手来增强了。

网站中的短信功能是体现网站互动性，增强会员与会员之间、会员与网站之间的交流，是个非常好的功能。
下面，我就以CMS2.0的短信功能为例，动手修改增强短信在全站中的功能。


一、增加会员注册短信功能：
修改 register.asp 文件

查找到：
  call joekoe_cms.cms_load_config()

  temp1="恭喜！<font class=blue><b>"&username&"</b></font>，您已成功注册成为本站用户。<br><br>"

修改成：
  call joekoe_cms.cms_load_config()
   '---------------注册短信通知开始-------------------------------

  call joekoe_cms.exec("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&username&"','"&web_dim(3)&"','"&web_dim(1)&"欢迎您的到来！','"&web_dim(1)&"全体管理人员欢迎您的到来。如有任何使用上的问题请查阅帮助中心。感谢您注册本系统，让我们一起来建设这个网上家园！','"&joekoe_cms.now_time&"',1,0)",0)
'-----------------------注册短信通知结束------------------------

  temp1="恭喜！<font class=blue><b>"&username&"</b></font>，您已成功注册成为本站用户。<br><br>"

***********************************************************

二、增加会员订购商品订单短信功能：
cms2.0修改 shop_pay.asp 文件

查找：
  call joekoe_cms.exec("update "&mod_table&"_orders set prices=$"&ssum&" where id="&oid,0)
   call mods_code_set("bag_"&n_sort,"")

tmp1=vbcrlf&"<table border=0>" & _
       vbcrlf&"<tr><td align=center height=50>恭喜：订单已经成功递交！订单号：<font size=3 class=red><b>"&ordernum&"</b></font></td></tr>" & _

修改成：

  call joekoe_cms.exec("update "&mod_table&"_orders set prices=$"&ssum&" where id="&oid,0)
'---------------发送短信息给管理员代码开始-------------------------------
call joekoe_cms.exec("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&web_dim(3)&"','"&tmp_username&"','"&tmp_username&"的订单成功递交！','会员："&tmp_username&"，订购商品："&n_name&"，数量："&n_num&"，订单号："&ordernum&"，请管理员及时处理！','"&joekoe_cms.now_time&"',1,0)",0)
'---------------发送短信息给管理员代码结束-------------------------------

'---------------发送短信息给购物会员代码开始-------------------------------
call joekoe_cms.exec("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&tmp_username&"','"&web_dim(3)&"','订单成功递交！','恭喜：订单已经成功递交！订单号："&ordernum&"！确认您的货款后，我们将按您的运送方式向您发货或与您联系。请牢记您的订单号( "&ordernum&")，以便查询！','"&joekoe_cms.now_time&"',1,0)",0)
'---------------发送短信息给购物会员代码结束-------------------------------

  call mods_code_set("bag_"&n_sort,"")

tmp1=vbcrlf&"<table border=0>" & _
       vbcrlf&"<tr><td align=center height=50>恭喜：订单已经成功递交！订单号：<font size=3 class=red><b>"&ordernum&"</b></font></td></tr>" & _

三、会员发布信息（新闻、文章、软件等）后给管理员发短信通知
cms2.0 修改 user_put.asp 文件

查找：
sub admin_msg()
  dim temp_js
  call joekoe_cms.session_set("put",false)
  temp_js="已成功"&tit_handle&"了一个"&tit_fir&"！"

修改成：
sub admin_msg()
  dim temp_js
  call joekoe_cms.session_set("put",false)

   '---------------等待管理审核通知开始-------------------------------

  call joekoe_cms.exec("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&web_dim(3)&"','"&login_username&"','有等待审核的"&tit_fir&"！','会员："&login_username&"，已成功"&tit_handle&"了一个"&tit_fir&"！请审核通过……！','"&joekoe_cms.now_time&"',1,0)",0)
'-----------------------等待管理审核通知结束------------------------
  temp_js="已成功"&tit_handle&"了一个"&tit_fir&"！"
==============================================
音乐和电影播放地址与下载地址分开的方法
1、数据库的修改
在表video 和music里面添加字段“server_idd” 类型“int” 长度 4

2、在后台服务器列表里面音乐和电影各添加一个下载地址“ftp://******”,并且记住ID
3、修改music_view_download.asp 和video_download.asp 里面相关的server_id为server_idd 即可
比如：music_view_download.asp
sql="select top 1 power,emoney,url,name,singer,server_id from music where hidden=1 and id="&sid
改为
sql="select top 1 power,emoney,url,name,singer,server_idd from music where hidden=1 and id="&sid

server_id=rs("server_id")
改为
server_id=rs("server_idd")

server_url=joekoe_cms.server_url(n_sort,server_id)
改为
server_url=joekoe_cms.server_url(n_sort,server_idd)

电影的依次类推

4、添加音乐和电影后在表video 和music里面手动将server_idd 更新为下载服务器的id即可
============================================================
[原创]左边树形分类菜单的修改方法
此菜单只适用于2.0 SQL版，1.0 SQL版的修改可以QQ405774向我索要。

以下代码为mod_news.asp的修改，其它2个文件mod_article.asp，con_down.asp按照下面的说明修改
1：将以下代码加在 mod_news.asp，mod_article.asp，con_down.asp中
2：代码中红色的部分相应的在mod_article.asp中为art,con_down.asp中为down
3：在你想显示树形菜单的文件中“左边开始”call user_login()下调用：
mod_news.asp，news_list.asp 里 call news_ShowSmallClass_Tree()
mod_article.asp，article_list.asp 里 call art_ShowSmallClass_Tree()
con_down.asp，down_list.asp 里 call down_ShowSmallClass_Tree()
4：准备2个图片，大类图.gif和小类图.gif，具体怎么美化就看你自己
5：如果还有什么不明白的请QQ405774与我联系
6：演示地址为 http://www.405774.com/boya/news.asp，点击图可直接打开大类，点击大类的名字可以展开小类
'=================================================
'过程名：news_ShowSmallClass_Tree
'作  用：树形目录方式显示分类
'参  数：无
'=================================================
sub news_ShowSmallClass_Tree()
%>
<script language="javascript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function ykx_swapTableDisplay(m,n){
var obj;
for(var i=1; i<=n; i++){
  obj = MM_findObj("tbl"+i);

  if(obj != null){
   if(i==m){
    if(obj.style.display == "block"){
     obj.style.display = "none";
    }else{
     obj.style.display = "block";
    }
   }else{
    obj.style.display = "none";
   }
  }
}
}
//-->
</script>
<%
Dim rsBigClass
Dim objConn
Dim strSql
dim sqlClass,rsClass,strTree,BigClassNum,i,j,SmallClassNum
Dim connstr

connstr =  "provider=sqloledb;" & _
      "driver={SQL SERVER};" & _
      "server="& database_ip &";" & _
      "uid="& database_user &";" & _
      "pwd="& database_pass &";" & _
      "database="& database_name &";"

Response.write "<table width='100%' cellspacing=0 cellpadding=0 border=0>"
Response.Write "<tr><td class=td>新闻分类</td></tr>"
Response.Write "<tr><td height=8></td></tr>"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open connstr
Set rsBigClass = Server.CreateObject("ADODB.RecordSet")
strsql = "Select * FROM jk_class Where nsort='news' orDER BY c_order"
rsBigClass.Open strsql,objConn,1

if not rsBigClass.Eof Then
  BigClassNum=rsBigClass.recordcount
  i=1
  strTree=""
  Set rsClass = Server.CreateObject("ADODB.RecordSet")

  do while not rsBigClass.Eof
  Response.Write "<tr>"
  Response.Write "<td title='点击展开或关闭小类，点击左边的箭头直接浏览大类' onclick='javascript:ykx_swapTableDisplay("& i &","& BigClassNum &")'><a href='news_list.asp?c_id="& rsBigClass("c_id") &"' onFocus='if(this.blur)this.blur()'><img src='skin/"&joekoe_cms.web_skin&"/small/大类图.gif' align=absmiddle></a>"& rsBigClass("c_name") &"</td>"
  Response.Write "</tr>"
  sqlClass="select * from jk_sort where c_id='" & rsBigClass("c_id") & "' order by s_order"
  rsClass.Open sqlClass,objConn,1
  SmallClassNum = rsClass.recordcount
  IF SmallClassNum > 0 Then
   Response.Write "<tr id='tbl"& i &"' style='display:none'>"
   Response.Write "<td>"
   Response.Write " <table width='100%' cellspacing=0 cellpadding=0 border=0>"
   for j=1 to SmallClassNum
    Response.Write "<tr>"
    Response.Write "<td><img src='skin/"&joekoe_cms.web_skin&"/small/小类图.gif' align=absmiddle><a href='news_list.asp?c_id="& rsBigClass("c_id") &"&s_id="& rsClass("s_id") &"'>"& rsclass("s_name") &"</a></td>"
    Response.Write "</tr>"
    rsClass.movenext
   next
   Response.Write " </table>"
   Response.Write "</td>"
   Response.Write "</tr>"
  END IF
  rsBigClass.movenext
  i=i+1
  rsClass.Close
  loop
end if
set rsClass=nothing
Response.Write "<tr><td height=8></td></tr>"
Response.Write "</table>"

rsBigClass.Close
Set rsBigClass = nothing
end sub
'=================================================

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: