⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 m_pmall.asp

📁 电子备课系统
💻 ASP
字号:
🔍 
<!--#include file="inc/inc_sys.asp"-->
<%If CheckAccess("r_user_news")=False Then Response.Write "无权操作":Response.End%>
<!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" />
<title>oBlog--后台管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">oBlog站内短信管理首页</li>
		<li class="main_top_right right"> </li>
	</ul>
		<div class="main_content_rightbg">
		<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border" id="table1">
  <form name="form1" action="m_pmall.asp" method="get">
    <tr class="tdbg">
      <td width="100" height="30"><strong>快速查找：</strong></td>
      <td width="687" height="30">
		<select size=1 name="cmd" onChange="javascript:submit()">
          <option value=>请选择查询条件</option>
		  <option value="0">管理员发布的站内短信</option>

        </select>
        &nbsp;&nbsp;&nbsp;&nbsp;<a href="m_pmall.asp">站内短信管理首页</a></td>
    </tr>
  </form>
<!--   <form name="form2" method="post" action="m_pmall.asp">
  <tr class="tdbg">
    <td width="120"><strong>高级查询：</strong></td>
    <td >
      <select name="Field" id="Field">
      <option value="id" selected="selected">短信ID</option>
	  <option value="topic">短信标题</option>
      <option value="group" >用户组ID</option>
	  <option value="sender" >发件人</option>
	  <option value="incept" >收件人</option>
      </select>
      <input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
      <input type="submit" name="Submit2" value=" 查 询 ">
      <input name="cmd" type="hidden" id="cmd" value="10">
	  若为空，则查询所有站内短信</td>
  </tr>
</form> -->
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<%
Dim rst
Dim cmd,sql,rs,Keyword,sField
Set rst=oblog.Execute("select groupid,g_name From oblog_groups Order By groupid")
action=Request("action")
cmd=Trim(Request("cmd"))
sField=Trim(Request("Field"))
keyword=Trim(Request("keyword"))
if keyword<>"" then
	keyword=oblog.filt_badstr(keyword)
end if

G_P_FileName="m_pmall.asp?cmd=" & cmd
if sField<>"" then
	G_P_FileName=G_P_FileName&"&Field="&sField
end if
if keyword<>"" then
	G_P_FileName=G_P_FileName&"&keyword="&keyword
	cmd=10
End If
If keyword<>"" Or cmd<>"" Then call main():Response.End
If action = "del" Then Call delone():Response.End
call send()
select case action
	case "save"
	call save()
end select
sub send()
	dim rs
%>
<SCRIPT language=javascript>
function changincept()
{
	document.oblogform.incept.value = document.oblogform.selectincept.value;
}
</SCRIPT>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">站内批量发送短信</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
<table align="center" cellpadding="1" cellspacing="1" Class="border">
<form action="m_pmall.asp?action=save" method="post" name="oblogform">
  <tr class="tdbg">
    <td>目标用户组</td>
    <td>
      		<%
      		rst.Movefirst
      		Do While Not rst.Eof
      			%>
      		<input type="checkbox" name="groupid" value="<%=rst(0)%>"><%=rst(1)%><br/>
      			<%
      			rst.MoveNext
      		Loop
      		%>
	</td>
  </tr>
 <tr class="tdbg">
    <td>标题：</td>
	<td><input type="text" name="topic" size="45" maxlength="50" /></td>
 </tr>
   <tr class="tdbg">
    <td>内容：<br />(250字内)</td>
	<td><textarea name="content" cols="45" rows="8"></textarea></td>
  </tr>
 <tr class="tdbg">
   <td></td><td> <INPUT type="hidden" name="id" value="">
        <input type="submit"  value=" 提交 ">
		　<br></td>
</tr>
</form>
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<%
end sub

sub save()
	dim incept,content,sql,rs,inceptid,topic,username,sqlt,rst,u,s
	content=Trim(Request("content"))
	topic=Trim(Request("topic"))
	u=Replace(Request("groupid")," ","")
	if content="" then Response.write("<font color=red>错误：短消息内容不能为空</font><br />")
	if topic="" then Response.write("<font color=red>错误：短消息标题不能为空</font><br />")
	if u="" then Response.write("<font color=red>错误：至少选择一个目标组</font><br />")
	If content<>"" And topic<>"" And u<>"" Then
		sqlt="select * from oblog_pm"
		set rs=Server.CreateObject("adodb.recordset")
		rs.open sqlt,conn,1,3
		rs.addnew
			rs("incept")="0"
			rs("topic")=oblog.Interceptstr(topic,100)
			rs("content")=oblog.Interceptstr(content,250)
			rs("issys")=1
			rs("groups")=u
			rs("sender")="管理员"
		rs.update
		rs.close
		set rs=Nothing
		WriteSysLog "进行了站内短信管理操作，目标用户组为ID："&u&"",oblog.NowUrl&"?"&Request.QueryString
		Response.Write("<ul><li>短消息发送成功</li></ul>")
	end if
end Sub

sub main()
	if cmd="" then
		cmd=0
	else
		cmd=CLng(cmd)
	end If
	sGuide=""
	select case cmd
		case 0
			sql="select top 500 * from oblog_pm Where issys=1 order by id desc"
			sGuide=sGuide & "管理员发布的站内短信"
		case 10
'			if Keyword="" then
'				sql="select top 500 * from oblog_pm order by id Desc"
'				sGuide=sGuide & "所有站内短信"
'			else
'				select case LCase(sField)
'				case "id"
'					if IsNumeric(Keyword)=false then
'						FoundErr=true
'						ErrMsg=ErrMsg & "<br><li>ID必须是整数！</li>"
'					else
'						sql="select * from oblog_pm where id =" & CLng(Keyword)
'						sGuide=sGuide &  "ID等于<font color=red> " & CLng(Keyword) & " </font>的站内短信"
'					end if
'				case "group"
'					sql="select * from oblog_pm where  groups like '"&Keyword&",%' or groups like '%,"&Keyword&"' or groups like '%,"&Keyword&",%' or groups ='"&oblog.l_uGroupId&"'"
'					sGuide=sGuide & "目标用户组ID为“ <font color=red>" & Keyword & "</font> ”的站内短信"
'				case "sender"
'					sql="select * from oblog_pm where sender = '" & Keyword & "'"
'					sGuide=sGuide &"发件人为“ <font color=red>" & Keyword & "</font> ”的站内短信"
'				case "incept"
'					sql="select * from oblog_pm where incept='" & Keyword&"'"
'					sGuide=sGuide &"收件人为“ <font color=red>" & Keyword & "</font> ”的站内短信"
'				end select
'			end if
		case else
			FoundErr=true
			ErrMsg=ErrMsg & "<br><li>错误的参数！</li>"
	end select
	If sGuide="" Then sGuide="站内短信管理"
	if FoundErr=true then exit sub
	if not IsObject(conn) then link_database
	Set rs=Server.CreateObject("Adodb.RecordSet")
'	Response.write sql
	rs.Open sql,Conn,1,1
	%>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left"><%=sGuide%></li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
			<%
	Call oblog.MakePageBar(rs,"个站内短信")
	%>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
	<%
	rs.Close
	set rs=Nothing
end sub

sub showContent()
   	dim i
    i=0
%>

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border" id="table3">
          <tr class="title">
            <td width="42" align="center"><strong>ID</strong></td>
            <td width="77" height="22" align="center"><strong>发件人</strong></td>
            <td width="97" height="22" align="center"><strong>收件人</strong></td>
            <td height="22" width="93" align="center"><strong>标题</strong></td>
            <td height="30" align="center"><strong>内容</strong></td>
            <td width="108" align="center"><strong>时间</strong></td>
            <td  width="36" height="22"  align="center" ><strong>操作</strong></td>
          </tr>
          <%do while not rs.EOF %>
          <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
            <td width="42" align="center"><%=rs("id")%></td>
            <td width="77" align="center">
			<%
			If rs("issys")= 1 Then
				Response.Write "<font color=red style=font-weight:600>" &rs("sender") &"</font>"
			Else
				Response.Write oblog.filt_html(rs("sender"))
			End If%>
			</td>
            <td width="97" align="center"><%
				If rs("incept")="0" Then
					Response.Write "<font color=green style=font-weight:600>" &GetGroupName(rs("groups"))& "</font>"
				Else
					Response.Write oblog.filt_html(rs("incept"))
				End if%>
				</td>
            <td align="center"  width="93">
            <%=rs("topic")
            %>
            </td>
        	<td width="282" align="center">
            	 <%=Left(rs("content"),50)%>
		    </td>
            <td align="center"> <%=rs("addtime")%>
		    </td>
            <td  align="center" width="36">
        <a href="m_pmall.asp?action=del&id=<%=rs("id")%>" onClick="return confirm('确定要删除吗？');"> 删除</a>            </td>
          </tr>
          <%
	i=i+1
	if i>=G_P_PerMax then exit do
	rs.movenext

Loop
Response.write "</table>"
end Sub

sub delone()
	Dim id
	id=CLng(Request("id"))
	oblog.execute("DELETE FROM oblog_pm WHERE id= " & id)
	WriteSysLog "进行了站内短信删除操作，目标短信ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
	oblog.ShowMsg "操作成功","m_pmall.asp?cmd=0"
end Sub

Function GetGroupName(groupid)
	Dim rs,tstr,i
	If InStr(groupid,",")<0 Then
		Set rs = oblog.execute ("select g_name FROM oblog_groups WHERE groupid = " & groupid)
		If Not rs.EOF Then
			GetGroupName = rs(0)
		Else
			GetGroupName = "用户组不存在或者已经被删除！"
		End  if
	Else
		groupid = Split (groupid,",")
		For i= 0 To UBound (groupid)
			Set rs = oblog.execute ("select g_name FROM oblog_groups WHERE groupid = " & groupid(i))
			tstr = tstr & "," & rs(0)
		Next
		GetGroupName = Replace (tstr,",","",1,1,1)
	End if
End Function
Set oblog = Nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -