<%
Dim Action,Show
Action=request.querystring("Action")
Select Case Action
Case "Apply"
Apply
Case "SaveLink"
SaveLink
Case ELse
Main
End Select
Set MNBoard =Nothing
%>
<%
Function ShowTable(Str)
ShowTable="
"&Str&"
"
End Function
Sub Main()
If Not MNBoard.FoundUser Then
Show="对不起，只有本站会员才能申请友情连接！【关闭】【注册】【登陆】"
Else
Show="
自助申请网站联盟说明
在贵站上先把本站的链接加入！！！
您的网站必须内容完整或制作不粗糙
不能出现任何色情、政治等国内法律不允许的内容
不能有过多弹窗、修改网友IE及修改注册表
拒绝交换纯广告之类的网站
同意点击下一步后填写贵站相关信息
首页链接要求：
贵站流量在日IP在800以上
本站会员发帖量在500帖或积分20分
本站版主或会员等级在15级以上
对本站有特殊贡献的会员
以上任一项均可在首页上直接显示，
不具有上面任一项将会在收藏链接中显示
"
End If
Show=ShowTable(Show)
End Sub
Sub Apply()
Show="