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

📄 user_message.asp

📁 淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
		sql="Select id,incept,title,content from " & Db.MessageTable & " where sEnder='"&Cl.MemberName&"' and issEnd=0 and id="&Cl.GetClng(request("id"))
		Cl.Execute_U(sql)
		If not(rs.eof and rs.bof) Then
			incept=rs("incept"):title=rs("title"):content=rs("content"):id=rs("id")
		Else
			Call Cl.OutMsg(0,"没有找到您要编辑的信息。","javascript:history.go(-1)")
		End If
		rs.close:Set rs=Nothing
	Else
		Call Cl.OutMsg(0,"请指定相关参数。","javascript:history.go(-1)")
	End If
%>
<form action="User_Message.asp" method="post" name="messager" id="messager">
<table cellpadding="3" cellspacing="1" align="center" class="border">
  <tr> 
	<th colspan="2" height="25" class="title"> 
	  <input type="hidden" name="action" value="savedit" /> 
	  <input type="hidden" name="id" value="<%=id%>" />
	  发送短消息--请完整输入下列信息</th>
  </tr>
  <tr> 
	<td  class="tdbg" valign="middle"><b>收件人：</b></td>
	<td  class="tdbg" valign="middle">
	  <input type="text" name="touser" value="<%=incept%>" size="60" />
	</td>
  </tr>
  <tr> 
	<td class="tdbg" valign="top"><b>标题：</b></td>
	<td  class="tdbg" valign="middle">
	  <input type="text" name="title" size="60" maxlength="80" value="<%=title%>" />
	</td>
  </tr>
  <tr> 
	<td  class="tdbg" valign="top"><b>内容：</b></td>
	<td  class="tdbg" valign="middle">
	  <textarea cols="52" rows="6" name="message" title=""><%=server.htmlencode(content)%></textarea>
	</td>
  </tr>
  <tr> 
	<td  class="tdbg" colspan="2">
<b>说明</b>：<br />
① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br />
② 标题最多<b>50</b>个字符，内容最多<b><%=max_sms%></b>个字符<br />
	</td>
  </tr>
  <tr> 
	<td  class="tdbg" valign="middle" colspan="2" align="center"> 
	  <input type="submit" value="发送" name="Submit" />
	  &nbsp; 
	  <input type="submit" value="保存" name="Submit" />
	  &nbsp; 
	  <input type="reset" name="Clear" value="清除" />
	  &nbsp; 
	  <input type="button" name="close" value="关闭" onclick="window.close()" />
	</td>
  </tr>
</table>
</form>
<%
End Sub

Sub savedit()
	dim incept,title,message
	If request("id")="" or not isNumeric(request("id")) Then
		Call Cl.OutMsg(0,"请指定相关参数。","javascript:history.go(-1)")
	End If
	If request("touser")="" Then
		Call Cl.OutMsg(0,"您忘记填写发送对象了吧。","javascript:history.go(-1)")
	Else
		incept=Cl.ReplaceBadChar(request("touser"))
	End If
	If request("title")="" Then
		Call Cl.OutMsg(0,"您还没有填写标题呀。","javascript:history.go(-1)")
	Else
		title=Cl.ReplaceBadChar(request("title"))
	End If
	If request("message")="" Then
		Call Cl.OutMsg(0,"内容是必须要填写的噢。","javascript:history.go(-1)")
	Else
		message=Cl.ReplaceBadChar(request("message"))
	End If

	sql="Select "&Db.UserName&" from "&Db.UserTable&" where "&Db.UserName&"='"&incept&"'"
	Set rs=Cl.Execute_U(sql)
	If rs.eof and rs.bof Then
		Set rs=Nothing
		Call Cl.OutMsg(0,"系统没有这个用户，看看你的发送对象写对了嘛？","javascript:history.go(-1)")
	End If
	Set rs=Nothing

	If request("Submit")="发送" Then
		sql="update " & Db.MessageTable & " Set incept='"&incept&"',sEnder='"&Cl.MemberName&"',title='"&title&"',content='"&message&"',sEndtime="&SQLNowString_U&",flag=0,issEnd=1 where id="&Cl.GetClng(request("id"))
	Else
		sql="update " & Db.MessageTable & " Set incept='"&incept&"',sEnder='"&Cl.MemberName&"',title='"&title&"',content='"&message&"',sEndtime="&SQLNowString_U&",flag=0,issEnd=0 where id="&Cl.GetClng(request("id"))
	End If
	Set rs=Cl.Execute_U(sql)
	if request("Submit")="发送" then
	Call Cl.OutMsg(0,"恭喜您，发送短信息成功。发送的消息同时保存在您的已发送信息中。","User_Message.asp")
	else
	Call Cl.OutMsg(0,"恭喜您，保存短信息成功。消息已经保存在您的发件箱中。","User_Message.asp")
	end if
End Sub

'收件逻辑删除，置于回收站，入口字段delR，可用于批量及单个删除
Sub delinbox()
	dim delid
	delid=replace(request("id"),"'","")
	delid=replace(request("id")," ","")
	If delid="" or isnull(delid) or Not IsNumeric(Replace(delid,",","")) Then
		Call Cl.OutMsg(0,"请选择相关参数。","javascript:history.go(-1)")
	Else
		Cl.Execute_U("update " & Db.MessageTable & " Set delR=1 where incept='"&Trim(Cl.MemberName)&"' and id in ("&delid&")")
		Call Cl.OutMsg(0,"删除短信息成功。删除的消息将转移到您的回收站。",ComeUrl)
	End If
End Sub

Sub AllDelinbox()
	Cl.Execute_U("update " & Db.MessageTable & " Set delR=1 where incept='"&Trim(Cl.MemberName)&"' and delR=0")
	Call Cl.OutMsg(0,"删除短信息成功。删除的消息将转移到您的回收站。",ComeUrl)
End Sub

'发件逻辑删除，置于回收站，入口字段delS，可用于批量及单个删除
Sub deloutbox()
	dim delid
	delid=replace(request("id")," ","")
	If delid="" or isnull(delid) or Not IsNumeric(Replace(delid,",","")) Then
		Call Cl.OutMsg(0,"请选择相关参数。","javascript:history.go(-1)")
	Else
		Cl.Execute_U("update " & Db.MessageTable & " Set delS=1 where sEnder='"&Trim(Cl.MemberName)&"' and issEnd=0 and id in ("&delid&")")
		Call Cl.OutMsg(0,"删除短信息成功。删除的消息将转移到您的回收站。",ComeUrl)
	End If
End Sub

Sub AllDeloutbox()
	Cl.Execute_U("update " & Db.MessageTable & " Set delS=1 where sEnder='"&Trim(Cl.MemberName)&"' and delS=0 and issEnd=0")
	Call Cl.OutMsg(0,"删除短信息成功。删除的消息将转移到您的回收站。",ComeUrl)
End Sub

'已发送逻辑删除，置于回收站，入口字段delS，可用于批量及单个删除
'delS：0未操作，1发送者删除，2发送者从回收站删除
Sub delissEnd()
	dim delid
	delid=replace(request("id")," ","")
	If delid="" or isnull(delid) or Not IsNumeric(Replace(delid,",","")) Then
		Call Cl.OutMsg(0,"请选择相关参数。","javascript:history.go(-1)")
	Else
		Cl.Execute_U("update " & Db.MessageTable & " Set delS=1 where sEnder='"&Trim(Cl.MemberName)&"' and issEnd=1 and id in ("&delid&")")
		Call Cl.OutMsg(0,"删除短信息成功。删除的消息将转移到您的回收站。",ComeUrl)
	End If
End Sub

Sub AllDelissEnd()
	Cl.Execute_U("update " & Db.MessageTable & " Set delS=1 where sEnder='"&Trim(Cl.MemberName)&"' and delS=0 and issEnd=1")
	Call Cl.OutMsg(0,"删除短信息成功。删除的消息将转移到您的回收站。",ComeUrl)
End Sub

'用户能完全删除收到信息和逻辑删除所发送信息，逻辑删除所发送信息设置入口字段delS参数为2
Sub delrecycle()
	dim delid
	delid=replace(request("id")," ","")
	If delid="" or isnull(delid) or Not IsNumeric(Replace(delid,",","")) Then
		Call Cl.OutMsg(0,"请选择相关参数。","javascript:history.go(-1)")
	Else
		Cl.Execute_U("delete from " & Db.MessageTable & " where incept='"&Cl.MemberName&"' and delR=1 and id in ("&delid&")")
		Cl.Execute_U("update " & Db.MessageTable & " Set delS=2 where sEnder='"&Trim(Cl.MemberName)&"' and delS=1 and id in ("&delid&")")
		Call Cl.OutMsg(0,"删除短信息成功。删除的消息将不可恢复。",ComeUrl)
	End If
End Sub
Sub AllDelrecycle()
	Cl.Execute_U("delete from " & Db.MessageTable & " where incept='"&Cl.MemberName&"' and delR=1")	
	Cl.Execute_U("update " & Db.MessageTable & " Set delS=2 where sEnder='"&Trim(Cl.MemberName)&"' and delS=1")
	Call Cl.OutMsg(0,"删除短信息成功。删除的消息将不可恢复。",ComeUrl)
End Sub

Sub delete()
	dim delid
	delid=Cl.Checkstr(request("id"))
	ComeUrl=Request("ComeUrl")
	If ComeUrl="" Then ComeUrl="User_Message.asp"
	If not isNumeric(request("id")) or delid="" or isnull(delid) Then
		Call Cl.OutMsg(0,"请选择相关参数。","javascript:history.go(-1)")
	Else
		Cl.Execute_U("update " & Db.MessageTable & " Set delR=1 where incept='"&Trim(Cl.MemberName)&"' and id="&Clng(delid))
		Cl.Execute_U("update " & Db.MessageTable & " Set delS=1 where sEnder='"&Trim(Cl.MemberName)&"' and id="&Clng(delid))
		Call Cl.OutMsg(0,"删除短信息成功。删除的消息将置于您的回收站内。",ComeUrl)
	End If
End Sub

sub smsmain()
	dim newstyle,boxName,smstype,readaction,turl
	SQL = "Select id,sender,incept,title,content,flag,sendtime,delR,delS,isSend From " & Db.MessageTable & " where "
	Select Case Action
	Case "inbox"
		boxName="收件箱":smstype="inbox":readaction="read":turl="readsms"
		sql=SQL & "incept='"&Trim(Cl.MemberName)&"' and issend=1 and delR=0 order by flag,id desc"
	Case "outbox"
		boxName="草稿箱":smstype="outbox":readaction="edit":turl="sms"
		sql=SQL & "sender='"&Trim(Cl.MemberName)&"' and issend=0 and delS=0 order by id desc"
	Case "issend"
		boxName="已发送的消息":smstype="issend":readaction="outread":turl="readsms"
		sql=SQL & "sender='"&Trim(Cl.MemberName)&"' and issend=1 and delS=0 order by id desc"
	Case "recycle"
		boxName="垃圾箱":smstype="recycle":readaction="read":turl="readsms"
		sql=SQL & " ((sender='"&Trim(Cl.MemberName)&"' and delS=1) or (incept='"&Trim(Cl.MemberName)&"' and delR=1)) and not delS=2 order by id desc"
	Case Else
		boxName="收件箱":smstype="inbox":readaction="read":turl="readsms"
		sql=SQL & "incept='"&Trim(Cl.MemberName)&"'  and issend=1 and delR=0 order by flag,id desc"
	End Select
%>
<table border="0" align="center" cellpadding="0" cellspacing="1" class="border">
	<tr>
	<td class="title" align="center" valign="middle" colspan="6">我的<%=boxname%></td>
	</tr>
	<form action="User_Message.asp" method="post" name="inbox" id="inbox">
	<tr height='23' class="title2">
	<td align="center" width="30">已读</td>
	<td align="center" width="100">
	<%if smstype="inbox" or smstype="recycle" then response.write "发件人" else response.write "收件人"%></td>
	<td align="center" width="300">主题</td>
	<td align="center" width="150">日期</td>
	<td align="center" width="50">大小</td>
	<td align="center" width="30">操作</td>
	</tr>
<%
set rs=server.createobject("adodb.recordset")
OpenConn_U : rs.open sql,Conn_U,1,1
if rs.eof and rs.bof then
%>
	<tr>
	<td class="tdbg" align="center" valign="middle" colspan="6">您的<%=boxname%>中没有任何内容。</td>
	</tr>
<%
rs.close:set rs=Nothing
else

TotalPut = rs.recordcount
if (TotalPut mod PageSize)=0 then
	TotalPages = TotalPut \ PageSize
else
	TotalPages = TotalPut \ PageSize + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then CurrentPage=1
