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


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...

查看更多...

云想衣裳花想容，春风拂槛露华浓。若非群玉山头见，会向瑶台月下逢。 

查看更多...

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

大家在精心做好了自己的站点之后肯定都想让大家来看一看你的小家，踩踩你的小院吧？
正所谓“酒香也怕巷子深”，更何况我们区区草民不为人知的站点？那么，怎样才能让更多的人都知道你的站点呢？这就要靠自己的大力宣传来提高站点的知名度了。而且如果你不把站点提交到各大搜索引擎中，它们一般是很难收录你的站点的，你可以先尝试一下看看能不能在百度搜到你的站点吧：
如果你搜不到的话说明你的站点还没有被百度收录，那么怎么才能被百度、Google等各大搜索引擎收录你的站点呢？
当然是申请免费登录到搜索引擎啦：
在你提交申请后，如果申请成功的话，大家就能够随时随地搜索到你了（百度最晚一个月可以找到你站点，因为百度的搜索是每隔36天更新一次）。被Google收录要快一些，只要你的站点还有些实际内容，它就会主动收录你的站点，还可能有一些你站点的下级页面。 
说了这么多，怎么将自己的站点提交给搜索引擎呢？下面就是一些搜索引擎的提交地址，只要到下面页面填写一些简单的资料就行了：

百度：
http://www.baidu.com/search/url_submit.html

Google：
http://www.google.com/intl/zh-CN/add_url.html

搜狗：
http://db.sohu.com/regurl/regform.asp

TOM：
http://search.tom.com/tools/weblog/log.php

中搜：
http://d.zhongsou.com/NetSearch/pageurlrecord/frontpageurl.jsp

一搜： 
http://www.yisou.com/search_submit.html?source=yisou_www_hp

爱问：
http://www.iask.com/guest/add_url.php

ALEXA：
http://pages.alexa.com/help/webmasters/index.html#crawl_site

北大天网：
http://www.infomall.cn/url_submit.html

博库：
http://ad001.ad086.com/Reg/User_Reg.asp

CNBlog：
http://www.cnblog.org/rings/submit.asp

提示：尽量保证在百度、Google中成功登录。因为这两个搜索引擎毕竟是现在最大的嘛。还有，搜狗的发展势头也不错，自然也不能忽视。

查看更多...

要离开程序了,心里面很多失落,未来的路到底怎么样. 贴一段激励自己, 也激励所有的IT人员吧!!

  
　　第一章：一个目标

　　一艘没有航行目标的船，任何方向的风都是逆风

　　1、你为什么是穷人，第一点就是你没有立下成为富人的目标

　　2、你的人生核心目标是什么？

　　杰出人士与平庸之辈的根本差别并不是天赋、机遇，而在于有无目标。

　　3、起跑领先一步，人生领先一大步：成功从选定目标开始

　　4、贾金斯式的人永远不会成功

　　为什么大多数人没有成功？真正能完成自己计划的人只有5%，大多数人不是将自己的目标舍弃，就是沦为缺乏行动的空想

　　5、如果你想在35岁以前成功，你一定在25至30岁之间确立好你的人生目标

　　6、每日、每月、每年都要问自己：我是否达到了自己定下的目标

　　第二章：两个成功基点

　　站好位置，调正心态，努力冲刺，35岁以前成功

　　（一）人生定位

　　1、人怕入错行：你的核心竞争力是什么？

　　2、成功者找方法，失败者找借口

　　3、从三百六十行中选择你的最爱

　　人人都可以创业，但却不是人人都能创业成功

　　4、寻找自己的黄金宝地

　　（二）永恒的真理：心态决定命运，35岁以前的心态决定你一生的命运

　　1、不满现状的人才能成为富翁

　　2、敢于梦想，勇于梦想，这个世界永远属于追梦的人

　　3、35岁以前不要怕，35岁以后不要悔

　　4、出身贫民，并非一辈子是贫民，只要你永远保持那颗进取的心。中国成功人士大多来自小地方

　　5、做一个积极的思维者

　　6、不要败给悲观的自己

　　有的人比你富有一千倍，他们也会比你聪明一千倍么？不会，他们只是年轻时心气比你高一千倍。

　　人生的好多次失败，最后并不是败给别人，而是败给了悲观的自己。

　　7、成功者不过是爬起来比倒下去多一次

　　8、宁可去碰壁，也不要在家里面壁

　　克服你的失败、消极的心态

　　（1）找个地方喝点酒

　　（2）找个迪厅跳跳舞

　　（3）找帮朋友侃侃山

　　（4）积极行动起来

　　第三章：三大技巧

　　1、管理时间：你的时间在哪里，你的成就就在哪里。

　　把一小时看成60分钟的人，比看作一小时的人多60倍

　　2、你不理财，财不理你

　　3、自我管理，游刃有余

　　（1）创业不怕本小，脑子一定要好

　　（2）可以开家特色店

　　（3）做别人不愿做的生意

　　第四章：四项安身立命的理念

　　35岁以前一定要形成个人风格

　　1、做人优于做事

　　做事失败可以重来，做人失败却不能重来

　　（1）做人要讲义气

　　（2）永不气馁

　　2、豁达的男人有财运，豁达的女人有帮夫运

　　35岁以前搞定婚姻生活

　　3、忠诚的原则：35岁以前你还没有建立起忠诚美誉，这一缺点将要困扰你的一生

　　4、把小事做细，但不要耍小聪明

　　中国人想做大事的人太多，而愿把小事做完美的人太少

　　第五章：五分运气

　　比尔?盖茨说：人生是不公平的，习惯去接受它吧

　　1、人生的确有很多运气的成人：谋事在人，成事在天：中国的古训说明各占一半
 
    2、机会时常意外地降临，但属于那些不应决不放弃的人

　　3、抓住人生的每一次机会

　　机会就像一只小鸟，如果你不抓住，它就会飞得无影无踪

　　4、者早一步，愚者晚一步

　　第六章：六项要求

　　1、智慧

　　（1）别人可你以拿走你的一切，但拿不走你的智慧

　　（2）巧妙运用自己的智慧

　　（3）智者与愚者的区别 

2、勇气

　　（1）勇气的力量有时会让你成为超人

　　（2）敢于放弃，敢于舍得

　　3、培养自己的领导才能、领袖气质

　　（1）激情感染别人

　　（2）三o七法则实现领袖气质

　　（3）拍板决断能力

　　（4）人格魅力

　　4、创造性：不要做循规蹈矩的人

　　25-35岁是人生最有创造性的阶段，很多成功人士也都产生在这一阶段

　　5、明智

　　（1）知道自己的长处、短处，定向聚焦

　　（2）尽量在自己的熟悉的领域努力

　　6、持之以恒的行动力：在你选定行业坚持十?E

　　转http://www.javaresearch.org/article/60374.htm

查看更多...

--  HTML标签详解
HTML指令详解
结构
＜html＞
＜head＞
＜title＞标题＜title＞
＜/head＞
＜body＞..........文件内容..........
＜/body＞
＜/html＞
1.文件标题
＜title＞..........＜/title＞
2.文件更新--＜meta＞
　【1】10秒后自动更新一次
　　＜meta http-equiv="refresh" content=10＞
　【2】10秒後自动连结到另一文件
　　＜meta http-equiv="refresh" content="10；URL=欲连结文件之URL"＞
3.查询用表单--＜isindex>
　　　若欲设定查询栏位前的提示文字：
　　＜isindex prompt="提示文字"＞
4.预设的基准路径--＜base>
   ＜base href="放置文件的主机之URL"＞
版面
1.标题文字 ＜h#＞..........＜/h#＞ #=1~6；h1为最大字，h6为最小字
2.字体变化 ＜font＞..........＜/font＞ 
【1】字体大小 ＜font size=#＞..........＜/font＞ #=1~7；数字愈大字也愈大 
【2】指定字型 ＜font face="字型名称"＞..........＜/font＞ 
【3】文字颜色 ＜font color=#rrggbb＞..........＜/font＞ rr：表红色（red）色码 gg：表绿色（green）色码 bb：表蓝色（blue）色码
3.显示小字体 ＜small＞..........＜/small＞ 
4.显示大字体 ＜big＞..........＜/big＞
5.粗体字 ＜b＞..........＜/b＞
6.斜体字 ＜i＞..........＜/i＞ 
7.打字机字体 ＜tt＞..........＜/tt＞
8.底线 ＜u＞..........＜/u＞
9.删除线 ＜strike＞..........＜/strike＞
10.下标字 ＜sub＞..........＜/sub＞
11.上标字 ＜sup>..........＜/sup＞
12.文字闪烁效果 ＜blink＞..........＜/blink＞
13.换行 ＜br＞
14.分段 ＜p＞ 
15.文字的对齐方向 ＜p align="#"＞ #号可为 left：表向左对齐（预设值） center：表向中对齐 right：表向右对齐 P.S.＜p align="#"＞之後的文字都会以所设的对齐方式显示， 直到出现另一个＜p align="#"＞改变其对齐方向，或遇到 ＜hr＞ⅱ＜h#＞标签时会自动设回预设的向左对齐。
16.分隔线 ＜hr＞ 
【1】分隔线的粗细 ＜hr size=点数＞ 
【2】分隔线的宽度 ＜hr size=点数或百分比＞ 
【3】分隔线对齐方向 ＜hr align="#"＞ #号可为 left：表向左对齐（预设值） center：表向中对齐 right：表向右对齐 
【4】分隔线的颜色 ＜hr color=#rrggbb＞ 
【5】实心分隔线 ＜hr noshade＞
17.向中对齐 ＜center＞..........＜/center＞
18.依原始样式显示 ＜pre＞..........＜/pre＞
19.＜body＞指令的属性 
【1】背景颜色 -- bgcolor ＜body bgcolor=#rrggbb＞ 
【2】背景图案 -- background ＜body background="图形文件名"＞ 
【3】设定背景图案不会卷动 -- bgproperties ＜body bgproperties=fixed＞ 
【4】文件内容文字的颜色 -- text ＜body text=#rrggbb＞ 
【5】超连结文字颜色 -- link ＜body link=#rrggbb＞ 
【6】正被选取的超连结文字颜色 -- vlink ＜body vlink=#rrggbb＞ 
【7】已连结过的超连结文字颜色 -- alink ＜body alink=#rrggbb＞
20.注解 ＜!--..........--＞21.特殊字元表示法 
符 号 　　语 法  
＜  　　　＆ｌｔ  
＞  　　　＆ｇｔ  
& 　　 　＆ａｍｐ  
"  　　　＆ｑｕｏｔ  
空白  　　＆ｎｂｓｐ    
　

