'=============================================================
'=             Copyright (c) 2010 猫七(QQ:77068320)          =
'=                  All rights reserverd.                    =
'=============================================================
'=                  URL 转发系统 v_1.10.614                  =
'=        演示地址：http://url.myw3.cn                       =
'=            管理员：local 密码：admin                      =
'=            URL转发业务：域名：url.myw3.cn                 =
'=                         密码：url.myw3.cn                 =
'=            转发测试：隐藏URL http://baidu.url.myw3.cn/    =
'=            转发测试：不隐藏URL http://google.url.myw3.cn/ =
'=        官方网站：http://www.myw3.cn/myDevise/Url/         =
'=        作者博客：http://www.miaoqiyuan.cn                 =
'=        其他作品：http://www.myw3.cn/myDevise/             =
'=============================================================
'=   程序简介：本程序是一款ASP+Access开发的小巧的URL转发系   =
'= 统，下载包仅22KB左右。功能涵盖了添加新业务，到期自动关闭  =
'= ，设定域名转发等功能。                                    =
'=   请修改#/inc.asp中masterWeb为您的管理地址。              =
'=============================================================

      可以操作所有ADODB连接的数据库，当然包括MSSQL，MySQL，Access….

     本工具分为两个部分。控制代码和输入代码。

     控制代码就是VBScript部分，可以实现所有逻辑操作，和asp操作一样。

      输入部分就是Link、SQL分别用于输入连接字符串，SQL语句。如果控制代码不调用这些语句，则这部分无实际意义。

       默认，控制代码已经写好一个模板。点击执行，可以执行SQL语句，点击下载，将执行结果保存到Excel中。

       因为能直接操作VbScript，如果要使用，请设置好权限。新建mssql用户，在iis中设置mssql.asp以mssql的身份执行。mssql.asp的访问权限只有mssq用户。mssql对所有文件无任何权限，对mssql.asp只有可读权限。

      代码如下：

<%
Server.ScriptTimeout = 9999
starttime = timer()
cmd = request("cmd")

if request("out")="xls" and trim(cmd)<>"" then
	response.ContentType = "application/octet-stream"
	response.AddHeader "Content-Disposition", "attachment;filename=执行结果.xls"
	execute(cmd)
	response.end
end if
%>
<style type="text/css">
form{text-align:center}
textarea{width:100%;height:200px;border:solid 1px #CCC;}
input{height:20px;vertical-align:middle}
input.input{border:solid 1px #CCC;width:40%;line-height:18px;color:#090}
a{font-size:12px;color:#C00;text-decoration:none;}
</style>
<form action="mssql.asp" method="post">
<textarea name="cmd">
<%
if trim(cmd)="" then
%>set Conn = Server.CreateObject("ADODB.Connection")
Conn.open Request("link")

Set Rs=Conn.Execute(Request("sql"))
  for i = 0 to Rs.Fields.Count-1
    Response.write Rs(i).Name &"	"
  next
  response.write vbCrlf
  do while Not Rs.eof
    for i = 0 to Rs.Fields.Count-1
      Response.write Rs(i).value &"	"
    next
    response.write vbCrlf
	Rs.movenext
  loop
<%else%>
<%=cmd%>
<%end if%></textarea>
<%
sql = Request("sql")
link = request("link")
if sql = "" then sql = "select * from sysobjects"
if link = "" then link = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Password=123456;Initial Catalog=master;Data Source=(local)"
%>
Link：<input name="link" class="input" value="<%=link%>" />
SQL：<input name="sql" class="input" value="<%=sql%>" />
<input type="submit" value="执行" onclick="document.forms[0].action='?out=txt'"/>
<input type="submit" value="下载" onclick="document.forms[0].action='?out=xls'"/>
</form>
<%
response.flush()
if trim(cmd)<>"" then
	response.write "<hr /><textarea readonly=""readonly"">"
	execute(cmd)
	response.write "</textarea>"
end if
%><hr /><center style="font-size:12px;color:#C00">执行时间：<%=formatnumber((timer()-starttime)*1000,2,-1)%>毫秒。</center>

1.下载地址

         http://www.miaoqiyuan.cn/products/webzip.rar

2.程序源码

        http://www.miaoqiyuan.cn/p/webzip-code

3.使用说明

         http://www.miaoqiyuan.cn/p/webzip-demo

4.未解决问题

       ADODB.Stream读取asp文件时，如果文件结尾为%>，则%后的>会被忽略掉，现在本人暂未解决这个问题，用户可以在以%>结尾的asp文件，请在后边添加一个空格或换行符，恢复后程序即可正常使用。

1.下载&安装

       到http://www.miaoqiyuan.cn/products/webzip.rar，保存为webzip.rar以供备用。

2.压缩

       将webzip.rar中的webzip.asp、webzip.asp.webzip解压到要压缩的目录。在浏览器中访问[hostname]/[保存路径]/webzip.asp打开本工具，点击压缩，稍等片刻，即可打包完毕。

3.上传

     将webzip.asp、webzip.asp.webzip通过FTP或在线文件管理系统上传到您的站点目录。

4.解压

     在浏览器中访问[hostname]/[保存路径]/webzip.asp，选择解压。稍等片刻，您的整个站点将会在服务服务器上解压完毕。

    至此，您的整个站点即可正常使用了。

[Debug]
1.ADODB.Stream读取asp文件时，如果文件结尾为%>，则%后的>会被忽略掉，现在本人暂未解决这个问题，用户可以在以%>结尾的asp文件，请在后边添加一个空格或换行符，恢复后程序即可正常使用。

2.如果您在使用中发现出现某些问题，可直接致邮:mqycn@126.com

<%
Server.ScriptTimeout=9999
Response.Buffer=false

Dim WEBZip_Path,WEBZip_Date,WEBZip_CMD,WEBZip_File
Dim WEBZip_FSO,WebZip_Conn,WEBZip_Rs,WEBZip_ADOStrem

'压缩相关
'================================================================
Function findFiles(p)
	savePath(p)
	for each s in p.subfolders
		findFiles(s)
	next
	for each f in p.files
		saveFile(f)
	next
End Function

Function savePath(p)
	If trim(replace(p,WEBZip_Path,""))="" Then Exit Function
	RunSqlOne("insert into [p]([p_na],[p_pa],[p_cn])values('"&p.name&"','"&replace(p,WEBZip_Path,"")&"',"&p.subfolders.count&")")
	echo "找到路径:"&p
End Function

Function saveFile(f)
	If instr(f,WEBZip_File)>0 Then Exit Function
	RunSqlOne("insert into [f]([f_na],[f_pa],[f_sz])values('"&f.name&"','"&replace(f,WEBZip_Path,"")&"',"&f.size&")")
	SaveFileContent(replace(f,WEBZip_Path,""))
	echo "压缩文件:"&f
End Function

'写入文件内容
Function SaveFileContent(f)
	fl=WEBZip_FSO.getfile(Server.Mappath(f))
	WEBZip_Rs.Open "select * from [f] where [f_pa]='"&f&"'",WEBZip_Conn,3,2
	With WEBZip_ADOStrem
		.Type = 1
		.Open
		.LoadFromFile fl
		WEBZip_Rs("f_co") = .Read
		.Close
	End With
	WEBZip_Rs.update
	WEBZip_Rs.Close
End Function

'解压缩相关
'================================================================
Function Expand()
	WEBZip_Rs.open "select * from [p] order by [p_id] asc",WEBZip_Conn,1,1
	Do While Not WEBZip_Rs.eof
		Call ExpandPath(WEBZip_Rs("p_pa"))
		WEBZip_Rs.MoveNext
	Loop
	WEBZip_Rs.Close

	WEBZip_Rs.open "select * from [f] order by [f_id] asc",WEBZip_Conn,1,1
	Do While Not WEBZip_Rs.eof
		if WEBZip_Rs("f_sz")< =1 then
			Call CreateFile(WEBZip_Rs("f_pa"))
		else
			Call ExpandFile(WEBZip_Rs("f_pa"),WEBZip_Rs("f_id"))
		end if
		WEBZip_Rs.MoveNext
	Loop
	WEBZip_Rs.Close
End Function

Function ExpandPath(p)
	p=Server.Mappath(p)
	If Not WEBZip_FSO.FolderExists(p) Then
		WEBZip_FSO.CreateFolder(p)
		echo "解压目录："&p
	End if
End Function

Function ShowFile()
	id=Request.QueryString("id")
	if not isNumeric(id) or trim(id)="" then Response.end
	WEBZip_Rs.open "select [f_co],[f_sz] from [f] where [f_id]="&id,WEBZip_Conn,1,1
	if not WEBZip_Rs.eof then
		WEBZip_RsDB=WEBZip_Rs(0).GetChunk(WEBZip_Rs(1))
	End if
	WEBZip_Rs.Close
	Response.BinaryWrite WEBZip_RsDB
End Function

Function ExpandFile(f,id)
	fl=Server.Mappath(f)
	Set Http=Server.CreateObject("MSXML2.XMLHTTP")
	randomize
	Http.open "GET","http://"&Request.Servervariables("SERVER_NAME")&":"&Request.Servervariables("SERVER_PORT")&Request.Servervariables("SCRIPT_NAME")&"?cmd=show&id="&id&"&f="&now()&rnd&f,False
	Http.send()
	if Http.readystate<>4 then
		exit Function
	end if

	With WEBZip_ADOStrem
		.Type = 1
		.Mode = 3
		.Open
		.Write Http.ResponseBody
		.SaveToFile Server.Mappath(f)
		.Close
	End With
	echo "解压文件："&f
End Function

Function CreateFile(f)
	fl=Server.Mappath(f)
	WEBZip_FSO.CreateTextFile(fl)
	echo "解压文件："&f
End function

'菜单
'================================================================
Function ShowMenu()
	Response.write "&lt;input id=""status""  style=""width:640px;background:#FFF;border:none;"" readonly=""readonly""/>&lt;hr />"
	Call AddLink("压缩","tozip")
	Call AddLink("解压","unzip")
	Call AddLink("卸载[暂不支持]","uninstall")
End Function

Function AddLink(t,l)
	Response.write "&lt;a href=""?cmd="&CommandToQuery(l)&""">"&t&"&lt;/a> "
End Function

Function RunSqlOne(sql)
	WEBZip_Rs.Open sql,WebZip_Conn,3,2
End Function

sub echo(t)
	'Response.write t&vbCrlf
	Response.write "&lt;script>document.getElementById(""status"").value='"&replace(t,"\","\\")&"';&lt;/script>"
	'Response.flush
End Sub

'扩展命令
'	tozip 压缩
'	unzip 解压
'	即将支持
'		tozip -t fr			小文件模式
'		tozip -t mu -f 100 	多文件模式，指定-f为100，每次处理100个文件
'	扩展命令转换
'		tozip -t fr -f 100 < ==>  tozip&t=fr&f=100
Function CommandToQuery(c)
	CommandToQuery=replace(replace(c," -","&")," ","=")
End Function

Function QueryToCommand(q)
	QueryToCommand=replace(replace(q,"&"," -"),"="," ")
End Function

'初始化
'================================================================
'WEBZip 安装路径
WEBZip_File=Server.Mappath(Request.Servervariables("SCRIPT_NAME"))
WEBZip_Path=Server.Mappath("./")
WEBZip_Date=WEBZip_File&".webzip"
WEBZip_CMD=Request.QueryString("cmd")

set WEBZip_FSO=Server.CreateObject("Scripting.FileSystemObject")

set WebZip_Conn=Server.CreateObject("ADODB.Connection")
WebZip_Conn.Open "provider=microsoft.jet.oledb.4.0;data source="&WEBZip_Date
set WEBZip_Rs=Server.CreateObject("ADODB.Recordset")

set WEBZip_ADOStrem=Server.CreateObject("ADODB.Stream")

'初始化菜单
Select Case WEBZip_CMD
	Case "tozip"
		Call ShowMenu()
		Call findFiles(WEBZip_FSO.GetFolder(Server.Mappath("./")))
	Case "unzip"
		Call ShowMenu()
		Call Expand()
	Case "show"
		Call ShowFile()
	Case Else
		Call ShowMenu()
End Select
%>

/*
文件：ajax.js
挂载：stcms
独立：可独立使用
设计：猫七@69dns.com
*/

(function(){
	if(typeof(stcms)=="undefined")stcms={};
	stcms.ajaxstatus=0;
	stcms.ajax=function(url,str,method,callback){
		if(stcms.ajaxstatus==1){
			alert("请等待上一个进程处理完。");
			return;
		}
		if(url.indexOf("?")!=-1)url+="&sendTme="+new Date();else url+="?sendTme="+new Date();
		var xmlhttpRequest;
		if(typeof(xmlhttpRequest!="object")){
	　　	if(window.ActiveXObject){
	　　		try{
	　　			xmlhttpRequest = new ActiveXObject("Microsoft.XMLHTTP");
	　　		}catch(e){
	　　			xmlhttpRequest = false;
	　　		}
			}else if(window.XMLHttpRequest){
				xmlhttpRequest = new XMLHttpRequest();
			}
		}
		if(xmlhttpRequest){
			stcms.ajaxstatus=1;
			xmlhttpRequest.open(method,url,true);
			if(method=="post")xmlhttpRequest.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
			xmlhttpRequest.setRequestHeader("charset","gb2312");
			xmlhttpRequest.onreadystatechange=function(){
				if(xmlhttpRequest.readyState==4){
					if(xmlhttpRequest.status==200){
					　	callback(xmlhttpRequest.responseText);
					　	stcms.ajaxstatus=0;
					}
				}
			};
			xmlhttpRequest.send(str);
		}
　　}
})();

使用方法很简单:

stcms.ajax('a.asp',null,'get',function(t){alert(t)});

很简单吧。另外发一下我boot.js，我觉得还是比较实用的；

/*
文件：boot.js
挂载：root
功能：加载js
设计：猫七@69dns.com
*/
(function(skin){
	var i,ie,d;
	stcms={
		listen:function(f){
			var l;
			window.onload=(typeof(l=window.onload)!='function')?f:function(){l();f();};
		},
		$:function(id){
			return document.getElementById(id);
		}
	};
	ie=!!((d=(document)).all);
	(function(arr){
		for(i in arr){
			var o=d.createElement("script");
			o.setAttribute("type","text/javascript");
			o.setAttribute("src",arr[i].replace("stcms.","js/").replace(/\./g,"\/").replace("*","all")+".js")
			d.getElementsByTagName('head')[0].appendChild(o);
		}
	})([
		'stcms.common.client.mouse',
		'stcms.common.client.keyboard',
		'stcms.skin.'+skin,
		'stcms.common.form.form',
		'stcms.common.form.grid',
		'stcms.common.form.box',
		'stcms.common.ajax',
		'stcms.common.xml',
		'stcms.common.cookie',
		'stcms.user.checklogin',
		'stcms.control.init'
	]);
})('default');

现在boot.js已经实现了皮肤，listen(实际就是window.onload)，加载js，通过id获取dom等四个功能。
其他的可能就不太常用的，吧所有的都细分，这样可以减少请求和文件大小哦。
’stcms.common.ajax’,就是上边的ajax.js。

如果有时间，我也准备写个js框剪，集合了所有的功能，哈哈哈。

/*
文件名：set-Object.html
设计者：苗启源
功  能：可以方便的给DOM对象添加方法，可支持所有浏览器
主  页：http://www.miaoqiyuan.cn/p/set-Object
*/
var $=function(id){return document.getElementById(id);}
//SetObject 设置对象属性
var setObject=function(c,d){for(p in d){c[p]=d[p];if(p=="init")c.init();}return c;}
//扩展属性
var __isIE=function(){return window.ActiveXObject}
var __Name=function(t){if(this.tmp)this.name=this.tmp;else this.name='Hello'}
var __setClass=function(t){if(__isIE){this.className=t}else{this.setAttribute('class',t);}}
var __getClass=function(){if(__isIE){return this.className}else{return this.getAttribute('class');}}

//测试对象
var ob=$("Demo");var ob2=$("Demo2");
setObject(ob,{tmp:'Demo',init:__Name,setClass:__setClass,getClass:__getClass});
setObject(ob2,{init:__Name,setClass:__setClass,getClass:__getClass});
document.write(ob.name+"\n");
document.write(ob2.name+"\n");
document.write(ob.getClass()+"\n");
document.write(ob2.getClass()+"\n");
ob.setClass('newDemoClass');
ob2.setClass('newDemo2Class');
document.write(ob.getClass()+"\n");
document.write(ob2.getClass()+"\n");

详情页面，可以添加站点信息。修改网站状态，添加客户需求。如果已完成网站，添加完需求，自动保存到修改(验收后)，否则保存到修改(开发中)。

添加修改业务详情。

另外，还有一个远程调用接口(API)，通过JSON传递信息。PHP写的。

< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<head>
<title>猫七导航</title>
<base target="_blank" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<style type="text/css">
html{background:#666}
h1{margin:0px;text-align:center;font-size:28px;padding:5px 10px;color:#C00}
h2{margin:0px;font-size:16px;padding:5px 10px;color:#060}
body{width:938px;margin:auto;border:solid 5px #000;background:#EEE;padding:20px;margin-top:10px;}
.dh a{margin:0px 5px;text-decoration:none;font-size:12px;color:#000}
.dh a:hover{text-decoration:underline}
dl{width:300px;height:200px;overflow:hidden;float:left;border:solid 1px #000;margin:5px;}
dt{margin:0px;color:#FFF;background:#060;padding:5px;}
/*录入完毕|制作中|等待客户确认|客户确认|修改(开发中)|修改(验收后)*/
.site_0{background:#0000CC;}
.site_1{background:#CCCC00;}
.site_2{background:#00CCCC;}
.site_3{background:#00CC00;}
.site_4{background:#FF0000;}
.site_5{background:#CC0000;}
.site_all{background:#666666}
dt a{color:#FFF;text-decoration:none;font-weight:800;font-size:18px;}
dd{margin:0px;font-size:12px;color:#000;padding:3px;background:#CCC;height:168px;overflow:auto;}
.ColorBox div{padding:5px;margin:5px;float:left;border:solid 1px #000;font-weight:800}
.ColorBox div a{color:#FFF;text-decoration:none}
</style>
</head><body>
< ?php
	$QUERY=isset($_GET['QU'])?$_GET['QU']:"";
	$v=$_SERVER['PATH_INFO'];
	$server="1.1.1.1";
	$t="";
	$htmlbody=0;
 
	$fp=fsockopen($server,80,$errstr,$errno);
	if (!$fp) { 
		echo "$errstr ($errno)<br />\n"; 
	}else{
		if(isset($v)){
			$v=str_replace("/","?",$v);
			$v=str_replace(":","=",$v);
			$v=str_replace("_","=",$v);
			$out = "GET /api/site?".$v." HTTP/1.1\r\n";
		}else{
			$out = "GET /api/site HTTP/1.1\r\n";
		}
		$out .= "Host: test.com\r\n"; 
		$out .= "Connection: Close\r\n\r\n"; 
		fwrite($fp, $out);
		while (!feof($fp)) { 
			$l=fgets($fp, 128);
			if($htmlbody==1){
				$t.=$l;
			}else{
				if(strlen($l)==2)$htmlbody=1;
			}
		}
		fclose($fp); 
	}
 
	$t=mb_convert_encoding($t,"UTF-8","GBK");
	$t=str_replace("\r\n","",$t);
	$t=str_replace("\r","",$t);
	$t=str_replace("\n","",$t);
	$siteArr=json_decode($t,1);
 
	#读取数据
	echo '<h1>企业网站索引</h1><h2>简单导航</h2><div class="dh"><a href="/old.php">老数据</a>';
	foreach($siteArr as $LinkKey=>$LinkItem){
		echo '<a href="'.$LinkItem['url'].'" taregt="_blank">'.$LinkItem['name'].'</a>';
	}
?>
	<a href="/cms">CMS选择</a></div><hr /><h2>概述导航</h2>
	<div class="ColorBox">
		<div class="site_all"><a href="/" target="_self">所有未完成</a></div>
		<div class="site_0"><a href="./status_0" target="_self">录入完毕</a></div>
		<div class="site_1"><a href="./status_1" target="_self">制作中</a></div>
		<div class="site_2"><a href="./status_2" target="_self">等待客户确认</a></div>
		<div class="site_3"><a href="./status_3" target="_self">客户确认</a></div>
		<div class="site_4"><a href="./status_4" target="_self">修改(开发中)</a></div>
		<div class="site_5"><a href="./status_5" target="_self">修改(验收后)</a></div>
		<div class="site_all"><a href="/tools/" target="_self">小工具列表</a></div>
	</div>
	<div style="clear:both"></div>
< ?php
	foreach($siteArr as $LinkKey=>$LinkItem){
		echo '<dl><dt class="site_'.$LinkItem['status'].'"><a href="'.$LinkItem['url'].'" taregt="_blank">'.$LinkItem['name'].'</a></dt><dd>'.$LinkItem['info'].'</dd></dl>';
	}
?>
	<div style="clear:both"></div>
</body>

访问路径：

http://192.168.99.29/(所有未完成)

http://192.168.99.29/index.php/status_0(录入完毕)