📄 viewrelative.asp

📁 办公自动化系统适用于办公室的各种几本功能的操作功能比较简单
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/connection.asp"-->
<%
LoginID=trim(session("LoginID"))
if LoginID="" then LoginID=0
SelectDate=trim(request("SelectDate"))
if SelectDate="" then SelectDate=date()
PlanID=trim(request("planid"))

maxmessage=25
currentpage=request("page")
if currentpage="" then 
currentpage=1
end if

set rs=Server.CreateObject("ADODB.RecordSet")
sql="select ID,Title,Body,Times,addid from tblPlanRelative where PlanID="& PlanID &" order by AddID,ID"
'response.write sql 
rs.pagesize=maxmessage
rs.open sql,Conn,1,1
totalpage=rs.pagecount
totalmessage=rs.recordcount
if totalmessage<>0 then
	rs.AbsolutePage=currentpage
	msgArr=rs.getrows(maxmessage)
end if

rs.close%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<table border=0 width="100%">
<tr>
<td><a href="AddRelative.asp?PlanID=<%=PlanID%>&SelectDate=<%=SelectDate%>"><img src="../images/add.gif" border=0 alt="添加注释"></a></td>
</tr>
</table>

<%
response.write "共" & totalmessage & "条/" & totalpage & "页，每页"& maxmessage &"条"
if totalpage>0 then
	response.write "，第" & currentpage & "页　"
end if

if totalpage>1 then
	if currentpage>1 then%>
		<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?page=<%=currentpage-1%>">上页</a>　　
		<%
	end if

	if currentpage+1<=totalpage then%>
		<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?page=<%=currentpage+1%>">下页</a>
		<%
	end if
end if
%>

<%
if isempty(msgArr) then
	response.write "<BR><BR>暂时为空！"
else
for i = 0 to UBound(msgArr,2) '循环
	%>
	<table border=0 width="100%" bgcolor=#9900FF cellspacing=1 cellpadding=3>
		<tr>
			<td colspan=2>
				<font color=#ffffff><%="<b>"&trim(msgarr(1,i))&"</b>&nbsp;&nbsp;("&trim(msgarr(3,i))&")"%>
				<%="<b>"&GetTableValue ("tblUser","Name","ID",trim(msgarr(4,i)))&"</b>"%>&nbsp;添加</font>
			</td>
			
		</tr>
		<tr bgcolor=#FFFFFF>
			<td colspan=3><b>内容：</b> <%=replace(replace(server.htmlencode(trim(msgarr(2,i))&""),chr(13),"<br>")," ","&nbsp;")%></td>
		</tr>
	</table><BR><BR>
	<%
next
end if
%>
</table>
<BR><a href="plan.asp?selectdate=<%=selectdate%>"><img src="../images/return.gif" border=0></a>
</BODY>
</HTML>
<script language=javascript>
function CheckDelete()
{
	return confirm("确实删除吗？");
}
</script>
<!--#include file="../inc/connclose.asp"-->
<%
Function GetTableValue(TableName,Field,ValueField,Value)
	if TableName<>"" and Value<>"" then
		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
		Rstmp.open strSql,Conn,1,1
		If not Rstmp.eof then
			GetTableValue=trim(Rstmp(Field))
		else
			GetTableValue=""
		end if
		Rstmp.close
		'set RsTmp = Nothing
	else
		GetTableValue=""
	end if
End Function

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -