<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%option explicit%> <% '**************************************************** ' Software name:Kesion CMS 5.5 ' Email: service@kesion.com . QQ:111394,9537636 ' Web: //www.kesion.com //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 %>