📄 adminpic.asp
字号:
<!--#include file="pic_conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href=images/style.css>
<title>添加新闻</title>
<script type='text/javascript'>
function copyText(text)
{
var rng = document.body.createTextRange();
rng.moveToElementText(text);
rng.scrollIntoView();
rng.select();
rng.execCommand("Copy");
rng.collapse(false);}
</script>
</head>
<body bgcolor="#799ae1">
<%
dim action,picid
action=request.QueryString("action")
picid=request.QueryString("picid")
select case action
case "list"
%>
<div align="center">
<div align="center">
<table border="0" cellspacing="1" width="600" style="border-collapse: collapse" id="table1">
<tr>
<td height="23" width="46" class=c2>
<p align="center"><font size="2">ID号</font></td>
<td width="400" class=c2 align="center">
图片标题</td>
<td width="69" class=c2>
<p align="center">
<font size="2" color="#000000">查看地址</font></td>
</tr>
</table>
</div>
<table border="0" cellspacing="1" width="600" style="border-collapse: collapse">
<%
Set Rs=GrateRs("Select * from pic order by picid desc",3)
if Rs.recordcount>0 then
Rs.pagesize=22
page=clng(request.querystring("page"))
if page<1 then page=1
if page >rs.pagecount then page=rs.pagecount
rs.absolutepage=page
for i=1 to rs.pagesize
if rs.eof then
exit for
else
%>
<tr>
<td height="23" width="46" class=c2>
<p align="center"><font size=1><%=Rs("picid")%></font></td>
<td width="400" class=c3>
·<font color="#000000"><span style="text-decoration: none"><a <%session("p")=page%>href="adminpic.asp?action=look&picid=<%=Rs("picid")%>"><%=Rs("pictitle")%></a></span></font></td>
<td width="69" class=c3>
<p align="center"><a <%session("p")=page%>href="adminpic.asp?action=look&picid=<%=Rs("picid")%>">
<font color="#000000">查看</font></a></td>
</tr>
<%
end if
rs.movenext
next
end if
%>
<tr>
<td colspan=3 bgcolor="#f8f8f8" align=center>
一共[<font color="#FF0000"><%=rs.recordcount%></font>]组图片
<a href="adminpic.asp?action=list&page=1">[第一页]</a>
<a href="adminpic.asp?action=list&page=<%=(page-1)%>">[上一页]</a>
<a href="adminpic.asp?action=list&page=<%=(page+1)%>">[下一页]</a>
<a href="adminpic.asp?action=list&page=<%=rs.pagecount%>">[最后一页]</a>
<font face="Verdana" color="#FF0000">[共<%=rs.pagecount%>页]</font>
<select size="1" name="D1" onchange=javascript:window.location.href=this.options[this.selectedIndex].value>
<%
dim num
for num=1 to rs.pagecount
%>
<option value="adminpic.asp?action=list&page=<%=(num)%>" <%if page=num then%> selected <%end if%>>第<%=(num)%>页</option>
<%next%>
</select>
</td>
</table>
</div>
<%
case "look"
set Rs=GrateRs("select * from pic where picid="&picid,1)
%>
<div align="center">
<center>
<p> </p>
<table border="0" cellpadding="0" cellspacing="1" width="500" fpstyle="24,011111100">
<tr>
<td width="500" colspan="2" class=c2 height="40">
<p align="center"><font size="2">图片地址</font></td>
</tr>
<form name="form2" method="post">
<tr>
<td width="75" class=c2 align="center" height="25">
<font size="2">图片标题：</font></td>
<td width="425" class=c3 height="25">
<input type="text" name="title2" size="50" value="<%=Rs("pictitle")%>"></td>
</tr>
<tr>
<td width="75" class=c2 align="center">
<font size="2">图片地址：</font></td>
<td width="425" class=c3>
<textarea rows="13" name="text2" cols="57" onclick="copyText(document.all.text2)">
<%
set Rs=GrateRs("select * from url where picid="&picid,3)
if not Rs.eof then
do while not Rs.eof
%>
<%=rs("url")&chr(13)+chr(10)%>
<%
Rs.movenext
loop
end if
Rs.close
%>
</textarea></td>
</tr>
<tr>
<td width="500" class=c2 colspan="2" align="center" height="30">
<a <%p=session("p")%>href="adminpic.asp?action=list&page=<%=(p)%>">返回</a></td>
</tr>
</form>
</table>
</center>
</div>
<%
end select
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -