预览模式: 普通 | 列表

测了一下网站价值

作者:nj 日期:2010-07-20

测试了一下我的网站价值

分类:综合文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 68

最近在网上购物，感觉还可以的，所以花了不少钱，很心疼哦

作者:nj 日期:2010-07-19

最近在网上购物，感觉还可以的，所以花了不少钱，很心疼哦

Tags: 上网上网购物购物

分类:综合文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 74

工作忙了，没时间更新日志了

作者:nj 日期:2010-07-18

工作忙了，没时间去更新自己的日志了，真的很抱歉了

分类:综合文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 68

缺点也是成功的阶梯

作者:nj 日期:2010-07-12

有一个孩子,在上中学时,父母为他选择了文学这条路,可是,他只读了一个学期,老师就在他的评语中写下了如此结论:该生读书很用功,但做事过于拘泥和死板,这样的人即使有着完善的品德,也绝不能在文学上有所成就。后来,一位化学老师得知语文老师对他评定的缺点后,认为这种不适应文学的缺点用在化学上也许很适合,便建议他改学化学,他高兴地答应了。他的改行,正好将自身的缺点用在适合他的位置上,因为做化学实验需要的正是一丝不苟的认真和“死板”,他感到真正找到了自己走向成功的途径。一个学期下来,他的化学成绩在同学中遥遥领先。后来,他荣获了诺贝尔化学奖,他的名字叫奥托·瓦拉赫。

　　奥托·瓦拉赫之所以能成为一个有用之材,不仅仅因为很好地利用了自身的缺点,而且还让自己的缺点成为向上的阶梯,一步步攀登至化学大师的高峰。其实,对于我们每个人而言,人人都有这样或那样的缺点,如果能够给自己的缺点找到适合发挥的位置,缺点不仅会让自己走向成功,而且还能创造财富。就职场人士而言,缺点有时也会变成自己的优势,一旦遇到慧眼识才者,

Tags: 缺点缺点成功成功阶梯阶梯

分类:情感人生 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 98

1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | › | »

文章搜索

<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Function googleScreenRes() Dim screenRes, delimiter, resArray screenRes = Request.ServerVariables("HTTP_UA_PIXELS") delimiter = "x" If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS") delimiter = "," End If If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_JPHONE_DISPLAY") delimiter = "*" End If resArray = Split(screenRes, delimiter, 2) If (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) End If End Function Function googleMuid() Dim muid muid = Request.ServerVariables("HTTP_X_DCMGUID") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_UP_SUBNO") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_JPHONE_UID") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_EM_UID") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If End Function Function googleViaAndAccept(googleUserAgent) If Len(googleUserAgent) = 0 Then Dim via via = Server.URLEncode(Request.ServerVariables("HTTP_VIA")) If Not IsEmpty(via) Then googleViaAndAccept = "&via=" & via End If Dim accept accept = Server.URLEncode(Request.ServerVariables("HTTP_ACCEPT")) If Not IsEmpty(accept) Then googleViaAndAccept = googleViaAndAccept & "&accept=" & accept End If End If End Function Dim googleTime, googleDt, googleScheme googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" googleUserAgent = Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text_image" &_ "&channel=6069390123" &_ "&client=ca-mb-pub-5114389752994766" &_ "&dt=" & googleDt &_ "&format=mobile_single" &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")) &_ "&useragent=" & googleUserAgent &_ googleScreenRes() &_ googleMuid() &_ googleViaAndAccept(googleUserAgent) Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>