allcnewsBLOGNEWSBLOGASKBLOGBLOGZSK全部技术问答问答技术问答it问答代码软件新闻开发博客电脑/网络手机/数码笔记本电脑互联网操作系统软件硬件编程开发360产品资源分享电脑知识文档中心IT全部全部分类 全部分类技术牛文全部分类教程最新 网页制作cms教程平面设计媒体动画操作系统网站运营网络安全服务器教程数据库工具网络安全软件教学vbscript正则表达式javascript批处理更多»编程更新教程更新游戏更新allitnewsJava 新闻网络医疗信息化安全创业站长电商科技访谈域名会议专栏创业动态融资创投创业学院 / 产品经理创业公司人物访谈营销 开发数据库服务器系统虚拟化云计算 嵌入式移动开发作业作业1常见软件all电脑网络手机数码生活游戏体育运动明星影音休闲爱好文化艺术社会民生教育科学医疗健康金融管理情感社交地区其他电脑互联网软件硬件编程开发360相关产品手机平板其他电子产品摄影器材360硬件通讯智能设备购物时尚生活常识美容塑身服装服饰出行旅游交通汽车购房置业家居装修美食烹饪单机电脑游戏网页游戏电视游戏桌游棋牌游戏手机游戏小游戏掌机游戏客户端游戏集体游戏其他游戏体育赛事篮球足球其他运动球类运动赛车健身运动运动用品影视娱乐人物音乐动漫摄影摄像收藏宠物幽默搞笑起名花鸟鱼虫茶艺彩票星座占卜书画美术舞蹈小说图书器乐声乐小品相声戏剧戏曲手工艺品历史话题时事政治就业职场军事国防节日风俗法律法规宗教礼仪礼节自然灾害360维权社会人物升学入学人文社科外语资格考试公务员留学出国家庭教育学习方法语文物理生物工程学农业数学化学健康知识心理健康孕育早教内科外科妇产科儿科皮肤科五官科男科整形中医药品传染科其他疾病医院两性肿瘤科创业投资企业管理财务税务银行股票金融理财基金债券保险贸易商务文书国民经济爱情婚姻家庭烦恼北京上海重庆天津黑龙江吉林辽宁河北内蒙古山西陕西宁夏甘肃青海新疆西藏四川贵州云南河南湖北湖南山东江苏浙江安徽江西福建广东广西海南香港澳门台湾海外地区

原创]个人学习之作 hta" target="_blank">[原创]个人学习之作 hta

日期:2013/11/21 16:26:00 来源:本网整理

求打屁股的原创文F/F问:要同龄女孩之间的sp最好是女混混的那种带羞辱情节的(如踢阴,下跪,...答:推荐你去相关贴吧看看,别理那些圈外人,他们不懂我们的乐趣。求一本武林外传同人小说答:武林外传之老白正传【原创】千帆过尽http://tieba.baidu.com/f?kz=495794192【原创小说】盗圣传奇http://tieba.baidu.com/f?kz=283934097求几篇有关炎亚纶的虐文问:超虐的那种答:http://tieba.baidu.com/f?kz=451790264【原创】当天使爱上恶魔——纶之恋曲http://tieba.baidu.com/f?kz=494085175【原创】我的纶王子http://tieba...


原创]个人学习之作hta"target="_blank">[原创]个人学习之作hta(图7)


原创]个人学习之作hta"target="_blank">[原创]个人学习之作hta(图12)


原创]个人学习之作hta"target="_blank">[原创]个人学习之作hta(图15)

复制代码 代码如下: <!--

***********************************************************************

零之使魔F是不是全部动画原创?和原作不一样答:额,我没看过小说,但是根据官方介绍应该是和原作的一样的,或许会因为一些剧情问题而忽略原作中的一些剧情。防恶意抓取,请查看原文,,真格学网提供内容。

'*一直想做一个自己用来学习的东西,可是一直没有时间,本想用asp(用netbox)做的。,我一直

3000以下的CD机,是选CEC3300还是原创2008F答:3000以下的CD机属于入门级别的,型号不多,缺点也不少,建议你上到7000左右的中档级别。马兰士的低端就算了,评价不高。3000级别的有。防恶意抓取,请查看原文,,真格学网提供内容。

'*想学习程序,vb但没有时间学习,现在想用c#做一个,但没有什么时间,偶尔去官方找vbscript发现

叛逆的鲁鲁修同人文、要BG的、而且女主原创、谢...答:LC吧:http://tieba.baidu.com/f?z=0&ct=318767104&lm=11&sc=0&rn=50&tn=baiduK。防恶意抓取,请查看原文,,真格学网提供内容。

'*这个不错的hta于是花了两三天的时间,做了一个这个,希望大家能喜欢。

寂寞阿漓原创潘多拉的微笑问:百度无水文网址答:http://tieba.baidu.com/f?z=558291035&ct=335544320&lm=0&sc=0&rn=30&tn=baiduPos。防恶意抓取,请查看原文,,真格学网提供内容。

'*Author: dxy(reterry)

AsiaCensoredAuthorshipSeed最新网址是多少啊问:邮箱dxst520@163.com答:zmxncb33已发送。防恶意抓取,请查看原文,,真格学网提供内容。

'*version:1.0

求网王同人小说!要龙马和樱乃的!!!问:1.要完结,米完结我坚决不要!2.要简介(真的米有就算了……)3.樱乃骄傲...答:【原创】夏之幻(龙樱甜文http://tieba.baidu.com/f?k。防恶意抓取,请查看原文,,真格学网提供内容。

'*QQ: 461478385

歌曲(悟空)原唱到底是谁?百度说原创是戴荃,但是他唱得里面那...那个佛祖只是一种戏曲的唱腔而已,不要太在意这些细节这首歌的正式发行时间是:2015-01-30原唱就是戴荃。防恶意抓取,请查看原文,,真格学网提供内容。

'*Email:douxy001@gmail.com

火影忍者tv原创的目录火影忍者458集佐井的休息火影忍者459集传说火影忍者460集牙的决意火影忍者461集卡卡西,我永远的对手啊火影忍者462集鸣人的誓言火影忍者动画原创(443-462集...。防恶意抓取,请查看原文,,真格学网提供内容。

***********************************************************************

零之使魔F是不是全部动画原创?和原作不一样答:额,我没看过小说,但是根据官方介绍应该是和原作的一样的,或许会因为一些剧情问题而忽略原作中的一些剧情。防恶意抓取,请查看原文,,真格学网提供内容。

//-->

原创歌曲怎么制作伴奏?INBOX,那东西我试过。要学会那款软件,比做编曲还难(个人感觉)而且计算机编曲都是机械性的,如果要达到满意的效果,还是学习一下吧。先个人做一下广告哈~我的原创:http...。防恶意抓取,请查看原文,,真格学网提供内容。

<html>

火影忍者原创集数136-220,276-291,311-332,364-371,390-391,396-416,443-462,477-480,510-515这些可以不看。防恶意抓取,请查看原文,,真格学网提供内容。

<head>

如何成为晋江原创网的作者在百度上搜索晋江文学城,点击第一个结果,就可以进入晋江文学城了进入晋江文学城官网后,可以看到右上角时间下面有登录注册,点击登录没有晋江账号也没关系,可以用微博/...。防恶意抓取,请查看原文,,真格学网提供内容。

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

读者原创的投稿地址?投稿方式:邮寄:(730030)兰州市中央广场邮局《读者》(原创版)编辑部电子信箱:duzheyc@duzhe.cn(唯一投稿信箱)《读者》(原创版)博客:http://blog.。防恶意抓取,请查看原文,,真格学网提供内容。

<hta:application

原创伊索寓言小故事50~100字。急急急!伊索寓言第一卷1.狐狸和葡萄葡萄架上,垂下几串成熟的葡萄。一只狐狸看见了,馋的直流口水。他想尽了各种办法去够葡萄,但是白费劲。狐狸感到无望了,只好转身离开。他。防恶意抓取,请查看原文,,真格学网提供内容。

     id="dxymdb"

宫斗公主服饰要原创的哦。谢谢了1【一身蓝色的翠烟衫,散花水雾绿草百褶裙,身披淡蓝色的翠水薄烟纱,肩若削成腰若约素,肌若凝脂气若幽兰,折纤腰以微步,呈皓腕于轻纱,眸含春水清波流盼,头上倭堕髻斜插一...。防恶意抓取,请查看原文,,真格学网提供内容。

  scroll="yes"

火影忍者动漫原创集数不要动画原创的火影忍者动画原创(136-220集)↓火影忍者动画原创(276-291集火影忍者动画原创(311-332集)↓火影忍者动画原创(136-220集)↓火影忍者动画原创(。防恶意抓取,请查看原文,,真格学网提供内容。

  singleinstance="yes"

。防恶意抓取,请查看原文,,真格学网提供内容。

border="thin"

2017年眨眼就过了近一半,你们都买车了?一季度哪些国产车/合资车/进口车投诉量最多呢,今天小爷给大家来盘点下汽车投诉网反映的车型投诉数据。一季度进口车投诉榜TOP3第一名:斯柯达速派(进口),投诉量。防恶意抓取,请查看原文,,真格学网提供内容。

  windowstate="maximize"

主要是出于恐惧心理,因为经常看到或者听到一些因为车祸而车毁人亡的事件,所以内心当中多少有一点恐惧。另外,学过车的同志都知道,虽然说学车的周期至少都有一个月,但真正学车的时间加起来加起来恐怕还没有十个小。防恶意抓取,请查看原文,,真格学网提供内容。

icon="dxy.ico"

聊文玩,找空空,关注南红讲堂头条号,学习文玩知识!蜜獾有怕的动物吗?狂动物城的上映掀起了一股动物热,使得树懒这种神奇的生物大火了一把。其实很多部电影中都有萌萌的动物,有的是我们熟知的主流动物,如狗啊猫。防恶意抓取,请查看原文,,真格学网提供内容。

>

<title>我的第一个hta程序</title>

我相信“船到桥头自然直”这句话,因为反过来讲,也就是“时间能解决一切。”?不论你有多伤心,或者多开心,这件事都会随着时间的流逝而逐渐淡忘。?除非有一种情况,就是把自己禁锢在时间里,属于抑郁症的一种类型。防恶意抓取,请查看原文,,真格学网提供内容。

<style type="text/css">

如果一个追动漫的外国人,能够被界定为不爱国。那么一个追动漫的日本人,就能被界定为爱国吗?用“空穴来风”来形容这个关系式,也可谓毫不为过。首先,不少人对日本和动漫有一个错误的因果认知。事实应当是,绝大多。防恶意抓取,请查看原文,,真格学网提供内容。

<!--

  劳力士和Comex合作后,手表的数据必然收到Comex公司的影响,大家都知道水鬼的防水深度为300米,而鬼王的防水深度已经可以达到1220米,鬼王Ref.1166600更是达到了3900米。相比较。防恶意抓取,请查看原文,,真格学网提供内容。

BODY

{

  scrollbar-face-color : #D8DBDF;

继微信打赏功能被关,博奕再升级,苹果“全面停用热更新”,如双方无法达成妥协,苹果或将微信下架。禁用热更新后,用户在APP(例如王者荣耀)每次更新之后,都必须重新去APPStore重新下载完整的软件安装。防恶意抓取,请查看原文,,真格学网提供内容。

  scrollbar-highlight-color : #FFFFFF;

不请自来。在文玩世界里,能一辈子安安稳稳盘下来的核桃也不容易!十分不容易也十分精彩的一辈子01种植麻核桃树苗优质的野核桃必须生长在优质的自然条件下,水源、土壤、气候等因素都成了苗是否成树的必备条件。0。防恶意抓取,请查看原文,,真格学网提供内容。

  scrollbar-shadow-color : #C1C6CC;

不投入欧冠很难出成绩现在米兰也就能凑出一套阵容打欧冠是不够的kaka走了之后也缺乏核心和领袖小罗本来是扮演这个角色的但是对于小罗的问题俱乐部和教练意见有分歧另外球队处于新老交替和重建阶段年轻队员目前还。防恶意抓取,请查看原文,,真格学网提供内容。

  scrollbar-3dlight-color : #ABB1B3;

谢邀。老梁之所以骂,是要求老师要代表儒家的传道授业解惑思想,不能一头扎在孔方兄的眼中,这在于大多数公众人物的看法是有道理的。如果不是,为什么教育部三申五令禁止教师给学生补课呢?一言以蔽之就是,有避赂之。防恶意抓取,请查看原文,,真格学网提供内容。

  scrollbar-arrow-color : #7F8996;

很肯定的告诉你,是真的!中国紫檀女王——陈丽华,86版《西游记》里唐僧扮演者迟重瑞的老婆。胡润研究院发布的《2016胡润女富豪榜》中,75岁的北京地产女王陈丽华以财富505亿元首次成为中国女首富,这是。防恶意抓取,请查看原文,,真格学网提供内容。

  scrollbar-track-color : #F8FAF9;

今天涵妮妈妈讲语言和思维能力的训练,翁亦奇老师的全纳专注做儿童能力训练的,在研究能力的过程中,国家已经提出十六大核心能力,而这十六大核心能力之首,是人际交往能力。语言会成为未来最重要的一种能力。同时语。防恶意抓取,请查看原文,,真格学网提供内容。

  scrollbar-darkshadow-color : #ABB1B3;

个人认为呢360vizza手机性价比不错,但是看处理器方面就比不上红米4X了,625怎么说也要比435强上很多吧!如果要入手的话最好买红米4x吧!可以对比一下参数首先了解一下360手机vizza的配置。防恶意抓取,请查看原文,,真格学网提供内容。

}

body,td,th {

    郑智化  把他排在第一的原因很简单,熟悉他的人都知道他所唱的是什么歌。作为一位台湾歌手敢出来公然反对“台独”,唱一些励志歌《大国民》《蜗牛的家》《面子问题》等等,都是绝世经典之作,也许他的歌不。防恶意抓取,请查看原文,,真格学网提供内容。

 font-size: 10pt;

射程最远的应该是瘟疫之源(老鼠),850码力压群雄!TOP1.瘟疫之源850码(550+300)老鼠的初始射程尽管只有550,这在ADC中只能算是中等,但当老鼠6级升级大招之后,那就是质的飞跃,大招给。防恶意抓取,请查看原文,,真格学网提供内容。

 color: #FFFFFF;

看了不少答案,心里有个疑问,“四大炖菜”是谁给评的呢?实在找不出实在一点儿的出处,估计90%都是度娘告诉大伙儿的吧。不过网上搜来的这四大炖总感觉不太对路子,小笨鸡炖蘑菇这个算是东北特色,其他有说鲶鱼炖。防恶意抓取,请查看原文,,真格学网提供内容。

}

body {

 background-color: #3a6ead;

打麻将,小编也算是老司机了,但离高手还是有一定的距离的。高手打麻将,都可以把一手烂牌打好。因为不管起手的牌好坏,他都不会抱怨或者炫耀,始终都乐观豁达,淡然处之,然后潇洒的赢钱。我想牌桌上这样的人,应该。防恶意抓取,请查看原文,,真格学网提供内容。

}

a {

 font-size: 9pt;

这首歌的歌词用比喻的形式表现出一个愿意为爱付出一切的男人形象,就算自己和深爱的羊不是一个物种,也愿意为她变成披着羊皮的狼,足以见这只狼爱得之深,愿意放弃一切,哪怕背弃自己。词曲:刀郎我小心翼翼的接近怕。防恶意抓取,请查看原文,,真格学网提供内容。

 color: #000000;

女、25、我是个很情绪化的人,只要稍受刺激,情绪便受影响,很容易失控。我妈妈是个很命苦的女人,我很同情她,另一面我很恨她……很恨她……心里很矛盾。我心理有问题可能都来自于我妈妈把对父亲的怨恨都发泄在我。防恶意抓取,请查看原文,,真格学网提供内容。

}

a:link {

是有的,早在今年年初便有了各大品牌共享单车的投放目前来看,在各个单车投放点都可以享受到共享单车的服务然而不光是共享单车,我们的石家庄还有共享电车的投放在近几日,最火爆的莫过于我们国际内出现的共享房车了。防恶意抓取,请查看原文,,真格学网提供内容。

 text-decoration: none;

谢邀!从上面一张张图片看,我认为蔡国庆挺好的,我喜欢他。因为蔡国庆是6o年代的人,从他的表情看,活泼,乐观,开朗,潇酒,帅气的一位军人。蔡国庆出名的原因有几点。|,蔡国庆的名字最好听,也最好记。因为祖。防恶意抓取,请查看原文,,真格学网提供内容。

 color: #FFFF33;

2003年,贺军翔通过在电视剧《七年级生》中饰演许流杉一角,正式进入演艺界。后与杨丞琳搭档出演偶像剧《恶魔在身边》,该剧一经播出,迅速刮起一场“恶魔”热,贺军翔更是红透了半边天,也因贺军翔出演的偶像剧。防恶意抓取,请查看原文,,真格学网提供内容。

}

a:visited {

来到一座城市,总会有一种美食的味道,慢慢流入你的鼻腔。这种味道好像附有一种魔力,滋润了这座城市的大街小巷,让人流连忘返。同时,这种味道背后又与当地的历史文化、当地人的生活习惯紧密联系着。那么,对于临沂。防恶意抓取,请查看原文,,真格学网提供内容。

 text-decoration: none;

谢邀!从上面一张张图片看,我认为蔡国庆挺好的,我喜欢他。因为蔡国庆是6o年代的人,从他的表情看,活泼,乐观,开朗,潇酒,帅气的一位军人。蔡国庆出名的原因有几点。|,蔡国庆的名字最好听,也最好记。因为祖。防恶意抓取,请查看原文,,真格学网提供内容。

 color: #FFFF33;

2003年,贺军翔通过在电视剧《七年级生》中饰演许流杉一角,正式进入演艺界。后与杨丞琳搭档出演偶像剧《恶魔在身边》,该剧一经播出,迅速刮起一场“恶魔”热,贺军翔更是红透了半边天,也因贺军翔出演的偶像剧。防恶意抓取,请查看原文,,真格学网提供内容。

}

a:hover {

2个字:有病,4个字:整个脑残......你是人吗?你和狗的区别是什么?你住人屋,狗住狗笼;你如果钻狗笼,那你就跟狗一样的智商、一样的待遇、一样的物种。狗跟猪牛羊没什么区别,为什么不能吃,如果是要物种。防恶意抓取,请查看原文,,真格学网提供内容。

 text-decoration: none;

谢邀!从上面一张张图片看,我认为蔡国庆挺好的,我喜欢他。因为蔡国庆是6o年代的人,从他的表情看,活泼,乐观,开朗,潇酒,帅气的一位军人。蔡国庆出名的原因有几点。|,蔡国庆的名字最好听,也最好记。因为祖。防恶意抓取,请查看原文,,真格学网提供内容。

 color: #FFffff;

妇女怀孕后,身体的内分泌系统处于变动过程中,加上本人及家属对妊娠的态度,常使孕妇处于应激状态之中,易发生精神状态的变化,严重者可出现以情绪不稳、冲动、行为异常为主要表现的妊娠期精神障碍。  一、妊娠期。防恶意抓取,请查看原文,,真格学网提供内容。

}

a:active {

成龙出生于香港,但是好像祖籍是山东济南人。成龙的父亲是一个地道的山东人,成龙也多次表示自己是一个山东大汉他的儿子房祖名还来济南寻过根在济南的某一个小学和孩子们玩了一圈。在几年前舜耕山庄开盘时成龙还来剪。防恶意抓取,请查看原文,,真格学网提供内容。

 text-decoration: none;

谢邀!从上面一张张图片看,我认为蔡国庆挺好的,我喜欢他。因为蔡国庆是6o年代的人,从他的表情看,活泼,乐观,开朗,潇酒,帅气的一位军人。蔡国庆出名的原因有几点。|,蔡国庆的名字最好听,也最好记。因为祖。防恶意抓取,请查看原文,,真格学网提供内容。

}

.style4 {font-weight: bold}

.b {

 border-bottom-width: 1px;

 border-bottom-style: dashed;

 border-bottom-color: #BFDFFF;

}

.style9 {color: #ffff33}

input {

font-size:12px;

}

-->

</style>

</head>

<script language="vbscript">

'加入智能显示信息条数

strComputer = "."

    Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")

    For Each objItem in colItems

        thewidth = objItem.ScreenWidth

        theheight = objItem.ScreenHeight

    Next

'------------------智能结速-----

const adUserClient=3

sub window_onload()

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

sql="select * from theclass order by id desc"

rs.open sql,conn,1,1

rs.movefirst

strclasslist="<select onclick=changeclass() name=theclassname>"

strclasslist=strclasslist+"<option value="&chr(34)&chr(34)&">"

do until rs.eof

strclasslist=strclasslist&"<option value="&chr(34)&rs.fields.item("class_name")&chr(34)&">"&rs.fields.item("class_name")&"</option>"

rs.movenext

loop

strclasslist=strclasslist&"<option value='其它'>其它</option><option value='全部'>全部</option></select>"

classlist.innerHTML=strclasslist

end sub

sub changeclass()

theclass.value=theclassname.value

if theclass.value="全部" then

theclass.value=""

end if

end sub

sub addclass()

classname=inputbox("请输入你要添加的类别","添加类别")

if classname="" then

msgbox "添加的类别不能为空"

exit sub

else

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

//sqla="insert into class(class_name)values("&classname&")"

rs.open "theclass",conn,3,3

rs.addnew()

rs("class_name")=classname

rs.update

rs.close

conn.close

msgbox classname&"添加成功",0

end if

call window_onload

end sub

sub delclass()

if confirm("你真的要删除吗?") then

delclassname=theclassname.value

if delclassname="" then

msgbox "要删除的类别不能为空"

exit sub

else

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

sqld="delete from theclass where class_name="&chr(39)&delclassname&chr(39)

rs.open sqld,conn,3,3

msgbox chr(34)&delclassname&chr(34)&"删除成功",0

//rs.close

//conn.close

end if

call window_onload

end if

end sub

sub editclass()

theeditclass=theclassname.value

reditclass=inputbox("请输入你要更改后的类别名称","类别修改")

if theeditclass="" or reditclass="" then

exit sub

else

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

sqld="update theclass set class_name="&chr(39)&reditclass&chr(39)&" where class_name="&chr(39)&theeditclass&chr(39)

rs.open sqld,conn,3,3

msgbox chr(34)&theeditclass&"-->"&reditclass&chr(34)&"成功修改",0

call window_onload

rs.close

conn.close

end if

end sub

sub window_onUnload

on error resume next

rs.close

conn.close

end sub

sub quitscript

on error resume next

rs.close

conn.close

self.close

end sub

sub unadd()

theclass.value=""

thetitle.value=""

content.value=""

theadd.style.display="none"

end sub

sub addnews()

theadd.style.display="block"

add.disabled=false

theclass.value=theclassname.value

getclass=theclass.value

gettitle=thetitle.value

getcontent=content.value

getisgood=isgood.value

if getisgood="" then

getisgood=0

else

getidgood=1

end if

if getclass<>"" and getclass<>"全部" and gettitle<>"" and getcontent<>"" then

//msgbox gettitle&getcontent

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

rs.open "list",conn,3,3

rs.addnew()

rs("title")=gettitle

rs("class_name")=getclass

rs("content")=getcontent

rs("isgood")=getisgood

rs.update

msgbox "恭喜,数据添加成功"

theclass.value=""

thetitle.value=""

content.value=""

end if

//rs.close

//conn.close

end sub

sub searchits()

thesearch=searchstr.value

'if thesearch<>"" then

'theclassname.value=""

'end if

call changeit(1)

end sub

sub changeit(thenum)

theclass.value=theclassname.value

thename=theclassname.value

thesearch=searchstr.value

'if thename<>"" then searchstr.value=""

thelist.innerHTML=""

thecounts.innerHTML=""

if thename<>"" or thesearch<>"" then

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

if thesearch="" then

  if thename="全部" then

  sql="select id,class_name,title,enter_time from list order by id desc"

  else

  sql="select id,class_name,title,enter_time from list where class_name='"&thename&"' order by id desc"

  end if

else

  if thename="" then

  sql="select distinct id,class_name,title,enter_time from list where (title like '%"&thesearch&"%' or content like '%"&thesearch&"%' or class_name like '%"&thesearch&"%')"

  else

sql="select distinct id,class_name,title,enter_time from list where (title like '%"&thesearch&"%' or content like '%"&thesearch&"%' or class_name like '%"&thesearch&"%') and class_name='"&thename&"'"

  end if

end if

rs.open sql,conn,1,1

page=trim(thenum)

if page<>"" then page=cint(page)

pre=true

last=true

if not rs.eof then

if theheight=600 then

maxperpage=20

elseif theheight>600 then

maxperpage=28

else

maxperpage=20

end if

rs.pagesize=maxperpage

thepages=rs.pagecount

thecount=rs.recordcount

if page="" and page<1 then

intpage=1

pre=false

else

   if page>thepages then

     intpage=thepages

  last=false

  else

    intpage=cint(page)

 end if

end if

themovenum=(intpage-1)*maxperpage

thecounts.innerHTML="共有<font color='#ffff33'>"&thecount&"</font>条信息[<font color='#ffff33'>"&maxperpage&"</font>条/页 共<font color='#ffff33'>"&thepages&"</font>页 当前第<font color='#ffff33'>"&page&"</font>页]"

rs.movefirst

if (intpage-1)*maxperpage<thecounts then

dim bookmark

bookmark=rs.bookmark

rs.move themovenum

end if

strlist="<table width='80%' align='center' cellpadding='0' cellspacing='1' border=0>"

for i=1 to maxperpage

if rs.eof then exit for

strlist=strlist&"<tr><td height='20' class='b'>[<font color=yellow>"&rs("class_name")&"</font>] "&rs("title")&"  <font color='#f6f6f6'>"&rs("enter_time")&"</font>  <a href='#' onclick=openthecontent("&rs("id")&")>查看</a> <a href='#' onclick=editnews("&rs("id")&")>修改</a> <a href='#' onclick=delthecontent("&rs("id")&")>删除</a></td></td>"

rs.movenext

if rs.eof then exit for

next

strlist=strlist&"</table>"

thelist.innerHTML=strlist

pagelist="第<select name='cpage' onchange=changeit2()>"

for j=1 to thepages

if j=intpage then

pagelist=pagelist&"<option value="&j&" selected>"&j&"</option>"

else

pagelist=pagelist&"<option value="&j&">"&j&"</option>"

end if

next

pagelist=pagelist&"</select>页"

fenye.innerHTML=pagelist

call changepage

else

thecounts.innerHTML="<font color='#ffff33'>对不起没有您要的信息</font>"

end if

end if

//rs.close

//conn.close

end sub

sub changeit2()

thenum=cpage.value

call changeit(thenum)

end sub

sub openthecontent(id)

theid=id

if id<>"" then

id=cint(id)

end if

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

sql="select * from list where id="&id&""

rs.open sql,conn,1,1

if not rs.eof then

theopencontent=rs("content")

theopencontent=replace(theopencontent,"<","<")

theopencontent=replace(theopencontent,">",">")

set diswindow=window.open("about:blank","diswindow")

diswindow.document.body.style.fontSize="12px"

diswindow.focus()

diswindow.document.write("<html><head><scr"+"ipt>function saveit(){strDesktop='C:\\Documents and Settings\\Administrator\\桌面';var code=event.srcElement.parentElement.children[0].value;var objfso=new ActiveXObject('Scripting.FileSystemObject');var strname=prompt('请输入文件名和路',strDesktop+'\\temp.vbs');if(strname!=''){var objfile=objfso.CreateTextFile(strname,2,true);objfile.Write(code);objfile.Close();}}function runit(){var code=event.srcElement.parentElement.children[0].value;var newwin=window.open('');newwin.opener=null;newwin.document.write(code);newwin.document.close();}</scr"+"ipt><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>"+rs("title")+"</title><body style='margin:10px' bgcolor='#3a6ead'><table width='700' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td><textarea rows='20' style='width:700; border:1px solid #808080; overflow:hidden;' onmouseover='this.style.posHeight=this.scrollHeight' onpropertychange='this.style.posHeight=this.scrollHeight' onload='this.style.posHeight=this.scrollHeight'>"+theopencontent+"</textarea><br><input type=button value='运行上面的代码[html]' onclick='runit()'> <input type=button value='保存' onclick='saveit()'></td></tr></table></body></html>")

diswindow.focus()

diswindow.document.close()

end if

end sub

sub delthecontent(strid)

if confirm("你真的要删除吗?") then

id=strid

if id<>"" then

id=cint(id)

end if

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

sql="delete from list where id="&id&""

rs.open sql,conn,3,3

msgbox "成功删除"

else

exit sub

end if

end sub

sub changepage()

cpage_l=cint(cpage.length)

cpage_v=cint(cpage.value)

cpage_value="<a href='#' onclick='changeit(1)'>首页</a>  "

if cpage_v>1 then

cpage_value=cpage_value&"<a href='#' onclick='changeit("&cpage_v-1&")'>上一页</a>  "

end if

if cpage_v<cpage_l and cpage_v>=1 then

cpage_value=cpage_value&"<a href='#' onclick='changeit("&cpage_v+1&")'>下一页</a>  "

end if

cpage_value=cpage_value&"<a href='#' onclick='changeit("&cpage_l&")'>尾页</a>  "

dispage.innerHTML=cpage_value

end sub

sub editnews(strid)

theadd.style.display="block"

id=strid

if id<>"" then

id=cint(id)

end if

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

sql="select * from list where id="&id&""

rs.open sql,conn,1,1

if not rs.eof then

titlee=rs("title")

contente=rs("content")

classname=rs("class_name")

end if

theclassname.value=classname

thetitle.value=titlee

content.value=contente

theid1.value=id

add.disabled=true

end sub

sub editsave()

id=theid1.value

edittitle=thetitle.value

editcontent=content.value

classname=theclass.value

if id<>"" then

dim conn

set conn=createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"

set rs=createobject("adodb.recordset")

rs.cursorlocation=adUserClient

sql="select id,class_name,title,content from list where id="&id&""

rs.open sql,conn,3,3

rs("class_name")=classname

rs("title")=edittitle

rs("content")=editcontent

rs.update

if err.number=0 then

msgbox("数据修改成功")

end if

end if

theid1.value=""

thetitle.value=""

content.value=""

'theclassname.value=""

theclass.value=""

theadd.style.display="none"

add.disabled=false

call changeit2()

end sub

</script>

<body style="margin:0px; ">

<table width="98" height="10" border="0" align="center" cellpadding="0" cellspacing="0">

  <tr>

    <td></td>

  </tr>

</table>

<span name="theadd" id="theadd" style="display:none">

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" style="border:1px dotted #ffffff ">

  <tr>

    <td style="line-height:150%; ">类    别:

      <input name="theclass" type="text" id="theclass" style="border:1px solid #808080;" size="10" maxlength="50">     

      标题:

      <input name="thetitle" type="text" id="thetitle" size="40" maxlength="200">     

      <input type="button" name="add" value="添加" onClick="addnews">

      <input type="button" name="edit" value="修改" onClick="editsave">

      <input type="button" name="undo" value="取消" onClick="unadd">

      <br>

      添加内容:

      <span class="style4">

      <textarea name="content" rows="15" style="border:1px solid #808080; width:760; work-break:break-all; " ondblclick="content.style.posHeight=content.scrollHeight"></textarea>

      </span>    <br>

      是否推荐:<input name="isgood" type="text" size="5">

   <br> id值:   

    <input name="theid1" type="text" size="5"></td>

  </tr>

</table>

</span><br>

<table width="760" height="47" border="0" align="center" cellpadding="0" cellspacing="0" style="border:1px dotted #ffffff;">

   <tr>

    <td height="23" align="center"><div align="left"><span class="style9">内容列表</span> [

      <input type="button" value="添加信息" onClick="addnews">

      ] 类别:<span id="classlist"></span>

<input name="button" type="button" onClick="changeit(1)" value="载入">

<input type="button" onClick="addclass" value="添加"'>

      <input type="button" onClick="delclass" value="删除"'>

      <input type="button" onClick="editclass" value="编辑"'>

      <input type="button" name="Submit" value="退出" onClick="quitscript"'>

        <input name="searchstr" type="text" id="searchstr"' onfocus="searchstr.select()">

    <input type="submit" name="Submit" value="搜"' onClick="searchits">

</div></td>

  </tr> 

  <tr>

    <td><hr align="center" width="80%" size="1" noshade style="border:1px solid #ffffff "></td>

  </tr>

  <tr>

    <td align="center"><span id="fenyetop"></span></td>

  </tr>

  <tr>

    <td><span id="thelist"></span></td>

  </tr>

  <tr>

    <td align="center"><span id="thecounts"></span>  <span id="dispage"></span><span id="fenye"></span></td>

  </tr>  

</table>

</body>

</html>

Original原创cd机,达芬奇CD-A9.8好还是CD-2008F好答:首先说明:威发只生产喇叭单元,不生产音箱。其次要说明的是你的音响是用来听音乐还是看电影,还是两者兼得,要是只听音乐建议你以HIFI的要求搭配,音箱可以采用金琅悠闲5号,或者惠威M3,这两款音箱价格相当,都在五千以内,功放可以选择天逸AD...零之使魔F是不是全部动画原创?和原作不一样答:额,我没看过小说,但是根据官方介绍应该是和原作的一样的,或许会因为一些剧情问题而忽略原作中的一些剧情3000以下的CD机,是选CEC3300还是原创2008F答:3000以下的CD机属于入门级别的,型号不多,缺点也不少,建议你上到7000左右的中档级别。马兰士的低端就算了,评价不高。3000级别的有:CEC3300R价格3000剑桥Azur340C价格2280denonDCD-700AE价格2780剑桥Azur540CV22880推崇你剑...

  • 本文相关:
  • NCC Tools(never code counter tools) V1.0.1发布代码-代码统计工具
  • XMLHttps
  • 网易手机图片自由下载器(hta)
  • 二进制文件转换为文本工具
  • code collection v0.44 hta
  • 超简陋浏览器
  • MyHTML Player release v1.1
  • ScriptomaticV2.hta学习脚本好工具
  • tweakomatic hta 下载
  • 用来通知论坛有新贴子的hta代码
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2017 www.zgxue.com All Rights Reserved