asp源码下载，怎么下载网上的单个asp页面源代码
各位朋友，你是否对asp源码下载和怎么下载网上的单个asp页面源代码的相关问题感到好奇？别担心，我将为你揭示这些问题的答案，帮助你更好地理解和应用这些知识。让我们一起探索吧！
asp 组件上传源码下载
<%
'--------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'*******************无惧上传类 V1.0*******************************
'作者:梁无惧
'网站:http://www.25cn.com
'电子邮件:yjlrb@21cn.com
'版权声明:版权所有,源代码公开,各种用途均可免费使用,但是修改后必须把修改后的文件
'发送一份给作者.
'上传类强化记录
'修改者：Fssunwin
'添加以下属性：
'InceptFileType允许上传的文件类型，以英文逗号“,”分隔。
'添加以下方法：
'FileWidth图片宽度
'FileHeight图片高度
'*********************************************************************
Dim oUpFileStream
Class UpFile_Class
Public Form,File,Version,Err
Private CHK_FileType,CHK_MaxSize
Private Sub Class_Initialize
Version="无惧上传类 Version V1.0"
Err=-1
CHK_FileType=""
CHK_MaxSize=-1
Set Form= Server.CreateObject("Scripting.Dictionary")
Set File= Server.CreateObject("Scripting.Dictionary")
Set oUpFileStream= Server.CreateObject(FZ.CacheCompont(2))
Form.CompareMode= 1
File.CompareMode= 1
oUpFileStream.Type= 1
oUpFileStream.Mode= 3
oUpFileStream.Open
End Sub
Private Sub Class_Terminate
'清除变量及对像
Form.RemoveAll
Set Form= Nothing
File.RemoveAll
Set File= Nothing
oUpFileStream.Close
Set oUpFileStream= Nothing
End Sub
Public Property Get InceptFileType
InceptFileType= CHK_FileType
End Property
Public Property Let InceptFileType(Byval vType)
CHK_FileType= vType
End Property
Public Property Get MaxSize
MaxSize= CHK_MaxSize
End Property
Public Property Let MaxSize(vSize)
If IsNumeric(vSize) Then CHK_MaxSize= Int(vSize)
End Property
Public Sub GetDate()
'定义变量
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoEnd,tStream,iStart,oFileInfo
Dim sFormValue,sFileName,sFormName,RequestSize
Dim iFindStart,iFindEnd,iFormStart,iFormEnd,FileBlag
'代码开始
RequestSize= Int(Request.TotalBytes)
If RequestSize< 1 Then
Err= 1
Exit Sub
End If
Set tStream= Server.CreateObject(FZ.CacheCompont(2))
oUpFileStream.Write Request.BinaryRead(RequestSize)
oUpFileStream.Position= 0
RequestBinDate= oUpFileStream.Read
iFormEnd= oUpFileStream.Size
bCrLf= ChrB(13)& ChrB(10)
'取得每个项目之间的分隔符
sSpace= MidB(RequestBinDate,1, InStrB(1,RequestBinDate,bCrLf)-1)
iStart= LenB(sSpace)
iFormStart= iStart+2
'分解项目
Do
iInfoEnd= InStrB(iFormStart,RequestBinDate,bCrLf& bCrLf)+3
if iInfoEnd<4 then exit do
tStream.Type= 1
tStream.Mode= 3
tStream.Open
oUpFileStream.Position= iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position= 0
tStream.Type= 2
tStream.CharSet="gb2312"
sInfo= tStream.ReadText
'取得表单项目名称
iFormStart= InStrB(iInfoEnd,RequestBinDate,sSpace)-1
iFindStart= InStr(22,sInfo,"name=""",1)+6
iFindEnd= InStr(iFindStart,sInfo,"""",1)
sFormName= Mid(sinfo,iFindStart,iFindEnd-iFindStart)
'如果是文件
If InStr(45,sInfo,"filename=""",1)> 0 Then
Set oFileInfo= new FileInfo_Class
'取得文件属性
iFindStart= InStr(iFindEnd,sInfo,"filename=""",1)+10
iFindEnd= InStr(iFindStart,sInfo,"""",1)
sFileName= Mid(sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileName= Mid(sFileName,InStrRev(sFileName,"\")+1)
oFileInfo.FilePath= Left(sFileName,InStrRev(sFileName,"\"))
oFileInfo.FileExt= Lcase(Mid(sFileName,InStrRev(sFileName,".")+1))
iFindStart= InStr(iFindEnd,sInfo,"Content-Type:",1)+14
iFindEnd= InStr(iFindStart,sInfo,vbCr)
oFileInfo.FileType= Ucase(Mid(sinfo,iFindStart,iFindEnd-iFindStart))
oFileInfo.FileStart= iInfoEnd
oFileInfo.FileSize= iFormStart-iInfoEnd-2
oFileInfo.FormName= sFormName
If Instr(oFileInfo.FileType,"IMAGE/") Or Instr(oFileInfo.FileType,"FLASH") Then
FileBlag= GetImageSize
oFileInfo.FileExt= FileBlag(0)
oFileInfo.FileWidth= FileBlag(1)
oFileInfo.FileHeight= FileBlag(2)
FileBlag= Empty
End If
If CHK_MaxSize> 0 Then
If oFileInfo.FileSize> CHK_MaxSize Then
Err= 2
Exit Sub
End If
End If
If CheckErr(oFileInfo.FileExt)= False Then
Exit Sub
End If
File.Add sFormName,oFileInfo
Else
'如果是表单项目
tStream.Close
tStream.Type= 1
tStream.Mode= 3
tStream.Open
oUpFileStream.Position= iInfoEnd
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
tStream.Position= 0
tStream.Type= 2
tStream.CharSet="gb2312"
sFormValue= tStream.ReadText
If Form.Exists(sFormName) Then _
Form(sFormName)= Form(sFormName)&","& sFormValue _
Else _
Form.Add sFormName,sFormValue
End If
tStream.Close
iFormStart= iFormStart+iStart+2
'如果到文件尾了就退出
Loop Until(iFormStart+2)= iFormEnd
RequestBinDate=""
Set tStream= Nothing
End Sub
'====================================================================
'验证上传类型
'====================================================================
Private Function CheckErr(Byval ChkExt)
CheckErr=False
If CHK_FileType="" Then CheckErr=True: Exit Function
Dim ChkStr
ChkStr=","&Lcase(CHK_FileType)&","
If Instr(ChkStr,","&ChkExt&",")>0 Then
CheckErr=True
Else
Err= 3
End If
End Function
'====================================================================
'图像宽高类型读取
'====================================================================
Private Function Bin2Str(Byval Bin)
Dim i, Str, Sclow
For i= 1 To LenB(Bin)
Sclow= MidB(Bin,i,1)
If ASCB(Sclow)<128 Then
Str= Str& Chr(ASCB(Sclow))
Else
i= i+1
If i<= LenB(Bin) Then Str= Str& Chr(ASCW(MidB(Bin,i,1)&Sclow))
End If
Next
Bin2Str= Str
End Function
Private Function Num2Str(Byval num,Byval Base,Byval Lens)
Dim ImageSize
ImageSize=""
While(num>=Base)
ImageSize=(num mod Base)& ImageSize
num=(num- num mod Base)/Base
Wend
Num2Str= Right(String(Lens,"0")& num& ImageSize,Lens)
End Function
Private Function Str2Num(Byval str,Byval Base)
Dim ImageSize,i
ImageSize= 0
For i=1 To Len(str)
ImageSize= ImageSize*Base+ Cint(Mid(str,i,1))
Next
Str2Num= ImageSize
End Function
Private Function BinVal(Byval bin)
Dim ImageSize,i
ImageSize= 0
For i= lenb(bin) To 1 Step-1
ImageSize= ImageSize*256+ ASCB(Midb(bin,i,1))
Next
BinVal= ImageSize
End Function
Private Function BinVal2(Byval bin)
Dim ImageSize,i
ImageSize= 0
For i= 1 To Lenb(bin)
ImageSize= ImageSize*256+ ASCB(Midb(bin,i,1))
Next
BinVal2= ImageSize
End Function
Private Function GetImageSize()
Dim ImageSize(2),bFlag
bFlag= oUpFileStream.Read(3)
select Case Hex(BinVal(bFlag))
Case"4E5089":
oUpFileStream.Read(15)
ImageSize(0)="png"
ImageSize(1)= BinVal2(oUpFileStream.Read(2))
oUpFileStream.Read(2)
ImageSize(2)= BinVal2(oUpFileStream.Read(2))
Case"464947":
oUpFileStream.Read(3)
ImageSize(0)="gif"
ImageSize(1)= BinVal(oUpFileStream.Read(2))
ImageSize(2)= BinVal(oUpFileStream.Read(2))
Case"535746":
Dim BinData,sConv,nBits
oUpFileStream.Read(5)
BinData= oUpFileStream.Read(1)
sConv= Num2Str(ASCB(BinData),2,8)
nBits= Str2Num(Left(sConv,5),2)
sConv= Mid(sConv,6)
While(Len(sConv)<nBits*4)
BinData= oUpFileStream.Read(1)
sConv= sConv&Num2Str(ASCB(BinData),2,8)
Wend
ImageSize(0)="swf"
ImageSize(1)= Int(ABS(Str2Num(Mid(sConv,1*nBits+1,nBits),2)-Str2Num(Mid(sConv,0*nBits+1,nBits),2))/20)
ImageSize(2)= Int(ABS(Str2Num(Mid(sConv,3*nBits+1,nBits),2)-Str2Num(Mid(sConv,2*nBits+1,nBits),2))/20)
Case"535743":'flashmx
ImageSize(0)="swf"
ImageSize(1)= 0
ImageSize(2)= 0
Case"FFD8FF":
Dim p1
Do
Do: p1= BinVal(oUpFileStream.Read(1)): Loop While p1= 255 And Not oUpFileStream.EOS
If p1>191 and p1<196 Then Exit Do Else oUpFileStream.Read(BinVal2(oUpFileStream.Read(2))-2)
Do:p1= BinVal(oUpFileStream.Read(1)):Loop While p1<255 And Not oUpFileStream.EOS
Loop While True
oUpFileStream.Read(3)
ImageSize(0)="jpg"
ImageSize(2)= BinVal2(oUpFileStream.Read(2))
ImageSize(1)= BinVal2(oUpFileStream.Read(2))
Case Else:
If Left(Bin2Str(bFlag),2)="BM" Then
oUpFileStream.Read(15)
ImageSize(0)="bmp"
ImageSize(1)= BinVal(oUpFileStream.Read(4))
ImageSize(2)= BinVal(oUpFileStream.Read(4))
Else
ImageSize(0)="(UNKNOWN)"
End If
End select
GetImagesize= ImageSize
End Function
End Class
'文件属性类
Class FileInfo_Class
Public FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt,FileWidth,FileHeight
Private Sub Class_Initialize
FileWidth=0
FileHeight=0
End Sub
'保存文件方法
Public Sub SaveToFile(Byval Path)
Dim Ext,oFileStream
Ext= LCase(Mid(Path, InStrRev(Path,".")+ 1))
If Ext<> FileExt Then Exit Sub
If Trim(Path)="" or FileStart=0 or FileName="" or Right(Path,1)="/" Then Exit Sub
'On Error Resume Next
Set oFileStream= CreateObject(FZ.CacheCompont(2))
oFileStream.Type= 1
oFileStream.Mode= 3
oFileStream.Open
oUpFileStream.Position= FileStart
oUpFileStream.CopyTo oFileStream,FileSize
oFileStream.SaveToFile Path,2
oFileStream.Close
Set oFileStream= Nothing
End Sub
'取得文件数据
Public Function FileData
oUpFileStream.Position= FileStart
FileData= oUpFileStream.Read(FileSize)
End Function
End Class
%>
下载的asp源码怎么使用
关于源码到底应该什么使用的问题
做为一个新手+菜鸟，特别是喜欢搞自己的网站却对源码的概念一窍不通的人来说
。最大的痛苦莫过于把一个源码下载下来之后，却发现自己不知道什么用。一般
下载下来都是一个压缩包，一解压里面都是一大堆自己以前从没见过的文件类型
。这鬼东西什么用呢？又不能像QQ等软件一样直接双击就可以安装。而一些解说
里又说只要把它们全部上传到空间里就可以了。这样笼统的说法可以菜鸟们难住
了，本文就是专门对这样的菜鸟讲解如何使用源码的。这里只说asp和php源码，
其它源码同理。
<一>：
1：首先针对asp，如果你是要在本地，也就是自己的电脑上使用的话，就必须得
先安装iis服务。现在的电脑操作系统精简得太多，绝大部分都把这个服务去掉了
。所以你不得不自己下载一个iis安装包来安装。先用迅雷搜索一下iis，看到评
价最多的，大部分人都说好用的，就把它下载下来。下载完以后解压。
打开电脑控制面板，添加/删除程序，添加/删除windows组件，把Internet信
息服务(IIS)前面的小方框内打上勾，其它不用管，点下一步；然后它会提示你插
入磁盘，点确定，又出现个对话框，文件复制来源那里点浏览到你刚才解压后的
文件夹，选中打开；接着后面会连着冒出几次一样的对话框，重复刚才的操作就
可以了。安装好后，再进入电脑控制面板，性能和维护，管理工具，Internet信
息服务，找到默认网站，右击进入它的属性，文档，分别添加index.asp和
index.htm；主目录（嫌麻烦可以直接跳到下面2），在本地路径更改为一个你喜
欢的文件夹，最好是个空文件夹。例如空文件夹名为“110”，总之什么好记就起
什么名。（注意：如果电脑上找不到Internet信息服务(IIS)的，是电脑操作系统
太过精简的问题，建议安装雨木林风6.0纯净版。）
2：把你下载好的asp源码解压后得到一个文件夹视情况而定，把文件侠里的那一
堆东西全部复制到c盘下的Inetpub下的wwwroot下。或者复制到空文件侠“110”
下。
3：在浏览器里输入：http://localhost/或 http://127.0.0.1/就可访问这个
源码程序了。
4：如果它提示找不到网页，请先确认你的源码里有没有index.asp等默认文档，
如果有install.asp那就请先运行它，即输入http://localhost/install.asp或
http://127.0.0.1/install.asp后回车即可。如果还不行，八成是你数据库连接
有问题，请检查conn.asp（用记事本打开，一般是这个文件。）里的数据库的连
接参数是否正确，否则改正之。
<二>：
1：如果是php源码，在本地电脑使用时。要先安装phpnow环境套件包，里面包含
了php+mysql等，也是用迅雷搜索下载。那个套件安装很傻瓜化，不用我说了。
2：把所有的源码复制到套件安装目录下的htdocs文件夹里，使用方法如上面的3
。
3：如果打不开，请先确定你的数据库是需要导入的吗？如果是，请用
http://127.0.0.1/phpmyadmin/导入数据库。再检查数据库连接文件config.php
（用记事本打开，一般是这个文件。）里的数据库连接参数如密码等是否正确，
否则改之。
4：如果你添加了虚拟主机，想在虚拟主机里运行php源码，那就把源码复制到虚
拟主机所控的文件夹下，用“http://虚拟主机地址/”来访问。
<三>：
1：如果是想把源码放在网络空间上，自己建立一个网站。请先确认你的空间是支
持哪种类型的源码，比如是asp+access呢还是php+mysql等。
2：如是asp类型的，请把所有源码上传到网站根目录或某一目录，如“120”下，
用“http://你网站域名/”或“http://你网站域名/120/”访问。如出问题请参
考上文。
3：如是php类型的，含有sql数据库的先把数据库导入空间服务器，再根据空间商
提供给你的数据库账号密码修改数据库连接参数，然后全部上传到空间里。访问
同2。如果不含数据库，一般是含有安装文件install.php的，访问不了就运行安
装文件。
4：sql数据库导入问题。请先确认你的空间服务器允不允许远程访问服务器数据
库，如果允许就用sql2000等之类的程序导入数据库，如何导入问题就不说了，网
上一搜大把有。如果不允许就登陆空间服务器提供商给的用户控制面板进入数据
库管理进行数据库的导入。
完毕。
请尊重原创作者，转载请注明出处，尖叫论坛：http://7c.cz.cc http://www.xia20.co.tv
怎么下载网上的单个asp页面源代码
楼上错了,网际快车是可以下,但下的根本就不是源代码,而是在服务器端执行后发送到客户端的代码.网上有一些工具是可以偷取网站的源码的,楼主可以自己去搜.
在这告诉楼主一个区分下到的文件是不是真正的ASP源码的方法:
看文件中有没有"<%"和"%>"(引号中的部分),如果有则是源码,没有则是已经在服务器端执行过的,是没有用的
好了，本文到此结束，如果可以帮助到大家，还望关注本站哦！