link.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="include/ms_setting.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
catTitle="友情链接"
%>
<!--#include file="ms_start.asp"-->
<%Call ms_menu()%>
<script language="JavaScript" src="include/wisdom.js"></script>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="mainMiddle_tdble"><tr>
<!--左栏开始-->
<td valign="top" class="mainMiddle_td_left">
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">会员登录</span></td><td class="ltr"></td></tr></table>
		<div class="lmc"><%Call publiclogonModule()%></div>
		</div>
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">站内搜索</span></td><td class="ltr"></td></tr></table>
		<div class="lmc"><%Call searchInput("art")%></div>
		</div>
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">链接说明</span></td><td class="ltr"></td></tr></table>
		<div class="lmc" style="line-height:18px;">·站点必须美观大方，内容祥实，无不良内容。<br>·提交前先加入本站的链接。<br>·如果Logo地址不填写，我们将会把它作为文 本链接来做。<br>·提交的站点应确保正常打开。</p><div align="center"><img src="<%=logourl%>" align="absmiddle" border="0"></div><p>本站链接代码<br><textarea name="textarea2" cols="22" rows="4" wrap="VIRTUAL"><a href=<%=weburl%>><img src=<%=weburl%>/<%=linklogo%> alt="<%=linkinfo%>"></a></textarea></p></div>
		</div>
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">加入友情链接</span></td><td class="ltr"></td></tr></table>
		<div class="lmc">
					<table width="100%" border="0" cellpadding="2" cellspacing="0">
					  <form name="linkform" method="post" action="?action=maosin_applink" target="addlink" onsubmit="return linkcode()">
					  <tr>
						<td width="60" height="25" valign="middle"> 链接方式：</td>
						<td width="*" valign="middle"><select name="linkmode">
							<option value=1 selected>LOGO链接</option>
							<option value=0>文字链接</option>
						</select></td>
					  </tr>
					  <tr>
						<td height="25" valign="middle"> 站长姓名：</td>
						<td valign="middle"><input name="yourname" type="text" style="width:100%" maxlength="20" class="wenbenkang"></td>
					  </tr>
					  <tr>
						<td height="25" valign="middle"> 网站名称：</td>
						<td valign="middle"><input name="sitename" type="text" style="width:100%" maxlength="20" class="wenbenkang"></td>
					  </tr>
					  <tr>
						<td height="23" valign="middle"> 网站地址：</td>
						<td valign="middle"><input name="weburl" type="text" value="http://" style="width:100%" maxlength="40" class="wenbenkang"></td>
					  </tr>
					  <tr>
						<td height="19" valign="middle"> LOGO地址：</td>
						<td valign="middle"><input name="logourl" type="text" style="width:100%" maxlength="40" class="wenbenkang"></td>
					  </tr>
					  <tr>
						<td height="81" valign="middle"> 网站介绍：</td>
						<td valign="middle"><textarea name="info" style="width:100%" rows="5" wrap="VIRTUAL" class="textkang"></textarea><iframe width=0 height=0 name="addlink"></iframe></td>
					  </tr>
					  <tr>
						<td height="19" colspan="2" valign="middle" align="center">
						<input type="submit" name="InSubmit" value="提交" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'">
						<input type="reset" name="Submit2" value="清空" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'"></td>
					  </tr>
					  </form>
				 </table></div>
		</div>
</td>
<td class="mainMiddle_td_middle" onClick="switchCol(this)" title="关闭左栏"><img src="images/closeL.gif"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
<%
	Select Case Request.QueryString("action")
	Case LCase("go")
		Call goLink()
	Case LCase("maosin_applink")
		Call addlink()
	Case else
		Call showlink()
	End Select%>
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
Sub goLink()
id=Request.QueryString("id")
if isnumeric(id) then
sql="update ms_link set link_clicks=link_clicks+1 where id="&id
conn.Execute(sql)
sql="select webUrl from ms_link where id="&id
Set rs=conn.Execute(sql)
weburl=rs(0)
rs.close
	Response.Redirect weburl
else
	Response.write("<script>alert('参数不是数字型参数，请输入一个数字型参数');window.history.go(-1);</script>")
end if
End Sub
Sub addLink()
if linkOpen=0 then
	response.write("<script>alert('对不起，链接申请已满，或暂时关闭！');</script>")
	exit sub
end if
If Request.form("InSubmit")<>"" Then
sitename=Request.form("sitename")
weburl=Request.form("weburl")
info=Request.form("info")
weblogo=Request.form("logourl")
username=Request.form("yourname")
linkmode=Request.form("linkmode")
if chkIsAvaStr(username)=false then
	response.write("<script>alert('名字中含有非法字条');</script>")
	exit sub
end if
if chkIsAvaStr(sitename)=false then
	response.write("<script>alert('网站名中含有非法字条');</script>")
	exit sub
end if
if weblogo="" then
	linkmode=0
end if
sistename=replace(sistename,"'","''")
weburl=replace(weburl,"'","")
sql="select * from ms_link"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,3
rs.AddNew
rs("webname")=chkFormStr(sitename)
rs("weburl")=chkFormStr(weburl)
rs("info")=htmlencode(info)
rs("weblogo")=chkFormStr(weblogo)
rs("username")=chkFormStr(username)
rs("linkmode")=chkFormStr(linkmode)
rs("link_date")=Now()
rs.Update
rs.close
Set rs=Nothing
Response.Write("<script>alert('链接已成功添加了,我们会尽快审核通过的');window.location.href='link.asp';</script>")
exit sub
End If
End Sub
Sub showlink()
Set linkrs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM ms_link where pass=true order by commend asc"
linkrs.Open sql,connstr,1,1
Dim page,line,n
n=friendLinkpage'设置每页记录数
url="link.asp?"
nextpage=pagetitle(linkrs,n,url,"链接")
%>
<table cellspacing="0" class="naviTable"><tr><td class="naviL"></td><td class="naviM"><span class="rtt"><%="当前共有链接<font color=#ff0000>"&conn.execute("select count(id) as totals from ms_link where pass=true")(0)&"</font>个,其中等待通过的有<font color=#ff0000>"&conn.execute("select count(id) as pass from ms_link where pass=false")(0)&"</font>个"%></span></td><td class="naviR"></td></tr></table>
<%If NOT linkrs.EOF And NOT linkrs.BOF Then%>
	<table width="100%" border="0" cellpadding="2" cellspacing="1" class="tableBC">
	  <tr align="center" class="tdT"><td width="100">网站名称</td><td width="90" align="center">网站LOGO</td><td>网站简介</td><td width="80">加入时间</td></tr>   
	  <%Do While NOT linkrs.EOF And line<linkrs.Pagesize%>
		<tr class="tdBC"><td align="center" height="31">
		<a href="link.asp?action=go&id=<%=linkrs("id")%>" title="网站名称：<%=linkrs("webname")%>&#10;网站地址：<%=linkrs("weburl")%>&#10;网站简介：<%=linkrs("info")%>&#10;加入时间：<%=linkrs("link_date")%>&#10;点击次数：<%=linkrs("link_clicks")%>" target="_blank">
		<%=linkrs("webname")%></a></td>
		<td align="center">
		<%if CInt(linkrs("linkmode"))=0 then%>
			文字链接
		<%else%>
		<a href="link.asp?action=go&id=<%=linkrs("id")%>" title="网站名称：<%=linkrs("webname")%>&#10;网站地址：<%=linkrs("weburl")%>&#10;网站简介：<%=linkrs("info")%>&#10;加入时间：<%=linkrs("link_date")%>&#10;点击次数：<%=linkrs("link_clicks")%>" target="_blank">
		<img src=<%=linkrs("weblogo")%> width='88' height='31' border='0'></a>
		<%end if%>
		</td>
		<td><%=linkrs("info")%></td>
		<td align="center"><font class="font"><%=FormatDateTime(linkrs("link_date"),vbShortDate)%></font></td></tr>
		<%line=line+1
		linkrs.MoveNext
		Loop
		%>
	</table>
<%Else
	response.write("<div class=""noNote"">暂时没有链接！</div>")
End If
If linkrs.RecordCount>n Then%>
<div class="page"><%=nextpage%></div>
<%End if%>
<%linkrs.Close()
Set linkrs=Nothing
End Sub
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: [e-mail] , [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>