managemessage.asp
来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 125 行
ASP
125 行
<!--#include file="conn.asp"-->
<!--#include file="checkAdmin.asp"-->
<!--#include file="../inc/check_inc.asp"-->
<!--#include file="../inc/page_inc.asp"-->
<!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" />
<link href="css/css.css" rel="stylesheet" type="text/css" />
<title>站内短信</title>
</head>
<body>
<!--#include file="inc/ManageMessage_inc.asp"-->
<table width="97%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="24" class="listtitle">
<select onChange="window.open(options[selectedIndex].value,'_self')">
<option value="managemessage.asp?lx=0" <%if lx = 0 then%>selected="selected"<%end if%>>-查看全部留言-</option>
<option value="managemessage.asp?lx=1" <%if lx = 1 then%>selected="selected"<%end if%>>-管理员留言-</option>
<option value="managemessage.asp?lx=2" <%if lx = 2 then%>selected="selected"<%end if%>>-管理员未读留言-</option>
</select> </td>
</tr>
</table>
<table width="97%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
<tr>
<td height="24" align="center" class="listtop">发信人</td>
<td align="center" class="listtop">收信人</td>
<td align="center" class="listtop">时间</td>
<td align="center" class="listtop">操作</td>
</tr>
<%
if PinglunNum <> -1 then
i = PinglunNum + 1
if Cint(Page*PageNum-1)<Cint(i-1) then
PageEnd = Page*PageNum-1
else
PageEnd = i-1
end if
for j = (Page-1)*PageNum to PageEnd
%>
<tr onMouseOver="this.style.backgroundColor='#FBF9F4';" onMouseOut="this.style.backgroundColor='#FFFFFF'">
<td height="24" align="center" class="listitem"><%=Pinglun(1,j)%></td>
<td align="center" class="listitem"><%=Pinglun(2,j)%></td>
<td align="center" class="listitem"><%=Pinglun(3,j)%></td>
<td align="center" class="listitem"><a href="managemessage.asp?Action=view&ID=<%=Pinglun(0,j)%>">查看</a> <a href="managemessage.asp?Action=del&ID=<%=Pinglun(0,j)%>" onClick="return confirm('您确认要删除该信息吗？');">删除</a></td>
</tr>
<%
next
else
i = 0
end if
%>
</table>
<%Call PageTable()%>
<table width="97%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<%
if Action = "view" then
%>
<table width="97%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FAFAFA" style="border:1px solid #DDDDDD;clear:both;">
<form name="myform" method="post" action="managemessage.asp?Action=add&MsgTo=<%=PinglunDetail(0)%>">
<tr>
<td width="11%" align="right"> </td>
<td width="89%" align="left"> </td>
</tr>
<tr>
<td height="24" align="right">发信人：</td>
<td align="left"><%=PinglunDetail(0)%></td>
</tr>
<tr>
<td height="24" align="right">收信人：</td>
<td align="left"><%=PinglunDetail(1)%></td>
</tr>
<tr>
<td height="24" align="right">时间：</td>
<td align="left"><%=PinglunDetail(2)%></td>
</tr>
<tr>
<td height="24" align="right">内容：</td>
<td align="left"><%=PinglunDetail(3)%></td>
</tr>
<tr>
<td align="center" colspan="2"> </td>
</tr>
<tr>
<td align="center" colspan="2"><textarea name="MsgContent" class="input_text" style="width:95%;height:100px;"></textarea></td>
</tr>
<tr>
<td height="30" colspan="2" align="center" valign="bottom">
<input type="submit" class="Button" value="回复此条消息" /> </td>
</tr>
<tr>
<td align="center" colspan="2"> </td>
</tr>
</form>
</table>
<script language="javascript">
function checkMsg()
{
if (document.myform.MsgContent.value=="")
{
alert("发送信息不能为空");
return false;
}
return true;
}
</script>
<%
end if
%>
<!--#include file="inc/closeconn_inc.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?