<%
Dim Style_Header,Style_Bottom
Dim ThisAuthor,AuthorSite,Authorbbs,y_key,YourSite,Buildtimes,TestAD1,TestAD2,TestADLink1,TestADLink2
ThisAuthor = "毅缘商城" '本调用程序出处，请不要修改，尊重版权
AuthorSite = "http://www.yilot.com" '作者网站，请不要修改，尊重版权
Authorbbs = "HTTP://WWW.YILOT.COM/BBS" '作者论坛，请不要修改，尊重版权
y_key = "9001BBS001TOP1123" '密钥
'以下为安装者可修改参数
YourSite = "BT先锋论坛(www.bt51.tk)" '设置您的论坛描述，例如：毅缘社区(BBS.YLOT.CN)
Buildtimes = "2012-8-1" '站点建立时间，根据个人站点修改。
TestAD1 = "点击租用文字广告位1" '文字广告一说明
TestADLink1 = "announcements.asp" '文字广告一链接
TestAD2 = "点击租用文字广告位2" '文字广告二说明
TestADLink2 = "announcements.asp" '文字广告二链接
Style_Header = "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "" _
& VBCrlf & "$YourSite"
Style_Bottom = "" _
& VBCrlf & " $ThisAuthor($AuthorSite) $AuthorSite $Authorbbs Copyright (c) 2004-2010
" _
& VBCrlf & "" _
& VBCrlf & "yi"&"l"&"ot"&"."&"co"&"m Si"&"te topng Version 1.0
" _
& VBCrlf & "" _
& VBCrlf & ""
Style_Header = replace(Style_Header,"$ThisAuthor",ThisAuthor)
Style_Header = replace(Style_Header,"$AuthorSite",AuthorSite)
Style_Header = replace(Style_Header,"$Authorbbs",Authorbbs)
Style_Header = replace(Style_Header,"$y_key",y_key)
Style_Header = replace(Style_Header,"$YourSite",YourSite)
Style_Bottom = replace(Style_Bottom,"$ThisAuthor",ThisAuthor)
Style_Bottom = replace(Style_Bottom,"$AuthorSite",AuthorSite)
Style_Bottom = replace(Style_Bottom,"$Authorbbs",Authorbbs)
%>