当前位置: 网学 > 设计资源 > 正则表达式 > 正文

个人学习之作 hta 原创

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 佚名 来源: 网络 发布时间: 13/07/07

网学网为广大网友收集整理了,个人学习之作 hta 原创,希望对大家有所帮助!

复制代码 代码如下: <!--
***********************************************************************
''*一直想做一个自己用来学习的东西,可是一直没有时间,本想用asp(用netbox)做的。,我一直
''*想学习程序,vb但没有时间学习,现在想用c#做一个,但没有什么时间,偶尔去官方找vbscript发现
''*这个不错的hta于是花了两三天的时间,做了一个这个,希望大家能喜欢。
''*Author: dxy(reterry)
''*version:1.0
''*QQ: 461478385
''*Email:douxy001@gmail.com
***********************************************************************
//-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<hta:application
     id="dxymdb"
  scroll="yes"
  singleinstance="yes"
border="thin"
  windowstate="maximize"
icon="dxy.ico"
>
<title>我的第一个hta程序</title>
<style type="text/css">
<!--
BODY
{
  scrollbar-face-color : #D8DBDF;
  scrollbar-highlight-color : #FFFFFF;
  scrollbar-shadow-color : #C1C6CC;
  scrollbar-3dlight-color : #ABB1B3;
  scrollbar-arrow-color : #7F8996;
  scrollbar-track-color : #F8FAF9;
  scrollbar-darkshadow-color : #ABB1B3;
}
body,td,th {
 font-size: 10pt;
 color: #FFFFFF;
}
body {
 background-color: #3a6ead;
}
a {
 font-size: 9pt;
 color: #000000;
}
a:link {
 text-decoration: none;
 color: #FFFF33;
}
a:visited {
 text-decoration: none;
 color: #FFFF33;
}
a:hover {
 text-decoration: none;
 color: #FFffff;
}
a:active {
 text-decoration: none;
}
.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

  • 上一篇资讯: 运行程序的hta
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号