添加网页桌面快捷方式的代码(js、asp、c#)

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安全级别不允许操作！"); 
    }
}
<a href="javascript:void(0);" onclick="toDesktop('http://www.jb200.com/','脚本学堂')">创建快捷方式</a>

<%
    title="脚本学堂url"
    Shortcut = "[InternetShortcut] " & vbCrLf
    Shortcut = Shortcut & "URL=http://www.jb200.com" & vbCrLf
    Shortcut = Shortcut & "IDList= " & vbCrLf
    Shortcut = Shortcut & "[{000214A0-0000-0000-C000-000000000046}] " & vbCrLf
    Shortcut = Shortcut & "Prop3=19,2 " & vbCrLf
    Shortcut = Shortcut & " " & vbCrLf
    Response.AddHeader "Content-Disposition", "attachment;filename="&title&".url;"
    Response.ContentType = "application/octet-stream"
    Response.Write Shortcut
%>

using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
 
public partial class CreateShortcut : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
     {
     }
 
     /// <summary>
     /// 创建快捷方式
     /// </summary>
     /// <param name="Title">标题</param>
     /// <param name="URL">url地址</param>
     private void CreateShortcut(string Title, string URL)
     {
         string strFavoriteFolder;
 
         // “收藏夹”中 创建 IE 快捷方式
         strFavoriteFolder = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites);
         CreateShortcutFile(Title, URL, strFavoriteFolder);
 
         // “ 桌面 ”中 创建 IE 快捷方式
        strFavoriteFolder = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop);
         CreateShortcutFile(Title, URL, strFavoriteFolder);
 
         // “ 链接 ”中 创建 IE 快捷方式
        strFavoriteFolder = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites) + "链接";
         CreateShortcutFile(Title, URL, strFavoriteFolder);
 
         //「开始」菜单中 创建 IE 快捷方式
         strFavoriteFolder = System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu);
         CreateShortcutFile(Title, URL, strFavoriteFolder);
 
     }
 
     /// <summary>
     /// 创建快捷方式
     /// </summary>
     /// <param name="Title">标题</param>
     /// <param name="URL">URL地址</param>
     /// <param name="SpecialFolder">特殊文件夹</param>
     private void CreateShortcutFile(string Title, string URL, string SpecialFolder)
     {
         // Create shortcut file, based on Title
         System.IO.StreamWriter objWriter = System.IO.File.CreateText(SpecialFolder + "" + Title + ".url");
         // Write URL to file
         objWriter.WriteLine("[InternetShortcut]");
         objWriter.WriteLine("URL=" + URL);
         // Close file
         objWriter.Close();
     }
 
     private void btnShortcut_Click(object sender, System.EventArgs e)
     {
         CreateShortcut("脚本学堂", http://www.jb200.com);
     }
 }