· Get the clients MAC(Media Access Control) address, a hardware address that uniquely identifies each node of a network. Works great on LAN's. Firewalls and Proxy's will be an issue depending what side of them you're coding for. </P><P> Can't Copy and Paste this?Cl...
· 再不支持FSO(Scripting.FileSystemObject)的空间里,如果要实现文本文件的读取和写入,可以用以下代码.'文件内容读取.Function LoadFile(ByVal File) Dim objStream On Error Resume Next Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 The...
· 如同Windows XP退出光驱指令,千万别拿来吓人用: Set oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectionif colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdromEnd If
· function RecordSetAsArray(rsADO,includeHeaderRow)//把ado.recordset中的数据存放到一个数组里//当includeHeaderRow为真时产生字段标题行,当为假时不产生{?var rsArray = new Array;?var nFields = rsADO.Fields.Count;?if (nFields)?{??var n = 0;??if (includeHeaderRow)??{?// include first...
· <SCRIPT LANGUAGE=VBScript RUNAT=Server>' ************************************************************************ ' Script Compont Object Model' Design for Active Server Pages'' Copyright 2004 Version 2.0' Made by 尹曙光' ***********************************************...
· 在ASP页面中向记录集取长text型数据时,出现如下错误现象时: Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21' Errors occurred 可有以下三种解决办法:(一)使用rs.open sql,conn,1,3方式打开记录集(二)将该列放在第一列取出,比如comment里存放有较长的text内容,取记录集内容的...
· 一、 <% Response.Buffer = True %><%' Setup the variables necessary to accomplish the taskDim TimerStart, TimerEnd, TimerNow, TimerWait' How many seconds do you want them to wait...TimerWait = 5' Setup and start the timersTimerNow = TimerTimerStart = TimerNowTimerEnd ...