📄 controlmail.asp
字号:
<!--#include file="conn.asp"-->
<%
IF Request.Form.Count<>0 Then
Suc=True
Name=Trim(Request.Form("Name"))
Title=Trim(Request.Form("Title"))
Content=Trim(Request.Form("Content"))
If Name="" Then
Suc=False
ErrInfo=ErrInfo & "·请填写收件人的姓名！<BR>"
Else
SQL="Select * From 注册信息 Where 姓名='"& Name &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
IF RS.Eof Then
Suc=False
ErrInfo=ErrInfo & "·该同学没有注册！<BR>"
End IF
End IF
If Title="" Then
Suc=False
ErrInfo=ErrInfo & "·请填写短消息主题！<BR>"
End IF
If Content="" Then
Suc=False
ErrInfo=ErrInfo & "·请填写短消息内容！<BR>"
End IF
IF Suc Then
SQL="Select * From 短信'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,3,2
RS.Addnew
RS("收件人")=Name
RS("发件人")=Session("User")
RS("主题")=Title
RS("内容")=Content
RS("日期")=Date
Msg=Request.Form("Msg")
RS.Update
If Msg="yes" Then
SQL="Select * From 发件箱"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,3,2
RS.Addnew
RS("收件人")=Name
RS("发件人")=Session("User")
RS("主题")=Title
RS("内容")=Content
RS("日期")=Now
RS("ID1")=Year(Date)&Month(Date)&Day(Date)&Hour(Time)&Minute(Time)&Second(Time)
RS.Update
End IF
End IF
End IF
%>
<!--#include file="function/delmail.asp"-->
<%
IF Request.Form("del")="yes" Then
DelFriend
End IF
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<script Language="JavaScript">
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
e.checked = "checked";
}
}
</script>
<title><%=WebSiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="top.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0" height="341">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top" height="341">
<!--#include file="cleft.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top" height="341">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #000000; border-bottom: 1 solid #000000" align="center">
<b>
<a href="control.asp">
控制面板首页</a></b>
</td>
<td width="20%" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #000000; border-bottom: 1 solid #000000" align="center">
<b>
<a href="controledit.asp">
编辑个人资料</a></b>
</td>
<td width="20%" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #000000; border-bottom: 1 solid #000000" align="center">
<b>
<a href="controlpass.asp">
修改登录密码</a></b>
</td>
<td width="20%" height="25" bgcolor="#FFFFFF" style="border-right: 1 solid #000000" align="center">
<b>
<font color="#545454">
短消息信箱</font></b>
</td>
<td width="20%" height="25" bgcolor="#EDEDED" style="border-bottom: 1 solid #000000" align="center">
<b>
<a href="controlfriend.asp">
好友列表</a></b>
</td>
</tr>
<tr>
<td width="100%" valign="middle" colspan="5" height="10">
</td>
</tr>
<%IF Request("Active")<>"nn" Then%>
<tr>
<td width="100%" valign="middle" colspan="5" height="5">
<div align="center">
<center>
<table border="0" width="90%" cellspacing="0" cellpadding="0" style="border: 1 solid #000000" height="136">
<tr>
<td width="100%" background="images/bg2.gif" height="22" colspan="4">
<p align="center"><font color="#333333"><b><%=Session("User")%>，欢迎使用您的收件箱</b></font></td>
</tr>
<tr>
<td width="100%" align="center" height="50" colspan="4">
<!--#include file="controlnavigatin.asp"-->
</td>
</tr>
</center>
<tr>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#545454">发件人</font>
</td>
<td width="46%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#545454">主 题</font>
</td>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#545454">是否已读</font>
</td>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-: 1 solid #cccccc; border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#545454">割除标记</font>
</td>
</tr>
<%
SQL="Select * From 短信 Where 收件人='"& Session("User") &"' Order BY ID Desc"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
dim currentpage '定义当前页的变量
dim totalput,n '定义变量
CurrentPage=0
TotalPut=0:N=0
IF Not RS.EOF Then
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
'Do While Not RS.EOF
%>
<form action="" method="post">
<tr>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<%=RS("发件人")%>
</td>
<td width="46%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
<font color="#333333"><a href="controlmail.asp?active=nn&id=<%=RS("ID")%>"><%=RS("主题")%></a></font>
</td>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center" valign="bottom">
<img border="0" src="images/read<%IF RS("状态")="未" Then%>1<%End IF%>.gif" width="16" height="14">
</td>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<p align="center"><input type="checkbox" name="checkvalue" value="<%=RS("ID")%>" class=1></p>
</td>
</tr>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -