<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%option explicit%> <% '**************************************************** ' Software name:Kesion CMS 5.0 ' Email: service@kesion.com . QQ:111394,9537636 ' Web: http://www.kesion.com http://www.kesion.cn ' Copyright (C) Kesion Network All Rights Reserved. '**************************************************** Dim KSCls Set KSCls = New FriendLinkReg KSCls.Kesion() Set KSCls = Nothing Class FriendLinkReg Private KS Private Sub Class_Initialize() Set KS=New PublicCls End Sub Private Sub Class_Terminate() Call CloseConn() Set KS=Nothing End Sub Public Sub Kesion() Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "申请友情链接" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "

" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write "
本站链接信息
申请链接交换,务请先使用下面的代码做好本站链接。
※本站文字链接代码:
※本站LOGO链接代码:
演示:
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
申请友情链接
" Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
网站名称
" & vbCrLf Response.Write ("") Response.Write " *
所属类别" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
网站站长
" & vbCrLf Response.Write " *
" & vbCrLf Response.Write "
站长信箱
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
网站密码
" & vbCrLf Response.Write " *不少于6位, 修改信息时用
确定密码" & vbCrLf Response.Write " *同上
网站地址 *
链接类型" Response.Write (" 文字链接 ") Response.Write (" LOGO链接 ") Response.Write "
Logo 地址 *
" Response.Write "
网站简介
" & vbCrLf Response.Write "
认 证 码" & vbCrLf Response.Write " <<=
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf End Sub End Class %>