add.asp

一个美化的论坛程序

<!--#include file="top.asp"-->
<%
if request("action")="bbs" then
	stat="在"&boardtitle&"发表新帖"
else
	stat="在"&boardtitle&"回复帖子"
end if
if request("boardid")="" then
	response.write "<script>javascript:alert('请选择论坛!');window.close();</script>"
	response.end
else
	boardid=request("boardid")
end if
if request("action")<>"bbs" and request("action")<>"reply" then 
	response.write "<script>javascript:alert('非法操作,请正常使用论坛!');window.close();</script>"
	response.end
else
	action=request("action")
end if
if Request.Cookies("bookbaby")("username")<>"" then
    set rs1=conn.execute("select username from online where username='"&Request.Cookies("bookbaby")("username")&"'")
    if not rs1.eof then
	conn.execute("update online set stat='"&stat&"',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
    else
	conn.execute "insert into online(username,sex,stat,lasttime) values ('"&Request.Cookies("bookbaby")("username")&"',"&Request.Cookies("bookbaby")("usersex")&",'"&stat&"','"&now()&"')"
    end if
    set rs1=nothing
else
	conn.execute("delete * from online where datediff('n',lasttime,now())>20")
end if
%><img src="" width="1" height="3">
<table border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="<%=tablebackcolor%>" width="680">
  <form name="form1" onkeydown="if(event.keyCode==13 && event.ctrlKey)form1.submit()" method="post" action="save.asp?act=add&boardid=<%=boardid%>&bbsid=<%=request("bbsid")%>&replygrade=<%=request("replygrade")%>&replyorder=<%=request("replyorder")%>&action=<%=request("action")%>">
    <tr background="images/tablebg02.gif" bgcolor="#FFFFFF"> 
      <td colspan="2" height="21" align="center"><font color="#000000"><%=stat%></font></td>
    </tr>
<%if Request.Cookies("bookbaby")("username")="" or Request.Cookies("bookbaby")("userpwd")="" then%>
    <tr> 
      <td height="21" width="139" align="right" bgcolor="<%=tablebodycolor%>"><b>用户名：</b></td>
      <td height="21" bgcolor="<%=tablebodycolor%>" width="522"> 
        <input type="text" name="username" maxlength="20" size="20">
        <a href="userreg.asp">还没有注册？ </a></td>
    </tr>
	<tr> 
      <td height="21" width="139" align="right" bgcolor="<%=tablebodycolor%>"><b>密　码：</b></td>
      <td height="21" bgcolor="<%=tablebodycolor%>" width="522"> 
        <input type="password" name="password" maxlength="20" size="20">
        忘记了密码？</td>
    </tr>
<%
end if
if action="bbs" then
%>
    <tr> 
      <td align="right" height="21" bgcolor="<%=tablebodycolor%>" width="139"><b>主　题：</b></td>
      <td height="21" bgcolor="<%=tablebodycolor%>" width="522"> 
        <input type="text" name="title" maxlength="100" size="50">
        主题字数不要超过100字</td>
    </tr>
 <%
 end if
 %>
    <tr> 
      <td align="right" valign=top width="139" bgcolor="<%=tablebodycolor%>"><b>心　情：</b></td>
      <td width="522" bgcolor="<%=tablebodycolor%>"> 
        <%
for i=1 to 20
	response.write "<input type=""radio"" name=""face"" value="&i
	if i=1 then response.write " checked"
	response.write "><img src=face/face"&i&".gif>&nbsp;&nbsp;"
	if i mod 10=0 and i>=10 then response.write "<br>"
next
%>
      </td>
    </tr>
    <tr> 
      <td align="right" valign="top" bgcolor="<%=tablebodycolor%>" width="139"><b>内　容：<br>
        <br>
        </b>Ctrl+Enter发送</td>
      <td bgcolor="<%=tablebodycolor%>" width="522"> <iframe name="upload" frameborder=0 width=100% height=30 scrolling=no src=upload.asp?boardid=<%=boardid%>></iframe> 
        <div align="center">
          <textarea cols=80 name=content rows=20></textarea>
        </div>
      </td>
    </tr>
    <tr background="images/tablebg02.gif" bgcolor="#FFFFFF"> 
      <td colspan="2" align="center"> 
        <input type="submit" value=" 发 言 " name=Submit&quot;>
        <input type="reset" value=" 清 空 ">
        <input type="hidden" name="type" value="<%=request("type")%>">
      </td>
    </tr>
  </form>
</table>
<!--#include file=copyright.asp-->
</body>
</html>