post.asp

软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能

<!--#include file="conn.asp"-->
<%Dim SavePostContent,SavePostSubMain,SavePostName,SavePostEmail,SavePostHomeurl,SaveAction,Check(18)
Dim contentid,quotid,replyid,IsSavePost,SavePostSex
IsSavePost=False
SavePostName=session("postname")
SavePostEmail=session("postemail")
SavePostHomeurl=session("posthomeurl")
SavePostSex=session("sex")
Check(1)="CHECKED"
contentid=request.querystring("id")
quotid=request.querystring("quotid")
replyid=request.querystring("replyid")

if contentid>"" and isnumeric(contentid) then	
	SaveAction="addreport&id=" & contentid
	if quotid>"" and isnumeric(quotid) then
		Dim lycontent
		DoWhat="引用留言"
		SqlData="select ly from Data where id=" & Cint(quotid)
		Rs.open SqlData,conn,1,1
		lycontent=Rs(0)
		Rs.close
		Set Rs=nothing
		Conn.close
		Set Conn=nothing
		if len(lycontent)>100 then lycontent=left(lycontent,100) & "..."
		SavePostContent="[quote][b]此下是引用[i]" & request.querystring("name") & "在" & request.querystring("writetime") & "[/i]的发言：[/b]" & CHR(10) & lycontent & "[/quote]"		
		IsSavePost=True
	elseif replyid>"" and isnumeric(replyid) then
		DoWhat="回复留言"
		SavePostSubMain="回复：" & "(" & request.querystring("name") & ")" & request.querystring("contentmain")
		IsSavePost=True	
	end if	
	if IsSavePost then
		session("BackUrl")=ToUrl
		call HeadHtml()
		call PostMainBody()
		call FootHtml()
	end if
end if

sub PostMainBody()	'主体函数%>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td width="50%"><a href="<%=ToUrl%>"><img src="images/front.gif" border=0 alt="返回前页"></a><td width="50%" align=right><a href="default.asp"><img src="images/home.gif" border=0 alt="返回首页"></a> 
<a href="upfile.asp"><img src="images/newpage.gif" border=0 alt="签写留言"></a>
<%call islogin()
response.write "</td></tr></table>"
call post()
end sub

sub post()		'发帖函数（多页面共享）%>
<script src="ubbcode.js"></script>
<table width="780" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#DEE5EF">
  <FORM METHOD=POST ACTION="save.asp?action=<%=SaveAction%>" name="newform" onsubmit="return Validator(this)">
    <tr bgcolor="#DEE5EF"> 
      <td width=100 valign="middle">
		<p align="right"><font color="#FF0000"><b>用户名必填</b></font></td><td width=*><input type="text" name="name" size="12" maxlength=20 value="<%=SavePostName%>"> <font color=#800000>*</font>
      &nbsp;&nbsp;<B>性 别：</B><input type="radio" name="sex" <%if SavePostSex then response.write "CHECKED"%> value=1>男 <input type="radio" <%if Not SavePostSex then response.write "CHECKED"%> name="sex" value=0>女
      &nbsp;<font color="#FF0000"><b>注册邮 箱：</b></font><input type="text" name="email" size="20" maxlength=180 value="<%=SavePostEmail%>">
      &nbsp;&nbsp;<B>主 页：</B><input type="text" name="homeurl" size="22" maxlength=180 value="<%=SavePostHomeurl%>"></td></tr>
    <tr><td valign="top"><B>表 情：</B><LI>将放在主题前面</td>
      <td><%for ii=1 to 18
      if ii=10 then response.write "<br>"%>
      <input type="radio" value=<%=ii & " " & Check(ii)%> name="face"><img src="face/face<%=ii%>.gif" border=0>
      <%next%></td></tr><tr bgcolor="#DEE5EF"><td valign="top"><B>主 题：</B><select size=1 name="about" onchange=DoTitle(this.options[this.selectedIndex].value)>
       <OPTION selected value="">选择话题</OPTION> <OPTION value=[原创]>[原创]</OPTION> 
       <OPTION value=[转帖]>[转帖]</OPTION> <OPTION value=[灌水]>[灌水]</OPTION> 
       <OPTION value=[讨论]>[讨论]</OPTION> <OPTION value=[求助]>[求助]</OPTION> 
       <OPTION value=[推荐]>[推荐]</OPTION> <OPTION value=[公告]>[公告]</OPTION> 
       <OPTION value=[注意]>[注意]</OPTION> <OPTION value=[贴图]>[贴图]</OPTION>
       <OPTION value=[建议]>[建议]</OPTION> <OPTION value=[下载]>[下载]</OPTION>
       <OPTION value=[分享]>[分享]</OPTION></select></td>
      <td><input type="text" name="submain" size="81" maxlength=100 value="<%=SavePostSubMain%>"> <font color=#800000>*</font> 少于100个字符</td></tr>
    <tr><td valign="top"><B>内 容：</B><LI>UBB标签：可用</LI><LI>HTML标签：不可用</LI><LI><a href=ubbcode.htm target=_blank>UBB标签使用帮助</a></LI></td>
      <td valign="top">字体：
<SELECT name="font" onchange="FontChange('font',this.options[this.selectedIndex].value)">
<option value="宋体" selected>宋体</option>
<option value="楷体_GB2312">楷体</option>
<option value="新宋体">新宋体</option>
<option value="黑体">黑体</option>
<option value="隶书">隶书</option>
<OPTION value="Andale Mono">Andale Mono</OPTION> 
<OPTION value=Arial>Arial</OPTION> 
<OPTION value="Arial Black">Arial Black</OPTION> 
<OPTION value="Book Antiqua">Book Antiqua</OPTION>
<OPTION value="Century Gothic">Century Gothic</OPTION> 
<OPTION value="Comic Sans MS">Comic Sans MS</OPTION>
<OPTION value="Courier New">Courier New</OPTION>
<OPTION value=Georgia>Georgia</OPTION>
<OPTION value=Impact>Impact</OPTION>
<OPTION value=Tahoma>Tahoma</OPTION>
<OPTION value="Times New Roman">Times New Roman</OPTION>
<OPTION value="Trebuchet MS">Trebuchet MS</OPTION>
<OPTION value="Script MT Bold">Script MT Bold</OPTION>
<OPTION value=Stencil>Stencil</OPTION>
<OPTION value=Verdana>Verdana</OPTION>
<OPTION value="Lucida Console">Lucida Console</OPTION>
</SELECT>&nbsp;&nbsp;&nbsp;&nbsp;
字体大小：<select name="size" onChange="FontChange('size',this.options[this.selectedIndex].value)">
	<option value="1">1</option>
	<option value="2" SELECTED>2</option>
	<option value="3">3</option>
	<option value="4">4</option>
</select>
&nbsp;&nbsp;&nbsp;<font face="宋体" color=#333333>颜色：</font>
<SELECT name="color" onchange="FontChange('color',this.options[this.selectedIndex].value)"> 
<option style="background-color:#F0F8FF;color: #F0F8FF" value="#F0F8FF">#F0F8FF</option>
<option style="background-color:#FAEBD7;color: #FAEBD7" value="#FAEBD7">#FAEBD7</option>
<option style="background-color:#00FFFF;color: #00FFFF" value="#00FFFF">#00FFFF</option>
<option style="background-color:#7FFFD4;color: #7FFFD4" value="#7FFFD4">#7FFFD4</option>
<option style="background-color:#F0FFFF;color: #F0FFFF" value="#F0FFFF">#F0FFFF</option>
<option style="background-color:#F5F5DC;color: #F5F5DC" value="#F5F5DC">#F5F5DC</option>
<option style="background-color:#FFE4C4;color: #FFE4C4" value="#FFE4C4">#FFE4C4</option>
<option style="background-color:#000000;color: #000000" value="#000000" SELECTED>#000000</option>
<option style="background-color:#FFEBCD;color: #FFEBCD" value="#FFEBCD">#FFEBCD</option>
<option style="background-color:#0000FF;color: #0000FF" value="#0000FF">#0000FF</option>
<option style="background-color:#8A2BE2;color: #8A2BE2" value="#8A2BE2">#8A2BE2</option>
<option style="background-color:#A52A2A;color: #A52A2A" value="#A52A2A">#A52A2A</option>
<option style="background-color:#DEB887;color: #DEB887" value="#DEB887">#DEB887</option>
<option style="background-color:#5F9EA0;color: #5F9EA0" value="#5F9EA0">#5F9EA0</option>
<option style="background-color:#7FFF00;color: #7FFF00" value="#7FFF00">#7FFF00</option>
<option style="background-color:#D2691E;color: #D2691E" value="#D2691E">#D2691E</option>
<option style="background-color:#FF7F50;color: #FF7F50" value="#FF7F50">#FF7F50</option>
<option style="background-color:#6495ED;color: #6495ED" value="#6495ED">#6495ED</option>
<option style="background-color:#FFF8DC;color: #FFF8DC" value="#FFF8DC">#FFF8DC</option>
<option style="background-color:#DC143C;color: #DC143C" value="#DC143C">#DC143C</option>
<option style="background-color:#00FFFF;color: #00FFFF" value="#00FFFF">#00FFFF</option>
<option style="background-color:#00008B;color: #00008B" value="#00008B">#00008B</option>
<option style="background-color:#008B8B;color: #008B8B" value="#008B8B">#008B8B</option>
<option style="background-color:#B8860B;color: #B8860B" value="#B8860B">#B8860B</option>
<option style="background-color:#A9A9A9;color: #A9A9A9" value="#A9A9A9">#A9A9A9</option>
<option style="background-color:#006400;color: #006400" value="#006400">#006400</option>
<option style="background-color:#BDB76B;color: #BDB76B" value="#BDB76B">#BDB76B</option>
<option style="background-color:#8B008B;color: #8B008B" value="#8B008B">#8B008B</option>
<option style="background-color:#556B2F;color: #556B2F" value="#556B2F">#556B2F</option>
<option style="background-color:#FF8C00;color: #FF8C00" value="#FF8C00">#FF8C00</option>
<option style="background-color:#9932CC;color: #9932CC" value="#9932CC">#9932CC</option>
<option style="background-color:#8B0000;color: #8B0000" value="#8B0000">#8B0000</option>
<option style="background-color:#E9967A;color: #E9967A" value="#E9967A">#E9967A</option>
<option style="background-color:#8FBC8F;color: #8FBC8F" value="#8FBC8F">#8FBC8F</option>
<option style="background-color:#483D8B;color: #483D8B" value="#483D8B">#483D8B</option>
<option style="background-color:#2F4F4F;color: #2F4F4F" value="#2F4F4F">#2F4F4F</option>