📄 ytlist1.asp
字号:
<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<head>
<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features)
{ //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<LINK href="../style.css" rel=stylesheet>
<title>议题列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body text="#000000" bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%sqlstr="select * from 议题讨论"
my_rs.open sqlstr,my_Conn,1,3
if my_rs.eof and my_rs.bof then
response.write "<p>还 没 有 任 何 工 作 安 排</p>"
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="315">
<tr>
<td height="26" background="../image/backhead1.jpg">
<table width="100%" border="0" cellpadding="0" cellspacing="1" height="100%">
<tr>
<td width="10%" height="17">
<div align="center">阅读次数</div>
</td>
<td width="26%" height="17">
<div align="center">议题主题</div>
</td>
<td width="20%" height="17">
<div align="center"> 内容</div>
</td>
<td width="10%" height="17">
<div align="center">回复次数</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="279" background="../image/backhead2.jpg"> <table width="100%" border="0" cellpadding="0" cellspacing="1" align="center" height="25">
<%
cc=1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
my_rs.PageSize=10
my_rs.AbsolutePage=pagecount
For iPage = 1 To my_rs.PageSize
If my_rs.EOF Then Exit For
if cc mod 2=1 then
Response.Write "<tr>"
else
Response.Write "<tr>"
end if
id=my_rs("议题编号")
%>
<tr>
<td width="10%" height="22"> <div align="center"><%=my_rs("阅读次数")%></div></td>
<td width="26%" height="22"> <div align="center"><%=my_rs("议题主题")%></div></td>
<td width="20%" height="22"> <div align="center"><a href="#" onClick="MM_openBrWindow('ytnr.asp?id=<%=id%>','','width=320,height=250')">观看内容</a></div></td>
<td width="10%" height="22"> <div align="center"><a href="#" onClick="MM_openBrWindow('replyxinxi.asp?id=<%=id%>','','width=500,height=350')"><%=my_rs("回复次数")%></a></div></td>
</tr>
<%
Response.Write "</tr>"
cc=cc+1
my_rs.movenext
Next
%>
</table>
<div align="right"><br>
<br>
<a href="javascript:window.close()">
<%
Response.Write "<p>共"&my_rs.recordcount&"条工作"
response.write " "
if my_rs.PageCount>1 Then
If pagecount<>1 Then
Response.Write "<A HREF=logininfor.asp?Page=1>首页</A>"
response.write " "
Response.Write "<A HREF=logininfor.asp?Page="&(pagecount-1)&">前页</A>"
response.write " "
End If
If pagecount<>my_rs.PageCount Then
Response.Write "<A HREF=logininfor.asp?Page="&(pagecount+1)&">后页</A>"
response.write " "
Response.Write "<A HREF=logininfor.asp?Page="&my_rs.PageCount&">尾页</A>"
End If
End If
end if
my_rs.close
set my_rs=nothing
my_Conn.close
set my_Conn=nothing
%>
关闭窗口</a> <br>
<a href="javascript:window.close()"> </a> <br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -