message.asp

电子商务网络购物系统

<%
If strMode = "PM" Then
	strPostPage = "sendmess.asp"
Else
	strPostPage = "postmess.asp?pn=" & Request.QueryString("pn")
End If
%>
<script	language="JavaScript" src="messagejs.asp" type="text/javascript"></script>
<form method="post" name="frmAddMessage" action="<% = strPostPage %>" onReset="return confirm('你确认要重新填写此表单?');">
 <table	width="610" border="0" cellspacing="0" cellpadding="1" bgcolor="<% = strTableBorderColour %>" height="230" align="center">
  <tr>
   <td>
    <table width="100%"	border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<% =	strTableColour %>" background="<% = strTableBgImage %>"	height="201">
     <tr>
      <td>
       <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
	<tr align="left">
	 <td colspan="2" height="31" class="text">*必填</td>
	</tr><%
If lngLoggedInUserID = 2 AND strMode <> "edit" Then
	%>
	<tr>
	 <td align="right" width="15%" class="text">用户名*:</td>
	 <td width="70%">
	  <input type="text" name="Gname" size="20" maxlength="20" />
	 </td>
	</tr><%
End If

If strMode = "PM" Then
%>
	<tr>
	 <td align="right" width="15%" class="text">给用户:</td>
	 <td width="70%"><%
	strSQL = "SELECT timesuser.Username "
	strSQL = strSQL	& "FROM	timesuser INNER	JOIN timesfriend ON timesuser.userid = timesfriend.friendid "
	strSQL = strSQL	& "WHERE timesfriend.userid=" & lngLoggedInUserID &	" AND timesfriend.friendid <> 2 "
	strSQL = strSQL	& "ORDER By timesuser.Username ASC;"
	rsConn.Open strSQL, adoCon

	  %><input type="text" name="member" size="15" maxlength="15" value="<%	= strBuddyName %>"<% If	NOT rsConn.EOF Then Response.Write(" onChange=""document.frmAddMessage.selectMember.options[0].selected = true;""") %> />
	  <a href="JavaScript:openWin('pusearchmember.asp','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=440,height=255')"><img src="images/search.gif" alt="会员搜寻"	border="0" align="absmiddle"></a><%

	If NOT rsConn.EOF Then %>
	  <span	class="text"> 或者从好友栏选择:</span>
	  <select name="selectMember" onChange="member.value=''" />
	    <option value="">--	未选择 --</option><%
		Do While NOT rsConn.EOF
			Response.Write("<option	value=""" & rsConn("Username") & """>" & rsConn("Username") &	"</option>")
			rsConn.MoveNext
		Loop
		%>
	  </select><%

	Else
		Response.Write("<input type=""hidden"" name=""selectMember"" value="""" />")
	End If
	rsConn.Close
	
       %></td>
	</tr><%
