📄 adminlinklist.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%dim nowplace
nowplace="link"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<!--#include file="../comm/pages.asp" -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接管理</title>
<link href=AdminStyle.css rel=stylesheet type=text/css>
<script language="javascript1.2" src="../comm/warning.js"></script>
</head>

<body>
<table border="0" width="100%" id="table2" height="40" cellpadding="4" style="border-collapse: collapse">
	<tr>
		<td>
		<p align="right">
		<img border="0" src="../images/note.gif" width="14" height="14"><b><span style="font-size: 14px"><a href="AdminLinkAdd.asp">发布新友情链接</a></b></span></td>
	</tr>
</table>
<table border="1" width="100%" id="table3" cellpadding="4" style="border:1px solid #183789; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" height="57" cellspacing="1">
	<tr>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">编号</span></b></font></td>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF">
		<span style="font-size: 14px"><b>文字/图片链接</b></span></font></td>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF">
		<b><span style="font-size: 14px">网址</span></b></font></td>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">发布时间</span></b></font></td>
		<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF">
		<span style="font-size: 14px"><b>修改</b></span></font></td>
		<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF">
		<b><span style="font-size: 14px">删除</span></b></font></td>
	</tr>
				<%
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from weblink order by flag asc"
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=500 colspan=4><font color=#FF0000>您还没有任何连接</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
						  set id=rs("id")
						  set webname=rs("webname")
						  set imgpath=rs("imgpath")
						  set url=rs("url")
						  set flag=rs("flag")
						  set addtime=rs("addtime")
						  %>
	<tr>
		<td width="80"><%=(page-1)*19+ii%></td>
		<td width="241"><a href="<%=url%>" target=_blank>
		<%
		if flag=0 then
		response.write webname
		else
		response.write "<img src=../upimg/"&imgpath&" border=0>"
		end if%></a></td>
		<td width="266"><a href="<%=url%>" target=_blank><%=url%></a></td>
		<td width="236"><font color="#808080"><%=addtime%></font></td>
		<td width="50" align="center"><a href="AdminLinkModi.asp?id=<%=id%>">修改</a></td>
		<td width="56" align="center"><a title="删除" href="javascript:ask('您真的要这么做?','dellink.asp?id=<%=id%>')">删除</a></td>
	</tr>
		<%
rs.movenext
ii=ii+1
wend
%>
	</table>

<table border="0" width="100%" id="table4" cellspacing="0" cellpadding="0">
	<tr>
		<td><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></td>
	</tr>
</table>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -