📄 managesite.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<%
Dim FriendSiteCmd, rsFriendSite, i, CurrentPage, URLParameters
Dim PageSizes, PageCounts, RowCount, TotalRowCount
PageSizes = 20
CurrentPage = EL_Common.ELRequest("page", 2)
URLParameters = request.ServerVariables("QUERY_STRING")
If CurrentPage<1 Then
CurrentPage = 1
Else
URLParameters = EL_Common.ReplaceText(URLParameters, "\&page=[0-9]*", "")
End If
Call EL_Common.InitCommand(FriendSiteCmd, "EL_SP_SplitPage")
With FriendSiteCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_FriendSite")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "SiteID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "RegDateTime DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, "*")
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, "Passed=1")
.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 = FriendSiteCmd(0)
TotalRowCount = FriendSiteCmd(9)
PageCounts = FriendSiteCmd(10)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>友情链接管理</title>
<style>
/*定义网站基本元素样式*/
body, div{ margin-left:auto; margin-right:auto; font-size:12px; color:#333333; }
body { margin-top:0px; margin-bottom:0px; padding:0px; text-align:center; }
div { text-align:left;}
td { font-size:12px; line-height: 150%; margin:0px; }
form { margin:0px; padding:0px; }
select, input{ font-size:12px;}
/*定义网页宽度DIV*/
.bodywidth{ width:980px; }
/*定义链接样式*/
a{ color: #333333; text-decoration:none;}
a:hover{ color:#FF0000; }
/*定义栏目边框样式*/
.main_border{ border:1px solid #91A9BD;}
/*定义栏目标题样式*/
.main_title{ color:#FFFFFF; font-weight:bold; }
</style>
</head>
<body style="text-align:center;">
<!--网页顶部代码开始-->
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="bodywidth">
<tr>
<td height="50" align="center"><strong>管 理 友 情 链 接</strong></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="bodywidth" style="border:1px solid #02A6C9;">
<tr>
<td width="184" height="27" align="center" background="../Skin/Default/Main_BG.gif" class="main_title"><strong>网站名称</strong></td>
<td width="138" align="center" background="../Skin/Default/Main_BG.gif" class="main_title"><strong>网站LOGO</strong></td>
<td width="405" align="center" background="../Skin/Default/Main_BG.gif" class="main_title"><strong>网站地址</strong></td>
<td width="115" align="center" background="../Skin/Default/Main_BG.gif" class="main_title"><strong>站长</strong></td>
<td width="130" align="center" background="../Skin/Default/Main_BG.gif" class="main_title"><strong>操作</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td colspan=5 height=50>没有友情链接</td></tr>"
Else
rsFriendSite.Open()
For i = 1 To RowCount
%>
<tr bgcolor="#F1F3FE">
<td height="24" align="center" bgcolor="#F1F3FE"><%=EL_Common.ServerHTMLEncode(rsFriendSite("SiteName"))%></td>
<td align="center">
<%
If rsFriendSite("SiteLogo") <> "" Then
Response.Write "<img src='"& rsFriendSite("SiteLogo") &"' width=88 height=31 border=0>"
End If
%>
</td>
<td style="padding-left:5px;"><a href="<%=rsFriendSite("SiteURL")%>" target="_blank"><%=rsFriendSite("SiteURL")%></a></td>
<td align="center"><%=rsFriendSite("WebMasterName")%></td>
<td align="center"><a href="ModifySite.asp?SiteID=<%=rsFriendSite("SiteID")%>">修改</a></td>
</tr>
<%
If i<RowCount Then rsFriendSite.MoveNext
Next
rsFriendSite.Close()
End If
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="bodywidth">
<tr>
<td height="25" align="center"><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "链接", "个")%></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="bodywidth">
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
<%
Set rsFriendSite = Nothing
Set FriendSiteCmd = Nothing
Call ApplicationTerminate()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -