<![CDATA[Response]]> http://9889331.qzone.qq.com Sun, 29 Nov 2009 13:15:47 GMT Qzone zh-cn Copyright (C), 2005-2008, Tencent Tech. Co., Ltd. Thu, 19 Nov 2009 02:46:11 GMT <![CDATA[加油]]> http://9889331.qzone.qq.com/blog/1258598771
春天不会太远
]]> http://9889331.qzone.qq.com/blog/1258598771#comment 134217728 Thu, 19 Nov 2009 02:46:11 GMT http://9889331.qzone.qq.com/blog/1258598771 <![CDATA[冰峪沟&天门山]]> http://9889331.qzone.qq.com/blog/1247758438

























]]> http://9889331.qzone.qq.com/blog/1247758438#comment 134217729 Thu, 16 Jul 2009 15:33:58 GMT http://9889331.qzone.qq.com/blog/1247758438 <![CDATA[你们还有人性吗？]]> http://9889331.qzone.qq.com/blog/1244533432 先看看这个，你们还有人性吗？每天都祸害我的地，佩服啊佩服~

还有这个
早上5点，这是天天的，还有半夜12点，1点的……偶滴神啊！救救我的菜园子吧！

你们是害虫吗？！ ]]> http://9889331.qzone.qq.com/blog/1244533432#comment 134217729 Tue, 09 Jun 2009 07:43:52 GMT http://9889331.qzone.qq.com/blog/1244533432 <![CDATA[写了一个用数字型数组排列字符串型数组函数 .net]]> http://9889331.qzone.qq.com/blog/1242717223 Dim KeepChecking, I, FirstValue, SecondValue As Double
Dim fis, sec As String
KeepChecking = True
Do Until KeepChecking = False
KeepChecking = False
For I = 0 To UBound(ary1)
If I = UBound(ary1) Then Exit For
If ary1(I) > ary1(I + 1) Then
fis = ary2(I)
FirstValue = ary1(I)
SecondValue = ary1(I + 1)
sec = ary2(I + 1)
ary1(I) = SecondValue
ary2(I) = sec
ary1(I + 1) = FirstValue
ary2(I + 1) = fis
KeepChecking = True
End If
Next
Loop
End Sub ]]> http://9889331.qzone.qq.com/blog/1242717223#comment 134218240 Tue, 19 May 2009 07:13:43 GMT http://9889331.qzone.qq.com/blog/1242717223 <![CDATA[ASP.NET VB.NET 年周次计算 以及 月周次计算函数 今天写的 ^_^]]> http://9889331.qzone.qq.com/blog/1242371095 今天写的 简单的测试了下，这东西真麻烦！**************************************************************
月周次计算，向页面提交变量 年，月 开始计算 返回周次
**************************************************************
<script runat="server">
'日期转月周次函数 BY ki18k 2009-5-15
Dim kyear As String, kmonth As String, monthday As Double, enday As String
Dim a(6) As String, b(6) As String

Function firstday(ByVal inputyear As String, ByVal inputMonth As String) As String
monthday = DateTime.DaysInMonth(inputyear, inputMonth) '返回当月天数
Dim s As Double = 1 '定义一个变量为数组游标
For i = 1 To monthday '开始循环判断日期，以当月最大天数结尾
If Weekday(CDate(inputyear & "-" & inputMonth & "-" & i)) = 2 Then '判断星期一
firstday = inputyear & "-" & inputMonth & "-" & i '为firstday变量赋值当月第一个星期一的日期
If i >= 1 And (i + 6) <= monthday Then '判断当前日期是否为本月开始，并且小于本月结束
enday = inputyear & "-" & inputMonth & "-" & (i + 6) '添加星期日
ElseIf i >= 1 And (i + 6) >= monthday Then '判断当前日期是否为本月开始，并且大于本月结束
enday = inputyear & "-" & inputMonth + 1 & "-" & (i - monthday + 6) '添加下月星期日
End If

a(s) = firstday '为星期一数组赋值
b(s) = enday '为星期日数组赋值
s = s + 1 '游标递加
End If

Next
End Function



Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
kyear = Request("kyear")
kmonth = Request("kmonth")
firstday(kyear, kmonth)
For i = 1 To 5
Response.Write("第" & i & "周")
Response.Write("...........")
Response.Write(a(i))
Response.Write("...........")
Response.Write(b(i))
Response.Write("<br><br><br>")

If a(i + 1) = "" Then Exit For
Next
End Sub

</script>
**************************************************************
年周次计算
**************************************************************
<script runat="server">
'日期转周次函数 BY ki18k 2009-5-15
Dim kyear As String
Dim toyear As String, fday As String, daynum As String

Function firstday(ByVal inputyear As Double) As Date '判断某年的第一个星期一
For i = 1 To 7
If Weekday(CDate(inputyear & "-1-" & i)) = 2 Then '判断某年的第一个星期一
firstday = inputyear & "-1-" & i

End If
Next
End Function
Function CalcWeekNo(ByVal InputDate As String) As Double '计算年内周次

toyear = Year(InputDate)
fday = firstday(toyear)
If DateDiff("d", fday, InputDate) < 0 Then
fday = firstday(toyear - 1)
End If
daynum = DateDiff("d", fday, InputDate)
CalcWeekNo = Math.Round(daynum / 7, 0)
End Function

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
kyear = Request("key")
Response.Write(CalcWeekNo(kyear))
End Sub


</script>
谢谢大家的忍受 ]]> http://9889331.qzone.qq.com/blog/1242371095#comment 134218240 Fri, 15 May 2009 07:04:55 GMT http://9889331.qzone.qq.com/blog/1242371095 <![CDATA[最近都在做什么？]]> http://9889331.qzone.qq.com/blog/1236067970





]]> http://9889331.qzone.qq.com/blog/1236067970#comment 134218241 Tue, 03 Mar 2009 08:12:50 GMT http://9889331.qzone.qq.com/blog/1236067970 <![CDATA[才发现自己火了……百度第二？！]]> http://9889331.qzone.qq.com/blog/1234794183


]]> http://9889331.qzone.qq.com/blog/1234794183#comment 134218241 Mon, 16 Feb 2009 14:23:03 GMT http://9889331.qzone.qq.com/blog/1234794183 <![CDATA[大家过年好]]> http://9889331.qzone.qq.com/blog/1232935355 看看我初一的天使卡……


]]> http://9889331.qzone.qq.com/blog/1232935355#comment 134218241 Mon, 26 Jan 2009 02:02:35 GMT http://9889331.qzone.qq.com/blog/1232935355 <![CDATA[快乐]]> http://9889331.qzone.qq.com/blog/1230721256 ]]> http://9889331.qzone.qq.com/blog/1230721256#comment 134218240 Wed, 31 Dec 2008 11:00:56 GMT http://9889331.qzone.qq.com/blog/1230721256 <![CDATA[一些照片]]> http://9889331.qzone.qq.com/blog/1226991075
小时候


小时候


小时候


鼠标


MR.飞利浦


键盘


盒子


晶晶


和MR.飞利浦一起来的


本


广佑寺












]]> http://9889331.qzone.qq.com/blog/1226991075#comment 134218241 Tue, 18 Nov 2008 06:51:15 GMT http://9889331.qzone.qq.com/blog/1226991075