<!--#include file="conn.asp"--> 
<!--#include file="HSK_Cls/HSK.commoncls.asp"--> 
<% 
dim ks:set ks=new publiccls 
dim url:url = KS.GetDomain
if ks.isnul(url) then url = KS.Setting(2)
Response.ContentType = "application/octet-strem;" 
Response.AddHeader "Content-Disposition", "attachment;filename=" & KS.Setting(0) & ".url" 
Response.Write("[InternetShortcut]" & vbcrlf & "URL=" & url & "" & vbcrlf & "IDList=[{000214A0-0000-0000-C000-000000000046}]" & vbcrlf & "Prop3=19,2") 
'IconFile=" & url & "favicon_48X48.ico" & vbcrlf & "
set ks=nothing 
closeconn 
%>