ASP 實現網址的桌面快捷方式下載

用asp實現網址的桌面快捷方式下載，就是訪問asp文件的時候，實現下載網址的快捷方式，就像咱們手動在桌面建立同樣。 

 

方法：新建一個PHP文檔:名字好記就行如：shortcut.asp

 

asp文檔中的內容： 

 

 

 

<%

id=request("id")

liehuo_net_url=request("liehuo_net_url")

If liehuo_net_url="" Then liehuo_net_url="烈火學院"

Shortcut = "[InternetShortcut] " & vbCrLf

Shortcut = Shortcut & "URL=http://www.veryhuo.com/?desktop" & vbCrLf

Shortcut = Shortcut & "IDList=" & vbCrLf

Shortcut = Shortcut & "IconFile=http://www.veryhuo.com/favicon.ico" & vbCrLf

Shortcut = Shortcut & "IconIndex=1" & vbCrLf

Shortcut = Shortcut & "[{000214A0-0000-0000-C000-000000000046}] " & vbCrLf

Shortcut = Shortcut & "Prop3=19,2 " & vbCrLf

Shortcut = Shortcut & " " & vbCrLf

Response.AddHeader "Content-Disposition", "p_w_upload;filename="&liehuo_net_url&".url;"

Response.ContentType = "application/octet-stream"

Response.Write Shortcut

%>

演示：http://www.veryhuo.com/plus/shortcut.asp

[js方法]
 

<script language=「JavaScript「>

function toDesktop(sUrl,sName)
{
try
{
var WshShell =
new ActiveXObject(「WScript.Shell」);
var oUrlLink = WshShell.CreateShortcut(WshShell.SpecialFolders(「Desktop」) +
「\\」
+ sName +
「.url」);
oUrlLink.TargetPath = sUrl;
oUrlLink.Save();
}
catch(e)
{
alert(「當前IE安全級別不容許操做！請設置後在操做.」);
}
}
</script>

<input name=「btn「 type=「button「 id=「btn「 value=「建立的快捷方式「 onClick=「toDesktop(‘http:\//www.boshi8.com/’,'博士吧’)「>