?? form1.asp
字號:
<%
sub showreForm()
%>
<form action="SaveReAnnounce.asp?method=Topic&boardID=<%=request("boardid")%>" method="POST" onSubmit="submitonce(this)" name="frmAnnounce">
<input type="hidden" name="followup" value="<%=AnnounceID%>"><input type="hidden" name="rootID" value="<%=RootID%>">
<div align="center"><center>
<script src="inc/ubbcode.js"></script>
<table bgColor="<%=Tablebackcolor%>" cellpadding=0 cellspacing=0 border=0 width="<%=TableWidth%>" cellspacing="0">
<tr>
<td width="100%">
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr>
<td width="100%" bgcolor="<%=Tabletitlecolor%>" colspan=2><div align="left"><font color=<%=TableFontcolor%>><p> <strong>*為必填項(xiàng)目 <%=boardstat%></strong></font></td>
</tr>
<%if membername="" then%>
<tr bgcolor="<%=TablebodyColor%>">
<td width="20%"><font color="<%=TableContentcolor%>"><b>用戶名</b></font></td>
<td width="80%"><input name="username" value="<%if membername<>"" then%><%=htmlencode(membername)%><%else%><%if boardskin=2 then response.write "客人"%><%end if%>" > <font color="<%=AlertFontColor%>"><strong>*</strong></font><a href=reg.asp><font color="<%=TableContentcolor%>">您沒有注冊？</font></a>
</td>
</tr>
<tr bgcolor="<%=TablebodyColor%>">
<td width="20%"><font color="<%=TableContentcolor%>"><b>密碼</b></font></td>
<td width="80%"><input name="passwd" type="password" value="<%=htmlencode(memberword)%>" ><font color="<%=AlertFontColor%>"> <strong>*</strong></font><a href=lostpass.asp><font color="<%=TableContentcolor%>">忘記密碼？</font></a></td>
</tr>
<%end if%>
<tr bgcolor="<%=TablebodyColor%>">
<td width="20%"><font color="<%=TableContentcolor%>"><b>主題標(biāo)題</b>
<SELECT name=font onchange=DoTitle(this.options[this.selectedIndex].value)>
<OPTION selected value="">選擇話題</OPTION> <OPTION value=[原創(chuàng)]>[原創(chuàng)]</OPTION>
<OPTION value=[轉(zhuǎn)帖]>[轉(zhuǎn)帖]</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></font></td>
<td width="80%"><font color="<%=TableContentcolor%>"><input name="subject" size=60 maxlength=80 value="" > 不得超過 50 個漢字</font>
<INPUT TYPE="hidden" name="boardtype" value="<%=htmlencode(boardtype)%>">
<INPUT TYPE="hidden" name="skin" value="<%=request("skin")%>">
</td>
</tr>
<tr bgcolor="<%=TablebodyColor%>">
<td width="20%" valign="top"><font color="<%=TableContentcolor%>"><b>當(dāng)前心情</b><br><li>將放在帖子的前面<BR></font></td>
<td width="80%">
<%for i=1 to 9%>
<input type="radio" value="face<%=i%>" name="Expression" <%if i=1 then response.write checked%>><img src="face/face<%=i%>.gif" WIDTH="15" HEIGHT="15">
<%next%>
<br>
<%for i=10 to 18%>
<input type="radio" value="face<%=i%>" name="Expression"><img src="face/face<%=i%>.gif" WIDTH="15" HEIGHT="15">
<%next%>
</td>
</tr>
<tr bgcolor="<%=TablebodyColor%>">
<td width="20%" valign=top><font color="<%=TableContentcolor%>">
<b>內(nèi)容</b><br><br>
在此論壇中<br>
<li>HTML標(biāo)簽： <%if strAllowHTML=0 then%>不可用<%else%>允許<%end if%>
<li>UBB標(biāo)簽： <%if strAllowForumCode=0 then%>不可用<%else%>允許<%end if%>
<li>帖圖標(biāo)簽： <%if strIcons=0 then%>不可用<%else%>允許<%end if%>
<li>Flash標(biāo)簽： <%if strflash=0 then%>不可用<%else%>允許<%end if%>
<li>表情字符轉(zhuǎn)換： <%if strIMGInPosts=0 then%>不可用<%else%>允許<%end if%>
<li>上傳圖片： <%if Uploadpic=0 then%>不可用<%else%>允許<%end if%>
<li>最多<%=AnnounceMaxBytes\1024%>KB</font>
</td>
<td width="80%">
<% if Uploadpic=1 then %>
<iframe name="ad" frameborder=0 width=100% height=30 scrolling=no src=saveannounce_upload.asp?boardid=<%=boardid%>></iframe>
<br>
<% end if %>
<%if TopicFlag=1 then%>
<!--#include file="getubb.asp"-->
<%end if%>
<%'=requote(con)%>
<TEXTAREA name="Content" cols="80" rows="12" wrap=VIRTUAL title="可以使用Ctrl+Enter直接提交貼子" onkeydown=ctlent()>
<%
if request("reply")="true" then
content=reubbcode(con)
content = replace(content, ">", ">")
content = replace(content, "<", "<")
content = Replace(content, "</P><P>", CHR(10) & CHR(10))
content = Replace(content, "<BR>", CHR(10))
response.write "[quote][b]以下是引用[i]"&username&"在"&dateandtime&"[/i]的發(fā)言：[/b]" & chr(13)
response.write content & chr(13)
response.write "[/quote]"
end if
%></TEXTAREA>
</td>
</tr>
<tr>
<td bgcolor="<%=TablebodyColor%>" valign=top colspan=2><font color="<%=TableContentcolor%>"><b>點(diǎn)擊表情圖即可在帖子中加入相應(yīng)的表情</B></font><br>
<%for e=1 to 9%>
<img src="<%=picurl&Imgname%>0<%=e%>.gif" border=0 onclick="insertsmilie('[<%=Imgname%>0<%=e%>]')" style="CURSOR: hand">
<%next%>
<%for e=10 to ImgNum%>
<img src="<%=picurl&Imgname&e%>.gif" border=0 onclick="insertsmilie('[<%=Imgname&e%>]')" style="CURSOR: hand">
<%next%>
</td>
</tr>
<tr bgcolor="<%=TablebodyColor%>">
<td valign=top><font color="<%=TableContentcolor%>"><b>選項(xiàng)</b><p><a href="javascript:openScript('help.asp',500,400)"><img src="<%=picurl%>help_b.gif" border=0></a></font></td>
<td valign=middle><font color="<%=TableContentcolor%>"><input type=checkbox name="signflag" value="yes" checked>是否顯示您的簽名？<br>
<input type=checkbox name="emailflag" value="yes">有回復(fù)時使用郵件通知您？</font>
<BR><BR></td>
</tr><tr bgcolor="<%=TablebodyColor%>">
<td valign=middle colspan=2 align=center>
<input type=Submit value="發(fā) 表" name=Submit> <input type=button value='預(yù) 覽' name=Button onclick=gopreview()> <input type="reset" name="Submit2" value="清 除">
</td></form></tr>
</table>
</td>
</tr>
</table>
</center></div>
</form>
<form name=preview action=preview.asp method=post target=preview_page>
<input type=hidden name=title value=""><input type=hidden name=body value="">
</form>
<script>
function gopreview()
{
document.forms[1].title.value=document.forms[0].subject.value;
document.forms[1].body.value=document.forms[0].Content.value;
var popupWin = window.open('preview.asp', 'preview_page', 'scrollbars=yes,width=750,height=450');
document.forms[1].submit()
}
</script>
<%
if err.number<>0 then err.clear
end sub
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -