admin_linksite.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Inc/Const.asp"-->
<!--#include file="../inc/Cl_Md5.asp"-->
<%
if Not Cl.TrueOtherPurview("LinkSite") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim ID,LinkType,ClassID
dim Action
const PageSize=20

Action		= Trim(request("Action"))
ID			= Cl.GetClng(Trim(Request("ID")))
LinkType	= Trim(request("LinkType"))
FileName = "Admin_LinkSite.asp?LinkType=" & LinkType
CurrentPage = Cl.GetClng(request("page"))
if ID>0 then
	Cl.SaveAdminLog
	Select Case Action
	Case "Index"
		Cl.Execute "Update Cl_LinkSite set IsIndex=1 Where ID=" & CLng(ID)
		Response.Redirect ComeUrl
	Case "CancelIndex"
		Cl.Execute "Update Cl_LinkSite set IsIndex=0 Where ID=" & CLng(ID)
		Response.Redirect ComeUrl
	Case "Check"
		Cl.Execute "Update Cl_LinkSite set IsOK="&TrueType&" where ID=" & CLng(ID)
		Response.Redirect ComeUrl
	Case "CancelCheck"
		Cl.Execute "Update Cl_LinkSite set IsOK="&FalseType&" Where ID=" & CLng(ID)
		Response.Redirect ComeUrl
	Case "Good"
		Cl.Execute "Update Cl_LinkSite set IsGood="&TrueType&" Where ID=" & CLng(ID)
		Response.Redirect ComeUrl
	Case "CancelGood"
		Cl.Execute "Update Cl_LinkSite set IsGood="&FalseType&" Where ID=" & CLng(ID)
		Response.Redirect ComeUrl
	Case "Del"
		Cl.Execute "Delete From Cl_LinkSite Where ID=" & CLng(ID)
		Response.Redirect ComeUrl
	End Select
end If
Header
%>
<script language="JavaScript" type="text/javascript">
function Check() {
if (document.AddLink.SiteName.value=="")
	{
	  alert("请输入网站名称！")
	  document.AddLink.SiteName.focus()
	  return false
	 }
if (document.AddLink.SiteUrl.value=="" || document.AddLink.SiteUrl.value=="http://")
	{
	  alert("请输入网站地址！")
	  document.AddLink.SiteUrl.focus()
	  return false
	 }
if (document.AddLink.LinkType[0].checked==true && document.AddLink.LogoUrl.value=="http://")
	{
	  alert("请输入Logo地址！")
	  document.AddLink.LogoUrl.focus()
	  return false
	 }
if (document.AddLink.SiteAdmin.value=="")
	{
	  alert("请输入站长姓名！")
	  document.AddLink.SiteAdmin.focus()
	  return false
	 }
if (document.AddLink.Action.value=="SaveAdd"&&document.AddLink.SitePassword.value=="")
	{
	  alert("请输入网站密码！")
	  document.AddLink.SitePassword.focus()
	  return false
	 }
if (document.AddLink.SitePwdConfirm.value!=document.AddLink.SitePassword.value)
	{
	  alert("网站密码与确认密码不一致！")
	  document.AddLink.SitePwdConfirm.focus()
	  document.AddLink.SitePwdConfirm.select()
	  return false
	 }
}
function ConfirmDel()
{
   if(confirm("确定要删除此友情链接站点吗？"))
     return true;
   else
     return false;
}
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
  <tr class="title"> 
    <td height="22" colspan=2 align=center><strong>友 情 链 接 管 理</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30"><a href="Admin_LinkSite.asp?Action=Add">添加友情链接</a>&nbsp;|&nbsp;<a href="Admin_LinkSite.asp?LinkType=2">文字链接</a>&nbsp;|&nbsp;<a href="Admin_LinkSite.asp?LinkType=1">LOGO链接</a>&nbsp;|&nbsp;<a href="Admin_LinkSite.asp">所有链接</a></td>
  </tr>
</table>
<br />
<%
OpenConn
Select Case Action
Case "Add", "Modify"
	call SiteInfo()
Case "SaveAdd", "SaveModify"
	call SaveInfo()
Case else
	call SiteMain()
end Select
if FoundErr=True then Cl.ShowErr(ErrMsg)
Footer
Sub SiteMain()
	
	ClassID=Trim(request("ClassID"))
	if ClassID="" then
		sql="select * from Cl_LinkSite "
	else
		sql="select * from Cl_LinkSite Where ClassID=" & ClassID & " "
	end if
	if LinkType<>"" then
		LinkType=CInt(LinkType)
		if LinkType=1 then
			sql=sql & " where LinkType=1 "
		elseif LinkType=2 then
			sql=sql & " where LinkType=2 "
		end if
	end if
	if IsSQLDataBase=1 then
	sql=sql & "order by IsOK asc,OrderID"
	else
	sql=sql & "order by IsOK Desc,OrderID"
	end if
	set rs=server.createobject("adodb.recordset")
	rs.open sql,Conn,1,1
	
  	if rs.eof and rs.bof then
		response.write "目前共有 0 个友情链接"
	else
    	TotalPut=rs.recordcount
		if (TotalPut mod PageSize)=0 then
			TotalPages = TotalPut \ PageSize
		else
			TotalPages = TotalPut \ PageSize + 1
		end if
		if CurrentPage > TotalPages then CurrentPage=TotalPages
		if CurrentPage < 1 then CurrentPage=1
		rs.move (CurrentPage-1)*PageSize
        showContent
        Response.write Cl.ShowPage(FileName,TotalPut,PageSize,"个","站点")
	end if
	rs.close
	set rs=Nothing
end sub

sub showContent
   	dim i,LogoUrl
    i=0
%>	
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
    <tr class="title">
	<td width="50" height="22" align="center">类型</td>
	<td width="80" height="22" align="center">所属分类</td>
	<td height="22" align="center">网站名称</td>
	<td width="100" height="22" align="center">网站LOGO</td>
	<td width="60" height="22" align="center">站长</td>
	<td width="50" height="22" align="center">状态</td>
	<td width="50" height="22" align="center">排序</td>
	<td width="100" height="22" align="center">操作</td>
    </tr>
<%
do while not rs.eof
%>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
	<td width="50" align="center">
	  <%
	  if rs("LinkType")=1 then
	  	response.write "<a href='Admin_LinkSite.asp?LinkType=1'>LOGO</a>"
	  else
		response.write "<a href='Admin_LinkSite.asp?LinkType=2'>文字</a>"
	  end if
	  %></td>
	<td width="80" align="center">
	<a href='Admin_LinkSite.asp?ClassID=<%=rs("ClassID")%>'>	
	<%
	Dim sqlclassname,rsclassname
	set rsclassname=server.createobject("adodb.recordset")
	sqlclassname="select * from Cl_LinkClass Where ClassID=" & rs("ClassID")
	rsclassname.open sqlclassname,Conn
	If rs("ClassID")<>0 then
		Response.write rsclassname("ClassName")
	Else
		Response.write "无指定栏目"
	End if
	rsclassname.close
	set rsclassname=Nothing
	%>
	</a>
	</td>
	<td><a href="<%=rs("SiteUrl")%>" target='blank' title="<%=rs("SiteIntro")%>"><%=rs("SiteName")%></a></td>
	<td width="100" align="center">
	<%
	LogoUrl=Cl.ReplaceDir(rs("LogoUrl"))
	if LogoUrl<>"" and LogoUrl<>"http://" then
		if lcase(right(LogoUrl,3))="swf" then
			Response.Write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='88' height='31'><param name='movie' value='" & LogoUrl & "'><param name='quality' value='high'><embed src='" & LogoUrl & "' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='88' height='31'></embed></object>"
		else
			response.write "<a href='" & rs("SiteUrl") & "' target='_blank' title='" & LogoUrl & "'><img src='" & LogoUrl & "' width='88' height='31' border='0'></a>"
		end if
	else
		response.write "&nbsp;"
	end if
	%></td>
	<td width="60" align="center"><a href="mailto:<%=rs("Email")%>"><%=rs("SiteAdmin")%></a></td>
	<td width="50" align="center"> <%
	  if rs("IsIndex")=1 then
	  	response.write "首页显示"
	  end if
	  if rs("IsOK")=True then
	  	response.write "<br />已经审核"
	  end if
	  if rs("IsGood")=True then
	  	response.write "<br />已设推荐"
	  end if
	  %> </td>
	<td width="50" align="center"> <b><%=rs("OrderID")%></b> </td>
	<td width="100" align="center"> <%
	  If rs("IsIndex")<>1 Then 
	  response.write "<a href='Admin_LinkSite.asp?ID=" & rs("ID") & "&Action=Index'>在首页显示</a>&nbsp;&nbsp;"
	Else
	  response.write "<a href='Admin_LinkSite.asp?ID=" & rs("ID") & "&Action=CancelIndex'>取消首页显示</a>&nbsp;&nbsp;"
	End If
	  response.write "<br />"
	  If rs("IsOK")=False Then 
	  response.write "<a href='Admin_LinkSite.asp?ID=" & rs("ID") & "&Action=Check'>审核通过</a>&nbsp;&nbsp;"
	Else
	  response.write "<a href='Admin_LinkSite.asp?ID=" & rs("ID") & "&Action=CancelCheck'>取消审核</a>&nbsp;&nbsp;"
	End If
	  response.write "<a href='Admin_LinkSite.asp?Action=Modify&ID=" & rs("ID") & "'>修改</a><br />"
	  if rs("IsGood")=False then
	  response.write "<a href='Admin_LinkSite.asp?ID=" & rs("ID") & "&Action=Good'>设为推荐</a>&nbsp;&nbsp;"
	Else
	  response.write "<a href='Admin_LinkSite.asp?ID=" & rs("ID") & "&Action=CancelGood'>取消推荐</a>&nbsp;&nbsp;"
	End If
	response.write "<a href='Admin_LinkSite.asp?Action=Del&ID=" & rs("ID") & "' onclick='return ConfirmDel();'>删除</a>"
	  %></td>
    </tr>
    <%
	i=i+1
	if i>=PageSize then exit do
	rs.movenext
loop
%>
  </table>
<%
end sub

Sub SiteInfo()
	dim sAction,sSubmit
	dim sClassID,sLinkType,sSiteName,sSiteUrl,sLogoUrl
	dim sSiteAdmin,sEmail
	dim sSiteIntro,sIsGood,sIsIndex,sIsOK,sOrderID,sHits

	if Action="Modify" then
		if ID="" or Not IsNumeric(ID) then Cl.ShowErr("<br /><li>请指定友情站点ID</li>")
		ID=Clng(ID)
		dim rsLink
		set rsLink=Cl.Execute("select * from Cl_LinkSite where ID=" & ID)
		if rsLink.bof and rsLink.eof then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>找不到站点！</li>"
			rsLink.close:set rsLink=Nothing
			exit sub
		end if
		if rsLink("OrderID")<3 then
			Set Rs=Cl.Execute("select Max(OrderID) from Cl_LinkSite")
			sOrderID=rs(0)
			if isnull(sOrderID) then
				sOrderID=3
			elseif sOrderID=0 then
				sOrderID=3
			else
				For i=3 to (sOrderID+1)
					Set rs=Cl.Execute("select ID,OrderID from Cl_LinkSite where OrderID="&Clng(i)&"")
					if rs.bof and rs.eof then
						sOrderID=i
						Exit for
					end if
				Next
			end if
			Set Rs=Nothing
		else
			sOrderID=rsLink("OrderID")
		end if
		sClassID=rsLink("ClassID"):sLinkType=rsLink("LinkType"):sSiteName=rsLink("SiteName")
		sSiteUrl=rsLink("SiteUrl"):sLogoUrl=rsLink("LogoUrl"):sSiteAdmin=rsLink("SiteAdmin")
		sEmail=rsLink("Email"):sSiteIntro=rsLink("SiteIntro"):sIsGood=rsLink("IsGood")
		sIsIndex=rsLink("IsIndex"):sIsOK=rsLink("IsOK"):sHits=rsLink("Hits"):sSubmit=" 修 改 "
		rsLink.close:set rsLink=Nothing
	else
		Set Rs=Cl.Execute("select Max(OrderID) from Cl_LinkSite")
		sOrderID=rs(0)
		if isnull(sOrderID) then
			sOrderID=3
		else
			For i=3 to (sOrderID+1)
				Set rs=Cl.Execute("select ID,OrderID from Cl_LinkSite where OrderID="&Clng(i)&"")
				if rs.bof and rs.eof then
					sOrderID=i
					Exit for
				end if
			Next
		end if
		Set Rs=Nothing
		sClassID=0:sLinkType=1:sSiteName=""