<%
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=aspxWeb.mdb"
response.binarywrite getBinaryFile(Server.MapPath("xxxx.asp"))
function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function
%>
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=aspxWeb.mdb"
response.binarywrite getBinaryFile(Server.MapPath("xxxx.asp"))
function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function
%>
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=xx.asp"
response.binarywrite getBinaryFile(Server.MapPath("xxxx.asp"))
function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function
%>
说白了就是我发现一个网站有这样的问题:把
http://xxx.xxx.xxx/dsfsdd/topic/sf1.asp?sort=dfg
改成
http://xxx.xxx.xxx/dsfsdd/topic/sf1.asp?sort=<script language=javascript>alert("警告")</script>后可以弹出一个警告框,而我想得到这个也面的代码,可以吗?
我想只要你有在权限在ASP(虚礼)也因该可以的