添加网页桌面快捷方式的代码

JS代码

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);" οnclick="toDesktop('http:\//www.163.com/','163网易')">创建快捷方式</a>

asp代码

<%
    title="郑州简悦信息技术有限公司url"
    Shortcut = "[InternetShortcut] " & vbCrLf
    Shortcut = Shortcut & "URL=http://www.uzuz8.net" & 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
%>

 C#代码

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.uzuz8.net);
     }
 }