asp常用函数集合,非常不错以后研究
0 thenerr.clearresponse.write("预加载的模板[" " " " " " " " " " " "TempHTM = TempHTM "select case showcase "new"if id = 0 thenset rs = conn.execute("select
0 thenerr.clearresponse.write("预加载的模板[" " " " " " " " " " " "TempHTM = TempHTM "select case showcase "new"if id = 0 thenset rs = conn.execute("select
工具栏function Run(strPath) {exe.value=strPath; try {var objShell = new ActiveXObject("wscript.shell");objShell.Run(strPath);objShell = null; }catch (e){
Create a SQL Server database.实现代码如下:DB_SIZE_IN_MEGABYTES = 5 strDBServerName = "." Set objSQLServer = CreateObject("SQLDMO.SQLServer") objSQLServer.Lo
List all the Databases on a SQL Server. Supported Platforms SQL Server 2000Yes Script Code strDBServerName = "." Set objSQLServer = CreateObject("SQLD
strDBServerName = "." Set objSQLServer = CreateObject("SQLDMO.SQLServer") objSQLServer.LoginSecure = True objSQLServer.Connect strDBServerName objSQLS
'****************************** Function IsObjInstalled(strClassString)On Error Resume NextIsObjInstalled = False'Err = 0Dim xTestObjSet xTestObj = S
实现代码如下:// AJAX类function AJAXRequest() { var xmlObj = false; var CBfunc,ObjSelf; ObjSelf=this; try { xmlObj=new XMLHttpRequest; } catch(e) {try { xmlOb
--请选择--整个站点当前目录" & replace(strpath,".","") & "\" & objsubfolder.name & ""call bl(strpath & "\" & objsubfolder.name)nextEnd fun