好了,谢谢 ASPIC 的提醒,还是要靠自己,
别人帮改了下,不行,自己又改了下,可以了
现在贴出来给大家分享下
ASP 中生成桌面快捷图标 代码
程序代码:
<%
Dim Shortcut
Shortcut = "[InternetShortcut]" & vbcrlf
Shortcut= Shortcut & "URL=http://www.baidu.com" & vbcrlf
Shortcut= Shortcut & "IDList=" & vbcrlf
Shortcut= Shortcut & "IconFile=http://www. & vbcrlf
Shortcut= Shortcut & "IconIndex=1" & vbcrlf
Shortcut= Shortcut & "[{000214A0-0000-0000-C000-000000000046}]" & vbcrlf
Shortcut= Shortcut & "Prop3=19,2" & vbcrlf
Shortcut= Shortcut & "[DEFAULT]" & vbcrlf
Shortcut= Shortcut & "BASEURL=http://baidu.com" & vbcrlf
Response.AddHeader "Content-type", "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=百度www.baidu.com.url;"
Response.Write Shortcut
%>