·给我留言 ·加入收藏 ·设为首页

首 页 | 文章点评 | 文章欣赏 | 校园新闻 | 英语餐馆 | 名著导读 | 软件下载 | 笑话走廊 | 技术资料 | 桃花源记 | 感动谁 |

会员登陆 用户名： 密  码：   个人简介 背上帝宠坏dē男孩与上帝有个约定......幸福和快乐就在这美丽的约定里...   他说没什么不可以.......只要你愿意```一切都是真的！！ 我的QQ：416134479很愿意和大家交朋友，分享的快乐与幸福...   我的博客是：jnwsczh.blog.163.com 希望大家多多自持！！！   联系方式   ·姓名：小飞 ·昵称：被上帝抛弃dē男孩 ·电话： ·QQ号码：QQ群：19801634 ·E-mail：liugang1259@qq.com ·PKM：yuanren.whyxx.com 本站统计   ·今日浏览总人数：106 ·昨日浏览总人数：132 ·本月浏览总人数：1450 ·上月浏览总人数：7577 ·本站浏览总人数：200341 图标链接 本站调查 很满意 满意 一般 很差 <% 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 resArray = Split(screenRes, delimiter, 2) if (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) end If End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text" &_ "&channel=" &_ "&client=ca-mb-pub-4612457802419569" &_ "&color_border=" & googleColor("78B749", googleTime) &_ "&color_bg=" & googleColor("78B749", googleTime) &_ "&color_link=" & googleColor("0066CC", googleTime) &_ "&color_text=" & googleColor("000033", googleTime) &_ "&color_url=" & googleColor("000000", googleTime) &_ "&dt=" & googleDt &_ "&format=mobile_single" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_ googleScreenRes() Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>

这是我的心声，不是我的谬论（我的原创）   不要把我的感觉当作谬论，这是我的感触！！（本人打字不咋地，有错别字不要介意） 不知道是青春期的原因还是别的愿意，我认为我对这样的生活有很多的看法！！对教育很多看法，对人有很多看法，对事......   文章点评 更多 >> ·安于途中 2008-06-09 ·莫做迟孝之人，莫行假善之事 2008-04-27 ·价值100元的友谊 2008-02-17 ·300美元的价值 2008-02-17 ·如果一个女孩为你哭泣 2008-02-17   文章欣赏 更多 >> ·“汶川地震” - 来自天堂的声音！ 2008-06-09 ·汶川大地震让我感动了 2008-05-18 ·一场大地震到底震醒了多少梦中人 2008-05-18 ·地震无情人有情 2008-05-18 ·25年后，我才发现丈夫的秘密 2008-02-03   校园新闻 更多 >> ·四川赈灾捐款爱心榜 2008-05-25 ·寻找失踪的诗人 存档二十年前那些校园诗歌 2008-04-27 ·2008年网络第一流行语：做人不能太CNN! 2008-04-20 ·反藏独反CNN爱国视频集-新浪播客 2008-04-20 ·2008新年春节祝福短信 2008-02-03   英语餐馆 更多 >> ·英语网址大全 2007-09-02 ·喜获解放的狗 2007-09-02 ·“英语热”祸国殃民 2007-04-22 ·杂文翻译－－另一种爱 2007-04-22 ·杂文翻译－－生活充满选择 2007-04-22   我知道 更多 >> ·外媒称UFO袭击英国直升机 机上3人逃生 2008-06-24 ·西班牙：铁锤砸毁汽车电器宣泄压力（图） 2008-06-24 ·国庆节的由来 2007-09-23 ·网络“110”问世 2007-09-16 ·“中国黑客”10年嬗变 2007-09-16   软件下载 更多 >> ·玩转颜色(PlayColor)看看介紹就明白了！！！（版主的選擇） 2008-01-20 ·电脑千只眼 V4.1（看看你的孩子在做什么） 2007-10-01 ·免费领取QQ空间5级人参果花 2007-07-25 ·QQ强行聊天.激活QQ等功能软件下载 2007-07-23 ·无敌图像印章 3.06 2007-05-06   笑话走廊 更多 >> ·网络语录 2008-04-27 ·面对裸体美女时 2007-11-11 ·数学系才女 2007-11-11 ·女流氓语录 2007-11-11 ·偷情被撞上的最牛处理办法 2007-10-21   技术资料 更多 >> ·網頁代碼的借用 2008-01-20 ·让MP3拒绝病毒的入侵 2007-09-16 ·QQ原来隐藏着这么多秘密！！ 2007-09-16 ·QQ安全的三大纪律八项注意 2007-08-26 ·破解Email账号的三种方法 2007-08-26   桃花源记 更多 >> ·2008年在此为你的……留下祝福吧！！ 2008-02-03 ·元旦小短信 2007-12-30 ·学生入侵数据库篡改成绩重判20年 2007-11-11 ·灰鸽子危害超熊猫烧香10倍 2007-11-11 ·台军900亿打造黑客部队 2007-11-11

本站公告   ·张亮你要得图片 ·黄晓（沸腾学习网）的Loge图片 ·本站特别公告 ·张亮的banner图片 ·张亮的banner＆loge图片（２）     名著导读   ·《古兰经》开端章导读 ·圣经 ·文学名著导读 ·《汤姆·索亚历险记》导读 ·《巴黎圣母院》赏析     其人怪事   ·《易筋经》揭秘：源自达摩是一个美丽的误传 ·俄罗斯捕获怪异海洋生物 渔民称其为外星人 ·2005年度世界五大怪事 ·2006年全球奇人奇事世界吉尼斯纪录大搜索 ·世界十大奇闻怪事,不看要后悔了啊~     感动谁   ·看完请一定要给她打个电话 ·人生中需要珍惜的十种人 ·刺猬与鱼的爱 经典 ·幸福~~（看了不许哭） ·爱的位置     体育天堂   ·火箭季后赛首轮日程安排：22日姚麦主场迎战爵士 ·NBA主队.比分.客队.比赛时间 ·2008年北京奥运会门票正式启动预售 ·幽默世界杯：绿荫场上的另类“芭蕾”[组图] ·[视频]一个"巨无霸"引发的血案 NBA球员玩群殴     在线游戏   ·南极运动会 ·反恐精英 ·蜘蛛侠 ·特种任务 ·贪吃蛇     友情链接 山东招生信息网 微山教育智客网 济宁教育网 中华育儿网 中华杂文网 三人行在线 创新作文网 微山教研网 大家语文网 作文点评网 沸腾学习网 笑傲山庄 鲁桥一中 两城一中 黑客基地 音乐帝国 我的博客 QQ笑话吧 系统之家 榕树下 <% 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 resArray = Split(screenRes, delimiter, 2) if (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) end If End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text" &_ "&channel=" &_ "&client=ca-mb-pub-4612457802419569" &_ "&color_border=" & googleColor("78B749", googleTime) &_ "&color_bg=" & googleColor("78B749", googleTime) &_ "&color_link=" & googleColor("0066CC", googleTime) &_ "&color_text=" & googleColor("000033", googleTime) &_ "&color_url=" & googleColor("000000", googleTime) &_ "&dt=" & googleDt &_ "&format=mobile_single" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_ googleScreenRes() Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>

小飞 http://yuanren.whyxx.com 版权所有，并对网站内容负责。 技术支持：微山教育智客网