📄 show_plan.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="UBBencode.ini"-->
<!--#include file="textencode.ini"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>MSMAX---BLOG程序</title>
<style type="text/css">
/*fieldset {
color:#1E7ACE;
font-weight:bold;
border:1px solid #1E7ACE;
background:#fff;
width:20px;
height:20px;
}
legend{
width:300px;
height:60px;
padding-top:2px;}*/
</style>
<script language="javascript">
<!--
function popreg()
{
window.open("replan.asp","回复","width=460,height=380,menubao=no,toolbar=no,status=no,resizable=no,scrollbars=no");
}
-->
</script>
<style type="text/css">
a.index:hover{
color:#333333;
text-decoration:none;
}
a.index:link{
color:#666666;
text-decoration:underline;
}
a.index:visited{
color:#333333;
text-decoration:none;
}
</style>
<link href="blog.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
dim page_no
'page_no=request.QueryString("page_no"))
if request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
end if
%>
<div id="all">
<table border="1" bgcolor="#999999" width="100%" height="100%">
<tr>
<td bgcolor="#E7E7E7">
<!--#include file="top.asp"-->
<div id="left-bg">
<div id="body-top"><a href="index.asp" class="index">首页</a>-->计划篇--><span class="index"><a href="all_plan.asp" class="index">查看所有计划</a></span></div>
<%
'----------------------------
'查询详细信息来了哦，在article表中把所有的信息全部显示出来
'----------------------------
'dim planid,planRs,planSql
planid=request.querystring("planid")
if planid="" then
response.Write "<script>alert('参数错误!');history.back();</script>"
else
session("planid")=planid
set planRs=server.createobject("adodb.recordset")
planSql="select * from plan where planid="&planid
planRs.open planSql,db
%>
<div id="left-title"><%=planRs("title")%></div>
<div id="left-body-content">
<%=UBBencode(planRs("body"))%>
<hr width="500px" style="margin-top:25px;">
<input name="Submit2" type="button" class="btn" value="回复" onclick="popreg()" />
<br />
发起时间：<%=planRs("subdate")%>
<%
planRs.close
planRs=nothing
%>
<%
'----------------------------
'查询详细信息来了哦，在article表中把所有的信息全部显示出来
'----------------------------
'dim planid,planRs,planSql
dim flag
flag=1
planid=request.querystring("planid")
set planRsed=server.createobject("adodb.recordset")
planSqled="select * from planed where planid="&planid
planRsed.open planSqled,db%>
<fieldset style="padding:5px;width:90%;border:1px solid #ff9900; color:#CC3300; line-height:2.0; font-size:12px;">
<legend>完成状况</legend>
<%
do while not planRsed.eof
flag=0
response.write "<b>"&planRsed("body")&"</b><hr/>"
planRsed.movenext
loop
if flag=1 then
%>
还在进行之中吧！
<%end if
end if '注这个END IF是在PLANID为空的时候用的%>
</fieldset>
</div>
<div id="left-title" style="color:#ffffff;">网友评价<a name="re" id="re"></a></div>
<div id="left-body">
<%
'dim reRs,reSql,flag
flag=0
set reRs=server.createobject("adodb.recordset")
reSql="select * from rePlan where reid="&planid
session("planid")=planid
reRs.open reSql,db,1
'-----------------------------------
'这里是回复评论的分页显示
'----------------------------------
if not reRs.eof and not reRs.bof then
flag=1
reRs.pagesize=6
dim page_total
page_total=reRs.pagecount
reRs.absolutepage=page_no
dim i
i=6
do while not reRs.eof and i>0
i=i-1 %>
<div id="re"><strong><%=reRs("username")%></strong> <%=reRs("subdate")%><br />
<br />
<table width="100%" style="table-layout: fixed;word-wrap:break-word;">
<tr>
<td>
<%=reRs("body")%>
</td>
</tr>
</table>
</div>
<%
reRs.movenext
loop
end if
'----------------------------
'显示完评论了哦
'-------------------------------
if flag=0 then
response.write "<font color='red'>暂时还没有评论!</font>"
end if
%>
</div>
<div id="page">
<%
response.write "共有"&page_total&"页! "
response.write "当前是第"&page_no&"页! "
for i=1 to page_total
%>
<a href="show_plan.asp?planid=<%=session("planid")%>&page_no=<%=i%>&#re"><%=i%></a>
<%
next
reRs.close
reRs=nothing
'------------------------------------
'评论的分页到此结束
'-------------------------------------
%>
</div>
<div id="re-body">
<!-- 这个是评论的表单操作-->
<form id="form2" name="form2" method="post" action="re_plan_action.asp">大名：
<input name="username" type="text" class="btn1" id="username" value="无名" size="20" maxlength="10" />
*(为空将显示为无名)*
<br/>
内容:
<br/>
<textarea name="body" cols="60" rows="10" class="btn1" id="body"></textarea>
<br />
验证码： <input name="verifycode" type="text" class="btn1" size="8" maxlength="4">
<img src="GetCode.asp" height="10" border=0 align="absmiddle">
<input name="Submit2" type="submit" class="btn" value="提交" />
<input name="Submit3" type="reset" class="btn" value="重置" />
</form>
<!-- 是评论的表单操作-->
</div>
</div>
</div>
<!--#include file="right.asp"-->
<!--#include file="foot.asp"-->
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -