asp怎么在桌面上建立快捷方式？

 

<script language="VBScript">


Set Shell = CreateObject("WScript.Shell")


DesktopPath = Shell.SpecialFolders("Desktop")


Set link = Shell.CreateShortcut(DesktopPath + "\IT知道网.lnk")


link.Description = "IT知道网"


link.TargetPath = ""


link.Save()


</script>