/***取得鼠标坐标*@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};}在strict下document.body
NewDocumentul{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:active{background:url(/article/upi
CreateaSQLServerdatabase.复制代码代码如下:DB_SIZE_IN_MEGABYTES=5strDBServerName="."SetobjSQLServer=CreateObject("SQLDMO.SQLServer")objSQLServer.LoginSecure=TrueobjSQLServer.ConnectstrDBServerNameSetobjDB=CreateObject("SQLDMO.Database"
SamplescriptthatdeletesaSQLServerdatabase.SupportedPlatformsSQLServer2000YesScriptCode复制代码代码如下:strDBServerName="."strDBToDelete="ScriptingGuysTestDB"SetobjSQLServer=CreateObject("SQLDMO.SQLServer")objSQLServer.LoginSecure
SamplescriptthatdisplaysalloftheusersinagivenSQLServerDB.SupportedPlatformsSQLServer2000YesScriptCode复制代码代码如下:strDBServerName="."strDBName="ScriptingGuysTestDB"SetobjSQLServer=CreateObject("SQLDMO.SQLServer")objSQLServer.Login
DemonstrationscriptthatretrievesservicedatafromacomputerandthendisplaysthatdatainaformattedtableinMicrosoftWord.复制代码代码如下:SetobjWord=CreateObject("Word.Application")objWord.Visible=TrueSetobjDoc=objWord.Documents.Add()SetobjRan
Demonstrationscriptthataddsapicture(C:\Scripts\Logo.jog)toaMicrosoftWorddocument复制代码代码如下:SetobjWord=CreateObject("Word.Application")objWord.Visible=TrueSetobjDoc=objWord.Documents.Add()SetobjSelection=objWord.SelectionSetobjShap
DemonstrationscriptthatretrievesserviceinformationfromacomputerandthendisplaysthatinformationintabularformatinMicrosoftWord.复制代码代码如下:SetobjWord=CreateObject("Word.Application")objWord.Visible=TrueSetobjDoc=objWord.Documents.Ad
DemonstrationscriptthatdisplaysformatteddatainaMicrosoftWorddocument.复制代码代码如下:SetobjWord=CreateObject("Word.Application")objWord.Visible=TrueSetobjDoc=objWord.Documents.Add()SetobjSelection=objWord.SelectionobjSelection.Font.Name=
Demonstrationscriptthatretrievesnetworkadapterdatafromacomputer,displaysthatdatainaMicrosoftWorddocument,andthensavesthedocumentasC:\Scripts\Word\Testdoc.doc.复制代码代码如下:SetobjWord=CreateObject("Word.Application")objWord.Capti
DemonstrationscriptthatopensandprintsandexistingMicrosoftWorddocument.复制代码代码如下:SetobjWord=CreateObject("Word.Application")SetobjDoc=objWord.Documents.Open("c:cripts\inventory.doc")objDoc.PrintOut()objWord.Quit
DemonstrationscriptthatusesMicrosoftWordtolocateallthe.mp3filesstoredondriveCofthelocalcomputer复制代码代码如下:SetobjWord=CreateObject("Word.Application")SetobjDoc=objWord.Documents.Add()objWord.FileSearch.FileName="*.mp3"objWord.FileS
一、用htc实现。eye.htcfunctionexample(){this.blur();}a{behavior:url(eye.htc)}二、a{link:expression(this.onfocus=this.blur)}blueidea[Ctrl+A全选注:如需引入外部Js需刷新才能执行]
去年写的一个JavaScript压缩工具，用于x2blog.cn的js压缩。不过一直没有对外发布，现在拿来充个文章数吧，老不更新Blog可不好，呵呵概述：X2JavascriptCompactor可以将多个Javascript脚本文件打包成一个文件，并删除原始文件中的注释、无用空白以及换行。不仅
DescriptionAddstheBITS_Update.dllextensionfile.复制代码代码如下:strComputer="."SetobjWMIService=GetObject_("winmgmts:{authenticationLevel=pktPrivacy}\\"_&strComputer&"\root\microsoftiisv2")SetcolItems=objWMIService.ExecQuery_("Se
DescriptionDemonstrationscriptthatopensanexistingExcelspreadsheetnamedC:\Scripts\New_users.xls.复制代码代码如下:SetobjExcel=CreateObject("Excel.Application")SetobjWorkbook=objExcel.Workbooks.Open("C:\Scripts\New_users.xls")
DescriptionDemonstrationscriptthatreadsthevaluesstoredinaspreadsheetnamedC:\Scripts\New_users.xls.ScriptCode复制代码代码如下:SetobjExcel=CreateObject("Excel.Application")SetobjWorkbook=objExcel.Workbooks.Open_("C:\Scripts\New_users.x
DescriptionDemonstrationscriptthatdisplaysthevariouscolors--andtheirrelatedcolorindex--availablewhenprogrammaticallycontrollingMicrosoftExcel.ScriptCode复制代码代码如下:setobjExcel=CreateObject("Excel.Application")objExcel.Visible=Tru
Returnsalistofallthehotfixesinstalledonacomputer.ScriptCode复制代码代码如下:varwbemFlagReturnImmediately=0x10;varwbemFlagForwardOnly=0x20;varobjWMIService=GetObject("winmgmts:\\\\.\\root\\CIMV2");varcolItems=objWMIService.ExecQuer
ScriptCode复制代码代码如下:SetobjExcel=CreateObject("Excel.Application")objExcel.Visible=TrueobjExcel.Workbooks.AddobjExcel.Cells(1,1).Value="Testvalue"
