newmess.asp

电子商务网络购物系统

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<!--#include file="functions/editpost.asp" -->
<!--#include file="includes/emoticons.asp" -->
<%
Response.Buffer = True

Dim strMode 
Dim strPostPage 
Dim lngMessageID
Dim strTopicSubject
Dim strBuddyName
Dim dtmReplyPMDate
Dim strMessage	
Dim intForumID	
Dim intIndexPosition
Dim intNumberOfOuterLoops
Dim intLoop	
Dim intInnerLoop

strMode = "PM"
lngMessageID = 0

If bannedIP() Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp?M=IP")
End If

If blnPrivateMessages = False Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

If intGroupID = 2 OR blnActiveMember = False Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp")
End If
strBuddyName = Request.QueryString("name")
If Request.QueryString("code") = "edit" Then
	strTopicSubject = Request.Form("Subject")
	strMessage = Request.Form("PmMessage")
	strBuddyName = Request.Form("Buddy")
End If

If Request.QueryString("code") = "reply" Then
	lngMessageID = CLng(Request.QueryString("pm"))
	strSQL = "SELECT timesmess.*, timesuser.Username "
	strSQL = strSQL & "FROM timesuser INNER JOIN timesmess ON timesuser.userid = timesmess.bbsid "
	strSQL = strSQL & "WHERE timesmess.messid=" & lngMessageID & " AND timesmess.userid=" & lngLoggedInUserID & ";"
	rsConn.Open strSQL, adoCon
	dtmReplyPMDate = CDate(rsConn("messdtm"))
	strBuddyName = rsConn("Username")
	strTopicSubject = Replace(rsConn("messtitle"), "RE: ", "")
	strTopicSubject = "RE: " & strTopicSubject
	strMessage = "-- 上一封短信 --"
	strMessage = strMessage & "<br />[B]来自 :[/B] " & strBuddyName
	strMessage = strMessage & "<br />[B]发送 :[/B] " & DateFormat(dtmReplyPMDate, saryDateTimeData) & " at " & TimeFormat(dtmReplyPMDate, saryDateTimeData) & "<br /><br />"
	strMessage = strMessage & rsConn("messmessage")
	strMessage = EditPostConvertion (strMessage)
	strMessage = vbCrLf & vbCrLf & vbCrLf & strMessage
	rsConn.Close
End If
%>
<title>发送新短信</title>
<script  language="JavaScript">
function CheckForm () {
	var errorMsg = "";
	if ((document.frmAddMessage.member.value=="") && (document.frmAddMessage.selectMember.value=="")){
		errorMsg += "\n\t给用户名 \t- 输入你想发送短信的用户名";
	}
	if (document.frmAddMessage.subject.value==""){
		errorMsg += "\n\t主题 \t\t- 为你的短信输入一个主题";
	}
	if (document.frmAddMessage.message.value==""){
		errorMsg += "\n\t消息 \t\t- 输入你的短信内容";
	}
	if (errorMsg != ""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改: \n";
		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}
	document.frmAddMessage.action = "sendmess.asp"
	document.frmAddMessage.target = "_self";

	return true;
}
</script>


  <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr>
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="newmess.asp" target="_self" class="boldLink">发送新短信</a><br /></td>
  </tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr>
  <td width="96%"><span class="lgText"><img src="images/subject.gif" alt="主题" align="absmiddle"> 短信: 发送新短信</span></td>
  <td align="right" width="96%"><a href="inbox.asp" target="_self"><img src="images/inbox.gif" alt="短信: 收件夹" border="0"></a><a href="outbox.asp" target="_self"><img src="images/outbox.gif" alt="短信: 发件夹" border="0"></a><a href="friendlist.asp" target="_self"><img src="images/friends.gif" alt="通讯录" border="0"></a><a href="newmess.asp" target="_self"><img src="images/newmess.gif" alt="写新短信" border="0"></a></td>
 </tr>
<tr>
<%
If IEWin = True AND blnIEEditor = True AND blnWYsiWYGEditor = True Then
	If Request.QueryString("code") = "edit" Then Session("PmMessage") = strMessage
	%><!--#include file="includes/repost.asp" --><%
Else
	%><!--#include file="includes/message.asp" --><%
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing

%>
</tr></table><br /><br />

<!-- #include file="includes/footer.asp" -->