<!-- 即划即译-代码开始-->
<!-- 获取代码：http://elansorcn.elanso.com Copyright 2007 Elanso Corp.-->
<SCRIPT><!-- //Elansor_charset="gb2312"
var Elansor_Yoursitename="elanso";//请修改成您的网站简称，建议5个字内
var Elansor_charset=document.charset.toLowerCase();//如果您的网页头部未定义charset，请手动在此处修改网页编码
--></SCRIPT>
<!--代码片断a开始-->
<div align="center" style="background-color:#E6EFFF; padding:5px; width:150px; display:inline">
<span id="Elansor_openDict2"></span>
<a href="javascript:openDictF();" id="Elansor_openDict"></a>
</div>
<!--代码片断a结束-->
<link href="http://elansorcn.elanso.com/tool/translate/images/main.css" rel="stylesheet" type="text/css">
<script language="javascript" type="text/javascript" id="Elansor_insertmean"></script>
<script language="javascript1.2" type="text/javascript" src="http://elansorcn.elanso.com/tool/translate/trans.js"></script>
<!--即划即译-代码结束 -->
精彩贴图文字调用
作者:cmscn 日期:2007-03-18
即划即译插件
作者:cmscn 日期:2007-03-15
很智能的即划即译功能，点此看演示>>
效果如图：
什么是即划即译 ？
在浏览网站时，如果您双击或者用鼠标拖动选择一个单词或或一段短文，就会出现一个浮动的层，显示其译文，这就是“即划即译”功能。
注意：不支持150字以上的短文翻译！
GB2312编码的站点和博客，请插入如下代码
UTF-8编码的站点和博客，请插入如下代码
即划即译使用说明：
1、选择与您的站点编码相同的即划即译代码，放于站点的<body></body>之间。
2、如您的网页中包含框架(frame)，请在每个框架内分别添加即划即译代码。
3、如您不想用户使用即划即译“禁用”功能，请去掉代码中的“代码片断a”部分。
4、用户可自行修改代码片断a中的HTML代码和CSS样式以达到想要的效果。
效果如图：
什么是即划即译 ？
在浏览网站时，如果您双击或者用鼠标拖动选择一个单词或或一段短文，就会出现一个浮动的层，显示其译文，这就是“即划即译”功能。
注意：不支持150字以上的短文翻译！
GB2312编码的站点和博客，请插入如下代码
UTF-8编码的站点和博客，请插入如下代码
<!-- 即划即译-代码开始-->
<!-- 获取代码：http://elansorcn.elanso.com Copyright 2007 Elanso Corp.-->
<SCRIPT><!-- //Elansor_charset="UTF-8"
var Elansor_Yoursitename="elanso";//请修改成您的网站简称，建议5个字内
var Elansor_charset=document.charset.toLowerCase();//如果您的网页头部未定义charset，请手动在此处修改网页编码
--></SCRIPT>
<!--代码片断a开始-->
<div align="center" style="background-color:#E6EFFF; padding:5px; width:150px; display:inline">
<span id="Elansor_openDict2"></span>
<a href="javascript:openDictF();" id="Elansor_openDict"></a>
</div>
<!--代码片断a结束-->
<link href="http://elansorcn.elanso.com/tool/translate/images/main.css" rel="stylesheet" type="text/css" />
<script language="javascript" type="text/javascript" id="Elansor_insertmean"></script>
<script language="javascript1.2" type="text/javascript" src="http://elansorcn.elanso.com/tool/translate/trans.js"></script>
<!--即划即译-代码结束 -->
<!-- 获取代码：http://elansorcn.elanso.com Copyright 2007 Elanso Corp.-->
<SCRIPT><!-- //Elansor_charset="UTF-8"
var Elansor_Yoursitename="elanso";//请修改成您的网站简称，建议5个字内
var Elansor_charset=document.charset.toLowerCase();//如果您的网页头部未定义charset，请手动在此处修改网页编码
--></SCRIPT>
<!--代码片断a开始-->
<div align="center" style="background-color:#E6EFFF; padding:5px; width:150px; display:inline">
<span id="Elansor_openDict2"></span>
<a href="javascript:openDictF();" id="Elansor_openDict"></a>
</div>
<!--代码片断a结束-->
<link href="http://elansorcn.elanso.com/tool/translate/images/main.css" rel="stylesheet" type="text/css" />
<script language="javascript" type="text/javascript" id="Elansor_insertmean"></script>
<script language="javascript1.2" type="text/javascript" src="http://elansorcn.elanso.com/tool/translate/trans.js"></script>
<!--即划即译-代码结束 -->
即划即译使用说明：
1、选择与您的站点编码相同的即划即译代码，放于站点的<body></body>之间。
2、如您的网页中包含框架(frame)，请在每个框架内分别添加即划即译代码。
3、如您不想用户使用即划即译“禁用”功能，请去掉代码中的“代码片断a”部分。
4、用户可自行修改代码片断a中的HTML代码和CSS样式以达到想要的效果。
黄页调用
作者:cmscn 日期:2007-03-11
sub pris_list1(f_title,f_num)
%>
<table class=table>
<tr><td class=td> <%response.write img_skin(web_img_m)%> <%response.write f_title%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<%
sql="select top 15 id,c_id,name,counter from pris where hidden=1 and c_id="&f_num&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
response.write "<tr>"
%>
<td>
<%response.write img_skin(web_img_h)%>
<a href="pris_view.asp?c_id=<%response.write rs("c_id")%>&s_id=<%response.write sid%>&id=<%response.write rs("id")%>" alt='<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,0),1)%>' target=_blank>
<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,16),1)%></a></td>
<%
rs.movenext
loop
rs.close
%>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td align=right><a href="pris_list.asp?c_id=<%response.write f_num%>">浏览更多…</a> </td></tr>
</table></td></tr></table>
<%
end sub
%>
<table class=table>
<tr><td class=td> <%response.write img_skin(web_img_m)%> <%response.write f_title%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<%
sql="select top 15 id,c_id,name,counter from pris where hidden=1 and c_id="&f_num&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
response.write "<tr>"
%>
<td>
<%response.write img_skin(web_img_h)%>
<a href="pris_view.asp?c_id=<%response.write rs("c_id")%>&s_id=<%response.write sid%>&id=<%response.write rs("id")%>" alt='<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,0),1)%>' target=_blank>
<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,16),1)%></a></td>
<%
rs.movenext
loop
rs.close
%>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td align=right><a href="pris_list.asp?c_id=<%response.write f_num%>">浏览更多…</a> </td></tr>
</table></td></tr></table>
<%
end sub
论坛与新闻图片调用
作者:cmscn 日期:2007-03-11
引用内容
[CMS]有关Cookies、Session、Application在CMS2里的正确使用方法
作者:cmscn 日期:2007-03-07
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
写入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
在首页添加精彩贴图和精彩FLASH统计
作者:cmscn 日期:2007-03-06
在index2.asp的sub main_left_data()里
dim num_paste,num_flash
sql="selec t count(id) from gallery where types='paste' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
num_paste=rs(0)
rs.close
sql="selec t count(id) from gallery where types='flash' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
num_flash=rs(0)
rs.close
dim num_paste,num_flash
sql="selec t count(id) from gallery where types='paste' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
num_paste=rs(0)
rs.close
sql="selec t count(id) from gallery where types='flash' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
num_flash=rs(0)
rs.close
