📄 replyyt.htm

📁 sql server 2005书中11到16章的全部代码

💻 HTM

字号:

<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<%id=request("id")
  sqlstr="select * from 议题讨论 where 议题编号="&id
  my_rs.open sqlstr,my_Conn,1,3
  ytzt=my_rs("议题主题")
  my_rs.close

  sqlstr="select * from 回复议题 where 回复议题编号="&id
  my_rs.open sqlstr,my_Conn,1,3

%>
<head>
<LINK href="../style.css" rel=stylesheet>
<title>回复信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%if my_rs.eof and my_rs.bof then
	response.write "<p>还 没 有 任 何 工 作 安 排</p>"
else%>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr> 
    <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> 
    <td width="10%">
      <div align="center">(<%response.write i 
i=i+1%>)</div>
    </td>
    <td>　　<%=my_rs("回复内容")%>　　回复人：<%=my_rs("回复人")%>　　回复时间：<%=my_rs("回复时间")%></td>
  </tr>  <%my_rs.movenext
   next            %>
</table>
<div align="right"><br>
              <%
   
   Response.Write "<p>共"&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 + -