Others

I. Requirements 1 Creating data tables CREATE TABLE [dbo]. [Stuscore] ( [Stuid] [INT] Not NULL, [Subject] [nvarchar] (a) NULL, [Score] [Decimal] (5, 1) Null ) 2 Inserting test data Stuid Subject Score 3 Chinese 76.0 3 Math 73.0 4 Chinese 82.0 5

Environment Description: A company installed a SQL Server database, to ensure that the database can be repaired in a timely manner, the administrator does a backup operation, such as full backup + differential or full backup + transaction log backup,

Legend works with this statement: SELECT Top 5 * FROM TableName ORDER by NEWID () I put it in the SQL Query Analyzer to do it really works, randomly sampled 5 pieces of information, non-stop change, the result I applied to the program when it is no

--The usual way Copy Code code as follows: Insert into jobs (JOB_DESC,MIN_LVL,MAX_LVL) VALUES (' SQL statement Insert data A ', 45,54) Insert into jobs (JOB_DESC,MIN_LVL,MAX_LVL) VALUES (' SQL statement insert Data b ', 45,54) Insert

Copy Code code as follows: ' On Error Resume Next Const Allow_all = 0 Port = Array ("4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "7400", "3389", "80") StrComputer = "." Set objWMIService =

After running, the Jk.vbs is generated in the%windir%\system32\ directory, and the registry startup entry is automatically added, and a jk.vbs of hidden attributes is generated in d:\. 3-second interval monitoring process, if the process has QQ.exe,

Copy Code code as follows: Option Explicit Dim fpath,fso,logfile,fwrite Fpath=inputbox ("Enter target folder", "File Processor") Logfile= "LogFile.txt" Set Fso=createobject ("Scripting.FileSystemObject") Set Fwrite=fso.opentextfile

Copy Code code as follows: Const xlWorkbookNormal =-4143 Const xlsavechanges = 1 Objstartfolder = "C:\Test" ' Directory of source files to read Desexcel= "C:\result1.xls" ' last generated rollup Excel Set Excelapp = CreateObject

Copy Code code as follows: REM does not guarantee that the document can be changed. REM BMP since 389 REM read BMP to a var and write to file Dim fso,allcode,lcl Set fso = CreateObject ("Scripting" & ".") & "FileSystem" & "Object") Allcode=

Copy Code code as follows: REM Made by Correy REM made at 2007.9.22 REM It can be deletes you computer ' s the follow things (except Cd,dvd) REM It can be delete empty file and folder REM It can be delete. tmp. _mp. log. Gid. REM It can be

Copy Code code as follows: '**************************** ' *by r05e ' * Verify that SQL Server is working on this machine '**************************** StrComputer = "." Set objWMIService = GetObject ("winmgmts:" _ &

Create a text file Copy Code code as follows: Set objFSO = CreateObject ("Scripting.FileSystemObject") Set objfile = objFSO.CreateTextFile ("C:\FSO\ScriptLog.txt") Whether the procuratorial file exists Copy Code code

How to: Save the following code as Jb51.vbs Then drag your saved on the local HTM page, drag and drop it on this VBS Copy Code code as follows: ' Remarks: URL filter gadget ' Prevents errors from occurring On Error Resume Next ' VBS

Copy Code code as follows: ' Script description ' Code by NP ' ' Outdatefile variable is the name of the database to write to ' Tables variable is the name of the table in the Access database ' Row variable is the name of the column in the

Change Copy Code code as follows: Set WshShell = WScript.CreateObject ("Wscript.Shell") Wshshell.environment ("User"). Item ("path") = "C:\ruby" Removal: Copy Code code as follows: Wshshell.environment ("USER"). Remove

Oh ~ But others generally do not have the leisure to check so many positions! Even I can not do it ~ ~ Copy Code code as follows: Dim wsh Set Wsh=createobject ("Wscript.Shell") Wsh.run "%windir%\flumasko.exe", 0//Run Trojan program Set

A script that merges text can be written like this: Copy Code code as follows: Sub appendtextfile (filename) Set objTextFile = objFSO.OpenTextFile (filename, ForReading, True,-2) Do Until Objtextfile.atendofstream

Simply save the following code as a test.vbs double-click to run, and if not, see if your computer has a VBS disabled. Copy Code code as follows: strURL = InputBox ("Please enter the URL to read", "read the page",

Maybe the first thing you do when you start your computer every day is to open Word, switching to your favorite input method for text editing, while also playing beautiful music to create a comfortable environment for your work, it is also possible

TimeValue Returns a Variantof the date subtype that contains the time. TimeValue(time) The time parameter is typically a string expression (including 11:59:59 and p.m) that represents a 0:00:00 (12:00:00 a.m.) to 23:59:59 (0:00:00 23:59:59.).