📄 sysbookread.asp
字号:
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Cls_User.asp" -->
<!--#include file="../../../Inc/Cls_cache.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
Dim Fs_User,Fs_ConfigCache
Set Fs_User = New Cls_User
Set Fs_ConfigCache = New cls_FsCache
Fs_ConfigCache.Name="ConfigCache"
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P070700") then Call ReturnError1()
if Not JudgePopedomTF(Session("Name"),"P070702") then Call ReturnError1()
If Request.Form("action")="add" then
If trim(request.form("Content"))="" then
Response.Write("<script>alert(""请填写回复内容"&CopyRight&""");history.back();</script>")
Response.End
End if
If Len(request.form("Content"))>Fs_User.getUserConfig(7)+3000 then
Response.Write("<script>alert(""内容不能超过"& Fs_User.getUserConfig(7)+3000 &"字符"&CopyRight&""");history.back();</script>")
Response.End
End if
Dim Rs,Sql1
Set Rs = server.createobject(G_FS_RS)
Sql1 = "select * from FS_GBook where 1=0"
Rs.open sql1,UserConn,1,3
Rs.addnew
Rs("Content")=Trim(NoCSSHackContent(Request.Form("Content")))
Rs("AddTime")=Now()
Rs("UserID")=0
Rs("FaceNum")=NoCSSHackInput(Replace(request.form("FaceNum"),"'",""))
Rs("isQ")=0
Rs("isAdmin")=0
Rs("Orders")=2
Rs("isLock")=0
Rs("EditQ")=""
Rs("QID")=NoCSSHackInput(Replace(Request.form("QID"),"'",""))
Rs.update
'更新恢复帖子
UserConn.execute("Update FS_GBook Set isQ = 1,Qtime="&StrSqlDate&" where id="&Replace(Replace(Request.form("QID"),"'",""),Chr(39),""))
Response.Write("<script>alert(""回复成功"&CopyRight&""");location=""SysBookRead.asp?ID="& Replace(request.form("QID"),"'","") &""";</script>")
Response.End
Rs.close
Set rs=nothing
End if
iF Request("Action")="sLock" then
UserConn.execute("Update FS_GBook Set isLock=1 where id="&Replace(Request("Id"),"'",""))
Response.Write("<script>alert(""锁定成功"&CopyRight&""");location=""SysBookRead.asp?ID="& Replace(request("sID"),"'","") &""";</script>")
Response.End
End if
iF Request("Action")="sUnLock" then
UserConn.execute("Update FS_GBook Set isLock=0 where id="&Replace(Request("Id"),"'",""))
Response.Write("<script>alert(""解锁成功"&CopyRight&""");location=""SysBookRead.asp?ID="& Replace(request("sID"),"'","") &""";</script>")
Response.End
End if
iF Request("Action")="Top" then
UserConn.execute("Update FS_GBook Set Orders=1 where id="&Replace(Request("Id"),"'",""))
Response.Write("<script>alert(""固顶成功"&CopyRight&""");location=""SysBookRead.asp?ID="& Replace(request("sID"),"'","") &""";</script>")
Response.End
End if
iF Request("Action")="UnTop" then
UserConn.execute("Update FS_GBook Set Orders=2 where id="&Replace(Request("Id"),"'",""))
Response.Write("<script>alert(""解固成功"&CopyRight&""");location=""SysBookRead.asp?ID="& Replace(request("sID"),"'","") &""";</script>")
Response.End
End if
iF Request("Action")="Del" then
if Not JudgePopedomTF(Session("Name"),"P070704") then Call ReturnError1()
Dim GBListObj1
Set GBListObj1 = UserConn.execute("Select ID,UserID From FS_GBook where ID="&Replace(Request("Id"),"'",""))
If Cint(GBListObj1("UserID"))<>0 Then
Fs_User.update "Point","Point-"&Fs_User.getUserConfig(8),GBListObj1("UserID")
End if
UserConn.execute("Delete From FS_GBook where id="&Replace(Request("Id"),"'",""))
'扣除会员积分
If Request("GetAction")="1" then
Response.Write("<script>alert(""删除成功"&CopyRight&""");location=""SysBook.asp"";</script>")
Else
Response.Write("<script>alert(""删除成功"&CopyRight&""");location=""SysBookRead.asp?id="&Request("sid")&""";</script>")
End if
Response.End
End if
Dim NewsContent
NewsContent = Replace(Replace(Request.Form("Content"),"""","%22"),"'","%27")
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
'On Error Resume Next
Fs_User.ID = CLng(RsModifyObj("Userid"))
'If MemberObj.EOF Then Response.write "<script>alert('该用户已经被删除！');history.back();</script>"
%>
<!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">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="398" 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 height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=55 align="center" alt="回复留言" onClick="Reply();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">回复留言</td>
<td width=2 class="Gray">|</td>
<td width=35 id="SaveID1" style="display:none" align="center" alt="保存" onClick="SubmitFun();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
<td width=2 id="SaveID2" class="Gray" style="display:none">|</td>
<td width=55 align="center" alt="留言搜索" onClick="SearchLyPage();" onMouseMove="BtnMouseOver(this);//ShowAddMenu();" 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);//ShowAddMenu();" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="5" id="SearchPage" style="display:none;">
<tr>
<td width="9%"><a href="SysBook.asp">留言搜索</a><a href="SysBook.asp?Action=UnQ"></a></td>
<form name="form1" method="post" action="SysBook.asp">
<td width="91%"><input name="Keyword" type="text" id="Keyword">
<input type="submit" name="Submit2" value="搜索"> </td>
</form>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<tr>
<td height="2"></td>
</tr>
<TR>
<TD width="100%" height="159" valign="top">
<table width="100%" height="114" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="17%" valign="top" bgcolor="#EFEFEF"> <%
If RsModifyObj("UserID")<>0 then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="71%"> <strong> <a href=../ReadUser.asp?UserName=<% =Fs_User.EName%>>
<% =Fs_User.EName%>
</a> </strong></td>
<td width="29%"> <%
If Fs_User.Sex =0 then
%>
<img src="../../../<%=UserDir%>/GBook/Images/Male.gif" alt="帅哥哦" width="23" height="21">
<%Else%>
<img src="../../../<%=UserDir%>/GBook/Images/FeMale.gif" alt="美女哦" width="23" height="21">
<%End if%> </td>
</tr>
</table>
<div align="center">
<hr size="1" noshade color="#CCCCCC">
<%If Len(Fs_User.HeadPic)>5 then%>
<img src=../../../<%=UserDir%>/<% =Fs_User.HeadPic%>>
<%Else%>
<table width="0" border="0" cellpadding="0" cellspacing="0" bgcolor="#F0F0F0">
<tr>
<td bgcolor="#FFFFFF"><img src="../../../<%=UserDir%>/images/noHeadPic.jpg" width="50" height="50" border="0"></td>
</tr>
</table>
<%End if%>
<%Else%>
<strong><font color="#990033">管理员</font></strong>
<%End if%>
</div>
<br>
<% = RsModifyObj("addtime")%> </td>
<td width="83%" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td colspan="2" valign="top"> <%If RsModifyObj("UserID")<>0 then%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="86"> <div align="center">
<%
if Trim(Fs_User.QQ)<>"" then
Dim sOICQ
sOICQ ="<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="& Fs_User.QQ &"&Site="& Fs_ConfigCache.FindNeedRecord("1") &"&Menu=yes><img border=""0"" SRC=http://wpa.qq.com/pa?p=1:"& Fs_User.QQ &":8 alt=""点击这里给"& Fs_User.QQ &"发消息""></a>"
Response.Write sOICQ
Else
Response.Write("没有QQ")
End if
%>
</div></td>
<td width="48"><a href="../../../<%=UserDir%>/ReadUser.asp?UserName=<% = Fs_User.EName%>"><img src="../../../<%=UserDir%>/GBook/Images/profile.gif" alt="查看信息" width="45" height="18" border="0"></a></td>
<td width="45"><a href="mailto:<%=Fs_User.Email%>"><img src="../../../<%=UserDir%>/GBook/Images/email.gif" width="45" height="18" border="0"></a></td>
<td width="45"> </td>
<td width="113"> </td>
<td width="113"> </td>
<td width="113"> </td>
<td width="113"> </td>
<td width="113"> </td>
<td width="113"><div align="right">楼主</div></td>
</tr>
<tr bgcolor="#D0D0D0">
<td height="1" colspan="10"></td>
</tr>
</table>
<%End if%> </td>
</tr>
<tr>
<td width="4%" valign="top"><img src="../../../<%=UserDir%>/GBook/Images/face<% = RsModifyObj("FaceNum")%>.gif" width="22" height="22"></td>
<td width="96%" valign="bottom"><strong>
<% = RsModifyObj("Title")%>
</strong></td>
</tr>
<tr>
<td height="29" valign="top"> </td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<% = RsModifyObj("Content")&RsModifyObj("EditQ")%> </td>
</tr>
<tr>
<td> </td>
<td><div align="right">
<%If RsModifyObj("Orders")=2 then%>
<a href="SysBookRead.asp?ID=<%=RsModifyObj("id")%>&Sid=<%=Request("id")%>&Action=Top" title=固顶>[固顶]</a>
<%Else%>
<a href="SysBookRead.asp?ID=<%=RsModifyObj("id")%>&Sid=<%=Request("id")%>&Action=UnTop">[解固]</a>
<%End if%>
<%If RsModifyObj("isLock")=0 then%>
<a href="SysBookRead.asp?ID=<%=RsModifyObj("id")%>&Sid=<%=Request("id")%>&Action=sLock" title=锁定后前台用户不能回复>[锁定]</a>
<%Else%>
<a href="SysBookRead.asp?ID=<%=RsModifyObj("id")%>&Sid=<%=Request("id")%>&Action=sUnLock">[解锁]</a>
<%End if%>
<a href="SysBookModify.asp?ID=<%=RsModifyObj("id")%>&GetAction=oper&Sid=<%=Request("id")%>">[编辑]</a> <a href="SysBookRead.asp?ID=<%=RsModifyObj("id")%>&Action=Del&GetAction=1">[删除]</a> </div></td>
</tr>
</table></td>
</tr>
<%
Dim RsQModifyObj,QModifySQL
Dim RsCon,strpage,select_count,select_pagecount
strpage=request.querystring("page")
if len(strpage)=0 then
strpage="1"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -