asp在线解压缩
除非您以系统帐户的身份登陆到服务器（在浏览器环境中也是可以实现），或者主机端进行了良好的权限配置，否则本文涉及的功能是很难实现的。因为我们通过iis访问某个页面时，一般是iis匿名帐户的身份，在大多数情况下，asp的WScript.Shell是被禁用的，因为它有很大的安全隐患。
要想实现这种功能，首先要得到Rar程序的解压缩核心文件支持（可以下载WinRar软件，再把其中的WinRar.exe文件单独“拿”出来。），并且还需要Windows操作系统自带的cmd.exe程序（这个程序用来执行WinRar.exe文件。操作系统自带的，NT内核的操作系统可以在操作系统安装目录下的System32文件夹下找到它；Windows 9X的操作系统可以在操作系统安装目录下的System文件夹下找到它。）。然后把它们上传到同一目录中。建立asp文件，见以下代码：
<%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:\chencheng\rar\" `上传后Winrar.exe和cmd.exe后的路径。
a=Server.mappath("rar")&"\" ''解压rar文件后的存放路径。
b=Server.mappath("rar\homepage.rar") ''要解压的rar文件，把其中homepage.rar修改为需要解压缩的文件。
Set Shell = Server.CreateObject("WScript.Shell")
Runing= "d:\chencheng\rar\cmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " ’设置运行解压缩的命令。
Cmd=Run&b&" "&a
Runcode = Shell.Run(Cmd,1, True)
%>
相关文档：
升华提供终身免费ASP+access PHP+mysql虚拟主机
一：升华网络科技有限公司,与升华同在站长终身免费空间扶持计划.
1、尊敬的用户您好,也许您还在为每年一交的空间费用发愁,也许您想获得一个更优质的空间却不想投入太多,从现在起 这些问题将迎刃而解→升华网络←与升华同在站长扶持计划全面启动。
2、没有注册公司 ......
protected void Button1_Click(object sender, EventArgs e)
{
GridViewRow gvr = (sender as Button).NamingContainer as GridViewRow; //获得容器
if(gvr != null)
{
int index = gvr.RowIndex;//index� ......
ASP与存储过程
ASP与存储过程(Stored Procedures)的文章不少，但是我怀疑作者们是否真正实践过。我在初学时查阅过大量相关资料，发现其中提供的很多方法实际操作起来并不是那么回事。对于简单的应用，这些资料也许是有帮助的，但仅限于此，因为它们根本就是千篇一律，互相抄袭，稍微复杂点的应用，就全都语焉不详了 ......
<%
'以下部分是验证提交的page是否为合法的参数
'这部分最好判断一下提交的参数是否为数值字符
dim page
page=Trim(request("page"))
If page="" Then
page=1
Elseif CInt(page)<=0 then
page=1
else
page=CInt(page)
End If
'进行查询，取出要显示的记录
str=rs1("content")
'把出 ......