图片
1.插入图片 ＜img src="图形文件名"＞
2.设定图框 -- border ＜img src="图形文件名" border=点数＞
3.设定图形大小 -- widthⅱheight ＜img src="图形文件名" width=宽度点数 height=高度点数＞
4.设定图形上下左右留空 -- vspaceⅱhspace ...

查看更多...

1. 查看数据库的版本        

　　 select @@version 

　　2. 查看数据库所在机器操作系统参数        

　　exec master..xp_msver 


　　3. 查看数据库启动的参数         

　　sp_configure 


　　4. 查看数据库启动时间         

　　select convert(varchar(30),login_time,120) from master..sysprocesses where spid=1 

　　查看数据库服务器名和实例名 

　　print 'Server Name...............：' + convert(varchar(30),@@SERVERNAME)         

　　print 'Instance..................：' + convert(varchar(30),@@SERVICENAME)   
        
　　5. 查看所有数据库名称及大小     

　　sp_helpdb 

　　重命名数据库用的SQL 

　　sp_renamedb 'old_dbname', 'new_dbname' 


　　6. 查看所有数据库用户登录信息     

　　sp_helplogins 

　　查看所有数据库用户所属的角色信息        

　　sp_helpsrvrolemember 

　　修复迁移服务器时孤立用户时,可以用的fix_orphan_user脚本或者LoneUser过程 

　　更改某个数据对象的用户属主 
　　
　　sp_changeobjectowner [@objectname =] 'object', [@newowner =] 'owner' 

　　注意：更改对象名的任一部分都可能破坏脚本和存储过程。 

　　把一台服务器上的数据库用户登录信息备份出来可以用add_login_to_aserver脚本 

　　查看某数据库下,对象级用户权限 

　　sp_helprotect 


　　7. 查看链接服务器            
　　
　　sp_helplinkedsrvlogin 

　　查看远端数据库用户登录信息
　　
　　sp_helpremotelogin 


　　8.查看某数据库下某个数据对象的大小 

　　sp_spaceused @objname 

　　还可以用sp_toptables过程看最大的N(默认为50)个表 

　　查看某数据库下某个数据对象的索引信息 

　　sp_helpindex @objname 

　　还可以用SP_NChelpindex过程查看更详细的索引情况 

　　SP_NChelpindex @objname 

　　clustered索引是把记录按物理顺序排列的，索引占的空间比较少。  

　　对键值DML操作十分频繁的表我建议用非clustered索引和约束，fillfactor参数都用默认值。 

　　查看某数据库下某个数据对象的的约束信息 

　　sp_helpconstraint @objname

9.查看数据库里所有的存储过程和函数 


　　use @database_name 


　　sp_stored_procedures 


　　查看存储过程和函数的源代码 


　　sp_helptext '@procedure_name' 


　　查看包含某个字符串@str的数据对象名称 


　　select distinct object_name(id) from syscomments where text like '%@str%' 


　　创建加密的存储过程或函数在AS前面加WITH ENCRYPTION参数 


　　解密加密过的存储过程和函数可以用sp_decrypt过程 



　　10.查看数据库里用户和进程的信息 

　　sp_who 

　　查看SQL Server数据库里的活动用户和进程的信息 

　　sp_who 'active' 

　　查看SQL Server数据库里的锁的情...

查看更多...

修改方法：

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...

查看更多...

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