user_message.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

		End Sub
		'读取信息
		Sub read()
			If KSCMS.G("id")=0 Then
				Response.Write "<script>alert('请指定正确的参数。');history.back();</script>"
			End If
			Set rs=server.createobject("adodb.recordSet")
			If request("action")="read" Then
				Conn.Execute("Update KS_Message Set flag=1 where ID="&Clng(KSCMS.G("id")))
			End If
			SqlStr="Select * from KS_Message where (Incept='"&KSUser.Get_UserName&"' or sEnder='"&KSUser.Get_UserName&"') and id="&Clng(KSCMS.G("ID"))
			RS.open SqlStr,Conn,1,1
			If RS.eof and RS.bof Then
				RS.close:Set rs=Nothing
				Response.Write "<script>alert('你是不是跑到别人的信箱啦、或者该信息已经被收件人删除。');history.back();</script>"
			Else
		%>
		<table cellpadding=3 cellspacing=1 align=center class=border>
					<tr>
						<th class="tdbg_main" colspan=3>欢迎使用短消息接收，<%=KSUser.Get_UserName%></th>
					</tr>
					<tr>
						<td valign=middle align=center colspan=3><a href="User_Message.asp?action=delet&id=<%=rs("id")%>&ComeUrl=<%=ComeUrl%>"><img src="images/delete.gIf" border=0 alt="删除消息"></a> &nbsp; <a href="User_Message.asp?action=new"><img src="images/write.gIf" border=0 alt="发送消息"></a> &nbsp;<a href="User_Message.asp?action=new&Touser=<%=KSCMS.HTMLEncode(rs("sEnder"))%>&id=<%=KSCMS.G("ID")%>"><img src="images/reply.gIf" border=0 alt="回复消息"></a>&nbsp;<a href="User_Message.asp?action=fw&id=<%=KSCMS.G("ID")%>"><img src="images/fw.gIf" border=0 alt=转发消息></a></td>
					</tr>
						<tr>
							<td height=25>
		<%If request("action")="outread" Then%>
							在<b><%=rs("SendTime")%></b>，您发送此消息给<b><%=KSCMS.HTMLEncode(rs("Incept"))%></b>！
		<%Else%>
					在<b><%=rs("SendTime")%></b>，<b><%=KSCMS.HTMLEncode(rs("sEnder"))%></b>给您发送的消息！
		<%End If%></td>
						</tr>
						<tr>
							<td valign=top align=left>
							<b>消息标题：<%=KSCMS.HTMLencode(rs("title"))%></b><hr size=1>
							<%=rs("content")%>
					</td>
						</tr>
		<%
			RS.close:Set rs=Nothing
			SqlStr="Select id,sEnder from KS_Message where Incept='"&KSUser.Get_UserName&"' and flag=0 and IsSend=1 and id>"&KSCMS.ChkClng(KSCMS.G("ID")&" order by SendTime")
			Set rs=Conn.Execute(SqlStr)
			If not (RS.eof and RS.bof) Then
		%>
						<tr>
							<td valign=top align=right><a href=User_Message.asp?action=read&id=<%=rs(0)%>&sEnder=<%=rs(1)%>>[读取下一条信息]</a>
					</td>
						</tr>
		<%
		End If
		RS.close:Set rs=Nothing
		%>
</table>
		<%
			End If
		End Sub
		'转发信息
		Sub fw()
			dim title,content,sEnder
			If KSCMS.G("ID")<>"" and isNumeric(KSCMS.G("ID")) Then
				Set rs=server.createobject("adodb.recordSet")
				SqlStr="Select title,content,sEnder from KS_Message where (Incept='"&KSUser.Get_UserName&"' or sEnder='"&KSUser.Get_UserName&"') and id="&Clng(KSCMS.G("ID"))
				RS.open SqlStr,Conn,1,1
				If RS.eof and RS.bof Then
					RS.close:Set rs=Nothing
					Response.Write "<script>alert('请指定正确的参数。');history.back();</script>"
				Else
				title=rs("title"):content=rs("content"):sEnder=rs("sEnder")
				End If
				RS.close:Set rs=Nothing
			End If
		%>
		<form action="User_Message.asp"  name="myform" method="post" id="myform" onsubmit="return CheckForm();">
				<table cellpadding=3 cellspacing=1 align=center class=border>
				  <tr> 
					<th colspan=2 height=25>
					  <input type=hidden name="action" value="sEnd">
					  发送短消息--请完整输入下列信息</th>
				  </tr>
				  <tr> 
					<td valign=middle width=15%><b>收件人：</b></td>
					<td valign=middle>
					  <input type=text name="Touser" value="<%=KSCMS.G("Touser")%>" size=80>
					  <Select name="font" onChange="DoTitle(this.options[this.selectedIndex].value)">
					  <OPTION selected value="">选择</OPTION>
		<%
		Set rs=server.createobject("adodb.recordSet")
		SqlStr="Select friend from KS_Friend where Username='"&KSUser.Get_UserName&"' order by Addtime desc"
		RS.open SqlStr,Conn,1,1
		Do While not RS.eof
		%>
		<OPTION value="<%=rs(0)%>"><%=rs(0)%></OPTION>			
		<%
		RS.movenext
		loop
		RS.close
		Set rs=Nothing
		%>
					  </Select>
					</td>
				  </tr>
				  <tr> 
					<td valign=top><b>标题：</b></td>
					<td valign=middle>
					  <input type=text name="title" size=90 maxlength=90 value="Fw：<%=title%>">&nbsp;
					</td>
				  </tr>
				  <tr> 
					<td valign=top><b>内容：</b></td>
					<td valign=middle>
					  <textarea cols=76 rows=16 name="message" title="Ctrl+Enter发送" style="display:none">
		
		
		======================== 下面是转发信息 =====================<br>
		原发件人：<%=sEnder%><br>
		<%=server.htmlencode(content)%>
		=======================================================</textarea>
		<iframe id='MessageContent' name='MessageContent' src='../Editor.asp?ID=message&style=0&ChannelID=9998' frameborder=0 scrolling=no width='100%' height='280'></iframe>
					</td>
				  </tr>
				  <tr> 
					<td colspan=2>
		<b>说明</b>：<br>
		① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br>
		② 可以用英文状态下的逗号将用户名隔开实现群发，最多<b><%=max_sEnd%></b>个用户<br>
		③ 标题最多<b>50</b>个字符，内容最多<b><%=max_sms%></b>个字符<br>
					</td>
				  </tr>
				  <tr> 
					<td 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>
		<%
			DoTitleJs
		End Sub
		
		Sub savemsg()
			dim Incept,title,message,Subtype,i,sUname
			If KSCMS.G("Touser")="" Then
				Response.Write("<script>alert('您忘记填写发送对象了吧。');history.back();</script>")
			Else
				Incept=KSCMS.G("Touser")
				Incept=split(Incept,",")
			End If
			If KSCMS.G("Title")="" Then
				Response.Write("<script>alert('您还没有填写标题呀。');history.back();</script>")
			ElseIf KSCMS.strLength(KSCMS.G("title"))>50 Then
				Response.Write("<script>alert('标题限定最多50个字符。');history.back();</script>")
			Else
				title=KSCMS.G("title")
			End If
			If KSCMS.G("Message")="" Then
				Response.Write("<script>alert('内容是必须要填写的噢。');history.back();</script>")
			ElseIf KSCMS.strLength(KSCMS.G("Message"))>Cint(max_sms) Then
				Response.Write("<script>alert('内容限定最多"&max_sms&"个字符。');history.back();</script>")
			Else
				message=KSCMS.G("message")
			End If
		
			for i=0 to ubound(Incept)
				sUname=replace(Incept(i),"'","")
				SqlStr="Select UserName from KS_User where UserName='"&sUname&"'"
				Set rs=Conn.Execute(SqlStr)
				If RS.eof and RS.bof Then
					RS.close:Set rs=Nothing
					Response.Write("<script>alert('系统没有这个用户，看看你的发送对象写对了嘛？');history.back();</script>")
				End If
				RS.close:Set rs=Nothing
		
				Select Case KSCMS.G("Submit")
				Case "发送"
					SqlStr="insert into KS_Message (Incept,sEnder,title,content,SendTime,flag,IsSend) values ('"&sUname&"','"&KSUser.Get_UserName&"','"&title&"','"&message&"','"&Now()&"',0,1)"
					Subtype="已发送信息"
				Case "保存"
					SqlStr="insert into KS_Message (Incept,sEnder,title,content,SendTime,flag,IsSend) values ('"&sUname&"','"&KSUser.Get_UserName&"','"&title&"','"&message&"','"&Now()&"',0,0)"
					Subtype="发件箱"
				Case Else
					SqlStr="insert into KS_Message (Incept,sEnder,title,content,SendTime,flag,IsSend) values ('"&sUname&"','"&KSUser.Get_UserName&"','"&title&"','"&message&"','"&Now()&"',0,1)"
					Subtype="已发送信息"
				End Select
				Conn.Execute(SqlStr)
				
				If i>Cint(max_sEnd)-1 Then
					Response.Write("<script>alert('最多只能发送给"&max_sEnd&"个用户，您的名单"&max_sEnd&"位以后的请重新发送');history.back();</script>")
					exit for
				End If
			next
		Response.Write("<script>alert('恭喜您，发送短信息成功。发送的消息同时保存在您的"&Subtype&"中。');location.href='User_Message.asp';</script>")
		
		End Sub
		
		'更改信息
		Sub edit()
			dim Incept,title,content,id
			If KSCMS.G("ID")<>"" and isNumeric(KSCMS.G("ID")) Then
				Set rs=server.createobject("adodb.recordSet")
				SqlStr="Select id,Incept,title,content from KS_Message where sEnder='"&KSUser.Get_UserName&"' and IsSend=0 and id="&Clng(KSCMS.G("ID"))
				RS.open SqlStr,Conn,1,1
				If not(RS.eof and RS.bof) Then
					Incept=rs("Incept"):title=rs("title"):content=rs("content"):id=rs("id")
				Else
					Response.Write("<script>alert('没有找到您要编辑的信息。');history.back();</script>")
				End If
				RS.close:Set rs=Nothing
			Else
				Response.Write("<script>alert('请指定相关参数。');history.back();</script>")
			End If
		%>
			<table width="80%" align=center cellpadding=3 cellspacing=1 class=border>
			<form action="User_Message.asp" method="post" name="myform" id="myform" onsubmit="return CheckForm();">
				  <tr> 
					<th colspan=2 height=25> 
					  <input type=hidden name="action" value="savedit"> 
					  <input type=hidden name="id" value="<%=id%>">
					  发送短消息--请完整输入下列信息</th>
				  </tr>
				  <tr> 
					<td valign=middle><b>收件人：</b></td>
					<td valign=middle>
					  <input type=text name="Touser" value="<%=Incept%>" size=80>
					</td>
				  </tr>
				  <tr> 
					<td valign=top><b>标题：</b></td>
					<td valign=middle>
					  <input type=text name="title" size=80 maxlength=80 value="<%=title%>">
					</td>
				  </tr>
				  <tr> 
					<td valign=top><b>内容：</b></td>
					<td valign=middle>
					  <input type="hidden" value="<%=server.htmlencode(content)%>" name="message" title="" style="display:none">
					  <iframe id='MessageContent' name='MessageContent' src='../Editor.asp?ID=message&style=0&ChannelID=9998' frameborder=0 scrolling=no width='100%' height='280'></iframe>
					</td>
				  </tr>
				  <tr> 
					<td colspan=2>
		<b>说明</b>：<br>
		① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br>
		② 标题最多<b>50</b>个字符，内容最多<b><%=max_sms%></b>个字符<br>
					</td>
				  </tr>
				  <tr> 
					<td 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>
			  </form>
		  </table>
			  </td>
			</tr>
			
</table>
		
		<%
		End Sub