jscript之Read an Excel Spreadsheet

2017年02月06日 34 阅读

Description DemonstrationscriptthatreadsthevaluesstoredinaspreadsheetnamedC:ScriptsNew_users.xls. ScriptCode复制代码 代码如下:SetobjExcel=CreateObject（"Excel.Application"） SetobjWorkbook=objExcel.Workbooks.Open_ （"C:ScriptsNew_users.xls"）...

jscript之List Excel Color Values

2017年02月06日 33 阅读

Description Demonstrationscriptthatdisplaysthevariouscolors--andtheirrelatedcolorindex--availablewhenprogrammaticallycontrollingMicrosoftExcel. ScriptCode 复制代码 代码如下:setobjExcel=CreateObject（"Excel.Application"） objExcel.Visible=Tr...

去除图像或链接黑眼圈的两种方法总结

2017年02月06日 32 阅读

一、用htc实现。 eye.htc <public:attachevent="onfocus"onevent="example（）"/><scriptlanguage="javascript">functionexample（）{this.blur（）;}</script> <style> a{behavior:url（eye.htc）} </style> 二、 a {link:expressio...

一个漂亮的下拉列表，去掉了灰色倒三角按钮

2017年02月06日 33 阅读

很漂亮，比较适合女性一类比较温馨的网站 漂亮的下拉框// ViaSelect Environment Constantsvar SS_ENV = new Object（）;SS_ENV.IE_Version = new Number（（（window.navigator.appVersion.split（"; "））[1].split（" "））[1]）;SS_ENV.CR = new Object（）;SS_ENV.CR.ReverseBackgroun...

Add a Formatted Table to a Word Document

2017年02月06日 34 阅读

DemonstrationscriptthatretrievesservicedatafromacomputerandthendisplaysthatdatainaformattedtableinMicrosoftWord. 复制代码 代码如下:SetobjWord=CreateObject（"Word.Application"） objWord.Visible=True SetobjDoc=objWord.Documents.Add（） SetobjRa...

Add a Picture to a Microsoft Word Document

2017年02月06日 32 阅读

Demonstrationscriptthataddsapicture（C:ScriptsLogo.jog）toaMicrosoftWorddocument复制代码 代码如下:SetobjWord=CreateObject（"Word.Application"） objWord.Visible=True SetobjDoc=objWord.Documents.Add（） SetobjSelection=objWord.Selection SetobjSha...

Add a Table to a Word Document

2017年02月06日 36 阅读

DemonstrationscriptthatretrievesserviceinformationfromacomputerandthendisplaysthatinformationintabularformatinMicrosoftWord.复制代码 代码如下:SetobjWord=CreateObject（"Word.Application"） objWord.Visible=True SetobjDoc=objWord.Documents.Add...

Add Formatted Text to a Word Document

2017年02月06日 34 阅读

DemonstrationscriptthatdisplaysformatteddatainaMicrosoftWorddocument.复制代码 代码如下:SetobjWord=CreateObject（"Word.Application"） objWord.Visible=True SetobjDoc=objWord.Documents.Add（） SetobjSelection=objWord.Selection objSelection.Font....

用jscript实现新建word文档

2017年02月06日 32 阅读

DemonstrationscriptthatcreatesanddisplaysanewMicrosoftWorddocument.复制代码 代码如下:SetobjWord=CreateObject（"Word.Application"） objWord.Visible=True SetobjDoc=objWord.Documents.Add（） ...

用jscript实现新建和保存一个word文档

2017年02月06日 33 阅读

Demonstrationscriptthatretrievesnetworkadapterdatafromacomputer,displaysthatdatainaMicrosoftWorddocument,andthensavesthedocumentasC:ScriptsWordTestdoc.doc. 复制代码 代码如下:SetobjWord=CreateObject（"Word.Application"） objWord.Caption="Tes...

Open and Print a Word Document

2017年02月06日 33 阅读

DemonstrationscriptthatopensandprintsandexistingMicrosoftWorddocument.复制代码 代码如下:SetobjWord=CreateObject（"Word.Application"） SetobjDoc=objWord.Documents.Open（"c:scriptsinventory.doc"） objDoc.PrintOut（） objWord.Quit ...

Use Word to Search for Files

2017年02月06日 32 阅读

DemonstrationscriptthatusesMicrosoftWordtolocateallthe.mp3filesstoredondriveCofthelocalcomputer复制代码 代码如下:SetobjWord=CreateObject（"Word.Application"） SetobjDoc=objWord.Documents.Add（） objWord.FileSearch.FileName="*.mp3" objWord.Fil...

Convert Seconds To Hours

2017年02月06日 33 阅读

Convertstimeinsecondstohours,minutes,andseconds复制代码 代码如下:intTotalSecs=15438 intHours=intTotalSecs3600 intMinutes=（intTotalSecsMod3600）60 intSeconds=intTotalSecsMod60 WScript.Echo"Hours:"&intHours WScript.Echo"Minutes:"&intMinutes ...

use jscript Create a SQL Server database

2017年02月06日 32 阅读

CreateaSQLServerdatabase.复制代码 代码如下:DB_SIZE_IN_MEGABYTES=5 strDBServerName="." SetobjSQLServer=CreateObject（"SQLDMO.SQLServer"） objSQLServer.LoginSecure=True objSQLServer.ConnectstrDBServerName SetobjDB=CreateObject（"SQLDMO.Databas...

Sample script that deletes a SQL Server database

2017年02月06日 33 阅读

SamplescriptthatdeletesaSQLServerdatabase. SupportedPlatforms SQLServer2000 Yes ScriptCode 复制代码 代码如下:strDBServerName="." strDBToDelete="ScriptingGuysTestDB" SetobjSQLServer=CreateObject（"SQLDMO.SQLServer"） objSQLServer.LoginSecure...

Sample script that displays all of the users in a given SQL Server DB

2017年02月06日 32 阅读

SamplescriptthatdisplaysalloftheusersinagivenSQLServerDB. SupportedPlatforms SQLServer2000 Yes ScriptCode 复制代码 代码如下:strDBServerName="." strDBName="ScriptingGuysTestDB" SetobjSQLServer=CreateObject（"SQLDMO.SQLServer"） objSQLServer....

firefox中用javascript实现鼠标位置的定位

2017年02月06日 35 阅读

/** *取得鼠标坐标 *@returnPosition */ functiongetMouseLocation（）{ if（ns4||ns6）{ mouseX=e.pageX; mouseY=e.pageY; } else{ mouseX=event.x+document.body.scrollLeft; mouseY=event.y+document.body.scrollTop; } return{x:mouseX,y:mouseY}; } 在str...

div+css实现鼠标放上去，背景跟图片都会变化。

2017年02月06日 35 阅读

New Document ul{ list-style:none; } a{ padding-left:1.5em;font-size:12px;height:23px;line-height:23px;color:gray;text-decoration:none; } a:link,a:visited{ background:url（/article/upimages/bbs_bg_off.gif）; } a:hover,a:acti...

Locate a File Using a File Open Dialog Box

2017年02月06日 35 阅读

DemonstrationscriptthatdisplaysaFileOpendialogbox（opentothefolderC:Scripts）,andthenechoesbackthenameoftheselectedfile. SupportedPlatforms WindowsServer2003 No WindowsXP Yes Windows2000 No WindowsNT4.0 No Windows98 No ScriptCode 复制...

Save a File Using a File Save Dialog Box

2017年02月06日 34 阅读

DemonstrationscriptthatallowsyoutoenterafilenameinaFileSavedialogbox,andthensavesasampletextfile（consistingentirelyofthecurrentdate）underthatfilename. SupportedPlatforms WindowsServer2003 No WindowsXP Yes Windows2000 No WindowsNT4...