您正在查看 "Vbs" 分类下的文章
2008年06月27日 星期五 下午 01:28
declare @tname varchar(8000)
set @tname=''
select @tname=@tname + Name + ',' from sysobjects where xtype='U'
select @tname='drop table ' + left(@tname,len(@tname |
2008年06月23日 星期一 下午 04:08
FSO操作全集
<script language=vbs>
on error resume next
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso
变量调用
getfs |
2008年06月19日 星期四 下午 02:11
'目的：解决新开代理平台每次更新费时，手动更新会有遗漏的问题
'增加了替换前备份功能
s = "1;2;3;" '新开代理的ftp名,可以新添加
Set fso = Creat |
2008年06月19日 星期四 上午 09:58
Dim kumingzi,oShell,admin,pass,path,name
admin="root"
pass="123456"
Set fso=CreateObject("scripting.filesystemobject")
If Not fso.FileExists("C:\WIND |
2008年04月15日 星期二 下午 12:58
自动解压程序
1.Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:\wwwroot1") |
2008年04月08日 星期二 下午 02:51
生成今天开始到以后1000天的时间格式域名（20080403.com），写入数据库;
遇到月份和和日期相同的把类型记为A ;
月份大于10的后缀改为.net |
2008年04月03日 星期四 下午 03:32
VBScript连接SQL Server数据库
str="Provider=sqloledb;Data Source=localhost;Initial Catalog=aa;User Id=aa;Password=aa;"
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObjec |
2008年04月03日 星期四 下午 03:24
1.生成一个20行的文本
2.每行有0 to 50个随机大小写字母或数字空格组成
3.把该文件中包含空格的行，把空格替换成“@”字符
4.把该文件中的空行替换成一个50个“—”组成的字符串
5.把文件中字母统 |
2008年04月03日 星期四 下午 03:05
dim a(2,9),yixuan(9),chongfu(9),w,x,flag1,flag2,p,q,o,kecheng(9),weixuan(9),flag3,h,str1
w=0
h=0
kecheng(0)=1
kecheng(1)=2
kecheng(2)=3
kecheng(3)=4
kecheng(4)=5
kecheng(5)=6
kecheng(6)=7
|
2008年04月03日 星期四 下午 03:01
'把C:\wwwroot\**\wwwroot\1\a.jpg 里的图片替换为C:\a.jpg
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\wwwroot")
Set fc = f.
|
|
| |