End If
If strMode = "new" or strMode="editTopic" or strMode = "PM" or strMode = "poll"	Then
%>
	<tr>
	 <td align="right" width="15%" class="text">主题*:</td>
	 <td width="70%">
	  <input type="text" name="subject" size="30" maxlength="41"<% If strMode="editTopic" or strMode="PM" Then Response.Write(" value=""" &	strTopicSubject	& """")	%> /><%
	If (blnAdmin = True OR blnPriority = True) AND (strMode	= "new"	or strMode="editTopic" or strMode = "poll") Then
%>
	  <span	class="text">&nbsp;优先: <select name="priority">
	   <option value="0"<% If intTopicPriority = 0 Then Response.Write(" selected")	%>>一般</option>
	   <option value="1"<% If intTopicPriority = 1 Then Response.Write(" selected")	%>>置定主题</option><%
		If blnAdmin = True OR blnModerator Then	%>
	   <option value="2"<% If intTopicPriority = 2 Then Response.Write(" selected")	%>>顶端 (此论坛)</option><%
		End If
		If blnAdmin = True Then	%>
	   <option value="3"<% If intTopicPriority = 3 Then Response.Write(" selected")	%>>顶端 (所有论坛)</option>
	   <%
		End If
		%>
	  </select>
	  </span><%
	Else
		Response.Write("<input type=""hidden"" name=""priority"" value=""0"" />")
	End If
	%>
	 </td>
	</tr><%

End If
If strMode = "poll" Then

	%><!--#include file="poll.asp"	--><%
End If

 %>	<tr>
	 <td align="right" width="15%"><span class="text"> </span></td>
	 <td width="70%" valign="bottom">
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
	   <tr>
	    <td>
	     <table width="477"	border="0" cellspacing="0" cellpadding="1">
	      <tr>
	       <td width="346">
		<select	name="selectFont" onChange="FontCode(selectFont.options[selectFont.selectedIndex].value);document.frmAddMessage.selectFont.options[0].selected = true;">
		 <option selected>-- 字体	--</option>
		 <option value="FONT=Arial">Arial</option>
		 <option value="FONT=Courier">Courier New</option>
		 <option value="FONT=Times">Times New Roman</option>
		 <option value="FONT=Verdana">Verdana</option>
		</select>
		<select	name="selectSize" onChange="FontCode(selectSize.options[selectSize.selectedIndex].value);document.frmAddMessage.selectSize.options[0].selected = true;">
		 <option selected>-- 大小	--</option>
		 <option value="siZE=1">1</option>
		 <option value="siZE=2">2</option>
		 <option value="siZE=3">3</option>
		 <option value="siZE=4">4</option>
		 <option value="siZE=5">5</option>
		 <option value="siZE=6">6</option>
		</select>
		<select	name="selectColour" onChange="FontCode(selectColour.options[selectColour.selectedIndex].value);document.frmAddMessage.selectColour.options[0].selected = true;">
		 <option value="0" selected>-- 颜色	--</option>
		 <option value="BLACK">黑</option>
		 <option value="WHITE">白</option>
		 <option value="BLUE">兰</option>
		 <option value="RED">红</option>
		 <option value="GREEN">绿</option>
		 <option value="YELLOW">黄</option>
		 <option value="ORANGE">橘</option>
		 <option value="BROWN">褐</option>
		 <option value="MAGENTA">褐</option>
		 <option value="CYAN">紫</option>
		 <option value="LIME GREEN">石灰绿</option>
		</select>
	     </table>
	     <table width="477"	border="0" cellspacing="0" cellpadding="1">
	      <tr>
	       <td width="357" nowrap="nowrap"><a href="JavaScript:AddMessageCode('B','输入您所想要的粗体文字', '')"><img src="images/bold.gif" align="absmiddle"	border="0" alt="粗体"></a>
		<a href="JavaScript:AddMessageCode('I','输入您所想要的斜体文字',	'')"><img src="images/italic.gif" align="absmiddle" border="0"	alt="斜体"></a>
		<a href="JavaScript:AddMessageCode('U','输入您所想要的底线文字', '')"><img src="images/underline.gif" align="absmiddle" border="0" alt="下划线"></a>
		<a href="JavaScript:AddCode('URL')"><img src="images/hyperlink.gif" align="absmiddle" border="0" alt="添加连接"></a>
		<a href="JavaScript:AddCode('EMAIL')"><img src="images/postemail.gif" align="absmiddle" border="0"	alt="插入邮件连结"></a>
		<a href="JavaScript:AddMessageCode('CENTER','输入您所想要的居中文字', '')"><img	src="images/centre.gif" align="absmiddle" border="0" alt="中间"></a>
		<a href="JavaScript:AddCode('LIST', '')"><img src="images/list.gif" align="absmiddle" border="0" alt="清单"></a>
		<a href="JavaScript:AddCode('INDENT', '')"><img	src="images/indent.gif" align="absmiddle" border="0" alt="左对齐"></a>
		<a href="JavaScript:AddCode('IMG')"><img src="images/postimage.gif" align="absmiddle" border="0" alt="添加图片"></a><%
If blnImageUpload Then
	%>
		<a href="javascript:openWin('upimage.asp?MSG=BSC&fid=<% =	intForumID %>','images','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=400,height=330')"><img src="images/upimage.gif" align="absmiddle"	alt="上传图片"	border="0"></a><%
End If
If blnAttachments Then
	%>
		<a href="javascript:openWin('upfile.asp?MSG=BSC&fid=<% = intForumID %>','files','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=400,height=330')"><img src="images/upfile.gif" align="absmiddle" alt="上传文件" border="0"></a><%
End If
%>
		</td>
	       <td width="126" align="right" class="text" nowrap="nowrap">模式:
		<select	name="selectMode" onChange=PromptMode(this)>
		 <option value="1" selected>加快</option>
		 <option value="0">简单</option>
		</select>
	       </td>
	      </tr>
	     </table>
	    </td>
	   </tr>
	  </table>
	 </td>
	</tr>
	<tr>
	 <td valign="top" align="right"	width="15%" class="text">贴子内容*:<%
If blnEmoticons Then
	
%>	
         <table border="0" cellspacing="0" cellpadding="4" align="center">
          <tr><td class="smText" colspan="3" align="center"><br />表情</td></tr><%
	intIndexPosition = 1
	intNumberOfOuterLoops = 5
	If UBound(saryEmoticons) MOD 2 > 0 Then intNumberOfOuterLoops = intNumberOfOuterLoops + 1
	For intLoop = 1 to intNumberOfOuterLoops
	        Response.Write("<tr>")
		For intInnerLoop = 1 to 3  
			If intIndexPosition > UBound(saryEmoticons) Then 
				Response.Write("<td class=""text"">&nbsp;</td>")
			Else 
				Response.Write("<td class=""text""><a href=""JavaScript:AddSmileyIcon('" & saryEmoticons(intIndexPosition,2) & "')""><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0"" alt=""" & saryEmoticons(intIndexPosition,2) & """></a></td>")
	           	End If   
				  intIndexPosition = intIndexPosition + 1 
		Next            
		Response.Write("</tr>")
		
	Next             
	%>
         <tr><td colspan="3" align="center"><a href="javascript:openWin('emoticon.asp','emot','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=400,height=400')" class="smLink">更多</a></td></tr>
         </table></td><%
End If

%></td>
	 <td width="70%" valign="top">
	  <textarea name="message" cols="57" rows="12"><% If strMode="edit" OR strMode = "quote" or strMode="editTopic"	or strMode="PM"	Then Response.Write strMessage %></textarea>
	 </td>
	</tr>
	<tr>
	 <td align="right" width="92">&nbsp;</td>
	 <td width="508" valign="bottom" class="text">&nbsp;<input type="checkbox" name="forumCodes" value="True" checked /><% Response.Write("允许用" & " <a href=""JavaScript:openWin('code.asp','codes','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=550,height=400')"">HTML语法</a> " & "个性化你的发言") %>
	 </td></tr><%
If strMode <> "PM" Then
	If (blnLoggedInUserEmail = True	AND blnEmail = True) OR	blnLoggedInUserSignature = True	Then

%>
	<tr>
	 <td align="right" width="92">&nbsp;</td>
	 <td width="508" valign="bottom" class="text"><%
		If blnLoggedInUserSignature = True Then

	%>		&nbsp;<input type="checkbox" name="signature" value="True"<% If	blnAttachSignature = True Then Response.Write("	checked") %> />显示签名&nbsp;<%
		End If
		If blnEmail = True AND blnLoggedInUserEmail = True Then

	%>		&nbsp;<input type="checkbox" name="email" value="True"<% If blnReplyNotify = True Then Response.Write("	checked") %> />当有回复的时候用email提醒我&nbsp;<%

		End If
		  %>
	 </td>
	</tr>
	</tr><%

	End If
ElseIf strMode = "PM" AND blnEmail = True AND blnLoggedInUserEmail Then
	%>
	<tr>
	 <td align="right" width="92">&nbsp;</td>
	 <td width="508" valign="bottom" class="text">&nbsp;<input type="checkbox" name="email"	value="True" />当短信被阅读后以电子邮件通知我
	 </td>
	</tr><%
End If
%>
	<td><%
If NOT strMode = "PM" Then  %>
	 <input	type="hidden" name="mode" value="<% = strMode %>" />
	 <input	type="hidden" name="fid" value="<% = intForumID	%>" />
	 <input	type="hidden" name="tid" value="<% = lngTopicID	%>" />
	 <input	type="hidden" name="pid" value="<% = lngMessageID %>" />
	 <input	type="hidden" name="tpn" value="<% = intRecordPositionPageNum %>" /><%
	 'If reply get the thread position number in the topic
	 If strMode = "reply" OR strMode = "quote" Then	%>
	 <input	type="hidden" name="ThreadPos" value="<% = (intTotalNumOfThreads + 1) %>" /><%
	End If
End If %>
	 <input type="hidden" name="sessionID" value="<% = Session.SessionID %>" />
	 &nbsp;</td>
	<td width="70%"	align="left">
	 <p><%
If strMode="edit" OR strMode = "editTopic" Then

	Response.Write("	  <input type=""submit"" name=""Submit"" value=""更新"" onClick=""return CheckForm();"" />")

ElseIf strMode = "new" OR strMode = "poll" Then

	Response.Write("	  <input type=""submit"" name=""Submit"" value=""确定"" onClick=""return CheckForm();"" />")

ElseIf strMode = "PM" Then

	Response.Write("	  <input type=""submit"" name=""Submit"" value=""发送"" onClick=""return CheckForm();"" />")

Else

	Response.Write("	  <input type=""submit"" name=""Submit"" value=""确定"" onClick=""return CheckForm();"" />")

End If
			    %>
	  <input type="button" name="Preview" value="预览"	onClick="OpenPreviewWindow('prepost.asp', document.frmAddMessage);" />
	  <input type="reset" name="Reset" value="清除" />
	 </p>
	</td>
	</tr>
       </table>
      </td>
     </tr>
    </table>
   </td>
  </tr>
 </table>
</form>