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?kw=%BF%C2%CB%FDhttp://tieba.baidu.com/f?ie=utf-8&kw=%E6%96%B0%E5%A5%B9&fr=search在这个里面找吧,应该会有很多


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


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


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


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


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

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

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

有原创女主的少年阴阳师同人文吗?不要BL文!!答:【原创】我是狐妖,不是狐狸精!http://tieba.baidu.com/f?kz=316318698神哭http://tieba.baidu.co防抓取,真格学网提供内容。

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

月咏几斗bg文,不要几梦、几呗、女主原创,快快快!问:355257405@qq.com到时候加分!女主不要天然呆,不要太高调,要知道剧情...答:【原创】MyWitch°(原创女主,非几梦)http:防抓取,真格学网提供内容。

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

柯南同人文,男主黑羽快斗/怪盗基德,女主原创问:如题.男主只要快斗/基德.女主要原创的.(比如说穿越的)好的话我会加分的.答:http://tieba.baidu.com/f?kz=174870999防抓取,真格学网提供内容。

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

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

'*Author: dxy(reterry)

柯南文​NP原创女主答:当公主错过王子http://wenku.baidu.com/view/f3e515768e9951e79b892793.html永远の青空http://wenku.防抓取,真格学网提供内容。

'*version:1.0

赵薇的原创小说写韩国的有哪些问:跟神话的,越多越好,还有SJ的答:哈哈,紫色的烟XUE对我真好,把我的名字也列上了,嗯,不得不说,总结的真的很全,我把赵薇和JUNJIN的再补充一下哦《香烟爱情》htt防抓取,真格学网提供内容。

'*QQ: 461478385

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

'*Email:douxy001@gmail.com

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

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

有原创女主的少年阴阳师同人文吗?不要BL文!!答:【原创】我是狐妖,不是狐狸精!http://tieba.baidu.com/f?kz=316318698神哭http://tieba.baidu.co防抓取,真格学网提供内容。

//-->

怎样在读者原创版上在线投稿1个月未接到用稿通知者可自行处理。请注明详细联系方式(电话、地址等),以便及时取得联系。5、《读者》(原创版)注重原创性、可读性,体现参与性,以"推动原创作品创作...防抓取,真格学网提供内容。

<html>

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

<head>

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

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

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

<hta:application

原创的校斗群名╰雪染樱夏。贵族学院╰Sweet。|▍流光夏染〆Sweet落樱校斗学院丶「圣琉璃」璃殇贵院防抓取,真格学网提供内容。

     id="dxymdb"

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

  scroll="yes"

小说里描写人物外貌的句子,原创!!!急!!!上面有一个hellokitty的装饰物。她正穿着学校的校服,蝴蝶领结在领口,也是白色衬衫,红黑格子裙随着风轻轻摆动。她就是一束清晨的第一束阳光,温暖可爱!以防抓取,真格学网提供内容。

  singleinstance="yes"

防抓取,真格学网提供内容。

border="thin"

原创:杨角风发作---穷人用不起汽车,就是这个社会最大的公平!杨角风的视角看待这个杨角风的世界,原创不易,请随手点下关注,非常感谢!穷人即将面临用不起汽车的尴尬处境:1、持续高涨的停车位北京一个车位8防抓取,真格学网提供内容。

  windowstate="maximize"

其实土狗很聪明,而且因为是本地犬种,身体也好,不太容易得病。和FCI成人的纯种犬比,也没有什么卫生不卫生之分,不能因为他和我们一样是本地人不来自发达国家就歧视它啊!这些是我养狗狗的经验,和你分享一下,防抓取,真格学网提供内容。

icon="dxy.ico"

很多时候是一个人的思维方式决定的。大多数人认为我没有钱,没有本钱也就挣不到钱!借了钱也怕亏了,没有勇气去创业!能够创业的人都觉得没有钱,所以要创业挣钱!所以说创业的思维和勇气很重要!看好餐饮创业的,可防抓取,真格学网提供内容。

>

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

王思聪,一个含着金汤匙出生的富二代,其父王健林,中国首富,身边美女如云,他的生活是多少人向往的。作为中国首富万达集团董事长王建林的儿子,王思聪“首富之子”的身份再加上其在微博上犀利的言论,使其成为最受防抓取,真格学网提供内容。

<style type="text/css">

小米的销量被超越可以说是市场的选择吧。从当初小米通过性价比打开智能手机之后,小米手机就在性价比的路上一去不复返,坚持性价比的策略固然没错,毕竟人们都喜爱物美价量的商品。但是小米手机价廉却不一定物美,手防抓取,真格学网提供内容。

<!--

谢邀!您是想养一条拉布拉多犬是吗?首先从价格上说:拉拉从几百块到几千块、几万块都有的,关键看您养狗的目的,客观条件,决定养一只适合自己的狗!但是,如何挑选一只适合自己的狗呢!1.首先看父母的表现\n父防抓取,真格学网提供内容。

BODY

{

  scrollbar-face-color : #D8DBDF;

近年来,大家从新闻上可以看到,每年农产品滞销卖不出的新闻层出不穷,“菜贱伤农”“粮贱伤农”的词语刺痛着农民的心。XX万吨的芹菜滞销,萝卜白菜价格低至5分/斤也无人问津,40斤生菜换不来一碗烩面,苦瓜、防抓取,真格学网提供内容。

  scrollbar-highlight-color : #FFFFFF;

首先,科普一下:凌迟即“千刀万剐”,一般共需在受刑者身上来3600刀,而且前面3599刀不能让受刑者死亡,必须在最后一刀让受刑者死亡!下面给大家分别介绍本人认为的在国内、国外分别排前三的极刑:国内:1防抓取,真格学网提供内容。

  scrollbar-shadow-color : #C1C6CC;

之前她发那个什么拍照因为语言就说,先在有说迟到。人总会出错,不要那么深究了。而且现场上她也说了,有情况嘛还原现场 卢靖姗一边提着裙子快步往前走,一边告诉我们:“船迟到,不是我迟到!有很多警察,船停住了防抓取,真格学网提供内容。

  scrollbar-3dlight-color : #ABB1B3;

原矿绿松石,是相对于优化绿松石而言的。其实在大约2000年以前,优化绿松石广受消费者认可。只是到了后来,人们的审美观念逐渐发生变化,更注重天然的无任何添加成分的纯物理加工工艺及盘玩乐趣,原矿绿松石才大防抓取,真格学网提供内容。

  scrollbar-arrow-color : #7F8996;

从使用性能上看,WIN10优化于WIN7。我最长的一段时间使用WIN10有一周多时间了。除了开始菜单与WIN7略有不同,桌面右键属性中的显示设置相比以前有点复杂外,感觉比WIN7下的开始菜单花哨了点—防抓取,真格学网提供内容。

  scrollbar-track-color : #F8FAF9;

央视著名节目主持人肖晓琳近日因患直肠癌不幸离世,年仅55岁。肖晓琳生前曾主持过《新闻联播》、《焦点访谈》、《半边天》等多档央视节目,在观众心中留下了深刻印象,她的患癌去世,给不少人带来了震撼,最近我发防抓取,真格学网提供内容。

  scrollbar-darkshadow-color : #ABB1B3;

犀利哥,原名程国荣,本是一个四海为家的流浪汉,却在2010年被人无意拍到发在网上,随后引起一片哗然!他那犀利的眼神,不羁的走姿,潇洒的姿态,让人们眼前一亮,称之为“乞丐王子”“究极华丽第一极品路人帅哥防抓取,真格学网提供内容。

}

body,td,th {

老师其实没必要发火,可能是和家长之间沟通产生误会了吧。我家孩子所在班级的老师和家长几乎天天在微信群里互动,每次放学接孩子,家长都围着老师了解孩子情况或者聊聊一些困惑,而且老师基本上都能满足我们这些家长防抓取,真格学网提供内容。

 font-size: 10pt;

谢谢邀请,我不知道,希望他们可以走在一起,有一些网友说他们在演戏不可能真的在一起,有时候我看到这种话心里也会想他们到底会不会在一起,有时候自己坚持的相信他们会在一起,但是一看到别人的评论就开始不知道该防抓取,真格学网提供内容。

 color: #FFFFFF;

这里所说的微胖也只是胖一点点,脸上有一点点肉嘟嘟的感觉,绝对不是那种胖的感觉。记得当时网友流传一句话说:女孩子不要太瘦了,男生不喜欢那么瘦的,喜欢全是骨头的那是狗。有一点点肉肉的女孩子,让人摸上我的手防抓取,真格学网提供内容。

}

body {

 background-color: #3a6ead;

谢谢邀请看到这个问题,一开始我是不想回答的,问题提的那么大,还毫无逻辑和归纳,回答了就必然是不全面的。我觉得这个问题首先我们要分清楚什么叫做强势?不能一棒子打死所有人,凡事都要辩证来看,才能更为全面嘛防抓取,真格学网提供内容。

}

a {

 font-size: 9pt;

之前,我们已经聊过一个非常夏天的配色——蓝+白,其实,除了蓝白,还有一个清爽又有钱的配色是白+黑(嗯,我确实不是在说感冒药)!相对于蓝白,它的适用性更广,男女皆可,上下班皆可,老少皆可,而且,即使材质防抓取,真格学网提供内容。

 color: #000000;

1000元面额的人民币其实早就有了,但那只是纪念币而非流通的货币。其实并不是面额越大越好,那样反而意味着通货膨胀!试举两例:美国目前最面额为100美元,但它的东西并不是很贵。而日韩两国有几万面值的,但防抓取,真格学网提供内容。

}

a:link {

《战狼2》是什么?时代感,爱国情,英雄心,满满的正能量。《妖猫传》呢,一看这名字就是娱乐无下限的所谓艺术之作,和《战狼2》毫无可比性。陈凯歌喊话吴京,说穿了就是明着蹭热度而已。一个披着中国人皮的美国导防抓取,真格学网提供内容。

 text-decoration: none;

一、缘由利用酸碱性提高生男孩几率的说法流传已久。科学研究证实,胎儿的性别是由男性精子携带的性染色体决定的,携带X性染色体的精子和卵子结合后为女孩,携带Y性染色体的精子和卵子结合则是男孩。一些研究者据此防抓取,真格学网提供内容。

 color: #FFFF33;

今天你被刷屏了吗?微信朋友圈突然被一个公益活动——“小朋友”画廊刷屏,这是腾讯公益推出的新活动。只需要识别画里的二维码,就可以捐出一元,并且也获得这幅画的手机屏保版本。参与后将带二维码和自己名字的图片防抓取,真格学网提供内容。

}

a:visited {

win10家庭中文版激活步骤详解工具/原料win10家庭中文版系统一粒云盘方法/步骤/1、在桌面左下角的“cortana”搜索框中输入“CMD”,待出现“命令提示符”工具时,右击选择“以管理员身份”运防抓取,真格学网提供内容。

 text-decoration: none;

一、缘由利用酸碱性提高生男孩几率的说法流传已久。科学研究证实,胎儿的性别是由男性精子携带的性染色体决定的,携带X性染色体的精子和卵子结合后为女孩,携带Y性染色体的精子和卵子结合则是男孩。一些研究者据此防抓取,真格学网提供内容。

 color: #FFFF33;

今天你被刷屏了吗?微信朋友圈突然被一个公益活动——“小朋友”画廊刷屏,这是腾讯公益推出的新活动。只需要识别画里的二维码,就可以捐出一元,并且也获得这幅画的手机屏保版本。参与后将带二维码和自己名字的图片防抓取,真格学网提供内容。

}

a:hover {

我也是95后手里也有个五六万块钱驾驶证刚到手,就想买个车练练手,也为了图个方便,说说我现在考虑的车型吧,可以参考我也不是很懂,但是偶尔都逛汽车论坛啥的,像我们年轻人首先注意的是外观,长得帅是我的第一目防抓取,真格学网提供内容。

 text-decoration: none;

一、缘由利用酸碱性提高生男孩几率的说法流传已久。科学研究证实,胎儿的性别是由男性精子携带的性染色体决定的,携带X性染色体的精子和卵子结合后为女孩,携带Y性染色体的精子和卵子结合则是男孩。一些研究者据此防抓取,真格学网提供内容。

 color: #FFffff;

谢谢邀请,我认为一个月大的宝宝,可能还在用NB码的纸尿裤,所以其实可以多试试。我生产前就买了好几个牌子,帮宝适红帮、白帮和绿帮,好奇银装和金装,还有安尔乐纸尿片。我家宝宝月子里就开始试用,从性价比,侧防抓取,真格学网提供内容。

}

a:active {

?刚??看??到??有??人??说??这??是??玳???瑁????这是是狸花猫!“狸猫换太子”那个就是它!狸花猫是很漂亮的,我国本土猫,聪明,健康,且不易得病!而且狸花猫是我国第一个获得纯种猫标准的防抓取,真格学网提供内容。

 text-decoration: none;

一、缘由利用酸碱性提高生男孩几率的说法流传已久。科学研究证实,胎儿的性别是由男性精子携带的性染色体决定的,携带X性染色体的精子和卵子结合后为女孩,携带Y性染色体的精子和卵子结合则是男孩。一些研究者据此防抓取,真格学网提供内容。

}

.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>

寂寞阿漓原创潘多拉的微笑问:百度无水文网址答:http://tieba.baidu.com/f?z=558291035&ct=335544320&lm=0&sc=0&rn=30&tn=baiduPostBrowser&word=%BC%BE%BD%DA%D4%DA%B1%E4&pn=0这就是无水版的,但可能没有完结。有原创女主的少年阴阳师同人文吗?不要BL文!!答:【原创】我是狐妖,不是狐狸精!http://tieba.baidu.com/f?kz=316318698神哭http://tieba.baidu.com/f?kz=318348033我的宵蓝http://tieba.baidu.com/f?kz=269107873穿越时空的少女http://tieba.baidu.com/f?kz=320931391

  • 本文相关:
  • 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