留言列表页
 
姓名: 记住我
网址:
邮箱:
内容:
验证码:  验证码图片看不清? 换张图试试
 
597   lovebear777 - 2008-7-4 13:34:21
最近一段时间都在出差没时间上网。最近碰到一个session的问题,很头疼,不知道你有没有时间可以探讨一下我的QQ是45092611
 
594   to 坏坏 - 2008-6-28 13:10:08
加我,QQ上说,
 
593   坏坏 - 2008-6-28 4:08:47
难道你解决不了我提的问题吗?那东西现在网上找不到,所以想找个人帮帮忙
不过玩那东西很危险的,因为很可能连自己的administrator都会被毁掉~~
所以我把说明文件也发给你了~提权只是一部分,主要是把手动部分全改成自动话的部分
 
590   坏坏 - 2008-6-25 16:53:37
我已经把问题和代码发到你的QQ上了,请查收
 
587   yongfa365 to 坏坏 - 2008-6-22 10:23:37
我的代码是根据你提供的例子写的,如果实际情况不一样,得做出相应处理,里面用到了正则表达式,如果你对这个不了解,处理起来会有问题,

另:我感觉你要做的应该是提权。你可以把代码发给我,我给你弄一下。

另2:就是有人留言后,我的程序会异步给我发个邮件,这个程序我叫他异步机器人,他的出现主要是解决:让用户留言后能直接返回留言页面,不至于得等发完邮件后才能返回,这个过程有时会很慢,所以用异步完成。
 
586   坏坏 - 2008-6-22 7:43:54
如果在a.txtb.txt里加上
[注册表地址]比如[HKEY_LOCAL_MACHINE\目录]
好象失败了
会显示第10行第一个字符出错
改不来。。。
所以希望你对代码进行解释~~呵呵
还有请问 异步机器人 是怎么回事啊
 
585   坏坏 - 2008-6-22 1:01:15
你能解释一下你发的代码吗?
a=ReadFile("a.txt")
b=ReadFile("b.txt")

Set re = New RegExp
re.IgnoreCase = True
re.Global = True
patrn="""A""=[\s\S]+?\r\n""B"""
re.Pattern = patrn
Set Matches = re.Execute(a)
c=Matches(0).value
c=re.Replace(b,c)

CreateFile "c.txt",c


Function ReadFile(filename)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set cnt = FSO.OpenTextFile(filename, 1, True)
readfile = cnt.ReadAll
End Function

Function CreateFile(FileName, Content)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fd = FSO.CreateTextFile(FileName, True)
fd.WriteLine Content
End Function

尽量详细,因为我有的地方必须做出修改,谢谢
 
570   yongfa365 - 2008-6-4 23:23:24
感觉像在做广告,却又不能让人轻易删掉。。。,我的异步机器人叫个不停
 
569   中国专业站长网 - 2008-6-4 23:21:40
这个博客真不错,有好多我喜欢的内容
 
566   ZXY - 2008-6-3 14:13:18
您有一篇关于关于用SQL语句附加数据库的文章,我试了下,没有成功.希望您能指点.
 
565   JAM - 2008-5-30 11:31:44
做为网管有一些类似的操作还是比较省事的,当然VBS我入手还是快些,因为学过一点点,再次感谢!
 
564   yongfa365 - 2008-5-30 10:59:45
你回的还挺快,我刚发上去你就回了。
不过,如果不是特别需要,还是不要再研究dos了,这东西也许对你当前有用,很痴迷,但如果你从事别的事的话就是没有vbs或C#好用,从长远看,还是学些别的语言吧。
 
563   JAM - 2008-5-30 10:53:44
真是太感谢了,以后一定好好学习!
 
562   yongfa365 - 2008-5-30 10:41:40
@echo off
title Made by www.yongfa365.com to JAM
::设置当前日期前多少天或后多少天
color 4f
set/a beforedays=-30
::设置目录所在位置
set dir=F:\log\
::当前日期转换为天数并进行计算
call :Date2Day %date:~0,10% days
set/a days=%days%%beforedays%
call :Day2Date %days% lastdate
::计算完毕,生成想要的字符组合
set okstr=%lastdate:~0,4%-%lastdate:~4,2%-%lastdate:~6,2%
::删除文件夹
echo 当前日期:%date:~0,10%
echo 您要删除:“%dir%”目录下的 “%beforedays%”天的文件夹“%okstr%”
echo 将要执行以下操作:rmdir /s /q %dir%%okstr%
echo.
echo.
::使用时把下边这条给注释掉。
pause
rmdir /s /q %dir%%okstr%

cmd /k

:Date2Day
setlocal ENABLEEXTENSIONS
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (
set yy=%%a & set mm=%%b & set dd=%%c
)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
endlocal&set %2=%j%&goto :EOF

:Day2Date
setlocal ENABLEEXTENSIONS
set /a i=%1,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
endlocal&set %2=%yy%%mm%%dd%&goto :EOF
 
560   JAM - 2008-5-30 0:03:43
不好意思又打扰你,我看了很长时间那个“CMD日期查询,可以查询几天前或几天后的日期”也没看明白,其实我就想要其中一点小功能。能帮帮我吗?

想实现如下功能:
一个目录下有按日期命名的文件夹,用来备份每天的邮件,但时间长了就会占用太多空间了,我想用一个批处理每天凌晨时自动运行一下,把当前日期以前第30天的那个备份文件夹删除,也就是只保留30天的备份。
删除文件夹我知道用rmdir /s /q 2008-04-29,但是我只是不会计算那个30天前的日子。

帮帮我吧,我研究一晚上了,VBS到是好计算日期,但是删除文件夹又复杂了。苦恼~~~~~
 
   
 
 
文章分类
 
   

power by :柳永法(yongfa365)'Blog | model by :hibaidu | css by:众网友 | 京ICP备07011491号   我要统计  

本空间赞助商:北京中科兴联信息技术有限公司

QQ:64049027    E-mail:64049027<at>qq.com