rs.move (CurrentPage-1)*PageSize
SQL=rs.GetRows(PageSize)
rs.close:set rs=Nothing
For i=0 To Ubound(SQL,2)
%>
	<tr>
	<td class="tdbg" align="center" valign="middle">
	<%
	select case smstype
	case "inbox"
		if SQL(5,i)=0 then
			newstyle="font-weight:bold"
			response.write "<img src=""../images/Message/news.gif"">"
		else
			response.write "<img src=""../images/Message/olds.gif"">"
			newstyle="font-weight:normal"
		end if
	case "outbox"
		if SQL(5,i)=0 then
			newstyle="font-weight:bold"
		else
			newstyle="font-weight:normal"
		end if
		response.write "<img src=""../images/Message/issend_2.gif"">"
	case "issend"
		if SQL(5,i)=0 then
			newstyle="font-weight:bold"
		else
			newstyle="font-weight:normal"
		end if
		response.write "<img src=""../images/Message/issend_1.gif"">"
	case "recycle"
		if SQL(5,i)=0 then
			newstyle="font-weight:bold"
			response.write "<img src=""../images/Message/news.gif"">"
		else
			response.write "<img src=""../images/Message/olds.gif"">"
			newstyle="font-weight:normal"
		end if
	end select
	%></td>
	<td class="tdbg" align="center" valign="middle" style="<%=newstyle%>">
	<%if smstype="inbox" or smstype="recycle" then%>
	<%=Cl.HTMLEncode(SQL(1,i))%>
	<%else%>
	<%=Cl.HTMLEncode(SQL(2,i))%>
	<%end if

	'id,sender,incept=2,title,content,flag=5,sendtime,delR=7,delS,isSend=9
	%></td>
	<td class="tdbg" align="left" style="<%=newstyle%>"><a href="User_Message.asp?action=<%=readaction%>&id=<%=SQL(0,i)%>&sender=<%=SQL(1,i)%>"><%=Cl.HTMLEncode(SQL(3,i))%></a></td>
	<td class="tdbg" style="<%=newstyle%>"><%=SQL(6,i)%></td>
	<td class="tdbg" style="<%=newstyle%>"><%=len(SQL(4,i))%>Byte</td>
	<td align="center" valign="middle" width="30" class="tdbg"><input type="checkbox" name="id" value="<%=SQL(0,i)%>" /></td>
	</tr>
<%
	Next
end if
%>
	<tr> 
	<td align="right" valign="middle" colspan="6" class="tdbg">节省每一分空间，请及时删除无用信息&nbsp;
	  <input type="checkbox" name="chkall" value="on" onclick="CheckAll(this.form)" />
	  选中所有显示记录&nbsp;
	  <input type="submit" name="action" onclick="{if(confirm('确定删除选定的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="删除<%=replace(boxname,"箱","")%>" />
	  &nbsp;
	  <input type="submit" name="action" onclick="{if(confirm('确定清除<%=boxname%>所有的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="清空<%=boxname%>" /></td>
	</tr>
	</form>
	<tr> 
	<td align="right" valign="middle" colspan="6" class="tdbg"><%=Cl.ShowPage("User_Message.asp?action="&action,TotalPut,PageSize,"条","信息")%></td>
	</tr>
</table>
<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>
<%
end sub

Sub DoTitleJs()
%>
<script language="JavaScript" type="text/javascript"> 
function DoTitle(addTitle) {  
 var revisedTitle;  
 var currenttitle = document.messager.touser.value; 

 if(currenttitle=="") revisedTitle = addTitle; 
 else { 
  var arr = currenttitle.split(","); 
  for (var i=0; i < arr.length; i++) { 
   if( addTitle.indexOf(arr[i]) >=0 && arr[i].length==addTitle.length ) return; 
  } 
  revisedTitle = currenttitle+","+addTitle; 
 } 

 document.messager.touser.value=revisedTitle;  
 document.messager.touser.focus(); 
 return; 
} 
</script>
<%
End Sub

'===================================================
' CreateLive CMS Version 4.0
'							Powered by Aspoo.CoM
'===================================================
' Mail: support@aspoo.cn, Info@aspoo.cn
' Q  Q: 3315263, 596197794
' Msn : support@aspoo.cn, Clw866@hotmail.com
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005-2007 Aspoo.CoM All Rights Reserved.
'===================================================
%>
12

⌨️ 快捷键说明

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