📄 publiclog.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../lib/strlib.asp" -->
<!--#include file="../lib/UserCheck.asp" -->
<%
If CheckBlogOpen=False Then
Response.write("<script language=""javascript"">alert('日志功能暂停使用,如需要使用请联系管理员.');history.back();</script>")
Response.End()
End If
Dim str_CurrPath,FileName,str_FileName,rs_sys,str_FileExtName
str_CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
set rs_sys=User_Conn.execute("select top 1 FileName,FileExtName From FS_ME_iLogSysParam")
if rs_sys.eof then
response.Write("系统配置出错!")
response.End
rs_sys.close:set rs_sys=nothing
else
FileName=rs_sys("FileName")
str_FileExtName=rs_sys("FileExtName")
rs_sys.close:set rs_sys=nothing
end if
if FileName=0 then
str_FileName=GetRamCode(8)
elseif FileName=1 then
str_FileName="自动编号"
else
str_FileName=right(year(now),2)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"_"&GetRamCode(3)
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<title><%=GetUserSystemTitle%></title>
<meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
<link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<head></head>
<body>
<script language="JavaScript" src="../../Editor/FS_scripts/editor.js"></script>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
<tr>
<td>
<!--#include file="../top.asp" -->
</td>
</tr>
</table>
<table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
<tr class="back">
<td colspan="2" class="xingmu" height="26"> <!--#include file="../Top_navi.asp" -->
</td>
</tr>
<tr class="back">
<td width="18%" valign="top" class="hback"> <div align="left">
<!--#include file="../menu.asp" -->
</div></td>
<td width="82%" valign="top" class="hback">
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr class="hback">
<td valign="top">你的位置：<a href="../../">网站首页</a> >> <a href="../main.asp">会员首页</a>
>> <a href="index.asp">日志管理</a> >>日志管理</td>
</tr>
<tr class="hback">
<td valign="top"><a href="index.asp">日志首页</a>┆<a href="PublicLog.asp">发表日志</a>┆<a href="index.asp?type=box">草稿箱</a>┆<a href="../PhotoManage.asp">相册管理</a>┆<a href="PublicParam.asp">参数设置</a>┆<a href="../Review.asp">评论管理</a></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<form name="s_form" method="post" action="Public_Save.asp">
<tr>
<td colspan="2" class="xingmu">发表日志</td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">日志标题</div></td>
<td class="hback"><input name="Title" type="text" id="Title" size="57" maxlength="100" onFocus="Do.these('Title',function(){return CheckContentLen('Title','span_Title','3-100')})" onKeyUp="Do.these('Title',function(){return CheckContentLen('Title','span_Title','3-100')})">
<span id="span_Title"></span></td>
</tr>
<tr>
<td width="13%" class="hback"><div align="right">主分类</div></td>
<td width="87%" class="hback">
<select name="MainID" id="MainID">
<!--<option value="">选择系统分类</option>-->
<%
dim c_rs
set c_rs = Server.CreateObject(G_FS_RS)
c_rs.open "select ID,ClassName From FS_ME_iLogClass Order by id asc",User_Conn,1,3
do while not c_rs.eof
%>
<option value="<%=c_rs("id")%>"><%=c_rs("ClassName")%></option>
<%
c_rs.movenext
loop
c_rs.close:set c_rs=nothing
%>
</select>
专栏 <select name="ClassID" id="ClassID" style="width:38%">
<option value="0">选择我的专栏</option>
<%
dim obj_zl_rs
set obj_zl_rs= Server.CreateObject(G_FS_RS)
obj_zl_rs.open "select ClassID,ClassCName,ClassEName,ParentID,UserNumber,ClassTypes From FS_ME_InfoClass where ParentID=0 and ClassTypes=7 and UserNumber='"& Fs_User.UserNumber&"' order by ClassID desc",User_Conn,1,3
do while not obj_zl_rs.eof
Response.Write"<option value="""& obj_zl_rs("ClassID")&""">"& obj_zl_rs("ClassCName")&"</option>"
obj_zl_rs.movenext
Loop
obj_zl_rs.close:set obj_zl_rs =nothing
%>
</select></td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">类型</div></td>
<td class="hback"><select name="iLogStyle" id="iLogStyle">
<option value="0" selected>日志</option>
<option value="1">网摘</option>
</select> </td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">Tags(关键字)</div></td>
<td class="hback"><input name="keyword1" type="text" id="keyword1" size="15" maxlength="15">
,
<input name="keyword2" type="text" id="keyword2" size="15" maxlength="15">
,
<input name="keyword3" type="text" id="keyword3" size="15" maxlength="15"></td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">来源</div></td>
<td class="hback"><input name="iLogSource" type="text" id="iLogSource" size="57" maxlength="60"></td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">内容</div></td>
<td class="hback">
<!--编辑器开始-->
<pre id="idTemporary" name="idTemporary" style="display:none"></pre>
<script language="JavaScript">
<!--
var FS_Edit1 = new InnovaEditor("FS_Edit1");
FS_Edit1.cmdAssetManager="modalDialogShow('../../<% = G_USER_DIR %>/CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<%=FS_User.UserNumber%>',670,450)";
FS_Edit1.width="100%";
FS_Edit1.height="400";
FS_Edit1.btnFlash=true;
FS_Edit1.btnMedia=true;
FS_Edit1.RENDER($("idTemporary").innerHTML);
//-->
</script>
<textarea name="Content" style="display:none"></textarea>
<!--编辑器结束-->
</td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">首页置顶</div></td>
<td class="hback"><input name="isTop" type="checkbox" id="isTop" value="1"></td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">心情</div></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -