贴点有用的东西

大笑微笑生气吐舌头吐舌头吐舌头吐舌头吐舌头吐舌头吐舌头吐舌头吐舌头吐舌头吐舌头生气微笑大笑


偷笑我爱北京天安门偷笑


偷笑天安门上太阳升偷笑


偷笑伟大领袖毛主席偷笑


偷笑指引我们向前进偷笑

偷笑大笑大笑大笑大笑大笑大笑大笑大笑大笑大笑大笑大笑大笑大笑大笑大笑偷笑

 
 
MD,自己的站不知道为什么又上不去了,昨天晚上从十一点半到今天早上7点多都无法访问,现在快到十一点半了,又不能访问了.我靠,明天去找空间商去.....
function getQueryVariable(variable) {
var query = window.location.search.substring(1);
var vars = query.split("&");
for (var i=0;i<vars.length;i++) {
var pair = vars.split("=");
if (pair[0] == variable) {
return pair[1];
}
}
alert('Query Variable ' + variable + ' not found');
}
var MyIDString = getQueryVariable("ID");
var MyNewFile = ('update_modules.cfm?ID=' + MyIDString);
window.location.href = MyNewFile;
============================================================
下面这段留着贴回3RGB.COM用

  本来是要写点今天的事的,也由于这些事发现了一些代码就想贴上来。公司在用CAPTIVATE开发东西,但是到了最后关头有点技术问题,CAPTIVATE本身的问题,但也不能算是BUG,只能说是CAPTIVATE本身功能的不完整造成的,所以,偶就负责技术攻关了,周末也在家里搞,到最后也没一个特别满意的方法,查遍了MacroMedia的DEVNET也是一样,论坛上也有人问,回答依然是否定的。不过还好,已经找到替代的方法了。

  就是在DEVNET转的时候,看到了点东西,所就贴上来,其实这篇日记按我原来想法是想放在“Work+Study”里的,但怕以后找这些代码不好找就只好放在这个分类里了,现在终于见出tag的好处了,呵呵,但是tag对于我自己来说用的还不是太多,所以给这个blog加上tag功能的话,就不想去费那个事了,废话不说了,贴代码。

function getQueryVariable(variable) {
var query = window.location.search.substring(1);
var vars = query.split("&");
for (var i=0;i<vars.length;i++) {
var pair = vars.split("=");
if (pair[0] == variable) {
return pair[1];
}
}
alert('Query Variable ' + variable + ' not found');
}
var MyIDString = getQueryVariable("ID");
var MyNewFile = ('update_modules.cfm?ID=' + MyIDString);
window.location.href = MyNewFile;

 
 

阅读更多

贴点自己写的东西

11-13

(一)离别rn转眼分别一个月了,一下子就来到了这个陌生的地方。正如离别没有忧伤一样,我竟然也没有多少兴奋。还记得离别时的情景:6月27日晚,我们一起吃散伙饭,大家都抱成一团,嚎啕满屋,我没有哭;7月1日坐火车离开学校,车内车外哭脸相对,泪花与思绪齐飞,爱恨共列车一别,其中有几个MM哭得好凄惨呀,我还是没哭.。也许我还小,不食人间烟火;也许我原本就是铁尺心肠,不相信什么山盟海誓。林黛玉害怕聚会,因为有聚总有散,与其要承受离别的伤感,还不如不聚的好;贾宝玉却喜欢聚会,因为又能看见姐姐妹妹了。我聚会有两怕:唱歌,我所怕也;喝酒,亦我所怕也;但推脱了这两样后,好像也没什么可怕的。rn(二)深圳、大连、北京、武汉.rn深圳就像一个婀娜多姿的少妇,刚渡过一段浪漫的时光,懂得生活最重要的还是钱,为生计故,甚至都没时间注意自己的美丽了;rn大连就像一个清纯无知的少女,你对她百般献媚,她却浑然不知,一任装饰自己,展示自己优美的身段;rn北京就像一个高雅脱俗的贵妇,你正准备向她献媚,却已经有些自惭庸俗了;rn武汉就像一个善解人意的大娘,她总是能察觉你的那些心烦事,而帮你解决。rn(三)执着rn执着有时是一种痛苦,甚至还要冒风险。钱钟书的比喻言犹在耳:这就好像是一件新衣服,不舍得穿,放到箱子里锁起来,等过了一两年年再拿出来,发现已经不时髦了。这是《围城》中比喻才女苏文纨的:上大学时将爱情看得太珍贵,不肯轻易给人;等留学归国,拿到外国名牌大学的博士证书,反而急了,开始追方鸿渐,更惨的是没追上。rn又有舒婷的《神女峰》供大家品味:rn在向你挥舞的各色花帕中rn是谁的手突然收回rn紧紧捂住了自己的眼睛rn当人们四散离去,谁rn还站在船尾rn衣裙漫飞,如翻涌不息的云rn江涛 rn   高一声rn     低一声 rn美丽的梦留下美丽的忧伤rn人间天上,代代相传rn但是,心rn真能变成石头吗rn为盼望远天的杳鹤rn而错过无数次春江月明rn沿着江岸rn金光菊和女贞子的洪流rn正煽动新的背叛rn与其在悬崖上展览千年rn不如在爱人肩头痛哭一晚 rnrn(四)爱情rn读《红楼梦》,最大的遗憾是宝哥哥和林妹妹的爱情因为家庭阻挠而成为镜花水月。但这也许还是好的了:这个世界上并不是有一个林妹妹就一定有一个宝哥哥,或者有一个宝哥哥就一定有个林妹妹,如果害怕伤害的话,往往只有暗恋了。rn我对一见钟情有些怀疑,这些往往都是古代才子佳人一类小说中的产物,也是宝哥哥的奶奶史太君所批评的“千篇共一律”。宝哥哥和林妹妹初次见面时也只是感觉对方有些面熟,这只不过是因为他们原来在仙境就离得很近,一个是神瑛伺者,一个是绛珠草,神瑛伺者“日以甘露灌溉”,绛珠草“始得久延岁月”,然后双双来到人间,绛珠草要报答神瑛伺者,报答的方式就是还眼泪,泪干了,恩也报完了,就回到仙境。这是曹雪芹编出来的要大家看破红尘。rn爱情是需要靠感觉的,宝姐姐各方面都好,漂亮温柔又善解人意,也许觉得应该爱她,但是最后发现自己喜欢的其实还是孤标傲世、尖酸刻薄、聪明伶俐、多愁善感、弱不禁风的林妹妹。rn但人的思想不稳定,一时的感觉不可靠,也许并不能称之为爱情,而像《围城》所说的一样,就像一杯白开水里滴了几滴红酒,仅仅是有点兴奋而已。只有交往多了才能彼此了解,这时也许能产生爱情,而如果是一方有意,一方无情,恐怕有时只能是暗恋了。暗恋,说得难听一点是单相思,说得好听一点,就是伪装的爱情。rn(五)中秋与国庆rn中秋在英文中是mid-autumn festival,国庆是National Day,一个是“festival”,一个是“Day”,因为一个是传统节日,一个是最近几十年才有的;一个以阴历算,一个以阳历算,这就造成了他们之间若离若即,去年甚至都是同一天了。国庆虽然时间短,但已经后来居上了,无论是声势还是形式。rn中秋是文人骚客的节日,无论是花草树木还是清风明月,都伴随着数不清的诗词歌赋。“明月几时有”就不用说了,连贾雨村这样品味的人也不禁诗兴大发:rn时逢三五月团圆,满把晴光护玉栏。天上一轮才捧出,人间万姓仰头看。rn过完中秋就是国庆,也是一大堆东西,但却没多大的感觉,都是血雨腥风和千篇一律的颂词。也许中秋让世故的人多几分纯真,国庆让纯真的人多几分世故。rnrn

换一批

一点有用东西

09-27

Imports System.DrawingrnrnPublic Class Form1rnrn Public Structure StaticValuern Public Value As Integerrn Public CurrentTime As Stringrn End Structurernrn 'Public Structure CPUStaticsrn ' Public MinY As Integerrn ' Public MaxY As Integerrn Public CriticalLine As Integerrn Public StaticValues As new ArrayListrn Public RefreshRate As Integerrnrn 'End Structurernrn ' Private CPUStatic As CPUStaticsrn Public Const UNITDISTANCE = 10rn Public Const UNITPOINTS = 4rn Public CPUBitmap As Bitmaprn Public g As Drawing.Graphicsrn Public rdm As New Random()rnrn Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Loadrn CriticalLine = 90rn RefreshRate = 1000rn Timer1.Interval = RefreshRatern Timer1.Enabled = Truern DrawCurve()rn End Subrnrn Sub DrawCurve()rn Dim CPUPoints() As PointFrn If StaticValues.Count <= 0 Then Exit Subrnrn ReDim CPUPoints(StaticValues.Count - 1)rn Dim TotalLength As Integer = PictureBox1.Width / UNITPOINTSrnrn If TotalLength > CPUPoints.Length Thenrn For i As Integer = TotalLength - CPUPoints.Length To TotalLength - 1rn CPUPoints(i - (TotalLength - CPUPoints.Length)).X = UNITPOINTS * irn CPUPoints(i - (TotalLength - CPUPoints.Length)).Y = PictureBox1.Height - StaticValues(i - (TotalLength - CPUPoints.Length)).Value * PictureBox1.Height / 100rn Nextrn Elsern For i As Integer = 0 To TotalLength - 1rn CPUPoints(i - (TotalLength - CPUPoints.Length)).X = UNITPOINTS * irn CPUPoints(i - (TotalLength - CPUPoints.Length)).Y = PictureBox1.Height - StaticValues(i - (TotalLength - CPUPoints.Length)).Value * PictureBox1.Height / 100rn Nextrn End Ifrnrn g.Clear(Color.Black)rn g.DrawLine(Pens.LightGreen, 0, PictureBox1.Height Mod UNITDISTANCE, _rn PictureBox1.Width, PictureBox1.Height Mod UNITDISTANCE)rn For i As Integer = PictureBox1.Height Mod UNITDISTANCE To PictureBox1.Height Step UNITDISTANCErn g.DrawLine(Pens.DarkGreen, 0, i, PictureBox1.Width, i)rn Nextrnrn For i As Integer = UNITDISTANCE To PictureBox1.Width Step UNITDISTANCErn g.DrawLine(Pens.DarkGreen, i, 0, i, PictureBox1.Height)rn Nextrnrn 'draw critical line using RED colorrn Dim CriticalY As Integer = PictureBox1.Height - PictureBox1.Height * CriticalLine / 100rn g.DrawLine(New Pen(Color.Crimson, 2.0), 0, CriticalY, PictureBox1.Width, CriticalY)rnrn If Not CPUPoints Is Nothing Thenrn If CPUPoints.Length > 1 Thenrn g.DrawCurve(Pens.LightYellow, CPUPoints)rn End Ifrn End Ifrnrn PictureBox1.Refresh()rnrn End Subrnrn Sub AddCPUVaue(ByVal CPUValue As StaticValue)rn Dim tempValue As New StaticValuern tempValue = CPUValuern StaticValues.Add(tempValue)rn '假设每秒产生一次数据,一天最多产生86400个rn '这里只保存一天的数据rn If StaticValues.Count > 86400 Thenrn StaticValues.RemoveAt(0)rn End Ifrn End Subrnrn Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tickrn Dim CPUValue As StaticValuern CPUValue.Value = rdm.Next(50, 100)rn CPUValue.CurrentTime = "1"rn AddCPUVaue(CPUValue)rn 'Debug.Print(CPUValue.Value)rn DrawCurve()rnrn End Subrnrn Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resizern If Not CPUBitmap Is Nothing Then CPUBitmap.Dispose()rn CPUBitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)rn g = Drawing.Graphics.FromImage(CPUBitmap)rn PictureBox1.Image = CPUBitmaprn PictureBox1.Refresh()rnrn End SubrnEnd Classrn

没有更多推荐了,返回首页