(c) 2012, 162100.com. All rights reserved. 162100.com
那今天就讲讲怎么去掉织梦的这个版权信息。
首先找到include下的common.inc.php这个文件，如图所示；
查找$cfg_version = 'V57_GBK_SP1';修改为自己的，或者删除
然后是找到$cfg_softname = '织梦内容管理系统';

其实就这么简单，我们用着织梦的cms产品，后台留着版权信息也是可以的，而且去掉的话对后期的漏洞更新等不太方便。]]> 织梦登陆后台的广告虽然对访客访问网站没有什么影响，当然，广告也是对织梦程序的一种支持。如果你想支持下织梦，帮织梦点击下广告也是一件很让人愉快的事情。不过，总是有人希望简洁的页面，毕竟广告会影响加载的速度。那么，怎么去除织梦后台以及织梦后台首页的广告呢?
去除织梦后台登陆广告
去除织梦后台登陆广告需要找到后台管理目录文件夹(默认为dede目录)下面的templets文件夹中的login.htm文件，去掉大概在54行的如下代码：

---

<div class="dede-iframe"><iframe name="loginad" src="login.php?dopost=showad" frameborder="0" id="loginad" scrolling="no" marginwidth="0" marginheight="0" width="100%"></iframe></div>

---

怎么样?你再打开织梦后台登陆页面，是不是没有下面的一排广告了?感觉清爽多了吧。
去除织梦后台首页广告
去除织梦后台首页的赞助广告则需要找到后台管理目录文件夹(默认为dede目录)下面的templets文件夹中的index_body.htm文件，去掉大概在194行的如下代码：

---

<dl class='dbox' id="item8">
            <dt class='lside'><div class='l'>赞助商链接(<a href="http://ad.dedecms.com/ad/"target="_blank">说明</a>)</div></dt>
            <dd>
                <iframe name="showad" src="index_body.php?dopost=showad" frameborder="0" width="100%"id="showad" frameborder="0" scrolling="no"  marginheight="5"></iframe>
            </dd>
</dl><!--赞助商链接结束-->

---

刷新下后台首页，就没有赞助商广告了。
好了，大家对怎么去除织梦后台首页和登陆页面的广告应该知道了。]]> 　　不过不要紧，使用mysql的命令来执行以下就可以让文章ID重新从1开始排序了。具体的命令如下：
ALTER TABLE `dede_archives` AUTO_INCREMENT =1;
ALTER TABLE `dede_arctiny` AUTO_INCREMENT =1;
ALTER TABLE `dede_addonarticle` AUTO_INCREMENT =1;
　　使用方法：复制命令，然后打开DEDE后台，找到‘系统’选项，找到‘SQL命令行工具’
      将命令复制进去然后点‘确定’，执行完后就重新归零，再发布文章就从1开始排序了。]]> 什么是RSS订阅？它能做什么？
简单的说，RSS是网站和网站之间共享内容的一种简易方式（也叫聚合内容）。RSS订阅就像订报纸一样，它可以把最新的内容送到你眼前。比如你订阅了人民日报，就可以及时了解到人民日报里的内容的。而订阅了奇客情报，就可以在第一时间获知奇客情报最新的文章。注意，这种获取方式是可以不用登陆奇客情报博客而获取的。
很多网站和博客都提供了RSS订阅功能，只要你订阅了他的服务，那么，你只要打开注册的RSS网站或者RSS阅读器，如“Google 阅读器”、“QQ邮箱”、“鲜果”，你就可以看到你所订阅的网站、博客有没有内容更新，哪些内容是自己感兴趣的，从而达到主动获取信息的目的。
为什么使用RSS订阅？
1、方便。省去了每天登录新浪、搜狐、网易……满世界找想看的东西的时间。只要你使用RSS订阅服务，只要打开RSS在线阅读的网站或者RSS阅读器，就可以看到你感兴趣的内容了，而且是实时更新的。
2、自主。关注我所关注，只要我喜欢的。
如何使用RSS订阅？
1、RSS在线订阅：
推荐使用“Google 阅读器”、“QQ邮箱”和“鲜果”只要简单注册一下就可以使用了，注册完整后，可以点击奇客情报右侧栏的订阅图标，就可以轻松的完成订阅。登录你刚才注册的网站就可以看到订阅的内容了。相当的方便。
                   
2、RSS阅读器：
就是装载自己电脑上的软件，可用来订阅和阅读提供RSS订阅的网站。常用的RSS离线阅读器有FeedDemon，周伯通，新闻蚂蚁，看天下等几十种。你只要将RSS地址添加到你喜欢的离线阅读器即可。简单。
你可以在点击这里下载一个RSS阅读器
3、Email订阅：
在下面的输入框里填上你的Email地址，并单击“订阅”按钮，就完成对奇客情报的订阅。奇客情报的最新文章将会准时的发送到你的邮箱里。打开邮箱就可以看见奇客情报说了什么。很方便吧？
说了那么多你可能体会也不深，这个关键要靠体验。建议你先订阅一个，先体验一下。那谁谁说的？“实践是检验真理的唯一标准。”用在这里貌似不对。但不管如何，先订阅一个，反正这东西不用你掏钱又对身体健康无害，那就尽管试吧。]]> 手机短信也可以通过电脑免费在线随便发？ 没错， 直接利用国外的网站接口就可以轻轻松松的发免费短信息了，而且完美支持移动/联通/电信的任意手机号段，很是给力有木有！
国外的短信资源，可发中文无尾巴，无广告！
移动联通电信全部支持，一天可发30条！
发出显示的是香港号码，如果回复了收一元, 请不要回复。
本页面是免费发送到中国的，Free SMS China。
他的上一级可选择一两百个国家，也就是说全球都可用。
免费发短信地址：
http://www.afreesms.com/intl/china]]> 自己写一个这样的程序，不过wordpress是php的，我blog是ASP的，只好用ASP写代码了。经过一番折腾测试，终于让我的梦想变为现实。 
程序的流程是这样的，当有人发表评论的时候就会把那条评论发到我手机上，是通过过一个网站的api接口实现信息发送的，其实就是飞信的api。飞信不是可以自己发信息给自己吗？原理其实很简单。 
提醒：你手机必须开通飞信功能。 
例子： 
====A.ASP==== 
代码如下: 
< FORM name="form2" action="ok.asp?id=1 method="post"> 
< textarea id="content" style="WIDTH: 60%; HEIGHT: 70px" name="liuyan" rows="4" cols="75"></textarea> 
< INPUT type="submit" value="发 布" name="gg"> 
< /FORM> 
这是一个表单，要提交留言 
====OK.ASP==== 
代码如下: 
dim c 
c=request.form("liuyan") 
set xmlhttp=server.createobject("Microsoft.XMLHTTP") 
xmlhttp.open "get","https://sms.api.bz/fetion.php?username=你手机号码&password=飞信密码&sendto=你手机号码&message="&c&"",false 
xmlhttp.send() 
接收页面 
---------结束----- 
恩，代码基本就是这样，好简单哈。其实这个api可以做好多事，这只是一个小应用，大一点的应用可以做一个如服务器是否在线，如果服务器或网站不能访问就发信息提醒，哈哈。不错，像个网站保姆的功能。 
红色字体是核心代码，关于那个跳转页面的代码我用了几个都不行，跳转要么失败要么跳转到那个页面全屏显示，这都是我不想见到的。到最后我就用了我之前使用过的一段代码，我以为不行，想不到一放上去就ok了。]]> <!--asp 定时自动删除文件-->
<%
Dim   w   
  w=weekday(now())  
  If   w=7   Then     
  delFile   
  End   If   
  Function   delFile   
  Set   fso   =   CreateObject("Scripting.FileSystemObject")   
  Path   =   server.MapPath("admin/")   
  Set   f   =   fso.GetFolder(Path)   
          Set   fc   =   f.Files   
          For   Each   f   In     fc   
                  If   fso.FileExists(f)   Then   fso.DeleteFile(f)   
                  'If   fso.FolderExists(f)   Then   fso.DeleteFolder(f)   
          Next   
  End   Function  
%>]]> <style>
body{font-size:12px; margin:20px 0 0 20px; padding:0}
tr,td{text-align:center;}
</style>
<%
'=================================
'说明：日历文件
'=================================
'取出对应的年月博客日志数据
'=======================
Ryear = CInt(request.querystring("year"))
Rmonth = CInt(request.querystring("month"))
If Ryear = 0  Or Ryear = NULL Then Ryear = year(now)
If Rmonth = 0 Or Rmonth = NULL Then Rmonth = month(now)
nowtime = Ryear&"-"&Rmonth&"-1"   '得到本月第一天
nowyear = year(nowtime)           '年份 
nowmonth = month(nowtime)         '月份 
nowweekday = weekday(nowtime) - 1 '当前礼拜
'获取2月天数
febdays = 28
If nowyear / 4 = 0 Then febdays = 29
'获取本月天数
If nowmonth = 1 then 
    monthdays = 31
ElseIf nowmonth = 2 Then     
    monthdays = febdays
ElseIf nowmonth = 3 Then     
    monthdays = 31
ElseIf nowmonth = 4 Then     
    monthdays = 30
ElseIf nowmonth = 5 Then     
    monthdays = 31
ElseIf nowmonth = 6 Then     
    monthdays = 30
ElseIf nowmonth = 7 Then     
    monthdays = 31
ElseIf nowmonth = 8 Then     
    monthdays = 31
ElseIf nowmonth = 9 Then     
    monthdays = 30
ElseIf nowmonth = 10 Then     
    monthdays = 31
ElseIf nowmonth = 11 Then     
    monthdays = 30
Else
    monthdays = 31
End If
calendar =  "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> &lt;&lt;</a>&nbsp;"
willshowmonthmonth = nowmonth
If willshowmonthmonth - 1 <= 0 Then willshowmonthmonth = 2
calendar =  calendar & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> &lt;</a>&nbsp;"
If willshowmonthmonth + 1 > 12 Then willshowmonthmonth = 11
calendar =  calendar & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&"''> &gt;</a>&nbsp;"
calendar =  calendar & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> &gt;&gt;</a>&nbsp;"

calendar =  calendar & "<table bgcolor=#000000 cellspacing=1 width=200><tr bgcolor=#ffffff><td colspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td></tr>"&VBCRLF
calendar =  calendar & "  <tr bgcolor=#ffffff>"&VBCRLF
calendar =  calendar & "<td>日</td>"&VBCRLF
calendar =  calendar & "<td>一</td>"&VBCRLF
calendar =  calendar & "<td>二</td>"&VBCRLF
calendar =  calendar & "<td>三</td>"&VBCRLF
calendar =  calendar & "<td>四</td>"&VBCRLF
calendar =  calendar & "<td>五</td>"&VBCRLF
calendar =  calendar & "<td>六</td>"&VBCRLF
calendar =  calendar & "</tr>"&VBCRLF
calendar =  calendar &  VBCRLF&"<tr bgcolor=#ffffff>"&VBCRLF
'把前面的空白补充出来
nowmonthfirstiweekday = weekday(nowyear&"-"&nowmonth&"-1") - 2 '本月第一天的星期
For i=0 To nowmonthfirstiweekday
    calendar =  calendar & "<td bgcolor=#efefef>&nbsp;</td>"&VBCRLF
Next
'开始循环写日期
t=1
For i=1 To monthdays
    If year(now) = year(nowyear&"-"&nowmonth&"-"&i) and day(now) = day(nowyear&"-"&nowmonth&"-"&i) Then                   '高亮显示今日
    
        calendar =  calendar &  "<td bgcolor=#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
    Else
        calendar =  calendar &  "<td>"&i&"</td>"&VBCRLF
    End If
        
    If weekday(nowyear&"-"&nowmonth&"-"&i) = 7 Then 
        t=t+1
        calendar =  calendar &  "</tr><tr bgcolor=#ffffff>"&VBCRLF
        End if 
Next
For i=1 To (7*t-(nowmonthfirstiweekday+1+monthdays))
calendar =  calendar &  "<td  bgcolor=#ffffff></td>"&VBCRLF
Next
calendar =  calendar &  VBCRLF&"</tr>"
calendar =  calendar &  "</table>"&VBCRLF
Response.Write calendar
%>
 保存为 calendar.asp]]> 禁止复制代码
<SCRIPT LANGUAGE=javascript>
function click() {alert('禁止左键复制！') }
function click1() {if (event.button==2) {alert('禁止右键点击~！') }}
function CtrlKeyDown(){if (event.ctrlKey) {alert('非法拷贝将损害您的系统！') }}
document.onkeydown=CtrlKeyDown;
document.onselectstart=click;
document.onmousedown=click1;
< /SCRIPT>
把上面的代码放到</head> 与<body> 之间我已经调试过了
<body oncontextmenu=window.event.returnValue=false onselectstart=event.returnValue=false ondragstart=window.event.returnValue=false onsource="event.returnValue=false" bgcolor=#FFFFFF text=#000000 leftmargin=0 topmargin=0>
oncontextmenu="return false" 、右键屏蔽onselectstart="return false"左键屏蔽
1. oncontextmenu="window.event.returnvalue=false" //将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> //可用于Table
------------------------------------------------------------------------------------------------------
2. <body onselectstart="return false"> //取消选取、防止复制
------------------------------------------------------------------------------------------------------
3. onpaste="return false" //不准粘贴
------------------------------------------------------------------------------------------------------
4. oncopy="return false;" oncut="return false;" // 防止复制
------------------------------------------------------------------------------------------------------
去掉超级连接的饿下滑线
把下列语句放在<head>...</head>之间
<style>
B {font-weight: 700;
}
P {padding: 5px 0px;
margin: 0px;
font-family: 宋体,黑体,宋体;
}
A {text-decoration: none}
TD { font-family: 宋体,黑体,宋体;
}
< /style>
< script language="javascript">
var contents = true;
< /script>
更简单的是
<!--
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
-->
< /style>
< marquee>要移动的文字</marquee>
1.移动 的方向：<direction=!> ！=left, right
2.移动的方式：<bihavior=!> !=scroll ,side,alternate
3.循环次数：<loop=!> !=次数。若未指定则循环不止。
4 循环速度：<scrollamount=!> !=数字
2.怎样防止别人把你的网页放到框架里?
　　 因为框架(frame)的缘故,有许多人把别人的网页放置到自己的框架里,使之成为自己的一页。如果你要防止别人这样做,可以加入下列JavaScript代码即可,它会自动监测,然后跳出别人的框架。
<script language="JavaScript">
if (self!=top) window.top.location.replace(self.location);
< /script>]]> 第一部分：防止你的网站博客文章被非法复制保存或者查看的 部分源代码
1，整篇文章就不能点右键、区域选择和复制了，不过还是能查看源文件和下载该页。代码如下：
<body oncontextmenu='return false' ondragstart='return false' onselectstart ='return false' onselect='document.selection.empty()' oncopy='document.selection.empty()' onbeforecopy='return false' onmouseup='document.selection.empty()'>
2.在页面中加入如下语句，则网页将不能被保存，让网页无法 另存为：
在<body>......</body>之间加入 <noscript><iframe src=*></iframe></noscript>
加入上述代码后，当执行“另存为”命令时，会弹出“保存网页时出错”的对话框。
3.把下列代码放到<body></body>或者<head></head>之间 ，提示禁止使用右键。
<script LANGUAGE="JavaScript">
function click() { if (event.button==2)
{alert('你好,右键已被禁止使用'); } } document.onmousedown=click
< /script>
4，忽视右键 <body oncontextmenu="return false"。 结合起来禁止左右键
〈body oncontextmenu=self.event.returnvalue=false> 左右键被禁止了自然无法复制什么的了,在浏览器里查看源文件，搜索oncontextmenu.false之类的代码删除，再刷新就可以了。
5，为了防止别人偷窃自己网站上的东西，运用CSS代码控制右键的复制或另存为。可以在网页制作的过程中加入以下代码： 1。忽视右键 <body oncontextmenu="return false"> 2. 让你的网页无法另存为 <noscript><iframe src=*></iframe></noscript>
6，禁止选取<body oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false"onmouseup="document.selection.empty()>
7，彻底禁止右键快捷菜单的出现呢？代码如下：
< Script Language=javascript>
function Click(){
alert('版权所有(C)2008 飞龙在天e000);
window.event.returnValue=false;
}
document.oncontextmenu=Click;
< /Script>
如果访问者直接在浏览器地址栏中键入"javascript:alert(document.oncontextmenu='')"，就可以解除对右键菜单的屏蔽。javascript:s=document.documentElement.outerHTML;document.write('<body></body>');document.body.innerText=s;源代码就出来了。不论加密如何复杂，最终都要还原成浏览器可以解析的html代码，而documentElement.outerHTML正是最终的结果。所谓澈底禁止查看源代码文件，始终只能是一个笑话！
8，javascript:s=document.documentElement.outerHTML;document.write('<body></body>');document.body.innerText=s;源代码就出来了。不论加密如何复杂，最终都要还原成浏览器可以解析的html代码，而documentElement.outerHTML正是最终的结果。所谓澈底禁止查看源代码文件，始终只能是一个笑话！
9，不能使用右键或者不能看到源程序或源代码等，输入代码：
<SCRIPT language=javascript>
function click() {
if (event.button==2) {
alert('对不起,禁止使用此功能^_^.')
}
}
document.onmousedown=click
< /SCRIPT>
< script language="JavaScript">

< /script>


10，一段非常简单的JS程序，这段程序应该放在主页的<body></body>中间，可以禁止察看源代码。
<SCRIPT language=javascript>
function click() {if (event.button==2) {alert('不许你偷看！');}}document.onmousedown=click
< /SCRIPT>
第二部分：反复制粘贴的破解办法集锦
1，点击工具-INTERNET选项-安全设置。把它设置为高，点确定，再刷新下网页就可复制了。不过复制了后改回原来的，不然会影响正常上网。 也可以点击IE菜单栏上的"文件"->发送->电子邮件页面(跟这向导说的去做就可以拉,一路点击'下一步")然后就可以在弹出的邮件窗口中复制你要的内容就可以了。 安全级别最高的时候，一切控件和脚本均不能运行，再厉害的网页限制手段统统全部作废。
2，有时候可以用ctrl+A全选你要的页面，然后按ctrl+c复制，再到word里按ctrl+v粘贴，这个在不能使用菜单命令复制的时候很好用。
3，用文件菜单里的另存为，文件格式选纯文本的.txt，然后打开这个txt文件.OK搞定。
4，查看-源文件。再另存源文件为.HTML格式，打开即可复制！但是有时候还是不行，需要去掉其中的那段禁止复制的代码才可以。或者直接 文件——另存为"网页,仅HTML"格式,快捷方便,可以以此办法来复制那些禁止复制网页内容的网页. 保存好后再打开该网页。或者，用该网页的源代码！ 在查看 源文件 里剪切源代码，复制到一个网页制作工具里就可以了！
5，换个浏览器如GreenBrowser，如MYIE，它有一个解除右键设置的选项，你可以试试。用maxthon安装一个"清除烦扰"的插件点一下就可以了.非常方便,我一直在用. 还可以使用MAXTHON（遨游）的解除右键限制功能。或者，到瑞星上下载个瑞星卡卡,这是免费的,可以破除网页限制。还可以下载一个体积很小的浏览器Gogo Explorer ，就可以复制了！用快捷键ctrl+m（这是默认的，也可以自定义）就行了，解除鼠标限制
6，在网页上任意处将右键按下，等跳出对话框时不要放开右键。将鼠标移至对话框，用鼠标左键点“确定”，在将鼠标移动到想要的连接处，放开右键；或者只是将鼠标移至对话框，用回车去“确认”。
7，用组合键“CTRL+F10”。
8，在页面中点击右键，当出现警告窗口时，左手按键盘上的“CTRL+F4”键关闭提示窗口（以上的方法适用于仅禁用而没有隐藏右键菜单的网页）。
9. 如果是图片，直接将想要的图片用左键拖着，然后按下“WIN+D”键，这样一来就可以拖到桌面上保存（此方法适用于单手操作较灵活的同志）。
10. 查看源代码如果发现用了这样的代码： 你可以在地址栏键入：javascript:alert(document.oncontextmenu='')回车，确定对话框后，直接使用右键。另外一个有意思的解决办法：就是把下面这段代码复制到地址栏，然后按回车键。之后就可以复制当前页面了。 javascript:alert(document.onselectstart = document.oncontextmenu= document.onmousedown = document.onkeydown= function(){return true;});
11，浏览器有默认的网页编辑软件（一般为frontpage或者word），只要在快捷工具栏中点击相应的按钮，或者依次选择“文件”→“使用Microsoft Frontpage （或者Microsoft Word）编辑”，即可在相应软件的编辑窗口中显示网页的全部内容，这个时候就可以进行复制或修改了。
12，一个高招，用的Word来更为简单方便的获取。首先复制网页地址，然后打开Word，依次单击“文件／打开”，弹出“打开”窗口。在“文件名”中用“Ctrl+V”粘贴入已复制的网页地址，再单击“打开”按钮，这里Word就会自动连接到网站（如图）。在打开网页之前，可能会弹出“Word 没有足够的内存，此操作完成后无法撤消。是否继续？”的提示窗口，单击“是”，即弹出新的窗口，询问是否信任文件来源，再单击“是”后，Word会自动链接到对应的服务器并打开网页，这时我们就可以选中其中的文字进行复制粘贴了。]]> 带农历的JS日历，网页代码特效，除了显示农历，还可以显示属性、24节气、星期几还有全国重大节假日和传统节日，功能想当丰富的JS日历，将代码复制到你的网页中，就拥有了这个既漂亮、又实用的万年历，也为自己查询农历提供了方便。

---

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>带农历的日历</TITLE>          
<SCRIPT language="JavaScript"> 
<!--
var lunarInfo=new Array(
0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,
0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,
0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,
0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,
0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,
0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0,
0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,
0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,
0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,
0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,
0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,
0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,
0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,
0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,
0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0)
var solarMonth=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var Animals=new Array("鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪");
var solarTerm = new Array("小寒","大寒","立春","雨水","惊蛰","春分","清明","谷雨","立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑","白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至");
var sTermInfo = new Array(0,21208,42467,63836,85337,107014,128867,150921,173149,195551,218072,240693,263343,285989,308563,331033,353350,375494,397447,419210,440795,462224,483532,504758);
var nStr1 = new Array('日','一','二','三','四','五','六','七','八','九','十');
var nStr2 = new Array('初','十','廿','卅');
//公历节日
var sFtv = new Array(
"0101 元旦",
"0214 情人节",
"0308 妇女节",
"0312 植树节",
"0315 消费者权益日",
"0401 愚人节",
"0501 劳动节",
"0504 青年节",
"0512 护士节",
"0601 儿童节",
"0701 建党节",
"0801 建军节",
"0910 教师节",
"0928 孔子诞辰",
"1001 国庆节",
"1006 老人节",
"1024 联合国日",
"1224 平安夜",
"1225 圣诞节")
//农历节日
var lFtv = new Array(
"0101 春节",
"0115 元宵节",
"0505 端午节",
"0707 七夕情人节",
"0715 中元节",
"0815 中秋节",
"0909 重阳节",
"1208 腊八节",
"1224 小年")
//返回农历y年的总天数
function lYearDays(y) {
   var i, sum = 348;
   for(i=0x8000; i>0x8; i>>=1)sum+=(lunarInfo[y-1900]&i)?1:0;
   return(sum+leapDays(y));
}
//返回农历y年闰月的天数
function leapDays(y) {
   if(leapMonth(y))  return((lunarInfo[y-1900] & 0x10000)? 30: 29);
   else return(0);
}
//判断y年的农历中那个月是闰月,不是闰月返回0
function leapMonth(y){
   return(lunarInfo[y-1900]&0xf);
}
//返回农历y年m月的总天数
function monthDays(y,m){
   return((lunarInfo[y-1900]&(0x10000>>m))?30:29);
}
//算出当前月第一天的农历日期和当前农历日期下一个月农历的第一天日期
function Dianaday(objDate) {
   var i, leap=0, temp=0;
   var baseDate = new Date(1900,0,31);
   var offset   = (objDate - baseDate)/86400000;
   this.dayCyl = offset+40;
   this.monCyl = 14;
   for(i=1900; i<2050 && offset>0; i++) {
      temp = lYearDays(i)
      offset -= temp;
      this.monCyl += 12;
   }
   if(offset<0) {
      offset += temp;
      i--;
      this.monCyl -= 12;
   }
   this.year = i;
   this.yearCyl=i-1864;
   leap = leapMonth(i); //闰哪个月
   this.isLeap = false;
   for(i=1; i<13 && offset>0; i++) {
      if(leap>0 && i==(leap+1) && this.isLeap==false){        //闰月
          --i; this.isLeap = true; temp = leapDays(this.year);}
      else{
         temp = monthDays(this.year, i);}
      if(this.isLeap==true && i==(leap+1)) this.isLeap = false;        //解除闰月
      offset -= temp;
      if(this.isLeap == false) this.monCyl++;
   }
   if(offset==0 && leap>0 && i==leap+1)
      if(this.isLeap){ this.isLeap = false;}
      else{this.isLeap=true;--i;--this.monCyl;}
   if(offset<0){offset+=temp;--i;--this.monCyl;}
   this.month=i;
   this.day=offset+1;
}
//返回公历y年m+1月的天数
function solarDays(y,m){
   if(m==1)
      return(((y%4==0)&&(y%100!=0)||(y%400==0))?29:28);
   else
      return(solarMonth[m]);
}
//记录公历和农历某天的日期
function calElement(sYear,sMonth,sDay,week,lYear,lMonth,lDay,isLeap) {
      this.isToday = false;
      //公历
      this.sYear = sYear;
      this.sMonth = sMonth;
      this.sDay = sDay;
      this.week = week;
      //农历
      this.lYear = lYear;
      this.lMonth = lMonth;
      this.lDay = lDay;
      this.isLeap = isLeap;
          //节日记录
      this.lunarFestival = ''; //农历节日
      this.solarFestival = ''; //公历节日
      this.solarTerms = ''; //节气
}
//返回某年的第n个节气为几日(从0小寒起算)
function sTerm(y,n) {
   var offDate = new Date((31556925974.7*(y-1900)+sTermInfo[n]*60000)+Date.UTC(1900,0,6,2,5));
   return(offDate.getUTCDate())
}
//保存y年m+1月的相关信息
var fat=mat=9;
var eve=0;
function calendar(y,m) {
   fat=mat=0;
   var sDObj,lDObj,lY,lM,lD=1,lL,lX=0,tmp1,tmp2;
   var lDPOS = new Array(3);
   var n = 0;
   var firstLM = 0;
   sDObj = new Date(y,m,1);        //当月第一天的日期
   this.length = solarDays(y,m);    //公历当月天数
   this.firstWeek = sDObj.getDay();    //公历当月1日星期几
   if ((m+1)==5){fat=sDObj.getDay()}
   if ((m+1)==6){mat=sDObj.getDay()}
   for(var i=0;i<this.length;i++) {
      if(lD>lX) {
         sDObj = new Date(y,m,i+1);    //当月第一天的日期
         lDObj = new Dianaday(sDObj);     //农历
         lY = lDObj.year;           //农历年
         lM = lDObj.month;          //农历月
         lD = lDObj.day;            //农历日
         lL = lDObj.isLeap;         //农历是否闰月
         lX = lL? leapDays(lY): monthDays(lY,lM); //农历当月最後一天
         if (lM==12){eve=lX}
                 if(n==0) firstLM = lM;
         lDPOS[n++] = i-lD+1;
      }
      this[i] = new calElement(y,m+1,i+1,nStr1[(i+this.firstWeek)%7],lY,lM,lD++,lL);
          if((i+this.firstWeek)%7==0){
             this[i].color = 'red';  //周日颜色
          }
   }
   //节气
   tmp1=sTerm(y,m*2)-1;
   tmp2=sTerm(y,m*2+1)-1;
   this[tmp1].solarTerms = solarTerm[m*2];
   this[tmp2].solarTerms = solarTerm[m*2+1];
   if((this.firstWeek+12)%7==5)        //黑色星期五
      this[12].solarFestival += '黑色星期五';
   if(y==tY && m==tM) this[tD-1].isToday = true;        //今日
}
//用中文显示农历的日期
function cDay(d){
   var s;
   switch (d) {
      case 10:
         s = '初十'; break;
      case 20:
         s = '二十'; break;
         break;
      case 30:
         s = '三十'; break;
         break;
      default :
         s = nStr2[Math.floor(d/10)];
         s += nStr1[d%10];
   }
   return(s);
}
//在表格中显示公历和农历的日期,以及相关节日
var cld;
function drawCld(SY,SM) {
   var TF=true;
   var p1=p2="";
   var i,sD,s,size;
   cld = new calendar(SY,SM);
   GZ.innerHTML = '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;【'+Animals[(SY-4)%12]+'】';        //生肖
   for(i=0;i<42;i++) {
      sObj=eval('SD'+ i);
      lObj=eval('LD'+ i);
      sObj.className = '';
      sD = i - cld.firstWeek;
      if(sD>-1 && sD<cld.length) { //日期内
         sObj.innerHTML = sD+1;
                 if(cld[sD].isToday){ sObj.style.color = '#9900FF';} //今日颜色
                 else{sObj.style.color = '';}
         if(cld[sD].lDay==1){ //显示农历月
                   lObj.innerHTML = '<b>'+(cld[sD].isLeap?'闰':'') + cld[sD].lMonth + '月' + (monthDays(cld[sD].lYear,cld[sD].lMonth)==29?'小':'大')+'</b>';
         }
                 else{lObj.innerHTML = cDay(cld[sD].lDay);}        //显示农历日
                var Slfw=Ssfw=null;
                s=cld[sD].solarFestival;
                for (var ipp=0;ipp<lFtv.length;ipp++){        //农历节日
                        if (parseInt(lFtv[ipp].substr(0,2))==(cld[sD].lMonth)){
                                if (parseInt(lFtv[ipp].substr(2,4))==(cld[sD].lDay)){
                                        lObj.innerHTML=lFtv[ipp].substr(5);
                                        Slfw=lFtv[ipp].substr(5);
                                }
                        }
                        if (12==(cld[sD].lMonth)){        //判断是否为除夕
                                if (eve==(cld[sD].lDay)){lObj.innerHTML="除夕";Slfw="除夕";}
                        }
                }
                for (var ipp=0;ipp<sFtv.length;ipp++){        //公历节日
                        if (parseInt(sFtv[ipp].substr(0,2))==(SM+1)){
                                if (parseInt(sFtv[ipp].substr(2,4))==(sD+1)){
                                        lObj.innerHTML=sFtv[ipp].substr(5);
                                        Ssfw=sFtv[ipp].substr(5);
                                }
                        }
                }
            if ((SM+1)==5){        //母亲节
                        if (fat==0){
                                if ((sD+1)==7){Ssfw="母亲节";lObj.innerHTML="母亲节"}
                        }
                        else if (fat<9){
                                if ((sD+1)==((7-fat)+8)){Ssfw="母亲节";lObj.innerHTML="母亲节"}
                        }
                }
            if ((SM+1)==6){        //父亲节
                        if (mat==0){
                                if ((sD+1)==14){Ssfw="父亲节";lObj.innerHTML="父亲节"}
                        }
                        else if (mat<9){
                                if ((sD+1)==((7-mat)+15)){Ssfw="父亲节";lObj.innerHTML="父亲节"}
                        }
                 }
                 if (s.length<=0){        //设置节气的颜色
                        s=cld[sD].solarTerms;
            if(s.length>0) s = s.fontcolor('limegreen');                
                 }
                 if(s.length>0) {lObj.innerHTML=s;Slfw=s;}        //节气
                 if ((Slfw!=null)&&(Ssfw!=null)){
                        lObj.innerHTML=Slfw+"/"+Ssfw;
                 }                                                
      }
      else { //非日期
         sObj.innerHTML = '';
         lObj.innerHTML = '';
      }
   }
}
//在下拉列表中选择年月时,调用自定义函数drawCld(),显示公历和农历的相关信息
function changeCld() {
   var y,m;
   y=CLD.SY.selectedIndex+1900;
   m=CLD.SM.selectedIndex;
   drawCld(y,m);
}
//用自定义变量保存当前系统中的年月日
var Today = new Date();
var tY = Today.getFullYear();
var tM = Today.getMonth();
var tD = Today.getDate();
//打开页时,在下拉列表中显示当前年月,并调用自定义函数drawCld(),显示公历和农历的相关信息
function initial() {
   CLD.SY.selectedIndex=tY-1900;
   CLD.SM.selectedIndex=tM;
   drawCld(tY,tM);
}
//-->
</SCRIPT> 
<BODY onload=initial()>
<CENTER>
<FORM name=CLD>
<TABLE>
  <TR>
    <TD align=middle>
      <TABLE border=1 cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolor="#ffffff" bordercolorlight="#EEEEEE">
        <TR bgcolor="#006600">
          <TD colSpan=7><FONT color=#ffffff style="FONT-SIZE: 9pt">公历 
            <SELECT name=SY onchange=changeCld() style="FONT-SIZE: 9pt"> 
            <SCRIPT language="JavaScript">
            for(i=1900;i<2050;i++) document.write('<option>'+i);
            </SCRIPT>
            </SELECT> 年 <SELECT name=SM onchange=changeCld() style="FONT-SIZE: 9pt"> 
            <SCRIPT language="JavaScript">
            for(i=1;i<13;i++) document.write('<option>'+i);
            </SCRIPT>
            </SELECT> 月 </FONT> <FONT color=#ffffff face=宋体 id=GZ style="FONT-SIZE: 12pt"></FONT><BR></TD>
        </TR>
        <TR align=middle bgColor=#e0e0e0>
          <TD width=54 style="font-size:9pt; padding:5pt;">日</TD>
          <TD width=54 style="font-size:9pt ">一</TD>
          <TD width=54 style="font-size:9pt ">二</TD>
          <TD width=54 style="font-size:9pt ">三</TD>
          <TD width=54 style="font-size:9pt ">四</TD>
          <TD width=54 style="font-size:9pt ">五</TD>
          <TD width=54 style="font-size:9pt ">六</TD></TR>
          <SCRIPT language="JavaScript">
            var gNum;
            for(i=0;i<6;i++) {
               document.write('<tr align=center>');
               for(j=0;j<7;j++) {
                  gNum = i*7+j;
                  document.write('<td id="GD' + gNum +'"><font id="SD' + gNum +'" size=2 face="Arial Black"');
                  if(j == 0) document.write(' color=red');
                  if(j == 6) document.write(' color=#000080');
                  document.write(' TITLE=""> </font><br><font id="LD' + gNum + '" size=2 style="font-size:9pt"> </font></td>');
               }
               document.write('</tr>');
            }
           </SCRIPT>
        </TABLE>
</TD>
  </TR>
</TABLE>
</FORM>
</CENTER>
</BODY>
</HTML>]]> asp代码日期位数不够补0
因为短日期不足2位，所以在网页排版的时候，影响美观，下面两个函数可以解决这个问题。
/**********************************************/
< %
Function FStime(times)
Dim years,months,days
if len(times)=0 then exit function
years=year(times)
months=right("0"&month(times),2)
days=right("0"&day(times),2)
times=years&"-"&months&"-"&days
FStime=times
End Function
%>
/**********************************************/
< %
Function FLtime(times)
Dim years,months,days,hours,minutes,seconds
if len(times)=0 then exit function
years=year(times):months=right("0"&month(times),2)
days=right("0"&day(times),2):hours=right("0"&hour(times),2)
minutes=right("0"&minute(times),2):seconds=right("0"&second(times),2)
FLtime=years&"-"&months&"-"&days&" "&hours&":"&minutes&":"&seconds
End Function
%>]]> FORMATDATETIME(RS("DATE"),1)

---

FormatDateTime(Date[, NamedFormat])
vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。  
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。 
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。 
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。 
vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。
]]>