📄 talkpub.asp
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<!--获取发布内容字数限制-->
<!--#include file="in_talksize.asp"-->
<body>
<%
'获取版面分类的传值
dim vkind
vkind=Request.QueryString("kind")
dim kind_name
IF isNumeric(Request.QueryString("kind")) THEN
vkind=CLng(vkind)
'找出该版面的相关信息
sqlstr="SELECT kd_name FROM tblkind WHERE kd_ID="&vkind
rs.open sqlstr,conn,1,1
if rs.eof AND rs.bof then
Response.Redirect "resp.asp?cmd=kindmiss"
else
kind_name=rs("kd_name")
end if
rs.close
ELSE
Response.Redirect "resp.asp"
END IF
%>
<script language="JavaScript" src="bbcode.js"></script>
<script language="javascript">
function window.onload(){
showfj();
}
function checkWordCount(){
var vwc,wmax,cha;
var strbox;
vwc=document.fm1.txtcontent.value.length;
wmax=<% =DEF_talksize*1024 %>;
strbox="内容限制字数："+wmax+"\n当前字数："+vwc+"\n\n";
cha=Math.abs(wmax-vwc);
if(vwc>wmax){
strbox=strbox+"*警告：您的文字数已超出限制"+cha+"个字符";
}
else{
strbox=strbox+"*提示：您还可以输入"+cha+"个字符";
}
alert(strbox);
}
function checkfill(){
if(document.fm1.txtcontent.value.length><% =DEF_talksize*1024 %>){
alert("内容文字过多，请按要求控制在<% =DEF_talksize*1024 %>字符以内");
return false;
}
else if(document.fm1.txttopic.value==""){
alert("填写不完整：您没有填写主题！");
return false;
}
else if(document.fm1.txtcontent.value==""){
alert("填写不完整：您没有填写要发布的内容！");
return false;
}
else{
return true;
}
}
function showfj(){
if(document.fm1.chkfj.checked){
openfj.style.display="";
}
else{
openfj.style.display="none";
}
}
function okpress(){
if(checkfill()){
document.fm1.cmdpub.disabled=true;
document.fm1.submit();
}
}
function addfj(strfj){
document.fm1.txtcontent.value+=strfj;
}
</script>
<!--插入网站置顶-->
<% if u_name="" then
Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>
<%
'判断用户权限
IF u_power=0 THEN
Response.Redirect "resp.asp?cmd=id_wait"
ELSEIF u_power<0 THEN
Response.Redirect "resp.asp?cmd=id_forbid&time="&u_fobdate
END IF
%>
<%
'获取传值
dim vtid,vemo
dim strctrl,stract,strbtn
dim vtopic,vcontent
vtid=Request.QueryString("id")
If vtid<>"" AND isNumeric(vtid) Then
vtid=CLng(vtid)
'找出相应记录
sqlstr="SELECT t_author,t_topic,t_content,t_emotion,t_kind FROM tbltalk WHERE t_ID="&vtid
rs.open sqlstr,conn,0,1
'是否版主
dim isbanzhu
isbanzhu=1
dim rs35
set rs35=server.CreateObject("adodb.recordset")
sqlstr="SELECT master_1,master_2,master_3 FROM tblkind WHERE kd_ID="&rs("t_kind")
rs35.open sqlstr,conn,1,1
if u_name<>rs35("master_1") and u_name<>rs35("master_2") and u_name<>rs35("master_3") then
isbanzhu=0
end if
rs35.close
set rs35=nothing
if rs.eof and rs.bof then
response.Redirect "resp.asp?cmd=talk_idmiss"
elseif rs("t_author")<>u_name AND u_power<2 then
response.Redirect "resp.asp?cmd=talk_power"
elseif rs("t_author")<>u_name AND u_name<>DEF_sysadm AND isbanzhu=0 then
rs.close
Response.Redirect "resp.asp?cmd=notkindmaster"
end if
strctrl="编辑主题"
stract="talk_mod.asp"
strbtn=" 完成编辑 "
vemo=rs("t_emotion")
vtopic=rs("t_topic")
vcontent=rs("t_content")
rs.close
Else
vtid=0
strctrl="发表主题"
stract="talk_deal.asp"
strbtn=" 完成发布 "
vemo=1
vtopic=""
vcontent=""
End If
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="100%" height="100%">
<a href="index.asp">[首页]</a>-<a href="talkbook.asp">[班级讨论区]</a>-<a href='talklist.asp?kind=<% =vkind %>'><% =unhtml(kind_name) %></a>-<font class="ft1">[<% =strctrl %>]</font>
</td>
</tr></table>
<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="6" class="rdd">
<tr><td width="100%">
<form name="fm1" action="<% =stract %>" method="post">
<input type="hidden" name="hidID" value="<% =vtid %>">
<input type="hidden" name="hid_kind" value="<% =vkind %>">
<b>**主题：</b><input type="text" name="txttopic" maxlength="50" size="50" class="fill" onKeypress="if (event.keyCode ==39 || event.keyCode == 34) event.returnValue=false;" value="<% =stryin2(vtopic) %>">
<font color="red">＊＊</font>主题文字请控制在50字符内<br><br>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="60" height="100%" valign="top">
<b>**表情：</b>
</td>
<td valign="top">
<%
dim strchk
FOR i=1 TO 16
if i=vemo then
strchk="checked"
else
strchk=""
end if
%>
<input type="radio" name="rademotion" value="<% =i %>" <% =strchk %>><img src="img/topic/<% =i %>.gif" border="0" align="absmiddle">
<%
if i mod 8=0 then
Response.Write "<br>"
end if
NEXT
%>
</td>
</tr></table>
<br> <b>**发布内容：</b>支持<font color="red">UBB代码</font>：<a href="ubbhelp.asp" target="_blank">[UBB使用方法帮助]</a>
<font color="red">＊＊</font>内容文字请控制在<% =DEF_talksize*1024 %>字符内<br>
UBB工具╋
<a href="javascript:setbold()"><img src="img/ubbbar/BOLD.GIF" border="0" alt="插入粗体文本"></a>
<a href="javascript:italicize()"><img src="img/ubbbar/italicize.gif" border="0" alt="插入斜体文本"></a>
<a href="javascript:underline()"><img src="img/ubbbar/underline.gif" border="0" alt="插入下划线"></a>
<a href="javascript:center()"><img src="img/ubbbar/CENTER.GIF" border="0" alt="居中对齐"></a>
<a href="javascript:hyperlink()"><img src="img/ubbbar/URL1.GIF" border="0" alt="插入超级链接"></a>
<a href="javascript:email()"><img src="img/ubbbar/EMAIL1.GIF" border="0" alt="插入邮件地址"></a>
<a href="javascript:image()"><img src="img/ubbbar/IMAGE.GIF" border="0" alt="插入图像"></a>
<a href="javascript:flash()"><img src="img/ubbbar/SWF.GIF" border="0" alt="插入flash"></a>
<a href="javascript:showcode()"><img src="img/ubbbar/CODE.GIF" border="0" alt="插入代码"></a>
<a href="javascript:quoteme()"><img src="img/ubbbar/QUOTE1.GIF" border="0" alt="插入引用"></a>
<a href="javascript:ublue()"><img src="img/ubbbar/BLUE.GIF" border="0" alt="插入蓝色文字"></a>
<a href="javascript:ured()"><img src="img/ubbbar/RED.GIF" border="0" alt="插入红色文字"></a>
<a href="javascript:setfly()"><img src="img/ubbbar/FLY.GIF" border="0" alt="插入飞行文字"></a>
<a href="javascript:ulight()"><img src="img/ubbbar/LIGHT.GIF" border="0" alt="插入闪烁文字"></a>
<a href="javascript:uguang()"><img src="img/ubbbar/GLOW.GIF" border="0" alt="插入发光文字"></a>
<a href="javascript:u3s()"><img src="img/ubbbar/SIZE3.GIF" border="0" alt="插入三号字"></a>
<br>
┗━━━辅助方式━
<input type="radio" name="mode" value="2" onClick="javascript:checkmode(2)" checked alt="点击上面的UBB按钮后<br>通过输入框及文字提示的方式指导您应用UBB"> 向导插入
<input type="radio" name="mode" value="0" onClick="javascript:checkmode(0)" alt="点击上面的UBB按钮后<br>直接插入相应UBB代码的标记"> 直接插入
<input type="radio" name="mode" value="1" onClick="javascript:checkmode(1)" alt="点击上面的UBB按钮后<br>不插入任何内容，只弹出相应UBB标记的使用帮助"> 帮助信息
<a href="javascript:checkWordCount()" title="检查文字数是否在限制长度之内">[检查文字数]</a>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="500" height="100%" align="right" valign="top">
<textarea name="txtcontent" tabindex="6" rows="15" cols="60" class="fill" onFocus="javascript:getActiveText(this)" onClick="javascript:getActiveText(this)" onChange="javascript:getActiveText(this)"><% =vcontent %></textarea>
</td>
<th valign="top">
<br>[添加UBB表情]<br>
<a href="javascript:AddText('[em01]')"><img src="UBBicon/EM01.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em02]')"><img src="UBBicon/EM02.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em03]')"><img src="UBBicon/EM03.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em04]')"><img src="UBBicon/EM04.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em05]')"><img src="UBBicon/EM05.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em06]')"><img src="UBBicon/EM06.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em07]')"><img src="UBBicon/EM07.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em08]')"><img src="UBBicon/EM08.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em09]')"><img src="UBBicon/EM09.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em10]')"><img src="UBBicon/EM10.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em11]')"><img src="UBBicon/EM11.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em12]')"><img src="UBBicon/EM12.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em13]')"><img src="UBBicon/EM13.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em14]')"><img src="UBBicon/EM14.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em15]')"><img src="UBBicon/EM15.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em16]')"><img src="UBBicon/EM16.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em17]')"><img src="UBBicon/EM17.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em18]')"><img src="UBBicon/EM18.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
</th>
</tr></table>
<p>
<input type="Button" name="cmdpub" value="<% =strbtn %>" class="an" onClick="javascript:okpress()">
<input type="checkbox" name="chkfj" onClick="javascript:showfj()" align="absmiddle">＋添加附件
</p>
</form>
</td></tr>
</table>
<table id="openfj" align="center" width="700" height="200" border="0" cellspacing="0" cellpadding="0"><tr>
<td width="100%">
<IFRAME name="_cai" src="fjup_kj.asp" Frameborder="0" height="200" width="100%" scrolling="no"></IFrame>
</td>
</tr></table>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -