📄 sysbookmodify.asp
字号:
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Cls_User.asp" -->
<%
'==============================================================================
'软件名称：FoosunShop System Form FoosunCMS
'当前版本：Foosun Content Manager System 3.0 系列
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-605、607,客户支持：608
'产品咨询QQ：159410,394226379,125114015,655071
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net 演示站点：test.cooin.com
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn,UserConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P070703") then Call ReturnError1()
Dim Fs_User
Set Fs_User = New Cls_User
If Request.Form("action")="add" then
If Len(request.form("Content"))>Fs_User.getUserConfig(7) then
Response.Write("<script>alert(""内容不能超过"&Fs_User.getUserConfig(7)&"字符"&CopyRight&""");history.back();</script>")
Response.End
End if
Dim Rs,Sql1
Set Rs = server.createobject(G_FS_RS)
Sql1 = "select * from FS_GBook where id="&Replace(Replace(Request.Form("Id"),"'",""),Chr(39),"")
Rs.open sql1,UserConn,1,3
Rs("Title")=NoCSSHackInput(Replace(Replace(Replace(request.form("Title"),"'",""),"\",""),"/",""))
Rs("Content")=NoCSSHackContent(Request.Form("Content"))
Rs("FaceNum")=NoCSSHackInput(Replace(request.form("FaceNum"),"'",""))
Rs("EditQ")= "<br><br><div align=right><font color=#FF0000>[此信息管理员于<"&Now&"> 编辑过]</font></div> "
If Request.Form("isAdmin")<>"" then
Rs("isAdmin")=1
Else
Rs("isAdmin")=0
End if
If Request.Form("Orders")<>"" then
Rs("Orders")=1
Else
Rs("Orders")=2
End if
If Request.Form("isLock")<>"" then
Rs("isLock")=1
Else
Rs("isLock")=0
End if
Rs.update
If Request("GetAction")<>"" then
Response.Write("<script>alert(""修改成功"&CopyRight&""");location=""SysBookRead.asp?id="&Request.Form("Sid")&""";</script>")
Else
Response.Write("<script>alert(""修改成功"&CopyRight&""");location=""SysBook.asp"";</script>")
End if
Response.End
Rs.close
Set Rs=nothing
End if
Dim RsModifyObj,ModifySQL
Set RsModifyObj = server.createobject(G_FS_RS)
ModifySQL = "select * from FS_GBook where ID="&Replace(Replace(Request("Id"),"'",""),Chr(39),"")
RsModifyObj.open ModifySQL,UserConn,1,1
Dim NewsContent
NewsContent = Replace(Replace(RsModifyObj("Content"),"""","%22"),"'","%27")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FoosunCMS Shop 1.0.0930</title>
</head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<body scroll=yes topmargin="2" leftmargin="2">
<form action="" method="POST" name="NewsForm"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="221" valign="top">
<div align="left">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle"> <table width="289" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=35 align="center" alt="保存" onClick="SubmitFun();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td> <input name="action" type="hidden" id="action2" value="add">
<input name="Content" type="hidden" id="Content" value="<% = NewsContent %>">
<input name="ID" type="hidden" id="ID2" value="<% = RsModifyObj("ID")%>">
</td>
</tr>
</table></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=5 width="98%" align=center
border=0>
<TBODY>
<TR>
<TD width="100%" height="159" valign="top"> <table width="75%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#F2F2F2">
<td width="16%"> <div align="right">帖子标题：</div></td>
<td width="84%"> <input name="Title" type="text" id="Title" value="<% = RsModifyObj("Title")%>" size="30">
<input name="isAdmin" type="checkbox" id="isAdmin" value="1" <% If RsModifyObj("isAdmin")=1 then Response.Write("Checked")%>>
管理员可见
<input name="GetAction" type="hidden" id="GetAction" value="<% = Request("GetAction")%>">
<input name="Sid" type="hidden" id="Sid" value="<% = Request("Sid")%>">
<input name="Orders" type="checkbox" id="Orders" value="1" <% If RsModifyObj("Orders")=1 then Response.Write("Checked")%>>
固顶
<input name="isLock" type="checkbox" id="isLock" value="1" <% If RsModifyObj("isLock")=1 then Response.Write("Checked")%>>
锁定</td>
</tr>
<tr bgcolor="#F2F2F2">
<td bgcolor="#F2F2F2"> <div align="right">当前表情：</div></td>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <input name="FaceNum" type="radio" value="1" <%If RsModifyObj("FaceNum")=1 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face1.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="2" <%If RsModifyObj("FaceNum")=2 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face2.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="3" <%If RsModifyObj("FaceNum")=3 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face3.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="4" <%If RsModifyObj("FaceNum")=4 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face4.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="5" <%If RsModifyObj("FaceNum")=5 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face5.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="6" <%If RsModifyObj("FaceNum")=6 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face6.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="7" <%If RsModifyObj("FaceNum")=7 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face7.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="8" <%If RsModifyObj("FaceNum")=8 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face8.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="9" <%If RsModifyObj("FaceNum")=9 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face9.gif" width="22" height="22"></td>
</tr>
<tr>
<td> <input type="radio" name="FaceNum" value="10" <%If RsModifyObj("FaceNum")=10 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face10.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="11" <%If RsModifyObj("FaceNum")=11 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face11.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="12" <%If RsModifyObj("FaceNum")=12 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face12.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="13" <%If RsModifyObj("FaceNum")=13 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face13.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="14" <%If RsModifyObj("FaceNum")=14 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face14.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="15" <%If RsModifyObj("FaceNum")=15 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face15.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="16" <%If RsModifyObj("FaceNum")=16 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face16.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="17" <%If RsModifyObj("FaceNum")=17 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face17.gif" width="22" height="22">
</td>
<td> <input type="radio" name="FaceNum" value="18" <%If RsModifyObj("FaceNum")=18 then response.Write("Checked")%>>
<img src="../../../<%=UserDir%>/GBook/Images/face18.gif" width="22" height="22">
</td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F2F2F2">
<td colspan="2"> <div align="right"></div>
<iframe id='NewsContent' src='../../../<% = UserDir %>/Editer/BookNewsEditer.asp' frameborder=0 scrolling=no width='100%' height='320'></iframe></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</div></td>
</tr>
</table></form>
</body>
</html>
<script>
function SubmitFun()
{
frames["NewsContent"].SaveCurrPage();
var TempContentArray=frames["NewsContent"].NewsContentArray;
document.NewsForm.Content.value='';
for (var i=0;i<TempContentArray.length;i++)
{
if (TempContentArray[i]!='')
{
if (document.NewsForm.Content.value=='') document.NewsForm.Content.value=TempContentArray[i];
else document.NewsForm.Content.value=document.NewsForm.Content.value+'[Page]'+TempContentArray[i];
}
}
document.NewsForm.submit();
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -