replyyt.htm
来自「现在的病毒是越来越多了,几乎每上一回电脑都要杀毒,所以杀毒软件是必不可少的」· HTM 代码 · 共 72 行
HTM
72 行
<!--#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 + =
减小字号Ctrl + -
显示快捷键?