📄 admin_duanxin.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
字号:
<!-- #include file="../conn.asp" -->
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"--><html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javaScript" src="../js/js.js"></script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<script language="javascript">
function view(id){
var id;
window.open('admin_showduanxin.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=110,width=580,height=420');
} 
</script>
<script language="JavaScript">
<!--
function views(id)
{
	var filename=""+id;
	window.open(filename,"显示窗口","toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=580,height=420");
}
//-->
</script>
<script>
function test()
{
  if(!confirm('您确认删除吗？')) return false;
}
</script>
</head>

<body>

<div id=topmomo><a href="admin_duanxin.asp">
		发送站内短信</a>&nbsp; |&nbsp;
		<a href="admin_duanxin.asp?info=listany" target="right">
		全部站内短信</a>&nbsp; |&nbsp;
		<a href="admin_duanxin.asp?info=listall" target="right">
		站内短信（所有会员）</a>&nbsp; |&nbsp;
		<a href="admin_duanxin.asp?info=listone" target="right">
		站内短信（单个会员）</a></div><br>
<%info=request.querystring("info")
if info="" or info=null then
	info="add"
end if
Select Case info
	Case "add"
		Call index()
	Case "list"
		Call index()
	Case "listany"
		Call listany()
	Case "listall"
		Call listall()
	Case "listone"
		Call listone()
end select 
Sub index()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align=center height="25">
		<td class="tcat">发送站内短信</td>
	</tr>
	<tr>
		<td height="100" align="center" valign="middle" class="alt2"><b>
		<a href=javascript:views("admin_duanxinadd.asp?act=toALL")><font size="2">发送站内短信（对所有会员）</font></a><font size="2">&nbsp; 
		|&nbsp; </font><a href=javascript:views("admin_duanxinadd.asp?act=toone")><font size="2">发送站内短信（对单个会员）</font></a></b></td>
	</tr>
</table>
<%end Sub
Sub listany()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>查看所有短信</b></td>
	</tr>
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_Daily.asp?info=duanxin_listdel&cndb=<%=info%>">
	<tr height=22 align="center">
		<td class="tcat"></td>
		<td width="56%" class="tcat">短信内容</td>
		<td width="14%" class="tcat">发送人</td>
		<td width="20%" class="tcat">发送时间</td>
		<td width="10%" class="tcat">管理</td>
	</tr>
<%
Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if

Set rs=Server.CreateObject("ADODB.RecordSet") 
if IsSqlDataBase = 2 then
	sql="select id,content,custom,dateandtime from Siti_duanxin order by dateandtime desc"
else
	sql="select id,content,custom,dateandtime from [Siti_duanxin] order by dateandtime desc"
end if
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
   Rs.PageSize=MaxPerPage
   Allpage=Rs.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rs.RecordCount
   Rs.MoveFirst
   Rs.AbsolutePage=CurrentPage
   i=0
do while not rs.eof
%>
	<tr height="22" align="center">
		<td class="alt2"><input type="checkbox" name="checked" value="<%=rs("id")%>"></td>
		<td class="alt1"><a href="javascript:view(<%=rs("id")%>)"><%=left(rs("content"),31)%></a></td>
		<td class="alt2"><%=rs("custom")%></td>
		<td class="alt1"><%=rs("dateandtime")%></td>
		<td class="alt2"><a href="admin_Daily.asp?info=duanxin_del&cndb=<%=info%>&id=<%=rs("id")%>" onclick="return test();">删除</a> 
		<a href=javascript:views("admin_duanxinadd.asp?act=toone&custom=<%=rs("custom")%>")>回复</a></td>
	</tr>
<%      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rs.MoveNext
   Loop
%><td height="20" align="center" colspan="8" class="alt3">
									<input class="button" type="button" onclick="CheckAll(this.form)"  value="全选" name="chkall" style="width: 45; height: 20">　
									<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">　
									<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
									</td>
                            </tr>
        </form>
