📄 admin_gbook.asp
字号:
<td width=38% align=left ><b><u>管理员回复颜色</u></b><br>可使用英文单词或16进制数，<font color="red">如：red、#CCFF00”</font> </td>
<td ><input type=text name=huifucolor value="<%=rs("huifucolor")%>" maxlength=10></td></tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=38% align=left ><b><u>脏话过滤 </u></b><br> <font color="red">用/隔开</font> </td>
<td ><input type=text name=bad value="<%=rs("bad")%>" size=75 maxlength=255></td></tr>
<tr>
<td colspan=2 align="center" height="40" class="tableBorder"><INPUT name="save" TYPE="hidden" value="ok"><INPUT TYPE="submit" value="保存设置"></td></tr>
</form>
</table>
<%
Call AdminPageEnd()
end if
rs.close
set rs=nothing
end sub
sub delfeedback()
if delid="" or isnull(delid) then
Call ArtErr("<li>操作失败，没有选择合适参数，请单击返回！</li>","1")
else
conn.execute("delete from gbook where ID in ("&delid&")")
Call ArtErr("<li>留言删除成功，请单击返回！</li>","2")
end if
end sub
sub detailfeedback()
if id="" then
Call ArtErr("<li>无此留言编号，请单击”返回！</li>","1")
end if
'修改留言资料
if request("send")="ok" then
if trim(request.form("comments"))="" then
Call ArtErr("<li>出错了，留言内容不能为空！</li>","1")
end if
set rs=server.createobject("adodb.recordset")
sql = " select * from gbook where del=false and ID="&id
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("title")=request.form("title")
rs("comments")=request.form("comments")
rs("Replay")=replace(request.form("Replay"),vbCRLF,"<BR>")
rs("ReplayDate") = Now()
rs("Online")=request("Online")
rs("top")=request("top")
rs.update
end if
rs.close
Call ArtErr("<li>留言已经修改或回复成功，请单击返回！</li>","2")
end if
'显示详细资料
set rs = server.createobject("adodb.recordset")
sql = "select * from gbook where ID="&id
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Call ArtErr("<li>无此留言，请单击返回！</li>","1")
end if
if not (rs.eof and rs.bof) then
Comments=replace(rs("Comments"),"<BR>",vbCRLF)
if rs("replay")<>"" then replay=replace(rs("Replay"),"<BR>",vbCRLF) else repley="" end if
%>
<table cellpadding=2 cellspacing=1 border=0 width=98% class=tableBorder align=center>
<tr>
<th height=25 >留言管理</th>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td colspan="4" class="bg_tr" height="25" align="center"> 查看/编辑留言 </td></tr>
<form name="repl" method="post" action='admin_gbook.asp?action=replay&id=<%=id%>'>
<tr>
<TD class="forumRaw" width=15% height=15 align="right"><strong>留言人姓名：</strong></TD>
<td class="forumRaw" width="41%"> <%=rs("UserName")%> </td>
<td class="forumRaw" width="16%"><div align="right"><b>其它联系方式：</b></div></td>
<td class="forumRaw" width="28%"> <%=rs("qq")%> </td>
</tr>
<tr>
<TD class="forumRow" width=15% align="right"><div align="right"><b>留言邮箱：</b></div></TD>
<td class="forumRow"> <a href=mailto:<%=Usermail%>><%=rs("UserMail")%></a> </td>
<td class="forumRow"><div align="right"><b>留言日期：</b></div></td>
<td class="forumRow"> <%=rs("PostDate")%></td>
</tr>
<tr>
<TD class="forumRow" width=15% align="right"><b>留言网址：</b></TD>
<td class="forumRow"> <a href="<%=URL%>" target='_blank'><%=rs("url")%></a> </td>
<td class="forumRow"><div align="right"><b>留言者IP地址：</b></div></td>
<td class="forumRow"> <a href=# onClick='window.open("admin_ip.asp?iP=<%=rs("ip")%>","newsplview","width=380,height=200,top=190,left=150,scrollbars=no" )'><%=rs("IP")%>(查看来源)</a></td>
</tr>
<tr>
<TD class="forumRaw" width=15% align="right"><b>留言标题：</b></TD>
<td class="forumRaw" colspan="3"><input type="text" name="title" size="62" value="<%=rs("title")%>" maxlength="50">
</td></tr>
<tr>
<td width="15%"class="forumRaw" align="right"><b>Ubb标签：</b></td>
<td class="forumRaw" colspan="3"><% call showubb()%></td>
</tr>
<tr>
<TD class="forumRow" align="right" width=15%><div align="center"><b>内容：</b></div></TD>
<td class="forumRow" colspan="3"><textarea style="overflow:auto" name="comments" cols="60" rows="8"><%=Comments%></textarea></td></tr>
<tr>
<TD class="forumRow" align="right" width=15% valign=top><div align="center"><b>回复内容：</b></div></TD>
<td class="forumRow" colspan="3"><textarea style="overflow:auto" name="Replay" cols="60" rows="8"><%=replay%></textarea> </td></tr>
<tr><TD class="forumRaw" align="right" width=15%><div align="center"><b>是否固顶</b></div></TD>
<td class="forumRaw" colspan="3"><input type="radio" name="top" value="1" <%if rs("top")="1" then%>checked<%end if%>>
固顶<input type="radio" name="top" value="0" <%if rs("top")="0" then%>checked<%end if%>>
普通 </td></tr>
<tr><TD class="forumRow" align="right" width=15%><div align="center"><b>是否隐藏</b></div></TD>
<td class="forumRow" colspan="3"><input type="radio" name="Online" value="0" <%if rs("Online")="0" then%>checked<%end if%>>
隐藏<input type="radio" name="Online" value="1" <%if rs("Online")="1" then%>checked<%end if%>>
公开 <input type="radio" name="Online" value="2" <%if rs("Online")="2" then%>checked<%end if%>>
密信</td></tr>
<TR><TD class="forumRaw" align="right" width=15%> <INPUT TYPE="hidden" name=send value=ok></TD>
<TD class="forumRaw" colspan="3">
<input type="submit" name="action" value=" 提 交 "> <input name="reset" type="reset" class="buttonface" style="font-family: 宋体; font-size: 9pt;" onClick="javascript:location='admin_gbook.asp'" value=" 返 回 列 表 ">
</TD></TR></form></TABLE>
<%
end if
Call AdminPageEnd()
rs.close
set rs=nothing
end sub
'分页
sub listPages()
if n <= 1 then exit sub
%><table width="100%" border="0" align=center cellpadding="0" cellspacing="1" ><tr><td class="forumRaw" align="center" height="30">
共<%=totalrec%>条留言
<%if currentpage = 1 then%><
<font color=darkgray>首页 前页</font>
<%else%>
<a href="<%=request.ServerVariables("script_name")%>?page=1">
首页</font></a> <a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>">前页</a>
<%end if%>
<%if currentpage = n then%>
<font color=darkgray >下页 末页</font>
<%else%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">下页</a> <a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>">末页</a>
<%end if%>
第<%=currentpage%>页 共<%=n%>页
</td></tr></table><br>
<%end sub%>
<%
sub ShowUbb()
%>
<script language=JavaScript>
helpstat = false;
stprompt = true;
basic = false;
function thelp(swtch){
if (swtch == 1){
basic = false;
stprompt = false;
helpstat = true;
} else if (swtch == 0) {
helpstat = false;
stprompt = false;
basic = true;
} else if (swtch == 2) {
helpstat = false;
basic = false;
stprompt = true;
}
}
function AddText(NewCode) {
document.repl.comments.value+=NewCode;
}
function emails() {
if (helpstat) {
alert("Email 标记\n插入 Email 超级链接\n用法1: [email]nobody@domain.com[/email]\n用法2: [email=nobody@domain.com]佚名[/email]");
} else if (basic) {
AddTxt="[email][/email]";
AddText(AddTxt);
} else {
txt2=prompt("链接显示的文字.\n如果为空，那么将只显示你的 Email 地址","");
if (txt2!=null) {
txt=prompt("Email 地址.","name@domain.com");
if (txt!=null) {
if (txt2=="") {
AddTxt="[email]"+txt+"[/email]";
} else {
AddTxt="[email="+txt+"]"+txt2;
AddText(AddTxt);
AddTxt="[/email]";
}
AddText(AddTxt);
}
}
}
}
function flash() {
if (helpstat){
alert("Flash 动画\n插入 Flash 动画.\n用法: [flash]Flash 文件的地址[/flash]");
} else if (basic) {
AddTxt="[flash][/flash]";
AddText(AddTxt);
} else {
txt=prompt("Flash 文件的地址","http://");
if (txt!=null) {
AddTxt="[flash]"+txt;
AddText(AddTxt);
AddTxt="[/flash]";
AddText(AddTxt);
}
}
}
function Cdir() {
if (helpstat){
alert("Shockwave 动画\n插入 Shockwave 动画.\n用法: [dir=500,350]Shockwave 文件的地址[/dir]");
} else if (basic) {
AddTxt="[dir][/dir]";
AddText(AddTxt);
} else {
txt=prompt("Shockwave 文件的地址","");
if (txt!=null) {
AddTxt="[dir=500,350]"+txt;
AddText(AddTxt);
AddTxt="[/dir]";
AddText(AddTxt);
}
}
}
function Crm() {
if (helpstat){
alert("real player 文件\n插入 real player 文件.\n用法: [rm=500,350]real player 文件的地址[/rm]");
} else if (basic) {
AddTxt="[rm][/rm]";
AddText(AddTxt);
} else {
txt=prompt("real player 文件的地址","");
if (txt!=null) {
AddTxt="[rm=500,350]"+txt;
AddText(AddTxt);
AddTxt="[/rm]";
AddText(AddTxt);
}
}
}
function Cwmv() {
if (helpstat){
alert("media player 文件\n插入 wmv 文件.\n用法: [mp=500,350]media player 文件的地址[/mp]");
} else if (basic) {
AddTxt="[mp][/mp]";
AddText(AddTxt);
} else {
txt=prompt("media player 文件的地址","");
if (txt!=null) {
AddTxt="[mp=500,350]"+txt;
AddText(AddTxt);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -