和朋友一起过“立春”

自秦代以来，中国就一直以立春作为春季的开始。立春是从天文上来划分的，而在自然界、在人们的心目中，春是温暖，鸟语花香；春是生长，耕耘播种。

昨天是二十四节气之一，立春。和朋友一起度过，有兄弟间的友情，有男女朋友间的友情。兄弟，美酒，春宵，暖阳；没有压力，没有烦恼，只有快乐。整个人都懒了，懒到天天都想过这种日子。

一个人的缘分是有限的，一个人的机会是有限的，人要求过好日子也是理所应当的。

今年是暖阳时来运转的一年，跟着我一起打拼的朋友们咱们好好努力，暖阳会和你们同甘共苦；

把暖阳看做潜力股的朋友们，信你们的眼光就行了。

ANACE 发表于 2010年2月6日 星期六
0 条评论

网站作品：豆腐皮机专业制造商周口富康机械

豆腐皮机制造商

2009年8月份做的一个网站，喜欢李老板的为人处世风格。“先做人，后做事。”打个电话试一把，绝对让你有收获。

周口市川汇区富康豆制品机械厂 - 周口富康机械厂专业从事：豆腐皮机,豆腐皮机械生产,豆腐皮机械加工,高产豆腐皮机研发,欢迎广大朋友与我们合作！

欢迎访问：http://www.dopiji.com

ANACE 发表于 2010年1月23日 星期六
4 条评论

简捷模板服务于为中小企业建站的站长

简洁模板

简捷模板——服务于为中小企业建站的站长。这个站是两个月前的一个项目，最近我们计划更新一下这个网站，希望能做更多的事。

欢迎朋友们支持：http://www.easytpl.com

ANACE 发表于 2010年1月23日 星期六
0 条评论

尽人事以听天命

只问耕耘不问收获！

今天是腊八，祝朋友们节日快乐！

身边的事，有太多需要我去做，又有太多的无可奈何！

有些时候，不是你能力不及，而是你选错了方向；

我的家人，我有太多的亏欠。

恩师啊，我什么时候才能振翅高飞！

关心我的朋友们啊，我怎么去回报大家！

跟着我一起闯的人啊，我要怎么对你们的将来负责！

ANACE 发表于 2010年1月22日 星期五
0 条评论

把ASP中的时间转换UNIX时间戳

感觉这套CMS系统写出来后对我的ASP水平提高真的是非常有帮助。

  1. '参数：strTime:要转换的时间；intTimeZone：该时间对应的时区          
  2. '返回值：strTime相对于1970年1月1日午夜0点经过的秒数        
  3. '示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值为1211511060          
  4. Function ToUnixTime(strTime, intTimeZone)         
  5.     If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now         
  6.     If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0         
  7.      ToUnixTime = DateAdd("h",-intTimeZone,strTime)         
  8.      ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)         
  9. End Function        
  10.         
  11. '把UNIX时间戳转换为标准时间         
  12. '参数：intTime:要转换的UNIX时间戳；intTimeZone：该时间戳对应的时区         
  13. '返回值：intTime所代表的标准时间         
  14. '示例：FromUnixTime("1211511060", +8)，返回值2008-5-23 10:51:0         
  15.  
  16. Function FromUnixTime(intTime, intTimeZone)         
  17.     If IsEmpty(intTime) Or Not IsNumeric(intTime) Then        
  18.          FromUnixTime = Now()         
  19.         Exit Function        
  20.     End If        
  21.     If IsEmpty(intTime) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0         
  22.      FromUnixTime = DateAdd("s", intTime, "1970-1-1 0:0:0")         
  23.      FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)         
  24. End Function    
ANACE 发表于 2010年1月21日 星期四
0 条评论

ASP无限分类代码

ASP无限分类用一个数据表来做，在过程中调用自身来实现。

category表
cid            自动编号的栏目ID
fid             父栏目ID，默认值0
cname      栏目名称

<%
Call limitClass("cid,fid,name",0,0)
'无限分类
Sub limitClass(Row,fid,N)
Dim rs
Set rs = Easp.db.GetRecord("j_class:"&Row,"fid="&fid,"cid Asc")
While Not rs.eof
%>
  <tr>
    <td><%If rs("fid")<>0 Then Response.Write( replace(String(N," ")," ","&nbsp;&nbsp;&nbsp;"))&"┠ "&rs(2)%></td>
  </tr>
<%
'通过在过程中调用自身来实现无限分类
Call limitClass(Row,rs("cid"),N+1)
rs.movenext()
Wend
Easp.db.C(rs)
End Sub
%>

ANACE 发表于 2010年1月21日 星期四
0 条评论
Next >>