<%End If
Rs.Close
Set  Rs=Nothing
%>
							<tr>
								<td height="20" align="center" colspan="8" class="alt2"><%Response.Write ShowPage("admin_duanxin.asp?info=listany",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
							</tr>
						</table>

<%end Sub

Sub listall()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>对所有会员发送的短信</b></td>
	</tr>
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_Daily.asp?info=duanxin_listdel&cndb=<%=info%>">
	<tr height=22 align="center">
		<td class="tcat"></td>
		<td width="56%" class="tcat">短信内容</td>
		<td width="14%" class="tcat">发送人</td>
		<td width="20%" class="tcat">发送时间</td>
		<td width="10%" class="tcat">管理</td>
	</tr>
<%
Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if
Set rs=Server.CreateObject("ADODB.RecordSet") 
if IsSqlDataBase = 2 then
	sql="select id,content,custom,dateandtime from Siti_duanxin where sitis=1 order by dateandtime desc"
else
	sql="select id,content,custom,dateandtime from [Siti_duanxin] where sitis=1 order by dateandtime desc"
end if
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
   Rs.PageSize=MaxPerPage
   Allpage=Rs.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rs.RecordCount
   Rs.MoveFirst
   Rs.AbsolutePage=CurrentPage
   i=0
do while not rs.eof
%>
	<tr height="22" align="center">
		<td class="alt2"><input type="checkbox" name="checked" value="<%=rs("id")%>"></td>
		<td class="alt1"><a href="javascript:view(<%=rs("id")%>)"><%=left(rs("content"),31)%></a></td>
		<td class="alt2"><%=rs("custom")%></td>
		<td class="alt1"><%=rs("dateandtime")%></td>
		<td class="alt2"><a href="admin_Daily.asp?info=duanxin_del&cndb=<%=info%>&id=<%=rs("id")%>" onclick="return test();">删除</a> </td>
	</tr>
<%      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rs.MoveNext
   Loop
%><td height="20" align="center" colspan="8" class="alt3">
									<input class="button" type="button" onclick="CheckAll(this.form)"  value="全选" name="chkall" style="width: 45; height: 20">　
									<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">　
									<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
									</td>
                            </tr>
        </form>
<%End If
Rs.Close
Set  Rs=Nothing
%>
							<tr>
								<td height="20" align="center" colspan="8" class="alt2"><%Response.Write ShowPage("admin_duanxin.asp?info=listall",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
							</tr>
						</table><%end Sub
Sub listone()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>对单一会员发送的短信</b></td>
	</tr>
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_Daily.asp?info=duanxin_listdel&cndb=<%=info%>">
	<tr height=22 align="center">
		<td class="tcat"></td>
		<td width="56%" class="tcat">短信内容</td>
		<td width="14%" class="tcat">发送人</td>
		<td width="20%" class="tcat">发送时间</td>
		<td width="10%" class="tcat">管理</td>
	</tr>
<%
Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if
Set rs=Server.CreateObject("ADODB.RecordSet") 
if IsSqlDataBase = 2 then
	sql="select id,content,custom,dateandtime from Siti_duanxin where sitis=0 order by dateandtime desc"
else
	sql="select id,content,custom,dateandtime from [Siti_duanxin] where sitis=0 order by dateandtime desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
   Rs.PageSize=MaxPerPage
   Allpage=Rs.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rs.RecordCount
   Rs.MoveFirst
   Rs.AbsolutePage=CurrentPage
   i=0
do while not rs.eof
%>
	<tr height="22" align="center">
		<td class="alt2"><input type="checkbox" name="checked" value="<%=rs("id")%>"></td>
		<td class="alt1"><a href="javascript:view(<%=rs("id")%>)"><%=left(rs("content"),31)%></a></td>
		<td class="alt2"><%=rs("custom")%></td>
		<td class="alt1"><%=rs("dateandtime")%></td>
		<td class="alt2"><a href="admin_Daily.asp?info=duanxin_del&cndb=<%=info%>&id=<%=rs("id")%>" onclick="return test();">删除</a> 
		<a href=javascript:views("admin_duanxinadd.asp?act=toone&custom=<%=rs("custom")%>")>回复</a></td>
	</tr>
<%      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rs.MoveNext
   Loop
%><td height="20" align="center" colspan="8" class="alt3">
									<input class="button" type="button" onclick="CheckAll(this.form)"  value="全选" name="chkall" style="width: 45; height: 20">　
									<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">　
									<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
									</td>
                            </tr>
        </form>
<%End If
Rs.Close
Set  Rs=Nothing
%>
							<tr>
								<td height="20" align="center" colspan="8" class="alt2"><%Response.Write ShowPage("admin_duanxin.asp?info=listone",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
							</tr>
						</table><%end Sub%>
</body>

</html>
💿 文件大小 542 K
👤 上传用户 foreverlovely
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#MSSQL #MySQL #ASP #系统设计
⌨️ 快捷键说明

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