📄 replyxinxi.asp
字号:
<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features)
{ //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<%id=request("id")
sqlstr="select * from 议题讨论 where 议题编号="&id
my_rs.open sqlstr,my_Conn,1,3
ytzt=my_rs("议题主题")
my_rs.close
set my_rs=nothing
set my_rs=server.createobject("adodb.recordset")
sqlstr="select * from 回复议题 where 回复议题编号='"&id&"'"
my_rs.open sqlstr,my_Conn,1,3
%>
<head>
<LINK href="../style.css" rel=stylesheet>
<title>回复<%=ytzt%>信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%if my_rs.eof then
%>
<p align="center"> <br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
还 没 有 任 何 回复信息 <a href="#" onClick="MM_openBrWindow('replyyt.asp?id=<%=id%>','','width=320,height=250')"><font color="#FF0000">我想说几句</font></a>
<%else%>
<br>
</p>
<table width="95%" border="0" cellspacing="1" cellpadding="0" bgcolor="#00CC33" align="center">
<tr bgcolor="#FFFFFF">
<td colspan="2">关于<%=ytzt%>议题的回复信息：</td>
</tr> <% if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
my_rs.PageSize=8
my_rs.AbsolutePage=pagecount
i=1
For iPage = 1 To my_rs.PageSize
If my_rs.EOF Then
Exit For
end if
%>
<tr bgcolor="#FFFFFF">
<td width="20%" height="11">
<div align="center"><%=my_rs("回复人")%>的回复</div>
</td>
<td height="11"> 回复内容：<%=my_rs("回复内容")%> 回复时间：<%=my_rs("回复时间")%></td>
</tr> <%my_rs.movenext
next %>
</table>
<div align="right"><br>
<a href="#" onClick="MM_openBrWindow('replyyt.asp?id=<%=id%>','','width=320,height=250')"><font color="#FF0000">我想说几句</font></a>
<%
Response.Write "共"&my_rs.recordcount&"条工作 每页8条记录"
if my_rs.PageCount>1 Then
If pagecount<>1 Then
%>
<A HREF='index.asp?Username=<%=Username%>&Password=<%=Password%>&Page=1'>首页</A>
<A HREF='index.asp?Username=<%=Username%>&Password=<%=Password%>&Page=<%=pagecount-1%>'>前页</A>
<% End If
If pagecount<>my_rs.PageCount Then%>
<A HREF='index.asp?Username=<%=Username%>&Password=<%=Password%>&Page=<%=pagecount+1%>'>后页</A>
<A HREF='index.asp?Username=<%=Username%>&Password=<%=Password%>&Page=<%=my_rs.PageCount%>'>尾页</A>
<%End If
%>
<%
End If
end if
my_rs.close
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -