📄 publiclogedit.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,rs
str_CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
set rs= Server.CreateObject(G_FS_RS)
rs.open "select * From FS_ME_Infoilog where iLogID="&NoSqlHack(Request.QueryString("id")),User_Conn,1,3
if rs.eof then
strShowErr = "<li>错误的参数！</li>"
Response.Redirect("../lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../i_Blog/index.asp")
Response.end
rs.close:set rs = nothing
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" value="<% = rs("Title")%>" 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
if rs("MainId")=c_rs("id") then
%>
<option value="<%=c_rs("id")%>" selected><%=c_rs("ClassName")%></option>
<%else%>
<option value="<%=c_rs("id")%>"><%=c_rs("ClassName")%></option>
<%
end if
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
if rs("ClassID")=obj_zl_rs("ClassID") then
Response.Write"<option value="""& obj_zl_rs("ClassID")&""" selected>"& obj_zl_rs("ClassCName")&"</option>"
else
Response.Write"<option value="""& obj_zl_rs("ClassID")&""">"& obj_zl_rs("ClassCName")&"</option>"
end if
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" <%if rs("iLogStyle")=0 then response.Write"selected"%>>日志</option>
<option value="1" <%if rs("iLogStyle")=1 then response.Write"selected"%>>网摘</option>
</select> </td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">关键字</div></td>
<td class="hback"><input name="keyword1" type="text" id="keyword1" size="15" maxlength="15" value="<%=split(rs("Keywords"),",")(0)%>">
,
<input name="keyword2" type="text" id="keyword2" size="15" maxlength="15" value="<%=split(rs("Keywords"),",")(1)%>">
,
<input name="keyword3" type="text" id="keyword3" size="15" maxlength="15" value="<%=split(rs("Keywords"),",")(2)%>"></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" value="<%=rs("iLogSource")%>"></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"><%=Server.HTMLEncode(rs("Content"))%></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" <%if rs("isTop")=1 then response.Write("checked")%>></td>
</tr>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td class="hback"><div align="right">心情</div></td>
<td class="hback"><input name="EmotFace" type="radio" value="face1.gif" checked>
<img src="../../sys_images/emot/face1.gif" width="19" height="19">
<input type="radio" name="EmotFace" value="face3.gif" <%if rs("EmotFace")="face3.gif" then response.Write("checked")%>>
<img src="../../sys_images/emot/face3.gif" width="19" height="19">
<input type="radio" name="EmotFace" value="face5.gif" <%if rs("EmotFace")="face5.gif" then response.Write("checked")%>>
<img src="../../sys_images/emot/face5.gif" width="19" height="19">
<input type="radio" name="EmotFace" value="face8.gif" <%if rs("EmotFace")="face8.gif" then response.Write("checked")%>>
<img src="../../sys_images/emot/face8.gif" width="19" height="19">
<input type="radio" name="EmotFace" value="face18.gif" <%if rs("EmotFace")="face18.gif" then response.Write("checked")%>>
<img src="../../sys_images/emot/face18.gif" width="19" height="19">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -