📄 admin.asp
字号:
<td><table width="50" border="1" cellpadding="0" cellspacing="0" onclick="changecolor(tTabBGColor)" id="tTabBGColor" style="cursor: hand;background-color: #698cc3">
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内表边框宽度:</td>
<td><input name="TabBorderWidth" type="text" id="TabBorderWidth" value="0" size="4" maxlength="4">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内表边框颜色:</td>
<td><table width="50" border="1" cellpadding="0" cellspacing="0" onclick="changecolor(TabBorderColor)" id="TabBorderColor" style="cursor: hand;background-color: #d6e0ef">
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内表表格底色:</td>
<td><table width="50" border="1" cellpadding="0" cellspacing="0" style="background-color: #d6e0ef;cursor: hand;" onclick="changecolor(TabBGColor)" id="TabBGColor">
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内表表格间距:</td>
<td><input name="TabCellSpacing" type="text" id="TabCellSpacing" value="1" size="4" maxlength="4">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内表表格填充:</td>
<td><input name="TabCellPadding" type="text" id="TabCellPadding" value="1" size="4" maxlength="4">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内表单元格颜色:</td>
<td><table width="50" border="1" cellpadding="0" cellspacing="0" onclick="changecolor(TabCellColor)" id="TabCellColor" style="cursor: hand;background-color: #ffffff">
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">内表每行高度:</td>
<td><input name="TabLinHeight" type="text" id="TabLinHeight" value="33" size="4" maxlength="4">
<select name="TabLinHeightUnit" id="">
<option value="px" selected>像素PX</option>
<option value="%">百分比%</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">调用代码:</td>
<td><textarea cols="50" name="NeedCode" id="NeedCode" rows="10" onFocus="GetNeedCode()">点击这里获取代码</textarea></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="20" colspan="2"> </td>
</tr>
</table>
<!--显示与隐藏的表格-->
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<a name="5" id="5"></a><br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
<tr>
<td> 友情链接管理（当前系统状态：<%
if PR>0 then
response.write "PR值≧"&PR
else
response.write " 无PR值要求 "
end if
if Alexa>0 then
response.write " Alexa排名"&Alexa&"以上 "
else
response.write " 无Alexa排名值要求 "
end if
if IsConfirm=true then
response.write "检查是否已做好我站链接 "
else
response.write "不检查是否已做好我站链接 "
end if
if IsVerify=true then
response.write "需要审核"
else
response.write "不需要审核"
end if
%>）</td>
<td align="right"><img height="15" src="img/collapsed_no.gif" width="15" style="cursor: hand;" onclick="CloseOpen(6)"> </td>
</tr>
</table>
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<!--显示与隐藏的表格-->
<%
function showordertype(d)
Str=""
if Cint(session("OrderBy"))=d then
Str="<img border=0 width=15 height=10 src=""img/"&session("OrderType")&".gif""/>"
end if
showordertype=Str
end function
dim totalPut
dim CurrentPage
dim toPage
toPage="admin.asp"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
d=request("d")
if d="" then
if OrderBy=2 then
sql="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,PR,Alexa,goin,goout,jointime ,IsVerify from link order by goin desc"
elseif OrderBy=1 then
sql="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,PR,Alexa,goin,goout,jointime ,IsVerify from link order by jointime desc"
end if
else
if session("OrderBy")<>d then
session("OrderBy")=d
session("OrderType")="desc"
else
if session("OrderType")="desc" then
session("OrderType")="asc"
else
session("OrderType")="desc"
end if
end if
Select case d
case "1"
OrderBy="ID"
case "2"
OrderBy="Y_Logo"
case "3"
OrderBy="jointime"
case "4"
OrderBy="Y_SiteName"
case "5"
OrderBy="PR"
case "6"
OrderBy="Alexa"
case "7"
OrderBy="IsVerify"
case "8"
OrderBy="goin"
case "9"
OrderBy="goout"
end Select
sql="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,PR,Alexa,goin,goout,jointime ,IsVerify from link order by "&OrderBy&" "&session("OrderType")
end if
%>
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab6">
<tr align="center" bgcolor="d6e0ef">
<td height="20"><a href="admin.asp?d=1">ID</a> <%=showordertype(1)%></td>
<td><a href="admin.asp?d=2">站点LOGO</a> <%=showordertype(2)%></td>
<td><a href="admin.asp?d=3">申请日期</a> <%=showordertype(3)%></td>
<td><a href="admin.asp?d=4">站点名称</a> <%=showordertype(4)%></td>
<td><a href="admin.asp?d=5">PR</a> <%=showordertype(5)%></td>
<td><a href="admin.asp?d=6">Alexa</a> <%=showordertype(6)%></td>
<td><a href="admin.asp?d=7">审核</a> <%=showordertype(7)%></td>
<td><a href="admin.asp?d=8">点入</a> <%=showordertype(8)%></td>
<td><a href="admin.asp?d=9">点出</a> <%=showordertype(9)%></td>
<td><strong>管理</strong></td>
</tr><form name="form4" id="form4"><input name="ID" type="hidden" id="ID"><input name="index" type="hidden" id="index" value="6"></form>
<%
rs.open sql,conn,1,3
if Rs.eof and Rs.bof then
response.Write("<br><h4 style='color:red'>还没有友情链接。</h4>")
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
MaxPerPage=15
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,toPage
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,toPage
else
currentPage=1
showContent
showpage totalput,MaxPerPage,toPage
end if
end if
rs.close
end if
sub showContent
dim i
i=0
do while not rs.eof
ID = rs("ID")
Y_SiteName = rs("Y_SiteName")
Y_SiteURL = rs("Y_SiteURL")
Y_Logo = rs("Y_Logo")
Y_Alt = rs("Y_Alt")
PR = rs("PR")
Alexa = rs("Alexa")
goin = rs("goin")
goout = rs("goout")
jointime = rs("jointime")
IsVerify = rs("IsVerify")
jointime=year(jointime)&"-"&month(jointime)&"-"&day(jointime)
if IsVerify=true then
IsVerify="已"
else
IsVerify="未"
end if
Response.Write("<tr bgcolor=f3f6fa>")
Response.Write(" <td align=center>"&ID&"</td>")
Response.Write(" <td valign=top align=center bgcolor=f3f6fa width=""20%"">")
if Y_Logo<>"" then
Response.write ("<a target=_blank href="""&Y_SiteURL&""" title="""&Y_Alt&"""><img border=0 width="&LogoWidth&" height="&LogoHeight&" alt="""&Y_SiteName&""" src="""&Y_Logo&"""/></a>")
else
Response.write ("<a target=_blank href="""&Y_SiteURL&""" title="""&Y_Alt&"""><img border=0 width="&LogoWidth&" height="&LogoHeight&" alt="""&Y_SiteName&""" src=""img/nologo.gif""/></a>")
end if
Response.Write("</td>")
Response.Write(" <td align=center>"&jointime&"</td>")
Response.Write(" <td><a href="""&Y_SiteURL&""" target=_blank >"&Y_SiteName&"</a></td>")
Response.Write(" <td align=center>"&PR&"</td>")
Response.Write(" <td align=center>"&Alexa&"</td>")
Response.Write(" <td align=center>"&IsVerify&"</td>")
Response.Write(" <td align=center>"&goin&"</td>")
Response.Write(" <td align=center>"&goout&"</td>")
Response.Write(" <td align=center><img alt=""直接删除"" style=""cursor: hand;"" onclick=""admin_delete("&ID&")"" height=16 src=""img/delete.gif"" width=20> <img alt=""详细设置"" style=""cursor: hand;"" onclick=""admin("&ID&")"" height=16 src=""img/control.gif"" width=20></td>")
Response.Write("</tr>")
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<tr><td colspan=10><table cellspacing=1 width='100%' border=0 ><form method=Post action="""&filename&"""><tr><td align=right> "
if CurrentPage<2 then
response.write "共<font color=red>"&totalnumber&"</font>条记录 首页 上一页 "
else
response.write "共<font color=red>"&totalnumber&"</font>条记录 <a href="&filename&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"
response.write "下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条记录/页 "
%>
转到：
<input type=hidden name="channel" value=<%=channel%>>
<select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<%
response.write "</td></tr></FORM></table></td></tr>"
end function
%>
</table>
<!--显示与隐藏的表格-->
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -