showmsg.asp

本同学录系统演示地址: http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等 如果要换sql数据库,请将app_code里的MyPage

<!--#include File="../conndb.asp"-->
<!-- #include file="../class/Message.asp" -->
<!-- #include file="Show.asp" -->
<style>
<!--
.main        { font-size: 10pt }
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style>
<script language="JavaScript">
function newwin(url) {
  var newwin=window.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=550,height=460");
  newwin.focus();
  return false;
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><table width="500" border="0" height="218" cellspacing="0" cellpadding="0">
<%
    if Session("UserName") = "" then
%>
<tr> <td height="161" valign="top" class="main">本系统需要登录才能使用</td>
</tr>
<%
		response.end
	end if
	'读取所有留言
	set obj = new Message
	obj.GetMessagelist
%>
<tr> <td height="20" valign="top" class="main"><a href="newRec.asp" onClick="return newwin(this.href)">发新帖</a></td>

<tr> <td height="20" width="500" valign="top"  class="main"> <% Call ShowList( obj.rs, Page ) %> </td></tr>
<tr> <td height="15"> </td></tr>   
<tr>
	<td height="13"  width="500" valign="top"  class="main" background="images/b3.gif"> <% Call ShowPage( obj.rs, Page ) %></td>
</tr>
</table>