📄 sysbookread.asp
字号:
end if
Set RsQModifyObj = server.createobject(G_FS_RS)
QModifySQL = "select * from FS_GBook where QID="&Replace(Replace(RsModifyObj("Id"),"'",""),Chr(39),"")
RsQModifyObj.open QModifySQL,UserConn,1,1
If Not RsQModifyObj.eof then
RsQModifyObj.pagesize=10
RsQModifyObj.absolutepage=cint(strpage)
select_count=RsQModifyObj.recordcount
select_pagecount=RsQModifyObj.pagecount
for i=1 to RsQModifyObj.pagesize
if RsQModifyObj.eof then
exit for
end if
if i mod 2 <> 0 then
%>
<tr bgcolor="#EEEEEE">
<%Else%>
<tr bgcolor="#FFFFFF">
<%End If%>
<td valign="top" bgcolor="#EFEFEF"> <%
If RsQModifyObj("UserID")<>0 then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="71%"> <strong>
<%
Fs_User.ID = CLng(RsQModifyObj("UserID"))
If Fs_User.EName<>"" And IsNull(Fs_User.EName)=False then
Response.Write("<a href=../ReadUser.Asp?UserName="&Fs_User.EName&">"& Fs_User.EName&"</a>")
Else
Response.Write("用户已被删除")
End if
%>
</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>
</div>
<div align="center"></div>
<div align="center">
<%End if
Else%>
<strong><font color="#990000">管理员</font></strong>
<%End if%>
<br>
<%=RsQModifyObj("Addtime")%> <br>
</div></td>
<td valign="top"> <%If RsQModifyObj("UserID")<>0 then%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="10%"> <div align="center">
<%
if Trim(Fs_User.QQ)<>"" then
Dim sOICQ1
sOICQ1 ="<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 sOICQ1
Else
Response.Write("没有QQ")
End if
%>
</div></td>
<td width="7%"><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="6%"><a href="mailto:<%=Fs_User.Email%>"><img src="../../../<%=UserDir%>/GBook/Images/email.gif" width="45" height="18" border="0"></a></td>
<td width="6%"> </td>
<td width="7%"> </td>
<td width="16%"> </td>
<td width="11%"> </td>
<td width="11%"> </td>
<td width="6%"> </td>
<td width="20%"><div align="right"><%=I%>楼</div></td>
</tr>
<tr bgcolor="#D0D0D0">
<td height="1" colspan="10"></td>
</tr>
</table>
<%Else%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="10%"> <div align="center"> </div></td>
<td width="7%"> </td>
<td width="6%"> </td>
<td width="6%"> </td>
<td width="7%"> </td>
<td width="16%"> </td>
<td width="11%"> </td>
<td width="11%"> </td>
<td width="6%"> </td>
<td width="20%"><div align="right"><%=I%>楼</div></td>
</tr>
<tr bgcolor="#D0D0D0">
<td height="1" colspan="10"></td>
</tr>
</table>
<%End if%>
<table width="100%" height="107" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="4%" height="30" valign="top"><img src="../../../<%=UserDir%>/GBook/Images/face<% = RsQModifyObj("FaceNum")%>.gif" width="22" height="22"></td>
<td width="96%" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"></td>
</tr>
</table>
<% = RsQModifyObj("Content")&RsQModifyObj("EditQ")%> </td>
</tr>
<tr>
<td valign="top"> </td>
<td valign="bottom"> <div align="right"> <a href="SysBookModify.asp?ID=<%=RsQModifyObj("id")%>&GetAction=oper&Sid=<%=Request("id")%>">[编辑]</a> <a href="SysBookRead.asp?ID=<%=RsQModifyObj("id")%>&Action=Del&Sid=<%=Request("id")%>&GetAction=2">[删除]</a> </div></td>
</tr>
</table></td>
</tr>
<%
RsQModifyObj.MoveNext
Next
%>
<tr bgcolor="#FFFFFF">
<td valign="top" bgcolor="#EFEFEF"> </td>
<td valign="top"> <%
Response.write"<br> 共<b>"& select_pagecount &"</b>页<b>" & select_count &"</b>个回复帖子，本页是第<b>"& strpage &"</b>页。"
if int(strpage)>1 then
Response.Write" <a href=?page=1&ID="&RsModifyObj("id")&">第一页</a> "
Response.Write" <a href=?page="&cstr(cint(strpage)-1)&"&ID="&RsModifyObj("id")&">上一页</a> "
end if
if int(strpage)<select_pagecount then
Response.Write" <a href=?page="&cstr(cint(strpage)+1)&"&ID="&RsModifyObj("id")&">下一页</a>"
Response.Write" <a href=?page="& select_pagecount &"&ID="&RsModifyObj("id")&">最后一页</a> "
end if
Response.Write"<br>"
RsQModifyObj.close
Set RsQModifyObj=nothing
%> </td>
</tr>
<%End if%>
</table></TD>
</TR>
</TBODY>
</TABLE>
<%
If Request("QAction")="Q" Then
if Not JudgePopedomTF(Session("Name"),"P070705") then Call ReturnError1()
IsShowSave="1"
Call QuickQ()
Else
IsShowSave="0"
End if
Sub QuickQ()
%>
<a name="QU"></a>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height=5 bgcolor="#FFFFFF" colspan="2"></td></tr>
<form action="SysBookRead.asp" method="POST" name="NewsForm">
<tr bgcolor="#FFFFFF">
<td height="19" colspan="2" bgcolor="#EFEFEF"> <div align="left"><strong>快速回复帖子<a name="B"></a></strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" bgcolor="#F3F3F3"> <div align="right">表情：</div></td>
<td width="84%"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <input name="FaceNum" type="radio" value="1" checked>
<img src="../../../<%=UserDir%>/GBook/Images/face1.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="2">
<img src="../../../<%=UserDir%>/GBook/Images/face2.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="3">
<img src="../../../<%=UserDir%>/GBook/Images/face3.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="4">
<img src="../../../<%=UserDir%>/GBook/Images/face4.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="5">
<img src="../../../<%=UserDir%>/GBook/Images/face5.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="6">
<img src="../../../<%=UserDir%>/GBook/Images/face6.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="7">
<img src="../../../<%=UserDir%>/GBook/Images/face7.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="8">
<img src="../../../<%=UserDir%>/GBook/Images/face8.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="9">
<img src="../../../<%=UserDir%>/GBook/Images/face9.gif" width="22" height="22"></td>
</tr>
<tr>
<td> <input type="radio" name="FaceNum" value="10">
<img src="../../../<%=UserDir%>/GBook/Images/face10.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="11">
<img src="../../../<%=UserDir%>/GBook/Images/face11.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="12">
<img src="../../../<%=UserDir%>/GBook/Images/face12.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="13">
<img src="../../../<%=UserDir%>/GBook/Images/face13.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="14">
<img src="../../../<%=UserDir%>/GBook/Images/face14.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="15">
<img src="../../../<%=UserDir%>/GBook/Images/face15.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="16">
<img src="../../../<%=UserDir%>/GBook/Images/face16.gif" width="22" height="22"></td>
<td> <input type="radio" name="FaceNum" value="17">
<img src="../../../<%=UserDir%>/GBook/Images/face17.gif" width="22" height="22"> </td>
<td> <input type="radio" name="FaceNum" value="18">
<img src="../../../<%=UserDir%>/GBook/Images/face18.gif" width="22" height="22">
<input name="Content" type="hidden" id="Content" value="<% = NewsContent %>">
<input name="QID" type="hidden" id="QID" value="<% = Request("ID") %>">
<input name="action" type="hidden" id="action" value="add"> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"> <div align="right"></div>
<iframe id='NewsContent' src='../../../<%=UserDir%>/Editer/BookQNewsEditer.asp' frameborder=0 scrolling=no width='100%' height='200'></iframe></td>
</tr>
</form>
</table>
<%End Sub%>
</div></td>
</tr>
</table>
</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();
}
function Reply()
{
location='SysBookRead.asp?id=<%=RsModifyObj("ID")%>&QAction=Q#B'
}
function ShowSave()
{
if(<%=IsShowSave%>=='1')
{
SaveID1.style.display='';
SaveID2.style.display='';
}
}
ShowSave();
function SearchLyPage()
{
SearchPage.style.display='';
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -