ASP教程之asp完成rar紧缩息争紧缩源代码

只看该作者 · 发表于 2015-1-16 22:09:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。asp完成rar紧缩息争紧缩源代码,只需一个文件便可能弄定,asp紧缩目次或文件,解压rar文件,删除特定文件等功效.此源码便利人人举行二次开辟,分享出来.
以下是winrar.asp代码：

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<title>接待利用阿言在线winrar插件</title>
<body>
<TABLEborder=0width=80%align=centercellspacing=1cellpadding=3style="FONT-FAMILY:Verdana;font-size:14px;BORDER:#0000001pxsolid;background-color:#f7f7f7">
<tr>
<thwidth="100%"height="24"bgcolor="#e4e4e4"><fontcolor="#FF0000">阿言在线winrar插件最新更新工夫2006.5.17[<ahref="http://www.spubbs.com/dispbbs.asp?boardid=24&id=19979"target=_blank>撑持页面</a>]
</th>
</tr>
<tr>
<td>
<%
Server.ScriptTimeout=99999
Dimwinrar,cmddir
Winrar="C:ProgramFilesWinRARWinrar.exe"’Winrar.exe的路径Progra~1。
cmddir="%windir%system32cmd.exe"’cmd.exe的路径
user="spubbs.com"’用户名
pwd="spubbs.com"’上岸、紧缩、解紧缩暗码,出于平安思索，请将此暗码设置充足健壮
ifrequest.Form("user")=userandrequest.Form("pwd")=pwdthen
response.write"本文件夹路径："&Server.Mappath(".")&" "
from=request.Form("from")
where=request.Form("where")
iffrom""andwhere""then
Dima,b,Shell,Runing,Runcode,Cmd
ifinstr(where,":")=0thena=Server.mappath(""&where&"")elsea=where
ifinstr(from,":")=0thenb=Server.mappath(""&from&"")elseb=from
’response.Writeb
ifright(b,1)""andleft(right(b,4),1)"."thenb=b&".rar"
OnErrorResumeNext
SetShell=Server.CreateObject("WScript.Shell")
ifrequest.QueryString("action")=1then’解紧缩
ifnotReportFileStatus(b)thenResponse.Write(b&"不存在！"):Response.End()
Runing=cmddir&"/c"""&winrar&"""x-ibck-t-y-o+-p"&pwd&""’设置运转解紧缩的命令。
Cmd=Runing&b&""&a&""
elseifrequest.QueryString("action")=0then’紧缩
if(notReportFileStatus(a))and(notReportFolderStatus(a))thenResponse.Write(a&"不存在！"):Response.End()
Cmd=cmddir&"/cdel/f/q"&b
Runcode=Shell.Run(Cmd,1,True)
Runing=cmddir&"/c"""&winrar&"""a-ibck-y-ep-o+-p"&pwd&""’紧缩。
Cmd=Runing&b&""&a
else’删除文件
Cmd=cmddir&"/cdel/f/q"&b
endif
Runcode=Shell.Run(Cmd,1,True)
Runing=Shell.Run(cmddir&"/ctaskkill/imwinrar.exe",1,false)
Runing=Shell.Run(cmddir&"/cexit",1,false)
SetShell=nothing
ErrInfo
%>
<%else%>
<formname="frm"method="post"action="?action=1"style="BORDER:#d9d9d91pxsolid;background-color:#f7f7f7">
--------------------------------------解紧缩---------------------------------------
 
 
请输出rar文件地点：
<inputname="from"value="1.rar"size="50"> 
解压到：<inputname="where"value="."size="50">
文件夹请利用相对路径且在最初加“” 
 
<inputname="submit"type="submit"value="解压"><inputtype="hidden"name="user"value="<%=request.Form("user")%>">
<inputtype="hidden"name="pwd"value="<%=request.Form("pwd")%>"></FORM>
<formname="frm"method="post"action="?action=0"style="BORDER:#d9d9d91pxsolid;background-color:#f7f7f7">
--------------------------------------紧缩文件--------------------------------------- 
 
请输出要紧缩文件地点：
<inputname="where"value="./data/dvbbs7#.mdb"size="50">
文件夹也可 
 
寄存路径及新文件名：<inputname="from"value="../data/1.rar"size="50">
主动掩盖同名文件 
 
<inputname="submit"type="submit"value="压缩"><inputtype="hidden"name="user"value="<%=request.Form("user")%>">
<inputtype="hidden"name="pwd"value="<%=request.Form("pwd")%>"></FORM>
<%
ErrInfo
endif
else
login()
endif
SubErrInfo
ifnotisempty(Runcode)andRuncode=0Then
Response.Write("命令乐成实行,您提交的命令以下： "&Cmd)
elseifnotisempty(Runcode)then
Response.Write("命令实行失利！权限不敷大概该程序没法在DOS形态下运转,您提交的命令以下： "&Cmd)
else
endif
IfErrThen
Response.Write" "&err.description
err.Clear
EndIf
%>
<formname="frm"method="post"action="?action=2"style="BORDER:#d9d9d91pxsolid;background-color:#f7f7f7">
--------------------------------------删除文件--------------------------------------- 
 
请输出要删除文件地点：<inputname="from"size="50"value=<%=from%>>
文件夹请利用相对路径且在最初加“” 
<inputtype="hidden"name="where"value=<%ifwhere""thenresponse.Writewhereelseresponse.Write"."%>>
 
<inputname="submit"type="submit"value="删除">
<inputtype="hidden"name="user"value="<%=request.Form("user")%>">
<inputtype="hidden"name="pwd"value="<%=request.Form("pwd")%>">
</FORM>
 
<%
EndSub
FunctionReportFileStatus(filespec)
Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")
ReportFileStatus=false
If(fso.FileExists(filespec))ThenReportFileStatus=true
Setfso=nothing
EndFunction
FunctionReportFolderStatus(fldr)
Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")
ReportFolderStatus=false
If(fso.FolderExists(fldr))ThenReportFolderStatus=true
Setfso=nothing
EndFunction
Sublogin()
%>
<formname="frm"method="post"action="?action=2"style="BORDER:#d9d9d91pxsolid;background-color:#f7f7f7">
--------------------------------------上岸体系--------------------------------------- 
 
用户名：
<inputname="user"value="spubbs.com">

密码：
<inputname="pwd"type="password"id="pwd">
 
 
<inputname="submit"type="submit"value="上岸">
</FORM>
<%Endsub%>
</td>
</tr>
<tr>
<tdheight="22"align="center"bgcolor="#e8e8e8">PoweredBy：<ahref="mailto:tqsir@hotmail.com">阿言</a><atarget=blankhref=http://wpa.qq.com/msgrd?V=1&Uin=12895551&Site=www.spubbs.com在线winrar&Menu=yes></a>Copyright

只看该作者 · 发表于 2015-3-21 20:34:31

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-3-15 06:28:48

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

只看该作者 · 发表于 2015-3-7 12:09:22

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

只看该作者 · 发表于 2015-2-24 11:51:37

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

只看该作者 · 发表于 2015-2-8 04:35:27

不能只是将它停留在纸上谈兵的程度上。

只看该作者 · 发表于 2015-1-25 07:56:16

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

只看该作者 · 发表于 2015-1-18 21:08:15

不能只是将它停留在纸上谈兵的程度上。

[学习教程] ASP教程之asp完成rar紧缩息争紧缩源代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

		自动登录	找回密码
密码			立即注册