repost.asp

电子商务网络购物系统

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<%
Dim strSelectFormBuddyList
If strMode = "PM" Then
	strPostPage = "sendmess.asp"
Else
	strPostPage = "postmess.asp?pn=" & Request.QueryString("pn")
End If

%>
<script language="JavaScript" src="iemessjs.asp" type="text/javascript"></script>
<form method="post" name="frmAddMessage" action="<% = strPostPage %>" onSubmit="return CheckForm();" onReset="return ResetForm();">
 <table width="96%" bgcolor="<%= strtablebgcolour %>" cellspacing="1" cellpadding="0"  align="center">
  <tr><td align="center" valign="bottom" colspan="2" height="25" background="<% = strTablePostsTitleBgImage %>">
<% If strMode="edit" OR strMode = "editTopic" Then %>
更 新 帖 子
<% ElseIf strMode = "new" OR strMode = "poll" Then %>
发 表 新 主 题
<% ElseIf strMode = "PM" Then %>
发 送 短 信
<% Else %>
快 速 回 复
<% End If %></td></tr>
<%
	If lngLoggedInUserID = 2 AND strMode <> "edit" Then %>
	<tr bgcolor="#ffffff"><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 bgcolor="#ffffff"><td align="right" width="15%" class="text">接受人*:</td>
			<td width="70%" class="text">
	<%
	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

	Response.Write(vbCrLf & "          <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;""")
	Response.Write(" />")
	Response.Write(vbCrLf & "          <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
        	
	Response.Write(vbCrLf & "          <span class=""text"">" & strSelectFormBuddyList & ":</span>")
	Response.Write(vbCrLf & "          <select name=""selectMember"" onChange=""member.value=''"">")
	Response.Write(vbCrLf & "            <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
	Response.Write(vbCrLf & "       </td>")
	Response.Write(vbCrLf & "        </tr>")
End If

If strMode = "new" or strMode="editTopic" or strMode = "PM" or strMode = "poll" Then
%>
        <tr bgcolor="#FFFFFF">
         <td align="right" class="text">主题*:</td>
         <td width="602">
          <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><%
	End If
	%>
         </td>
        </tr><%

End If
If strMode = "poll" Then

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

End If


%>	<tr>
         <td bgcolor="#ffffff" valign="bottom" align="right" width="140">&nbsp;</td>
         <td bgcolor="#ffffff" width="602" valign="bottom">
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
           <tr>
            <td bgcolor="#ffffff">
             <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
              <tr>
               <td>
                <select name="selectFont" onChange="FormatText('fontname', selectFont.options[selectFont.selectedIndex].value);document.frmAddMessage.selectFont.options[0].selected = true;"  >
                 <option selected>-- 字体 --</option>
                 <option value="Arial, Helvetica, sans-serif">Arial</option>
                 <option value="Courier New, Courier, mono">Courier New</option>
                 <option value="Times New Roman, Times, serif">Times New Roman</option>
                 <option value="Verdana, Arial, Helvetica, sans-serif">Verdana</option>
                </select>
                <select name="selectSize" onChange="FormatText('fontsize', selectSize.options[selectSize.selectedIndex].value);document.frmAddMessage.selectSize.options[0].selected = true;" >
                 <option selected>-- 大小 --</option>
                 <option value="1">1</option>
                 <option value="2">2</option>
                 <option value="3">3</option>
                 <option value="4">4</option>
                 <option value="5">5</option>
                 <option value="6">6</option>
                </select>
                <select name="selectColour" onChange="FormatText('ForeColor', 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="limegreen">石灰绿</option>
                </select>
               </td>
              </tr>
              <tr>
               <td bgcolor="#ffffff"><img src="images/cut.gif" align="absmiddle" onClick="FormatText('cut')" style="cursor: hand;" alt="剪切">
                <img src="images/copy.gif" align="absmiddle" onClick="FormatText('copy')" style="cursor: hand;" alt="复制">
                <img src="images/paste.gif" align="absmiddle" onClick="FormatText('paste')" style="cursor: hand;" alt="粘贴">
                <img src="images/bold.gif" align="absmiddle" alt="粗体" onClick="FormatText('bold', '')" style="cursor: hand;">
                <img src="images/italic.gif"  align="absmiddle" alt="斜体" onClick="FormatText('italic', '')" style="cursor: hand;">
                <img src="images/underline.gif" align="absmiddle" alt="下划线" onClick="FormatText('underline', '')" style="cursor: hand;">
                <img src="images/left.gif" align="absmiddle" onClick="FormatText('JustifyLeft', '')" style="cursor: hand;" alt="居左">
                <img src="images/centre.gif" align="absmiddle" border="0" alt="居中" onClick="FormatText('JustifyCenter', '')" style="cursor: hand;">
                <img src="images/right.gif" align="absmiddle" onClick="FormatText('JustifyRight', '')" style="cursor: hand;" alt="居右">
                <img src="images/list.gif" align="absmiddle" border="0" alt="无序" onClick="FormatText('InsertUnorderedList', '')" style="cursor: hand;">
                <img src="images/outdent.gif" align="absmiddle" onClick="FormatText('Outdent', '')" style="cursor: hand;" alt="右对齐">
                <img src="images/indent.gif" align="absmiddle" border="0" alt="左对齐" onClick="FormatText('indent', '')" style="cursor: hand;">
                <img src="images/hyperlink.gif" align="absmiddle" border="0" alt="添加连接" onClick="FormatText('createLink')" style="cursor: hand;">
                <img src="images/postimage.gif" align="absmiddle" border="0" alt="添加图片" onClick="AddImage()" style="cursor: hand;"><%
If blnImageUpload Then
	%>
                <a href="javascript:openWin('upimage.asp?MSG=ADV&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=ADV&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>
		</tr>
             </table>
            </td>
           </tr>
          </table>
         </td>
        </tr>
        <tr bgcolor="#FFFFFF">
         <td valign="top" align="right" height="61" width="140" class="text">
<%
If blnEmoticons Then
	
%>	
         <table border="0" cellspacing="0" cellpadding="4" align="center">
          <tr><td bgcolor="#ffffff" 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 %>
	<tr>
	<%
		For intInnerLoop = 1 to 3  
			If intIndexPosition > UBound(saryEmoticons) Then %>
			<td class="text">&nbsp;</td>
			<% Else %>
			<td class="text"><img src="<%= saryEmoticons(intIndexPosition,3) %>" border="0" alt="<%= saryEmoticons(intIndexPosition,2) %>" OnClick="AddSmileyIcon('<%= saryEmoticons(intIndexPosition,3) %>')" style="cursor: hand;"></td>
			<%  	End If
	              intIndexPosition = intIndexPosition + 1 
		Next  %>
		</tr><%	Next   %>
         <tr><td bgcolor="#ffffff" colspan="2" align="center"><a href="javascript:openWin('smily.asp','emot','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=400,height=450')" class="smLink">更多.....</a></td></tr>
         </table></td><%
End If %>
<td width="602" height="61" valign="top"><%
Randomize Timer
%>
          <script language="javascript">
		  document.write ('<iframe src="textbox.asp?mode=<% = strMode %>&code=<% = Request.QueryString("code") %>&POID=<% = lngMessageID %>&pid=<% = CLng(Request.QueryString("pid")) %>&ID=<% = CInt(RND * 2000) %>" id="message" width="600" height="200"></iframe>')
                  frames.message.document.designMode = "On";
          </script>
          <noscript><span class="bold"><br />为了在论坛正常发表贴子,你的浏览器必须支持</span></noscript></td>
        </tr>
        <tr bgcolor="#FFFFFF" class="smtext">
	 <td width="140" nowrap><input type="checkbox" name="forumCodes" value="True" checked />允许&nbsp;<a href="JavaScript:openWin('code.asp','codes','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=600,height=400')">HTML</a>&nbsp;语法</td>
	 <td width="602" valign="bottom" class="text"><%
	 If strMode <> "PM" Then
	If (blnLoggedInUserEmail = True AND blnEmail = True) OR blnLoggedInUserSignature = True Then
 
		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") %> />订阅主题&nbsp;
	<% End If

	End If

ElseIf strMode = "PM" AND blnEmail = True AND blnLoggedInUserEmail Then
	%>
<input type="checkbox" name="email" value="True"><span class="text">短信被阅读后通知我</span></td>
</tr>
<% End If %>
<tr bgcolor="#FFFFFF"><td>
         <input type="hidden" name="message" value=""><%
			If 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 strMode = "reply" OR strMode = "quote" Then %>
         <input type="hidden" name="ThreadPos" value="<% = (intTotalNumOfThreads + 1) %>" /><%
	End If
End If %>
         <input type="hidden" name="browser" value="IE" />
         <input type="hidden" name="sessionID" value="<% = Session.SessionID %>" />
         &nbsp;</td>
<td width="602" height="20">
<%
If strMode="edit" OR strMode = "editTopic" Then %>
<input type="submit" name="Submit" value="更新帖子" OnClick="document.frmAddMessage.message.value = frames.message.document.body.innerHTML;" tabindex="30" />
<% ElseIf strMode = "new" OR strMode = "poll" Then %>
<input type="submit" name="Submit" value="发表主题" OnClick="document.frmAddMessage.message.value = frames.message.document.body.innerHTML;" tabindex="30" />
<% ElseIf strMode = "PM" Then %>
<input type="submit" name="Submit" value="发送短信" OnClick="document.frmAddMessage.message.value = frames.message.document.body.innerHTML;" tabindex="30" />
<% Else %>
<input type="submit" name="Submit" value="回复" OnClick="document.frmAddMessage.message.value = frames.message.document.body.innerHTML;" tabindex="30" />
<% End If  %>
          <input type="button" name="Preview" value="预览" onClick="document.frmAddMessage.message.value = frames.message.document.body.innerHTML; OpenPreviewWindow('prepost.asp', document.frmAddMessage);" />
          <input type="reset" name="Reset" value="清除" />
        </td></tr></table></form>