newpost.asp

他是一个asp+access的多用户留言板！

<!-- #include file="密码验证.asp" -->
<%title="发表文章"%>
<!-- #include file="head.asp" -->
<script language=VBScript>
if 1=2 and instr(1,top.location,"index.asp")=0 then top.location="index.asp?url=" & replace(self.location ,"&","%26")



</script>


<%valigntop()%>
<span style="font-style: 12px">

</span>
<table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2"><tr height="25" id=TableTitleLink>
	<td width="12%" height="24" class="a1" align="center">
	<span style="font-style: 12px"><b>发表帖子</b></span></td>
</table>
<center>
<table class="a2" cellSpacing="1" cellPadding="0" width="97%" border="0" id="table1">
<td class="a3" align="middle" width="7%">
<form method="POST" name="NEWtopic" action="post.asp?class=<%=classnum%>">


<TABLE cellSpacing=1 cellPadding=6 width=100% border=0 class=a2 align=center id="table1">

	<%if NOIPUserID = -1 then%>
<TR>

<TD class=a3 width="180"><B>昵称 </B> 

</TD>
<TD class=a3 height=13>
<INPUT maxLength=15 size=60 name=ke >   你可能还没有注册


</TD></TR>

<%end if%>
<TR>

<TD class=a3 width="180"><B>文章标题 </B> 


</TD>
<TD class=a3 height=13>
<INPUT maxLength=50 size=60 name=Subject>
<%if UserPopedomPass=1 then %>
<SELECT name=color onchange="title_color(this.options[this.selectedIndex].value)">
<option value="">颜色</option>
<option style=background-color:Black;color:Black value=Black>黑色</option>
<option style=background-color:green;color:green value=green>绿色</option>
<option style=background-color:red;color:red value=red>红色</option>
<option style=background-color:blue;color:blue value=blue>蓝色</option>
<option style=background-color:Navy;color:Navy value=Navy>深蓝</option>
<option style=background-color:Teal;color:Teal value=Teal>青色</option>
<option style=background-color:Purple;color:Purple value=Purple>紫色</option>
<option style=background-color:Fuchsia;color:Fuchsia value=Fuchsia>紫红</option>
<option style=background-color:Gray;color:Gray value=Gray>灰色</option>
<option style=background-color:Olive;color:Olive value=Olive>橄榄</option>
</SELECT>
<%end if%>
</TD></TR>
<TR>
<TD vAlign=top align=Left class=a4 height=23><B>您的表情</B></TD>
<TD class=a4>
<script>
for(i=1;i<=12;i++) {
document.write("<INPUT type=radio value="+i+" name=icon><IMG src=image/brow/"+i+".gif>　")
}
</script>

 </TD></TR>

<TR>
<TD vAlign=top class=a3>
<TABLE cellSpacing=0 cellPadding=0 align=Left border=0 width=100% height="100%" id="table2">

<TR>
<TD vAlign=top align=Left width=100% class=a3><BR><B>文章内容</B><BR>
（<a href="javascript:CheckLength();">查看内容长度</a>）<BR>
<BR><span id=UpFile></span>


</TD></TR>

<TR><TD valign="bottom">
<% if NOIPUserTit="管理员" or NOIPUserTit="班长" then%>
<input type="checkbox" name="Ding" value="Ding">置顶帖

<%end if%>

<input name="content" type="hidden">

</TD></TR>

</TABLE></TD>

<TD class=a3 height=250>

<SCRIPT src="inc/Post.js"></SCRIPT>

</TD></TR>

<TR>
<TD align=middle class=a3 colSpan=2 height=27>
<INPUT type=button value=发表新主题 name=EditSubmit onclick=javascript:fabiao()>&nbsp; <INPUT type=reset value=" 重 置 "></TD></TR>


</TABLE>
</FORM>




</td>

</table>
<span style="font-style: 12px">
<%valignbottom()%></span></center><span style="font-style: 12px"><br>
</span>
<!-- #include file="foot.asp" -->

<SCRIPT language=vbscript>
'for each a in 
function fabiao()
setMode "EDIT"
document.forms("NEWtopic").content.value=document.frames("HtmlEditor").document.body.innerHTML
document.forms("NEWtopic").submit()
end function
'next


</SCRIPT>