📄 xinwen.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="3;tongzhifabu.asp">
<link href="css/MainBorder.css" rel="stylesheet" type="text/css">
<title>信息发布</title>
<style type="text/css">
<!--
table {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #000000;
font-style: normal;
text-align: center;
}
#title {
font-size: 24px;
}
#di{
text-align:right;
font-family:Arial, Helvetica, sans-serif;
font-size:12px
}
.style2 {font-family: "华文中宋", "宋体"; }
.STYLE3 {color: #FFFFFF}
-->
</style>
</head>
<body>
<!--#include file="Connections/auto.asp" -->
<%
set RS = server.CreateObject("ADODB.Recordset")
set RS1 = server.CreateObject("ADODB.Recordset")
Sname = "SELECT Login.Part, Message.Position, tongzhi.biaoti, tongzhi.faburen, tongzhi.fbshj, tongzhi.quanxian, Message.Name,tongzhi.cishu, tongzhi.id FROM tongzhi RIGHT JOIN (Message INNER JOIN Login ON Message.ID=Login.ID) ON tongzhi.faburen=Message.ID WHERE (((tongzhi.faburen)=Message.ID) And ((tongzhi.faburen)='"&Session("Rname")&"') And ((Login.ID)=Message.ID)) ORDER BY tongzhi.fbshj DESC;"
%>
<table width="200" border="0">
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<br>
<br>
<table width="580" border="0" cellspacing="1" bgcolor="#666699" cellpadding="0" align="center">
<tr>
<td height="31" colspan="5" ><div class="style2 STYLE3" id="title" ><font size="3">已发布新闻</font></div></td>
</tr>
<tr>
<td width="35" height="25" bgcolor="#FFFFFF">推荐</td>
<td width="245" bgcolor="#FFFFFF">标题</td>
<td width="59" bgcolor="#FFFFFF">浏览次数</td>
<td width="172" bgcolor="#FFFFFF">发布时间</td>
<td width="69" bgcolor="#FFFFFF">操作</td>
</tr>
<%
Sname1 = "SELECT xinwen.cishu,Message.Name, xinwen.fbshj, xinwen.neirong, xinwen.biaoti, xinwen.id, xinwen.tuijian, xinwen.faburen FROM (Message INNER JOIN Login ON Message.ID=Login.ID) LEFT JOIN xinwen ON Message.ID=xinwen.faburen WHERE (((xinwen.faburen)='"&Session("Rname")&"') And ((Login.ID)=xinwen.faburen) And ((Message.ID)=xinwen.faburen))ORDER BY xinwen.fbshj DESC ;"
RS1.open Sname1 , CN,1,3
if not RS1.eof then
RS1.movefirst
RS1.pagesize=5
page1=CLng(Request("page1"))
if page1<1 then page1=1
RS1.absolutepage=page1
for i=1 to RS1.pagesize
if RS1.eof then
exit for
end if
%>
<tr><td height="26" bgcolor="#FFFFFF">
<%
if strcomp(RS1("tuijian"),"True")=0 then
response.Write("<input name='imageField' type='image' src='picture/03-Over.gif' >")
else
response.Write("<input name='imageField' type='image' src='picture/star.gif' >")
end if
%>
</td><td bgcolor="#FFFFFF"><a href="#"onClick="JavaScript:window.open('xinwennr.asp?ID=<%=RS1("ID") %>','','width=570,height=250,top=150,left=150')">
<%response.Write(RS1("biaoti"))%>
</a></td><td bgcolor="#FFFFFF">
<%response.Write(RS1("cishu"))%>
</td><td bgcolor="#FFFFFF">
<%response.Write(RS1("fbshj"))%>
</td><td bgcolor="#FFFFFF">
<input name="Submit3" type="button" class="s04" onClick="JavaScript:window.open('xinwenshanchu.asp?ID=<%=RS1("ID") %>','','width=200,height=150,top=150,left=350')" value="删除新闻">
</td>
</tr>
<%
if not RS1.eof then
RS1.movenext
else
exit for
end if
next
%>
<tr>
<td height="30" colspan="5" >
<div id="di"><input name="addxinwen" type="button" class="s04" id="addxinwen" onClick="JavaScript:window.open('xinwentianjia.asp','','width=570,height=250,top=150,left=150')" value="添加新闻">
<% if page1<>1 then %>当前<%=page1%>页<a href=<%=path%>?page1=1 >第一页</a>
<a href=<%=path%>?page=<%=(page1-1)%>>上一页</a>
<%end if
if page1<>RS1.pagecount then %>当前<%=page1%>页
<a href=<%=path%>?page1=<%=(page1+1)%> >下一页</a>
<a href=<%=path%>?page1=<%=RS1.pagecount%> >最后一页</a>
<%end if %>
</div>
</tr>
<%
else
%>
<tr><td height="23" colspan='5' bgcolor="#FFFFFF">没有通知</td>
</tr>
<%
RS1.close
CN.close
%>
<tr>
<td height="21" colspan="5"bgcolor="#FFFFFF">
<div id="di"><input name="addxinwen" type="button" class="s04" id="addxinwen" onClick="JavaScript:window.open('xinwentianjia.asp','','width=570,height=250,top=150,left=150')" value="添加新闻">
</div>
</tr>
<%
end if
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -