📄 showmsg.asp
字号:
<!--#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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -