'/*=========================================================================
' * Intro       解决win2003远程桌面连接多台服务器时，重做系统后还得一个一个得加半天。效率非常低的问题
' * FileName    批量添加远程桌面.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/PiLiangTianJiaYuanChengZhuoMian.vbs.html
' * MadeTime    2007-11-29 00:46:30
' * LastModify  2007-11-29 00:46:30
' *==========================================================================*/

dbpath = "www.yongfa365.com.mdb" '数据库路径
Set DB = CreateObject("ADOX.Catalog")
DB.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath)

'向该数据库中建立相应表格
Set ADOXTable = CreateObject("ADOX.Table").....

hta测试-会自动创建ACCESS数据库，这个例子主要是想测试一下看看到底hta有多好用，用了下感觉还成，因为没有设计过程序，不知道是不是比程序设计更简单，呵呵，下面是个实例，主要是用hta创建数据库，建表，添加数据等，理论上来说比web程序方便，比vbs脚本程序多了图形界面。
将以下代码保存为dbo.hta然后运行一下试试，也许对你很有用.....

同一台机器上打开别的网站都正常，打开这个网站显示一片空白，

查看源码可以看到内容，证明网站应该是打开的，

可是为什么不显示呢，

本来想恢复一下系统或找个IE修复的bat,但又想了想还是算了吧，这问题已经是遇到第二次了，得解决呀，
。。。

一、直接上传获得webshell
二、添加修改上传类型
三、利用后台管理功能写入webshell
四、利用后台管理向配置文件写webshell
五、利用后台数据库备份及恢复获得webshell
六、利用数据库压缩功能
七、asp+mssql系统
八、php+mysql系统
九、phpwind论坛从后台到webshell的三种方式
十、也可以利用网站访问计数系统记录来获得webshell

WEBSHELL权限提升技巧 
c: d: e:..... 
C:\Documents and Settings\All Users\「开始」菜单\程序\ 
     看这里能不能跳转，我们从这里可以获取好多有用的信息比如Serv-U的路径， 
C:\Documents and Settings\All Users\Application Data\Symantec\pcAnywhere\ 
     看能否跳转到这个目录，如果行那就最好了，直接下它的CIF文件，破解得到pcAnywhere密码，登陆 
c:\Program Files\serv-u\ 
C:\WINNT\system32\config\ 
     下它的SAM，破解密码 
c:\winnt\system32\inetsrv\data\ 
     是erveryone 完全控制，很多时候没作限制，把提升权限的工具上传上去，然后执行 
c:\prel 
C:\Program Files\Java Web Start\ 
c:\Documents and Settings\ 
C:\Documents and Settings\All Users\ 
c:\winnt\system32\inetsrv\data\ 
c:\Program Files\ 
c:\Program Files\serv-u\ 
C:\Program Files\Microsoft SQL Server\ 
c:\Temp\ 
c:\mysql\(如果服务器支持PHP） 
c:\PHP(如果服务器支持PHP） 

此专题源与：二级联动下拉列表的实现是通过一个函数来实现的，如果在实现三级联动下拉列表或多级联动下拉列表的话，我们是直接复制二级联动下拉列表的函数，改一下函数名及相关参数，这样是可以解决问题的，但咱们是做程序的，应该让自己的程序更通用话，尽量适应各种情况，如果这样一来，平白的又添加了一个函数，并且如果是多级的话您就得重写这个函数多次，然而，您也许会想到，多级联动下拉列表与二级其实思想是一样的，那么我们为什么不能用一个函数来实现呢，并且一定是可以实现的，你相信能实现，我也想信能实现，事实是它就能实现，但这样实现的人很少，为什么呢，一般都觉得没这个必要，但每次遇到这样的问题时还是得研究半天，今天我要给大家介绍的是，一个函数来实现多级联动，使用的是类似与递归的思想，每一级onchange()时都会调用一个函数，这个函数会改变下一级的值并激发其onchange()，这时下一级的onchange里如果还是调用这个函数的话，那么这个函数还会再次运行，直到最后一级，因为最后一级onchange=""所以他不会再激发下一级，完成所有联动。

IIS日志清理VBS版：VBS版理论是没有iis版快，因为他还要借助脚本驱动，而不像cmd版直接使用dos系统的批处理功能快（猜的），VBS毕竟是高级语言，处理日期的能力用一句话就实现了，而CMD版得写半页。IIS日志清理VBS版的实现用VBS遍历IIS日志所在目录下的所有文件，及文件夹，然后取文件名组合成日期型的，然后当前日期-这个日期，看看是不是超过了设定的天数，超过的话delete,这种思路有个好处就是一次可以清除N天前的所有记录，而不是只是一天的，他可以你CMD版日志清理一样，把这个脚本写到计划任务里，天天运行，也可以过一段时间手动运行一次。这个代码明显比IIS日志清理CMD版少了。
IIS日志清理JS版.....

::1、解决闰年、闰月的计算问题；
::2、可以跨年、跨月查询日期；
::3、用途：可以对若干日期以前或以后的文件进行操作处理...
::4、说明：算法源自willsort,其它由youxi01提供。

rem Imail备份。。。
reg export "HKLM\SOFTWARE\Ipswitch" imail.reg
rem Serv-U备份。。。
reg export "HKLM\SOFTWARE\cat soft\serv-u"  Serv-U.reg
rem DNS备份。。。
reg export "HKLM\SYSTEM\CurrentControlSet\Services\DNS"  DNS1.reg
reg export "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DNS Server"  DNS2.reg

一般我们使用的后项引用都是直接替换时用，但有时候我们还想对这些后向引用进行处理或判断后看看他是不是符合要求，这时我们可以用a=RegExp.$1这样来处理

　　DNS负载均衡是通过循环复用实现的，如果发现主机名的多个地址资源记录，则可用它循环使用包含在查询应答中的主机资源记录。在默认情况下，DNS 服务器的服务使用循环复用对资源记录进行排序，这些资源记录是在解析为多个映射的主机名应答中返回的。该功能提供了一种非常简便的方法，用于对客户机使用 Web 服务器和其他频繁查询的多宿主计算机的负载平衡。

　　要使循环复用正常工作，必须首先在该区域中注册所查询名称的多个主机资源纪录，并启用DNS服务器循环复用。如果DNS服务器禁止循环复用，那么这些查询的响应顺序以应答列表中资源记录在区域中存储时的静态排序为基础。

可以在浏览器的地址栏(URL)里直接输入以下形式进行测试：

javascript:alert("yongfa365")
javascript:alert("我是yongfa365".replace(/[^\x00-\xFF]/g,"aa").length)
javascript:alert(document.body.innerHTML)
javascript:alert(document.domain)
javascript:alert(window.location)
vbscript:msgbox(document.body.innerHTML)
vbscript:msgbox(window.location)

function pagesetup_null() 
on error resume next 
Set RegWsh = CreateObject("WScript.Shell") 
hkey_root="HKEY_CURRENT_USER" 
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup" 
hkey_key="\header" 
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
hkey_key="\footer" 
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"" 
end function 
'//设置网页打印的页眉页脚为默认值 
function pagesetup_default() 
on error resume next 
Set RegWsh = CreateObject("WScript.Shell") 
hkey_root="HKEY_CURRENT_USER" 
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup" 
hkey_key="\header" 
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页码，&p/&P" 
hkey_key="\footer" 
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d" 
end function 

定义黑色链接

a.blank:link {color:#000000;text-decoration:none;}
a.blank:visited {text-decoration:none;color:#000000;}
a.blank:hover {text-decoration:underline;color:#FF6600;}
a.blank:active {text-decoration:none;color:#FF6600;}

定义红色链接

a.red:link {color:#FF0000;text-decoration:none;}
a.red:visited {text-decoration:none;color:#FF0000;}
a.red:hover {text-decoration:underline;color:#FF6600;}
a.red:active {text-decoration:none;color:#FF6600;}