📄 admin_friendsite.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<!--#Include File="../Inc/Md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>友情链接管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<%
If EL_Admin.Purview <> 1 Then
If EL_Admin.CheckAdminPurview(3, 3) = False Then
EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
End If
End If
Dim Passed, Search_Keywords, Search_Field, CurrentPath
Passed = EL_Common.ELRequest("Passed", 1)
Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))
If CurrentPage < 1 Then CurrentPage = 1
CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>友情链接管理首页</a> "
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" align="center" class="top_25"><strong>友情链接管理</strong></td>
</tr>
<tr>
<td nowrap class="td_50">管理导航：</td>
<td class="td_50"><a href="<%=EL_CurrentScriptName%>">友情链接管理首页</a> | <a href="<%=EL_CurrentScriptName%>?Action=Add">添加友情链接</a></td>
</tr>
<tr>
<td width="7%" nowrap class="item_25">管理选项：</td>
<td width="93%" class="item_25"><input name="Passed" type="radio" class="nomargin" value="" onClick="location.href='<%=EL_CurrentScriptName%>'" <%=EL_Common.SetObjectChecked("", Passed)%>>
所有链接
<input name="Passed" type="radio" class="nomargin" value="<%=EL_True%>" onClick="location.href='<%=EL_CurrentScriptName%>?Passed=<%=EL_True%>'" <%=EL_Common.SetObjectChecked(EL_True, Passed)%>>
已审核链接
<input name="Passed" type="radio" class="nomargin" value="<%=EL_False%>" onClick="location.href='<%=EL_CurrentScriptName%>?Passed=<%=EL_False%>'" <%=EL_Common.SetObjectChecked(EL_False, Passed)%>>
未审核链接</td>
</tr>
</table>
<br>
<%
Select Case Action
Case "": Call ManageFriendSite()
Case "Add": Call AddFriendSite()
Case "Save": Call SaveFriendSite(0)
Case "Modify": Call ModifyFriendSite()
Case "SaveModify": Call SaveFriendSite(1)
Case "Delete": Call SaveFriendSite(4)
Case "SetCommend": Call SaveFriendSite(2)
Case "SetPassed": Call SaveFriendSite(3)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()
Sub SaveFriendSite(UpdateType)
On Error Resume Next
Dim FriendSiteCmd
Dim SiteID, SiteName, SiteURL, SiteLogo, WebmasterName, WebmasterEmail, Password, Password2
Dim Content, Commended, Passed, RegDateTime
SiteID = EL_Common.ELRequest("SiteID", 2)
SiteName = EL_Common.ELRequest("SiteName", 1)
SiteURL = EL_Common.ELRequest("SiteURL", 1)
SiteLogo = EL_Common.ELRequest("SiteLogo", 1)
WebmasterName = EL_Common.ELRequest("WebmasterName", 1)
WebmasterEmail = EL_Common.ELRequest("WebmasterEmail", 1)
Password = EL_Common.ELRequest("Password", 1)
Password2 = EL_Common.ELRequest("Password2", 1)
Content = EL_Common.ELRequest("Content", 1)
Commended = EL_Common.ELRequest("Commended", 2)
Passed = EL_Common.ELRequest("Passed", 2)
RegDateTime = EL_Common.ELRequest("RegDateTime", 1)
If RegDateTime = "" Then RegDateTime = Now()
Select Case UpdateType
Case 0, 1:
If Trim(Password) = "" And UpdateType = 0 Then
EL_Common.ShowErrorMsg("请输入管理密码")
Exit Sub
End If
If Password <> Password2 Then
EL_Common.ShowErrorMsg("您两次输入的密码不一致")
Exit Sub
End If
If Not IsDate(RegDateTime) Then
EL_Common.ShowErrorMsg("录入日期格式错误")
Exit Sub
End If
If lCase(SiteLogo) = "http://" Then SiteLogo = ""
Password = MD5(Password, 32)
Case 2:
Commended = EL_Common.ELRequest("SetValue", 2)
Content = EL_Common.ELRequest("CheckObject", 1)
If SiteID<>0 Then Content = EL_Common.Join2String(Content, SiteID, ",")
Case 3:
Passed = EL_Common.ELRequest("SetValue", 2)
Content = EL_Common.ELRequest("CheckObject", 1)
If SiteID<>0 Then Content = EL_Common.Join2String(Content, SiteID, ",")
Case 4:
Content = EL_Common.ELRequest("CheckObject", 1)
If SiteID<>0 Then Content = EL_Common.Join2String(Content, SiteID, ",")
End Select
Call EL_Common.InitCommand(FriendSiteCmd, "EL_SP_FriendSite")
With FriendSiteCmd
.Parameters.Append .CreateParameter("RETUEN", 2, 4)
.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
If UpdateType = 0 Then
.Parameters.Append .CreateParameter("@SiteID", 3, 2, 4)
Else
.Parameters.Append .CreateParameter("@SiteID", 3, 1, 4, SiteID)
End If
.Parameters.Append .CreateParameter("@SiteName", 200, 1, 255, SiteName)
.Parameters.Append .CreateParameter("@SiteURL", 200, 1, 255, SiteURL)
.Parameters.Append .CreateParameter("@SiteLogo", 200, 1, 255, SiteLogo)
.Parameters.Append .CreateParameter("@WebmasterName", 200, 1, 50, WebmasterName)
.Parameters.Append .CreateParameter("@WebmasterEmail", 200, 1, 100, WebmasterEmail)
.Parameters.Append .CreateParameter("@Password", 200, 1, 32, Password)
.Parameters.Append .CreateParameter("@Content", 200, 1, 500, Content)
.Parameters.Append .CreateParameter("@Commended", 11, 1, 1, Commended)
.Parameters.Append .CreateParameter("@Passed", 11, 1, 1, Passed)
.Parameters.Append .CreateParameter("@RegDateTime", 135, 1, 8, RegDateTime)
.Execute()
End With
Select Case UpdateType
Case 0:
SiteID = FriendSiteCmd(0)
Set FriendSiteCmd = Nothing
EL_Common.ShowSuccessMsg("添加链接成功<br>网站名称："& EL_Common.ServerHTMLEncode(SiteName) &"<p>【<a href='"& EL_CurrentScriptName &"'>链接管理</a>】【<a href='"& EL_CurrentScriptName &"?Action=Modify&SiteID="& SiteID &"'>修改链接</a>】【<a href='"& EL_CurrentScriptName &"?Action=Add'>添加链接</a>】</p>")
Case 1:
Set FriendSiteCmd = Nothing
EL_Common.ShowSuccessMsg("修改链接成功<br>网站名称："& EL_Common.ServerHTMLEncode(SiteName) &"<p>【<a href='"& EL_CurrentScriptName &"'>链接管理</a>】【<a href='"& EL_CurrentScriptName &"?Action=Modify&SiteID="& SiteID &"'>修改链接</a>】【<a href='"& EL_CurrentScriptName &"?Action=Add'>添加链接</a>】</p>")
Case Else:
Set FriendSiteCmd = Nothing
EL_Common.ShowScriptError()
If ComeURL = "" Then ComeURL = "Admin_FriendSite.asp"
Response.Redirect ComeURL
End Select
EL_Common.ShowScriptError()
End Sub
Sub ModifyFriendSite()
On Error Resume Next
Dim SiteCmd, rsSite
Dim SiteID
SiteID = EL_Common.ELRequest("SiteID", 2)
Call EL_Common.InitCommonCmd(SiteCmd, rsSite, "EL_FriendSite", "*", "SiteID="& SiteID)
rsSite.Close()
If SiteCmd(0) <> 1 Then
Set rsSite = Nothing
Set SiteCmd = Nothing
EL_Common.ShowErrorMsg("指定友情链接不存在")
Exit Sub
End If
rsSite.Open()
CurrentPath = CurrentPath &">> 修改友情链接"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<script language="javascript">function Check(frm){
if(frm.SiteName.value.trim()==""){
alert("请输入网站名称");
frm.SiteName.focus();
return false;
}
if(frm.SiteURL.value.trim()==""){
alert("请输入网站地址");
frm.SiteURL.focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
<form name="myform" action="Admin_FriendSite.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>修改友情链接</strong></td>
</tr>
<tr>
<td width="18%" class="td_ItemName"><strong>网站名称</strong></td>
<td width="82%" class="td_25"><input name="SiteName" type="text" id="SiteName" value="<%=EL_Common.ServerHTMLEncode(rsSite("SiteName"))%>" size="50"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>网站地址</strong></td>
<td class="td_25"><input name="SiteURL" type="text" id="SiteURL" value="<%=EL_Common.ServerHTMLEncode(rsSite("SiteURL"))%>" size="80"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>LOGO地址</strong></td>
<td class="td_25"><input name="SiteLogo" type="text" id="SiteLogo" value="<%=EL_Common.ServerHTMLEncode(rsSite("SiteLogo"))%>" size="80"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>站长名称</strong></td>
<td class="td_25"><input name="WebmasterName" type="text" id="WebmasterName" value="<%=EL_Common.ServerHTMLEncode(rsSite("WebmasterName"))%>" size="30"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>站长邮箱</strong></td>
<td class="td_25"><input name="WebmasterEmail" type="text" id="WebmasterEmail" value="<%=EL_Common.ServerHTMLEncode(rsSite("WebmasterEmail"))%>" size="30"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>管理密码</strong></td>
<td class="td_25"><input name="Password" type="password" id="Password" size="30">
<span class="redText">不修改请留空</span></td>
</tr>
<tr>
<td class="td_ItemName"><strong>密码确认</strong></td>
<td class="td_25"><input name="Password2" type="password" id="Password2" size="30"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>网站简介</strong></td>
<td class="td_25"><textarea name="Content" cols="90" rows="6" id="Content"><%=EL_Common.ServerHTMLEncode(rsSite("Content"))%></textarea></td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否推荐</strong></td>
<td class="td_25"><input name="Commended" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsSite("Commended"))%>>
是
<input name="Commended" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsSite("Commended"))%>>
否</td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否通过审核</strong></td>
<td class="td_25"><input name="Passed" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsSite("Passed"))%>>
是
<input name="Passed" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsSite("Passed"))%>>
否</td>
</tr>
<tr>
<td class="td_ItemName"><strong>录入日期</strong></td>
<td class="td_25"><input name="RegDateTime" type="text" id="RegDateTime" value="<%=rsSite("RegDateTime")%>" size="30"></td>
</tr>
<tr>
<td class="td_ItemName"> </td>
<td class="td_50"><input type="submit" name="Submit" value="保存修改">
<input type="button" name="Submit2" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="SiteID" type="hidden" id="SiteID" value="<%=SiteID%>"></td>
</tr>
</table>
</form>
<%
rsSite.Close()
Set rsSite = Nothing
Set SiteCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageFriendSite()
On Error Resume Next
Dim ManageCmd, rsFriendSite, StrFields, StrCondition
Dim PageCounts, RowCount, TotalRowCount
StrFields = "SiteID,SiteName,SiteURL,SiteLogo,WebmasterName,WebmasterEmail,Content,Commended,Passed,RegDateTime"
StrCondition = "1=1 "
If Passed <> "" Then
StrCondition = StrCondition &"And Passed="& Passed &" "
End If
If Search_Keywords<>"" And Search_Field<>"" Then
StrCondition = StrCondition &"And "& Search_Field &" Like '%"& Search_Keywords &"%' "
End If
Call EL_Common.InitCommand(ManageCmd, "EL_SP_SplitPage")
With ManageCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 20, "EL_FriendSite")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "SiteID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 30, "SiteID DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
.Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
.Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
.Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
Set rsFriendSite = .Execute()
End With
rsFriendSite.Close()
RowCount = ManageCmd(0)
TotalRowCount = ManageCmd(9)
PageCounts = ManageCmd(10)
If Search_Keywords<>"" And Search_Field<>"" Then
CurrentPath = CurrentPath &">> 链接搜索 >> 关键字：<span class=redtext>"& Search_Keywords &"</span>"
Else
If Passed = "" Then
CurrentPath = CurrentPath &">> 所有链接"
Else
If Passed = EL_True Then
CurrentPath = CurrentPath &">> 所有<span class=greentext>已审核</span>链接"
ELse
CurrentPath = CurrentPath &">> 所有<span class=redtext>未审核</span>链接"
End If
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -