link.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<!--#include file="inc.asp"-->
<meta http-equiv="Content-Type' content="text/html; charset=gb2312">
<%
Dim Action,Show
Action=request.querystring("Action")
Select Case Action
Case "Apply"
	Apply
Case "SaveLink"
	SaveLink
Case ELse
	Main
End Select
Set BBS94KK=Nothing

Function ShowTable(Str)
	ShowTable="<table width='98%' border='0' align='center' cellpadding='4' cellspacing='0' style=' BORDER-TOP: 3px solid;BORDER-RIGHT:#A5AEAF 3px inset;BORDER-LEFT:3px solid;BORDER-BOTTOM:#A5AEAF 3px inset;'>"&Str&"</table>"
End Function

Sub Main()
	Show="<tr><td width='420'><strong>自助申请网站联盟说明</strong><li>详细阅读右边的“连接注意事项”<li><font color=red>在贵站上先把本站的链接加入！！！</font><li>同意点击下一步后填写贵站相关信息。<li>本论坛会自动发送留言通知管理员审核！</td><td width='420'><strong>注意事项：</strong>	<li>您的网站必须内容完整或制作不粗糙<li>不能出现任何色情、政治等国内法律不允许的内容<li>不能有过多弹窗、修改网友IE及修改注册表 <li>拒绝交换纯广告之类的网站</td>	</tr><tr><td colspan='2' align='center'><form action='Link.asp?Action=Apply' method=post style='margin:0' target='hiddenframe'><input class='94kk' type='submit' name='Submit' value='同意'>&nbsp;&nbsp;<input class='94kk' type='button' onClick=parent.AutoLink() value='不同意'></form></td></tr>"
	Show=ShowTable(Show)
End Sub
Sub Apply()
	Show="<form action='Link.asp?Action=SaveLink' method=post style='margin:0' target='hiddenframe'><tr bgcolor='#F1F3F1'><td height='25' colspan='2'><b><font color='#000099'>请填写贵站的信息</font></b></td></tr><tr><td>论坛名称：</td><td><input Class='94kk' type='text' name='bbsname' size='20'></td></tr><tr><td>论坛地址：</td><td><input Class='94kk' type='text' name='url' size='38'></td></tr><tr><td>论坛站长：</td><td><input Class='94kk' type='text' name='admin' size='20'></td></tr><tr><td>论坛图片：</td><td><input Class='94kk' type='text' name='pic' size='38'>(留空则显示文字连接)</td></tr><tr><td>论坛说明：</td><td><input Class='94kk' type='text' name='Readme' size='38'>(限30字内，可以留空)</td></tr><tr><td>图片显示：</td><td><input type='radio' name='ispic' value='yes' Class='94kk'checked> 是 <input type='radio' name='ispic' value='no' Class='94kk' > 否</td></tr><tr bgcolor='#F2F2F2'><td colspan='5' align='center'><input type='submit' Class='94kk' value=' 提 交 '>&nbsp;&nbsp;<input type='reset' Class='94kk' value=' 重 置 '></td></tr></form>"
	Show=ShowTable(Show)
End Sub

Sub SaveLink()
	Dim BbsName,Url,Pic,Readme,Admin,Orders,IsPic
	Dim Come,Here
	Come=Request.ServerVariables("HTTP_REFERER")
	Here=Request.ServerVariables("SERVER_NAME")
	If Mid(Come,8,len(Here))<>Here then Show=ShowTable("<tr><td height=80>提交失败！请不要外部提交，谢谢合作</td></tr>")
	BbsName=BBS94KK.Fun.GetStr("bbsname")
	Url=BBS94KK.Fun.ubbg(BBS94KK.Fun.GetStr("url"))
	Pic=BBS94KK.Fun.GetStr("pic")
	Readme=BBS94KK.Fun.GetStr("Readme")
	Admin=BBS94KK.Fun.GetStr("admin")
	IsPic=BBS94KK.Fun.ubbg(BBS94KK.Fun.GetStr("ispic"))
	If BbsName=""  or url="" or Admin="" then
		Show=ShowTable("<tr><td height=80>提交失败！请填写完整再提交！ 【<a style='cursor:hand' onClick=history.go(-1)>返回重填</a>】</td></tr>")
		Exit Sub
	ElseIf Not BBS94KK.Fun.CheckName(BbsName) Or (Admin<>"" And Not BBS94KK.Fun.CheckName(Admin)) Then
		Show=ShowTable("<tr><td height=80>提交失败！请不要使用了非法字符 【<a style='cursor:hand' onClick=history.go(-1)>返回重填</a>】</td></tr>")
		Exit Sub
	ElseIf Len(Readme)>30 Then
		Show=ShowTable("<tr><td height=80>提交失败！字符超过了限制！ 【<a style='cursor:hand' onClick=history.go(-1)>返回重填</a>】</td></tr>")
		Exit Sub
	End if
	Orders=BBS94KK.execute("select Count(ID) From[KK_Link]")(0)
	Orders=Int(Orders+1)
	BBS94KK.execute("insert into[KK_Link](Bbsname,Url,Pic,Readme,admin,Orders,IsPic,pass)values('"&fliter(BbsName)&"','"&fliter(Url)&"','"&fliter(Pic)&"','"&fliter(Readme)&"','"&Admin&"',"&Orders&","&IsPic&",False)")
	Show=ShowTable("<tr><td height=80>成功！请等待本站管理员的审核！【<a style='cursor:hand' onClick=parent.AutoLink()>确定完成</a>】</td></tr>")
End Sub

Function fliter(byval Tstr)
Tstr=Replace(Tstr,"""","")
Tstr = Replace(Tstr, ">", "&gt;")
fliter = Replace(Tstr, "<", "&lt;")
End Function
%>
<script language='JavaScript'>
parent.ShowLink.innerHTML="<%=Show%>"
</script>