Set s = Server.CreateObject("ADODB.Stream") s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FileExists(strFilename) then Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>") Response.End end if
Set f = fso.GetFile(strFilename) intFilelength = f.size
s.LoadFromFile(strFilename) if err then Response.Write("<h1>Error: </h1>" & err.Description & "<p>") Response.End end if Response.Clear() response.contenttype="image/gif" response.BinaryWrite s.Read 'Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name 'Response.AddHeader "Content-Length", intFilelength 'Response.CharSet = "UTF-8" 'Response.ContentType = "application/octet-stream"
ASPX文件:
<asp:DataList id="DataList2" runat="server" Width="460" RepeatDirection="Horizontal" RepeatColumns="10">
<ItemTemplate>
<a class="login2" href="javascript:<%#CheckRight((DataBinder.Eval(Container.DataItem, "SegmentUrl")).ToString())%>">
<%# DataBinder.Eval(Container.DataItem, "SegmentName")%></a>
</ItemTemplate>
</asp:DataList>
CS文件:public string CheckRight(string downurl)
{
if (Session["UserID"] !=null)
{
return "window.location='"+downurl+"';";
}
else return "if(confirm('尊敬的用户,您还未登陆系统')) {window.location='MediaInfo.aspx';}";
代码好像不行吧..
href="javascript:<%#CheckRight((DataBinder.Eval(Container.DataItem, "SegmentUrl")).ToString())%>">
说这里有错哦.而且
"window.location='"+downurl+"';";
中有我的URL在.以后用户不登陆用FLASHGET下载那样的话问题是没有解决到啊
在download.aspx中,首先进行权限判断,是否是合法用户,如果是,则从数据库中取出0001对应的真正文件下载地址,输出给客户端就可以了。
Dim strPicName strFilename = "f:\temp\" & request("file") Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if Response.Clear()
response.contenttype="image/gif"
response.BinaryWrite s.Read 'Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
'Response.AddHeader "Content-Length", intFilelength
'Response.CharSet = "UTF-8"
'Response.ContentType = "application/octet-stream"
'Response.BinaryWrite s.Read
'Response.Flush
s.Close
Set s = Nothing
%>
<img src="HideImg.asp?file=浙江地图.jpg" border="0">