程序代码：

<?php

$Shortcut = "[InternetShortcut]

URL=http://www.baidu.com.com/

IDList=

[{000214A0-0000-0000-C000-000000000046}]

Prop3=19,2

";

Header("Content-type: application/octet-stream");

header("Content-Disposition: attachment; filename=百度www.baidu.com.url;");

echo $Shortcut;

?>

程序代码：

<%
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

%>