www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/newtopic.asp
<!--#include file="conn.asp"-->
<!--#include file="gyhs.asp"-->
<%
'判断登陆
if dlhs=true then
%>
<script language=vbscript>
<!--
window.alert"对不起！你还没有登陆"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%end if%>
<head>
<title><%=request.cookies("mc")%></title>
<meta name="keywords" content="<%=request.cookies("gjz")%>">
</head>
<body topmargin=0>
<!--#include file="gyym.asp"-->
<table class="a2" cellSpacing="1" cellPadding="4" width="97%" align="center" border="0">
<tr class="a3">
<td height="25"> <img src="imgs/Forum_nav.gif" width="9" height="9"> <a href="index.asp?ltbh=<%=ltbh%>"><%=request.cookies("mc")%></a> >> 发布文章
</td>
</tr>
</table>
</p>
<script language=javascript>
function doSubmit(){
if (document.myform.d_title.value==""){
alert("帖子标题不能为空！");
return false;
}
// getHTML()为eWebEditor自带的接口函数，功能为取编辑区的内容
if (eWebEditor1.getHTML()==""){
alert("帖子内容不能为空！");
return false;
}
document.myform.submit();
}
</Script>
<SCRIPT>valigntop()</SCRIPT>
<table class="a2" cellSpacing="1" cellPadding="6" width="97%" align="center" border="0">
<form action="addsave.asp?ltbh=<%=ltbh%>" method="post" name="myform">
<input type="hidden" name="ltbqxh" value="<%=request("forumid")%>">
<input type="hidden" name="ltbh" value="<%=ltbh%>">
<tr>
<td class="a1" vAlign="left" colSpan="2" height="25"><b>发表文章</b></td>
</tr>
<tr>
<td class="a4" width="160" height="25"><b>用户名称</b></td>
<td class="a4" width="570" height="25"><%=request.cookies("username")%> [<a href="tuichu.asp">退出登录</a>]</td>
</tr>
<tr>
<td class="a3" width="160" height="25"><b>文章标题</b></td>
<td class="a3" width="570" height="25">
<input maxLength="50" size="60" name="d_title"> </td>
</tr>
<tr>
<td class="a4" vAlign="top" align="left" width="100%" colspan="2"><INPUT type="hidden" name="47"><IFRAME ID="eWebEditor1" SRC="eWebEditor/ewebeditor.asp?id=47&style=luntan" FRAMEBORDER="0" SCROLLING="no" WIDTH="100%" HEIGHT="350"></IFRAME>
<p align=center><input type=button name=btnSubmit value=" 提 交 " onclick="doSubmit()"> <input type=reset name=btnReset value=" 重 填 ">
</form>
</td>
</tr>
</table>
<SCRIPT>valignbottom()</SCRIPT>
</p>
<%
call bq
dbjl.close
set dbjl=nothing
%>
<%dbclose%>