www.gusucode.com > 翼动留言板 2.1源码程序 > inc/FileInclude.asp

    <%
'************************************************************************************
'开发组		翼动工作室
'姓名		郑景德
'网名		旭日
'QQ			3178920
'个人网站		http://www.wingroom.com
'本页：
		'留言本系统表格定义
'
'************************************************************************************
%>
<%
	'留言Top表格.Banner -开始-
	Public Sub Book_Top_Banner()
	Dim Sql,Rs,Content,AddDate
	Db.Open()
	Sql = "Select * From wr_Roll"
	Set Rs = Db.ExeCute(Sql)
	If Not Rs.Eof and Not Rs.Bof Then
		Content = Rs("Content")
		Content = Replace(Content,chr(32)," ")
		AddDate = Rs("AddDate")
	End If
	Db.Close()
%>
		<TABLE border="0" cellspacing="0" cellpadding="5" width="778" bgcolor="#FFFFFF" align="center">
			<TR>
				<TD height="25" width="160"><img src="images/logo.gif" border="0"></TD>
				<TD>
<iframe WIDTH=468 HEIGHT=60 align=center MARGINWIDTH=0 Name=union163com MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no src="http://news2.163.com/product/photo/tpl1.jsp?ID=54ano&NO=42546&codeDate=2005n8y24h&productid=0422"></iframe>
				</TD>
			</TR>
		</TABLE>
		<TABLE bgcolor="#FFFFFF" width="778" align="center">
			<TR height="10">
				<TD></TD>
			</TR>
			<TR>
				<TD bgcolor="lightblue" height="20">
					<marquee direction="left" scrollamount="4" onMouseOver="this.stop()" onMouseOut="this.start()"><%=Content &"&nbsp;"&AddDate %></marquee>
				</TD>
			</TR>

		</TABLE>
<%
	End Sub
	'留言Top表格.Banner -结束-

	'页面导航信息 -开始-
	Public Sub Book_Top_Title()
%>
		<TABLE border="0" cellspacing="0" cellpadding="5" width="778" align="center">
			<TR>
				<TD height="20"><a href="Default.asp">查看留言</a>&nbsp;<a href="Book_Write.asp">签写留言</a>&nbsp;<a href="Book_Manage.asp">管理留言</a>&nbsp;</TD>
			</TR>
		</TABLE>
<%
	End Sub
	'页面导航信息 -结束-

	'页面底部，CopyRight信息 -开始-
	Public Sub Book_Bottom_CopyRight()
%>
	<TABLE width="778" align="center">
		<TR>
			<TD>
		<iframe id=adframe1 align="center" marginwidth=0 marginheight=0 frameborder=0 scrolling=no src='http://unionpfp.sina.com.cn/partner/shuaxin_b.html?id=31082&width=778&ddt=0' width=778 height=63></iframe>
			</TD>
		</TR>
	</TABLE>
	<TABLE bgcolor="#FFFFFF" width="778" align="center">
		<TR>
			<TD align="center" height="60">联系QQ：<a href="http://wpa.qq.com/msgrd?V=1&Uin=3178920&Site=在线咨询&Menu=no" target="_blank">3178920</a> Email：<a href="mailto:54ano@163.com">54ano@163.com</a><br>
&copy&nbsp;2005 地址：福建·福州·<a href="http://www.wingroom.com/" target="_blank">翼动工作室</a>&nbsp;版权所有</TD>
		</TR>
	</TABLE>
<%
	End Sub
	'页面底部，CopyRight信息 -结束-

	'前台留言内容显示 -开始-
	Public Sub Book_Msg_List()
%>
<TABLE bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
<TR>
	<TD>
<%
Dim Rs,Sql
Dim CurrPage,PageCount,UrlInfo

Db.Open()
Set Rs=Db.CreateRs()
Sql = "select * from wr_BookList order by AddDate desc"
Rs.Open Sql,Db.Conn,1,1

If Request("CurrPage") = "" Then
    CurrPage = 1
Else
    CurrPage = Request("CurrPage")
End If
If Not IsNumeric(CurrPage) Then
	Response.Write("参数错误！")
	Response.End
End If
Rs.PageSize = 10
If Not(Rs.Eof And Rs.Bof) Then
    Rs.AbsolutePage = CurrPage
End If
PageCount = Rs.PageCount

UrlInfo = ""

Dim I
For I=1 To Rs.PageSize
    If Rs.Eof Then
        Exit For
    End If
%>
<TABLE bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="5" align="center">
<TR>
	<TD>
		<TABLE border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
		<TR>
			<TD height="20">
				<TABLE border="0" width="100%" cellspacing="0" cellpadding="0">
				<TR>
					<TD height="30" width="4%"><%If Rs("Sex")="男" Then%><img src="images/Male.gif" border="0"><%Else%><img src="images/FeMale.gif" border="0"><%End If%></TD>
					<TD align="left"><b><%=Flib.outHTML(Rs("UserName"))%></b></TD>
				</TR>
				<TR>
					<TD height="30" width="2%">&nbsp;</TD>
					<TD height="30" align="left"><img src="images/txt.gif" border="0">&nbsp;<b><%=Flib.outHTML(Rs("Title"))%></b></TD>
				</TR>
				</TABLE>
			</TD>
		</TR>
		<TR>
			<TD height="20" style='width:770px;overflow:hidden;word-wrap:break-word;word-break:break:all;'><%=FUbb.UBBCode(Rs("Content"))%>&nbsp;<font color="#CCCCCC"><%=Rs("AddDate")%></font></TD>
		</TR>
<%If Rs("Re_Content")<>"" Then%>
		<TR>
			<TD height="30" style='width:770px;overflow:hidden;word-wrap:break-word;word-break:break:all;'><font color="red">管理员回复：</font><%=FUbb.UBBCode(Rs("Re_Content"))%>&nbsp;<font color="#CCCCCC"><%=Rs("Re_Date")%></font></TD>
		</TR>
<%End If%>
		</TABLE>
	</TD>
</TR>
<TR>
	<TD bgcolor="#F9F9F9" height="25">
		<TABLE border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
		<TR>
			<TD width="4%">&nbsp;</TD>
			<TD width="84%">&nbsp;</TD>
			<TD width="3%" align="center"><%If Rs("Ip")<>"" Then%><img src="images/ip_a.gif" border="0" alt="<%=Rs("Ip")%>"><%Else%><img src="images/ip_b.gif" border="0" alt="不清楚"><%End If%></TD>
			<TD width="3%" align="center"><%If Rs("HomePage")<>"" Then%><a href="<%=Rs("HomePage")%>" target="_blank"><img src="images/home_a.gif" border="0" alt="<%=Rs("HomePage")%>"></a><%Else%><img src="images/home_b.gif" border="0" alt="没有主页"><%End If%></TD>
			<TD width="3%" align="center"><%If Rs("Email")<>"" Then%><a href="mailto:<%=Rs("Email")%>" target="_blank"><img src="images/email_a.gif" border="0" alt="<%=Rs("Email")%>"></a><%Else%><img src="images/email_b.gif" border="0" alt="没有填写"><%End If%></TD>
			<TD width="3%" align="center"><%If Rs("Oicq")<>"" Then%><a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=Rs("Oicq")%>&Site=在线咨询&Menu=no" target="_blank" title="<%=Rs("Oicq")%>"><img src="images/oicq_a.gif" border="0" alt="<%=Rs("Oicq")%>"></a><%Else%><img src="images/oicq_b.gif" border="0" alt="没有填写"><%End If%></TD>
		</TR>
		</TABLE>
	</TD>
</TR>
</TABLE>
<TABLE bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
<TR height="1" bgcolor="#CCCCCC">
	<TD></TD>
</TR>
</TABLE>
<%
	Rs.MoveNext
Next
%>
<%If Rs.Eof And Rs.Bof Then%>
<Table bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="center">暂无相关数据！</td>
  </tr>
</Table>
<%End If%>
<%
Db.Close()
%>
<Table bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="right" height="40">
<script language="JavaScript">
<!--
var plb = new PageListBar('plb', <%=PageCount%>, <%=CurrPage%>, '<%=UrlInfo%>', 10);
document.write(plb);
//-->
</script>
	</td>
  </tr>
</Table>

	</TD>
</TR>
</TABLE>
<%
	End Sub
	'前台留言内容显示 -结束-

	'后台管理留言内容显示 -开始-
	Public Sub Manage_Msg_List()
%>
<TABLE bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
<TR>
	<TD>
<%
Dim Rs,Sql
Dim CurrPage,PageCount,UrlInfo

Db.Open()
Set Rs=Db.CreateRs()
Sql = "select * from wr_BookList order by AddDate desc"
Rs.Open Sql,Db.Conn,1,1

If Request("CurrPage") = "" Then
    CurrPage = 1
Else
    CurrPage = Request("CurrPage")
End If

Rs.PageSize = 10
If Not(Rs.Eof And Rs.Bof) Then
    Rs.AbsolutePage = CurrPage
End If
PageCount = Rs.PageCount

UrlInfo = ""

Dim I
For I=1 To Rs.PageSize
    If Rs.Eof Then
        Exit For
    End If
%>
<TABLE bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="5" align="center">
<TR>
	<TD>
		<TABLE border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
		<TR>
			<TD height="20">
				<TABLE border="0" width="100%" cellspacing="0" cellpadding="0">
				<TR>
					<TD height="30" width="4%"><%If Rs("Sex")="男" Then%><img src="images/Male.gif" border="0"><%Else%><img src="images/FeMale.gif" border="0"><%End If%></TD>
					<TD align="left"><b><%=Flib.outHTML(Rs("UserName"))%></b></TD>
				</TR>
				<TR>
					<TD height="30" width="2%">&nbsp;</TD>
					<TD height="30" align="left"><img src="images/txt.gif" border="0">&nbsp;<b><%=Flib.outHTML(Rs("Title"))%></b></TD>
				</TR>
				</TABLE>
			</TD>
		</TR>
		<TR>
			<TD height="20" style='width:770px;overflow:hidden;word-wrap:break-word;word-break:break:all;'><%=FUbb.UBBCode(Rs("Content"))%>&nbsp;<font color="#CCCCCC"><%=Rs("AddDate")%></font></TD>
		</TR>
<%If Rs("Re_Content")<>"" Then%>
		<TR>
			<TD height="30" style='width:770px;overflow:hidden;word-wrap:break-word;word-break:break:all;'><font color="red">管理员回复：</font><%=FUbb.UBBCode(Rs("Re_Content"))%>&nbsp;<font color="#CCCCCC"><%=Rs("Re_Date")%></font></TD>
		</TR>
<%End If%>
		</TABLE>
	</TD>
</TR>
<TR>
	<TD bgcolor="#F9F9F9" height="25">
		<TABLE border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
		<TR>
			<TD width="4%">&nbsp;</TD>
			<TD width="78%">&nbsp;</TD>
			<TD width="3%" align="center"><%If Rs("Ip")<>"" Then%><img src="images/ip_a.gif" border="0" alt="<%=Rs("Ip")%>"><%Else%><img src="images/ip_b.gif" border="0" alt="不清楚"><%End If%>
			</TD>
			<TD width="3%" align="center"><%If Rs("HomePage")<>"" Then%><a href="<%=Rs("HomePage")%>" target="_blank"><img src="images/home_a.gif" border="0" alt="<%=Rs("HomePage")%>"></a><%Else%><img src="images/home_b.gif" border="0" alt="没有主页"><%End If%>
			</TD>
			<TD width="3%" align="center"><%If Rs("Email")<>"" Then%><a href="mailto:<%=Rs("Email")%>" target="_blank"><img src="images/email_a.gif" border="0" alt="<%=Rs("Email")%>"></a><%Else%><img src="images/email_b.gif" border="0" alt="没有填写"><%End If%>
			</TD>
			<TD width="3%" align="center"><%If Rs("Oicq")<>"" Then%><a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=Rs("Oicq")%>&Site=在线咨询&Menu=no" target="_blank" title="<%=Rs("Oicq")%>"><img src="images/oicq_a.gif" border="0" alt="<%=Rs("Oicq")%>"></a><%Else%><img src="images/oicq_b.gif" border="0" alt="没有填写"><%End If%>
			</TD>
			<TD width="3%" align="center"><a href="Book_Manage.asp?id=<%=Rs("ID")%>&Keyword=Reply"><img src="images/reply.gif" border="0" alt="对此留言进行回复"></a>
			</TD>
			<TD width="3%" align="center"><a href="Manage_Process.asp?id=<%=Rs("ID")%>&action=DelMsg" OnClick="javascript:return LinkAsk();"><img src="images/delete.gif" border="0" alt="删除所选留言"></a>
			</TD>
		</TR>
		</TABLE>
	</TD>
</TR>
</TABLE>
<TABLE bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
<TR height="1" bgcolor="#CCCCCC">
	<TD></TD>
</TR>
</TABLE>
<%
	Rs.MoveNext
Next
%>
<%If Rs.Eof And Rs.Bof Then%>
<Table bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="center">暂无相关数据！</td>
  </tr>
</Table>
<%End If%>
<%
Db.Close()
%>
<Table bgcolor="#FFFFFF" border="0" width="778" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="right" height="40">
<script language="JavaScript">
<!--
var plb = new PageListBar('plb', <%=PageCount%>, <%=CurrPage%>, '<%=UrlInfo%>', 10);
document.write(plb);
//-->
</script>
	</td>
  </tr>
</Table>

	</TD>
</TR>
</TABLE>
<%
	End Sub
	'后台管理留言内容显示 -结束-

	'页面导航信息 -开始-
	Public Sub Manage_Top_Title()
%>
		<TABLE border="0" cellspacing="0" cellpadding="5" width="778" align="center">
			<TR>
				<TD height="20"><a href="?Keyword=MsgList">留言管理</a>&nbsp;<a href="Book_Write.asp">签写留言</a>&nbsp;<a href="?Keyword=MdfyPwd">修改密码</a>&nbsp;<a href="?Keyword=ManagerList">管理用户</a>&nbsp;<a href="?Keyword=RollMdfy">公告管理</a>&nbsp;<a href="Manage_Process.asp?action=Logout" OnClick="javascript: return LinkAsk();">退出管理</a>&nbsp;</TD>
			</TR>
		</TABLE>
<%
	End Sub
	'页面导航信息 -结束-
%>