『壹』 ASP.NET 中，實現download下載，彈出打開和保存對話框，不限制文件大小，跪求實現代碼，謝謝了
思路很簡單，讀取伺服器文件路徑，然後再保存數據流，下面是實現代碼：
（ps:因為要上班，來不及寫很多注釋，關鍵的地方加了幾句注釋哈）
using System;
using System.Collections;
using System.Configuration;
using System.Data;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.HtmlControls;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using YTLib.Basic;
using YTLib.YTDBC;
using System.IO;
using System.Threading;
namespace siteadmin.admin
{
public partial class downfile : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
string strSQL = "";
YTNDBObject dbo = new YTNDBObject();
dbo.DataName = "Main";
Page.EnableViewState = false;
if(!IsPostBack)
{
string sid=Request["id"];
if(!YTLib.publicOP.IsNumString(sid)||sid==null)
sid="0";
strSQL = "select * from FileSource where ID=@ID";
dbo.PrepareCommand(strSQL);
dbo.SetCmdIntValue("@ID",int.Parse(sid));
DataTable dt=dbo.QueryData().Tables[0];
string sourceName = (string)dt.Rows[0]["FilePath"];
sourceName.Trim();//消除空格
string filesnames = sourceName.Substring(7, sourceName.Length - 8);
int index= sourceName.LastIndexOf(".");
string extend = sourceName.Substring(index+1);//擴展名
string fullPath = "~/uploaded/" + sourceName;
fullPath = Server.MapPath(fullPath);
//讀出該資源的下載次數
int downloadtimes = 0;
downloadtimes = int.Parse(dt.Rows[0]["downloadCounts"].ToString());
Page.Response.Clear();
bool success = ResponseFile(Page.Request, Page.Response, filesnames, fullPath, 1024000);
if (!success) Response.Write("<script language=\"javascript\">alert(\"Download file error\");window.location.href=\"../Download.aspx\"</script>");
else
{
//記錄下載次數
downloadtimes++;
string sqlStr = "update FileSource set downloadCounts=" + downloadtimes + " where ID=@IID";
dbo.PrepareCommand(sqlStr);
dbo.SetCmdIntValue("@IID",int.Parse(sid));
dbo.ExecuteNoQuery();
}
Response.Write("<script language=\"javascript\">window.location.href=\"../Download.aspx\"</script>");
}
}
public static bool ResponseFile(HttpRequest _Request, HttpResponse _Response, string _fileName, string _fullPath, long _speed)
{
try
{
FileStream myFile = new FileStream(_fullPath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite);
BinaryReader br = new BinaryReader(myFile);
try
{
_Response.AddHeader("Accept-Ranges", "bytes");
_Response.Buffer = false;//不緩沖
long fileLength = myFile.Length;
long startBytes = 0;
double pack = 10240;
//10K bytes
int sleep = 200;
//每秒5次 即5*10K bytes每秒 int sleep = (int)Math.Floor(1000 * pack / _speed) + 1;
if (_Request.Headers["Range"] != null)
{
_Response.StatusCode = 206;
string[] range = _Request.Headers["Range"].Split(new char[] { '=', '-' });
startBytes = Convert.ToInt64(range[1]);
}
_Response.AddHeader("Content-Length", (fileLength - startBytes).ToString());
if (startBytes != 0)
{
//Response.AddHeader("Content-Range", string.Format(" bytes {0}-{1}/{2}", startBytes, fileLength-1, fileLength));
}
_Response.AddHeader("Connection", "Keep-Alive");
_Response.ContentType = "application/octet-stream";
_Response.AddHeader("Content-Disposition", "attachment; filename=" + HttpUtility.UrlEncode(_fileName, System.Text.Encoding.UTF8));
br.BaseStream.Seek(startBytes, SeekOrigin.Begin);
int maxCount = (int)Math.Floor((fileLength - startBytes) / pack) + 1;
for (int i = 0; i < maxCount; i++)
{
if (_Response.IsClientConnected)
{
_Response.BinaryWrite(br.ReadBytes(int.Parse(pack.ToString())));
Thread.Sleep(sleep);
}
else
{
i = maxCount;
}
}
}
catch
{
return false;
}
finally
{
br.Close();
myFile.Close();
}
}
catch
{
return false;
}
return true;
}
}
}
『貳』 求MP4 AVI格式電影下載網站
有專門的全是AVI
就到這里
手機電影:
http://www.ku3gp.com/index.asp?boardid=8
avi手機電影:
http://www.ku3gp.com/query.asp?keyword=avi&boardid=8&sType=2
手機動謾
http://www.ku3gp.com/index.asp?boardid=9
手機MTV
http://www.ku3gp.com/index.asp?boardid=10
視頻短片
http://www.ku3gp.com/index.asp?boardid=11
3GP手機電影:
http://www.ku3gp.com/query.asp?keyword=3gp&boardid=8&sType=2
MP4手機電影:
http://www.ku3gp.com/query.asp?keyword=mp4&boardid=8&sType=2
『叄』 如何下載一個asp網頁中的視頻文件
方法一：在工具欄中：點查看——源文件，這樣可以看到這個網頁的
源代碼
，然後找到你要的那個視頻文件的
地址
。把這個地址復制到flashget或其他
下載工具
中去，就可以下載了。
方法二：在視頻上點右鍵——選擇「在realplayer中播放」——文件——剪輯屬性——查看剪輯屬性——復制那個文件的地址。把這個地址復制到flashget或其他下載工具中去，就可以下載了。
如果是在mediaplayer中播放的：文件——屬性——復制那個文件的地址。把這個地址復制到flashget或其他下載工具中去，就可以下載了。
但也有的網站加了
版權保護
，不能下載。具體的你可以再提問。
『肆』 如何得到ASP文件
可以通過迅雷等下載工具下載，在迅雷的設置裡面監視的文件類型中添加 .asp 然後就可以將網頁的地址復制到迅雷的新建下載中url中，就可以取得該文件。當然如果網站特別注意這方面的防範的話，那就沒有辦法了
『伍』 asp下載功能代碼
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
'*********************************************調用時傳入的下載文件名
Dname=trim(request("n"))
'******************************************************************
If Dname<>"" Then
'******************************下載文件存放的服務端目錄
url=server.MapPath("/")&"\"&Dname
'***************************************************
End If
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
%>
<%
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
Select Case lcase(Right(flName, 4))
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html"
ContentType = "text/html"
Case ".txt"
ContentType = "text/plain"
Case Else
ContentType = "application/octet-stream"
End Select
Response.AddHeader "Content-Disposition", "attachment; filename=" & flName
Response.AddHeader "Content-Length", flsize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
response.Clear()
objStream.Close
Set objStream = Nothing
%>
將下面的東西存成download.asp然後你就可以用<a herf="http://xxx.xxx.com/download.asp?n=file.doc">download!</a>來下載同一目錄下的file.doc了!
『陸』 asp.net文件下載問題
protected void Button1_Click(object sender, EventArgs e)
{
this.DownLoadFile("說明.txt");
}
//下載函數
private void DownLoadFile(string fileName)
{
string filePath = Server.MapPath(".") + "\\" + fileName;
if (File.Exists(filePath))
{
FileInfo file = new FileInfo(filePath);
Response.ContentEncoding = System.Text.Encoding.GetEncoding("UTF-8"); //解決中文亂碼
Response.AddHeader("Content-Disposition", "attachment; filename=" + Server.UrlEncode(file.Name)); //解決中文文件名亂碼
Response.AddHeader("Content-length", file.Length.ToString());
Response.ContentType = "appliction/octet-stream";
Response.WriteFile(file.FullName);
Response.End();
}
}
『柒』 ASP編程實例
ASP編程實例大全
ASP簡單、易於維護 ， 是小型頁面應用程序的選擇 ，在使用DCOM （Distributed Component Object Model）和 MTS（Microsoft Transaction Server）的情況下， ASP甚至可以實現中等規模的企業應用程序。那麼asp編程中有哪些實例比較常用呢？下面我為大家匯總ASP編程中20個非常有用的例子，一起來學習吧！
1.如何用Asp判斷你的網站的虛擬物理路徑
答：使用Mappath方法
<%= Server.MapPath("")%>
2.我如何知道使用者所用的瀏覽器？
答：使用the Request object方法
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") <> 0 Then
Response.redirect("ForMSIEOnly.htm")
Else
Response.redirect("ForAll.htm")
End If
3.如何計算每天的平均反復訪問人數
答：解決方法
<% startdate=DateDiff("d",Now,"01/01/1990")
if strdate<0 then startdate=startdate*-1
avgvpd=Int((usercnt)/startdate) %>
顯示結果
<% response.write(avgvpd) %>
that is it.this page have been viewed since November 10,1998
4.如何顯示隨機圖象
<% dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)
dpic="graphix/randompics/"&p&".gif"
%>
顯示
<img src="<%=dpic%>">
5.如何回到先前的頁面
答：<a href="<%=request.serverVariables("Http_REFERER")%>">preivous page</a>
或用圖片如：<img src="arrowback.gif" alt="<%=request.serverVariables("HTTP_REFERER")%>">
6.如何確定對方的IP地址
答：<%=Request.serverVariables("REMOTE_ADDR)%>
7.如何鏈結到一副圖片上
答：<% @Languages=vbs cript %>
<% response.expires=0
strimagename="graphix/errors/erroriamge.gif"
response.redirect(strimagename)
%>
8.強迫輸入密碼對話框
答：把這句話放載頁面的開頭
<% response.status="401 not Authorized"
response.end
%>
9.如何傳遞變數從一頁到另一頁
答：用 HIDDEN 類型來傳遞變數
<% form method="post" action="mynextpage.asp">
<% for each item in request.form %>
<input namee="<%=item%>" type="HIDDEN"
value="<%=server.HTMLEncode(Request.form(item)) %>">
<% next %>
</form>
10.為何我在 asp 程序內使用 msgbox，程序出錯說沒有許可權
答：由於 asp 是伺服器運行的，如果可以在伺服器顯示一個對話框，那麼你只好等有人按了確定之後，你的程序才能繼續執行，而一般伺服器不會有人守著，所以微軟不得不禁止這個函數，並胡亂告訴你 (:) 呵呵) 沒有許可權。但是ASP和客戶端腳本結合倒可以顯示一個對話框，as follows:
<% yourVar="測試對話框"%>
<% script language=javas cript>
alert("<%=yourvar%>")
</script>
11.有沒有辦法保護自己的源代碼，不給人看到
答：可以去下載一個微軟的Windows s cript Encoder，它可以對asp的腳本和客戶端javas cript/vbs cript腳本進行加密。。。不過客戶端加密後，只有ie5才能執行，伺服器端腳本加密後，只有伺服器上安裝有s cript engine 5（裝一個ie5就有了）才能執行。
12.怎樣才能將 query string 從一個 asp 文件傳送到另一個？
答：前者文件加入下句： Response.Redirect("second.asp?" & Request.ServerVariables("QUERY_STRING"))
13.global.asa文件總是不起作用?
答：只有web目錄設置為web application, global.asa才有效，並且一個web application的根目錄下 global.asa才有效。IIS4可以使用Internet Service Manager設置application setting 怎樣才能使得htm文件如同asp文件一樣可以執行腳本代碼？
14.怎樣才能使得htm文件如同asp文件一樣可以執行腳本代碼？
答：Internet Sevices Manager -> 選擇default web site ->右鼠鍵->菜單屬性-〉主目錄-> 應用程序設置（Application Setting）-> 點擊按鈕 "配置"-> app mapping ->點擊按鈕"Add" -> executable browse選擇 WINNTSYSTEM32INETSRVASP.DLL EXTENSION 輸入 htm method exclusions 輸入PUT.DELETE 全部確定即可。但是值得注意的是這樣對htm也要由asp.dll處理，效率將降低。
15.如何注冊組件
答：有兩種方法。
第一種方法：手工注冊 DLL 這種方法從IIs 3.0一直使用到IIs 4.0和其它的Web Server。它需要你在命令行方式下來執行，進入到包含有DLL的目錄，並輸入：regsvr32 component_name.dll 例如 c: emp egsvr32 AspEmail.dll 它會把dll的特定信息注冊入伺服器中的注冊表中。然後這個組件就可以在伺服器上使用了，但是這個方法有一個缺陷。當使用這種方法注冊完畢組件後，該組件必須要相應的設置NT的匿名帳號有許可權執行這個dll。特別是一些組件需要讀取注冊表，所以，這個注冊組件的方法僅僅是使用在伺服器上沒有MTS的情況下，要取消注冊這個dll，使用：regsvr32 /u aspobject.dll example c: emp egsvr32 /u aneiodbc.dll
第二種方法：使用MTS(Microsoft Transaction Server) MTS是IIS 4新增特色，但是它提供了巨大的改進。MTS允許你指定只有有特權的用戶才能夠訪問組件，大大提高了網站伺服器上的安全性設置。在MTS上注冊組件的步驟如下：
1) 打開IIS管理控制台。
2) 展開transaction server，右鍵單擊"pkgs installed"然後選擇"new package"。
3) 單擊"create an empty package"。
4) 給該包命名。
5) 指定administrator帳號或則使用"interactive"（如果伺服器經常是使用administrator 登陸的話）。
6) 現在使用右鍵單擊你剛建立的那個包下面展開後的"components"。選擇 "new then component"。
7) 選擇 "install new component" 。
8) 找到你的`.dll文件然後選擇next到完成。
要刪除這個對象，只要選擇它的圖標，然後選擇delete。
附註：特別要注意第二種方法，它是用來調試自己編寫組件的最好方法，而不必每次都需要重新啟動機器了。
16. ASP與Access資料庫連接：
<%@ language=VBs cript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("資料庫名稱.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=資料庫密碼;dbq="&mdbfile
%>
17. ASP與SQL資料庫連接：
<%@ language=VBs cript%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL伺服器名稱或IP地址;UID=sa;PWD=資料庫密碼;DATABASE=資料庫名稱
%>
建立記錄集對象：
set rs=server.createobject("adodb.recordset")
rs.open SQL語句,conn,3,2
18. SQL常用命令使用方法：
(1) 數據記錄篩選：
sql="select * from 數據表 where 欄位名=欄位值 order by 欄位名 [desc]"
sql="select * from 數據表 where 欄位名 like %欄位值% order by 欄位名 [desc]"
sql="select top 10 * from 數據表 where 欄位名 order by 欄位名 [desc]"
sql="select * from 數據表 where 欄位名 in (值1,值2,值3)"
sql="select * from 數據表 where 欄位名 between 值1 and 值2"
(2) 更新數據記錄：
sql="update 數據表 set 欄位名=欄位值 where 條件表達式"
sql="update 數據表 set 欄位1=值1,欄位2=值2 …… 欄位n=值n where 條件表達式"
(3) 刪除數據記錄：
sql="delete from 數據表 where 條件表達式"
sql="delete from 數據表" (將數據表所有記錄刪除)
(4) 添加數據記錄：
sql="insert into 數據表 (欄位1,欄位2,欄位3 …) valuess (值1,值2,值3 …)"
sql="insert into 目標數據表 select * from 源數據表" (把源數據表的記錄添加到目標數據表)
(5) 數據記錄統計函數：
AVG(欄位名) 得出一個表格欄平均值
COUNT(*|欄位名) 對數據行數的統計或對某一欄有值的數據行數統計
MAX(欄位名) 取得一個表格欄最大的值
MIN(欄位名) 取得一個表格欄最小的值
SUM(欄位名) 把數據欄的值相加
引用以上函數的方法：
sql="select sum(欄位名) as 別名 from 數據表 where 條件表達式"
set rs=conn.excute(sql)
用 rs("別名") 獲取統的計值，其它函數運用同上。
(5) 數據表的建立和刪除：
CREATE TABLE 數據表名稱(欄位1 類型1(長度),欄位2 類型2(長度) …… )
例：CREATE TABLE tab01(name varchar(50),datetime default now())
DROP TABLE 數據表名稱 (永久性刪除一個數據表)
19. 記錄集對象的方法：
rs.movenext 將記錄指針從當前的位置向下移一行
rs.moveprevious 將記錄指針從當前的位置向上移一行
rs.movefirst 將記錄指針移到數據表第一行
rs.movelast 將記錄指針移到數據表最後一行
rs.absoluteposition=N 將記錄指針移到數據表第N行
rs.absolutepage=N 將記錄指針移到第N頁的第一行
rs.pagesize=N 設置每頁為N條記錄
rs.pagecount 根據 pagesize 的設置返回總頁數
rs.recordcount 返回記錄總數
rs.bof 返回記錄指針是否超出數據表首端，true表示是，false為否
rs.eof 返回記錄指針是否超出數據表末端，true表示是，false為否
rs.delete 刪除當前記錄，但記錄指針不會向下移動
rs.addnew 添加記錄到數據表末端
rs.update 更新數據表記錄
20、 Recordset對象方法
Open方法
recordset.Open Source,ActiveConnection,CursorType,LockType,Options
Source
Recordset對象可以通過Source屬性來連接Command對象。Source參數可以是一個Command對象名稱、一段SQL命令、一個指定的數據表名稱或是一個Stored Procere。假如省略這個參數，系統則採用Recordset對象的Source屬性。
ActiveConnection
Recordset對象可以通過ActiveConnection屬性來連接Connection對象。這里的ActiveConnection可以是一個Connection對象或是一串包含資料庫連接信息（ConnectionString）的字元串參數。
;『捌』 ASP 如何實現文件下載
你把要下載的文件名傳到下載頁面，用request("fileNameField")獲取文件名
下面這地方改一下
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath(request("fileNameField"))
點擊回下載答的地方用<a href='下載頁面路徑?fileNameField=要下載的文件名'>下載文件</a>
這個
『玖』 如何用ASP實現文件下載
調用
response.Write("<a href=down.asp?filename="&UpLoadPath&ls_array(i+1)&">"&ls_array
(i)&"</td></tr>")
down.asp文件內容如下：
<%
Const FilePath = "UploadFile/" '文件存放路徑
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "無效文件名！"
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Response.Clear
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '對圖像文件不出現下載對話框
else
Response.ContentType = "application/ms-download"
end if
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
TrueFileName= FilePath &FileName
Response.Write TrueFileName
Response.End
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>
『拾』 請問如何下載asp後綴的資料庫
一般的下載軟體是下不了的,就算下地的ASP文件也全是html語言的asp文件,根本沒有用的,資料庫改後綴名為ASP,伺服器就認為你請求的文件是asp文件,伺服器解析語法不正確就回報錯的,有一種情況能下載所有的asp文件,就是伺服器不再解析asp文件,輸入地址就可以下載了.意思是伺服器中嚴重的木馬之類的病毒,失去伺服器功能,這只是一種機會很小的情況(伺服器一出問題,網管理應該會及時發現的).