📄 admin_message.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
				sqlstr=sqlstr & " and content like '%"&request("content")&"%'"
			end if
		end if

		if sqlstr="" then
			Cl.ShowErr(ErrMsg + "<br /><li>请指定搜索参数！")
		end if
		sql="select "&TmpSmax&" id,sender,incept,title,content,flag,sendtime,delR,delS,isSend from "&Db.MessageTable&" where "&sqlstr&" order by "&orderby&seldesc
	case else
		Cl.ShowErr(ErrMsg + "<br /><li>错误的参数。")
	end select
'=======================执行查询=======================
	SearchStr="MessageSearch="&request("MessageSearch")&"&sender="&request("sender")&"&incept="&request("incept")&"&title="&request("title")&"&content="&request("content")&"&action="&request("action")
	If Request("opt")="view" Then
		Dim id:id=request("id")
		If id="" or isnull(id) or Not IsNumeric(id) Then
			Cl.ShowErr(Errmsg+"<br /><li>错误的参数。")
		Else
			id=clng(request("id"))
		End If
		View sqlstr,orderby,seldesc,id,SearchStr
		Exit Sub
	ElseIf Request("opt")="DelAllMsg" Then
		DelAllMsg sqlstr
		Exit Sub
	End If
	CurrentPage = Request("page")
	page_count=0
	If CurrentPage <> "" And IsNumeric(CurrentPage) Then
		CurrentPage = Clng(CurrentPage)
	Else
		CurrentPage = 1
	End If
	PageListNum=20 '每页显示记录数
	Dim TmpSqlStr:TmpSqlStr=Replace(sqlstr," where "," ")
	If sqlstr<>"" Then
		sql1="select "&TmpSmax&" id from "&Db.MessageTable&" Where"&TmpSqlStr
	Else
		sql1="select "&TmpSmax&" id from "&Db.MessageTable&""&TmpSqlStr
	End If
	'response.write sql1
	'response.end
	Set Rs=Cl.Execute_U(sql1)
	If Not (Rs.eof or Rs.bof) Then 
		SQL1=Rs.GetRows
		totalrec=Ubound(Sql1,2)
	Else
		totalrec=0
	End If
	SQL1=""
	Rs.close
	If totalrec mod PageListNum=0 Then
		Pcount= totalrec \ PageListNum
	Else
		Pcount= totalrec \ PageListNum+1
	End If
	if currentpage > Pcount then currentpage = Pcount
	if currentpage<1 then currentpage=1
	Set rs= Server.CreateObject("ADODB.Recordset")
	'response.write sql
	OpenConn_U: Rs.Open Sql,Conn_U,1,1
	if rs.eof and rs.bof then
		rs.Close : Set Rs=Nothing
		Cl.ShowErr(ErrMsg + "<br /><li>没有找到相关记录。")
	else
		'Rs.MoveFirst
		Rs.Move (currentpage-1) * Cint(PageListNum)
		SQL=Rs.GetRows(PageListNum)
		Rs.Close:Set Rs=Nothing
		ShowCont SQL,stype,CurrentPage,Pcount,totalrec,PageListNum,SearchStr,Colspan
	end if
End Sub

'搜索内容显示
Function ShowCont(SQL,stype,CurrentPage,Pcount,totalrec,PageListNum,SearchStr,Colspan)
%>
<table cellpadding="2" cellspacing="1" border="0" width="97%" class="Border" align="center">
<tr class="title"><td colspan="9" align="left" height="23" width="97%" align="center"><%=stype%> → 搜索结果 </td>
</tr>
<form method="post" action="Admin_Message.asp">
<tr align="center">
<td class="tdbg"><b>发送者</b></td>
<td class="tdbg"><b>接收者</b></td>
<td class="tdbg"><b>标&nbsp;&nbsp;题</b></td>
<td class="tdbg"><b>内&nbsp;&nbsp;容</b></td>
<td class="tdbg"><b>已读</b></td>
<td class="tdbg"><b>发送时间</b></td>
<td class="tdbg"><b>已删除</b></td>
<td class="tdbg"><b>已发送</b></td>
<td class="tdbg"><b>操作</b></td>
</tr>
<%
dim flag,del,isSend,content,title
	For i=0 To Ubound(SQL,2)
		if Sql(5,i)=1 then
			flag="是"
		else
			flag="否"
		end if
		if Sql(7,i)=1 or Sql(8,i)=1 then
			del="是"
		else
			del="否"
		end if
		if Sql(9,i)=1 then
			isSend="是"
		else
			isSend="否"
		end if
		if len(Sql(3,i))>6 then
			title=left((Sql(3,i)),6)&"..."
		else
			title=Sql(3,i)
		end if
		content=replace(Sql(4,i),chr(13),"，")
		if len(content)>6 then
			content=left(content,6)&"..."
		else
			content=content
		end if
%>
		<tr align="center">
		<td class="tdbg" ><a href="admin_user.asp?userSearch=11&username=<%=Sql(1,i)%>&action=userSearch&searchmax=1&usernamechk=yes&userclass=0" title="点击管理此用户"><%=Sql(1,i)%></a></td>
		<td class="tdbg" ><a href="admin_user.asp?userSearch=11&username=<%=Sql(2,i)%>&action=userSearch&searchmax=1&usernamechk=yes&userclass=0" title="点击管理此用户"><%=Sql(2,i)%></a></td>
		<td class="tdbg" ><%=title%></td>
		<td class="tdbg" ><a href="Admin_Message.asp?<%=SearchStr%>&opt=view&id=<%=Sql(0,i)%>" title="点击查看详细内容"><%=content%></a></td>
		<td class="tdbg" ><%=flag%></td>
		<td class="tdbg" ><%=Sql(6,i)%></td>
		<td class="tdbg" ><%=del%></td>
		<td class="tdbg" ><%=isSend%></td>
		<td class="tdbg" ><input type="checkbox" name="id" value="<%=Sql(0,i)%>" /></td>
		</tr>
<%	Next %>
<tr><td class="tdbg" align="right" colspan="8"><input type="submit" name="action" value="删 除 短 信"  onclick="{javascript:if(confirm('确定删除选择的短信吗?')){return true;}return false;}" /></td><td class="tdbg" align="center"><input type="checkbox" value="on" name="chkall" onclick="CheckAll(this.form)" /></td></tr>
</form>
<tr>
<td colspan="4" class="tdbg" align="center" style="height: 28px" >&nbsp; </td>
<form method="post" action="Admin_Message.asp?<%=SearchStr%>">
<input type="hidden" name="action" value="MessageSearch">
<input type="hidden" name="opt" value="DelAllMsg">
<td class="tdbg" align="center" style="height: 28px" ><input type="submit" name="DelAllMsg" value="清 空 短 信"  onclick="{javascript:if(confirm('确定将本次查询的所有短信删除吗?')){return true;}return false;}" /></td>
</form>
<form method="post" action="Admin_Message.asp">
<input type="hidden" name="action" value="MessageSearch">
<input type="hidden" name="MessageSearch" value="<%=request("MessageSearch")%>">
<td colspan="4" class="tdbg" align="center" style="height: 28px" >
<%'response.write request("MessageSearch")%>
<select name="orderby" size="1">
<option value="1" >按发送者</option>
<option value="2" >按接收者</option>
<option value="3" >按标题</option>
<option value="4" >按内容</option>
<option value="5" >按是否已读</option>
<option value="6" >按发送时间</option>
<option value="7" >按是否已删除</option>
<option value="8" >按是否已发送</option>
</select>
<select name="seldesc" size="1">
<option value="1" >以降序</option>
<option value="2" >以升序</option>
</select>
<input type="submit" name="submit" value="排列" />
</td>
</form>
</tr>
<%Call ShowPage(CurrentPage,Pcount,totalrec,PageListNum,SearchStr,Colspan)%></table>
<p></p>
<%
End Function

'分页输出
Function ShowPage(CurrentPage,Pcount,totalrec,PageNum,SearchStr,Colspan)
	ShowPage="<tr><td colspan={$colSpan} class='tdbg'>"&_
		"<table border=0 cellpadding=0 cellspacing=3 width=""100%"" align=center>"&_
		"<tr><td nowrap>页次：<b>{$CurrentPage}</b>/<b>{$Pcount}</b>页&nbsp;"&_
		"每页<b>{$PageNum}</b> 总数<b>{$totalrec}</b></td><td nowrap align=right>分页："&_
		"<script language=""JavaScript"">"&vbNewLine&_
		"<!--"&vbNewLine&_
		"var CurrentPage={$CurrentPage};"&vbNewLine&_
		"var Pcount={$Pcount};"&vbNewLine&_
		"var Endpage=0;"&vbNewLine&_
		"if (CurrentPage > 4){"&vbNewLine&_
		"	document.write ('<a href=""?page=1&{$SearchStr}"">[1]</a> ...');"&vbNewLine&_
		"}"&vbNewLine&_
		"if (Pcount>CurrentPage+3)"&vbNewLine&_
		"{"&vbNewLine&_
		"	Endpage=CurrentPage+3"&vbNewLine&_
		"}"&vbNewLine&_
		"else{"&vbNewLine&_
		"	Endpage=Pcount"&vbNewLine&_
		"}"&vbNewLine&_
		"for (var i=CurrentPage-3;i<=Endpage;i++)"&vbNewLine&_
		"{"&vbNewLine&_
		"	if (i>=1){"&vbNewLine&_
		"		if (i == CurrentPage)"&vbNewLine&_
		"		{"&vbNewLine&_
		"			document.write ('<font color=""{$redcolor}"">['+i+']</font>');"&vbNewLine&_
		"			}"&vbNewLine&_
		"		else{"&vbNewLine&_
		"			document.write ('<a href=""?page='+i+'&{$SearchStr}"">['+i+']</a>');"&vbNewLine&_
		"		}"&vbNewLine&_
		"	}"&vbNewLine&_
		"}"&vbNewLine&_
		"if (CurrentPage+3 < Pcount){ "&vbNewLine&_
		"	document.write ('...<a href=""?page='+Pcount+'&{$SearchStr}"">['+Pcount+']</a>');"&vbNewLine&_
		"}"&vbNewLine&_
		"if (Endpage == 0){ "&vbNewLine&_
		"	document.write ('...');"&vbNewLine&_
		"}"&vbNewLine&_
		"//-->"&vbNewLine&_
		"</script>"&vbNewLine&_
		"</td></tr></table></td></tr>"
	ShowPage=Replace(ShowPage,"{$colSpan}",Colspan)
	ShowPage=Replace(ShowPage,"{$CurrentPage}",CurrentPage)
	ShowPage=Replace(ShowPage,"{$Pcount}",Pcount)
	ShowPage=Replace(ShowPage,"{$PageNum}",PageNum)
	ShowPage=Replace(ShowPage,"{$totalrec}",totalrec)
	ShowPage=Replace(ShowPage,"{$SearchStr}",SearchStr)
	ShowPage=Replace(ShowPage,"{$redcolor}","red")
	response.write ShowPage
End Function

'短信查看器
Function View(sqlstr,orderby,seldesc,id,SearchStr)
	dim Rcontent,Nextid:Nextid=0
	If sqlstr<>"" Then
		Sql="SELECT id FROM "&Db.MessageTable&" Where "&sqlstr&" And id>"&id
	Else
		Sql="SELECT id FROM "&Db.MessageTable&" where id>"&id
	End If
	'response.write sql
	Set Rs=Cl.Execute_U(sql)
	If not (Rs.eof And Rs.bof) Then	nextid=Rs(0) End If
	Rs.close
	Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select sender,sendtime,incept,title,content from "&Db.MessageTable&" where id="&id&" "
	OpenConn_U : rs.open sql,conn_U,1,1
	Rcontent=Cl.UbbCode(rs(4))%>
<table cellpadding="1" cellspacing="1" border="0" width="97%" class="Border" align="center">
<tr><th height="25"><b>短信查看器</b></th>
</tr>
<tr><td class="tdbg"align="center"><b><%=rs(0)%></b> 在 <b><%=rs(1)%></b> 给 <b><%=rs(2)%></b> 发送的信息</td>
</tr>
<tr><td class="tdbg" align="center"><b>消息标题：<%=rs(3)%></b></td>
</tr>
<tr><td class="tdbg"><%=Rcontent%></td></tr>
<tr><td class="tdbg" align="center"><a href="javascript:history.back()">&lt;&lt; 返回上一页</a><%If Nextid<>0 Then Response.write "   ||   <A HREF=Admin_Message.asp?"&SearchStr&"&opt=view&id="&Nextid&">读取下一条信息 &gt;&gt;</A>" End If%></td>
</tr></table>
<%Rs.Close
End Function

'清空搜索到的短信
Function DelAllMsg(sqlstr)
	If sqlstr<>"" then
		Cl.Execute_U("delete from "&Db.MessageTable&" Where "&sqlstr)
	Else
		Cl.Execute_U("delete from "&Db.MessageTable&"")
	End If
	If Not Err Then	Call Cl.ShowSuc("<br /><li><b><font color='red'>清空短信</font></b>成功。</li>")
End Function

Sub DelMsg()
	Dim id,fixid
	id=replace(Request("id"),"'","")
	id=replace(id,";","")
	id=replace(id,"--","")
	id=replace(id,")","")
	fixid=replace(id,",","")
	fixid=Trim(replace(fixid," ",""))
	If id="" or isnull(id) Then
		Cl.ShowErr(Errmsg+"<br /><li>错误的参数。")
	ElseIf Not IsNumeric(fixid) Then
		Cl.ShowErr(Errmsg+"<br /><li>错误的参数。")
	Else
		Cl.Execute_U("delete from "&Db.MessageTable&" where id in ("&id&")")
		Call Cl.ShowSuc("<br /><li><b><font color='red'>删除短信</font></b>成功。</li>")
	end if
End Sub
%>
<script language="JavaScript" type="text/javascript">
<!--
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked;
   }
  }
// -->
</script>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
上一页 1 23
⌨️ 快捷键说明

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