📄 bbs.asp
字号:
<!--#include file="conn.asp"-->
<% response.Expires=false %>
<html>
<head>
<title>留言板-BBS</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/text.css" type="text/css">
<script language=javascript src="js/check.js"></script>
<script language=javascript src="js/double.js"></script>
<script language=javascript src="js/openwindow.js"></script>
<style>
form {margin:0;padding:0}
</style>
<SCRIPT language=JavaScript>
<!--
function hve_display(t_id,i_id){//显示隐藏程序
var t_id;//表格ID
var i_id;//图片ID
var on_img="images/bbs/open.gif";//打开时图片
var off_img="images/bbs/close.gif";//隐藏时图片
if (t_id.style.display == "none") {//如果为隐藏状态
t_id.style.display="";//切换为显示状态
i_id.src=off_img;}//换图
else{//否则
t_id.style.display="none";//切换为隐藏状态
i_id.src=on_img;}//换图
}
//-->
</SCRIPT>
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_showHideLayers() { //v3.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
</head>
<%
//页数和行数
page=clng(request("page"))
bbs=request("bbs")
set rssup=conn.execute("select * from supervisor")
pagerow=rssup("row")
if len(bbs)=0 and rssup("style")=true then
response.redirect "default.asp"
set rssup=nothing
end if
//内容
textword=request("textcontent")
if textword<>"" and textword<>session("reapletextword") then
//网名
textname=request("textname")
//性别
textgender=request("radiobutton1")
//oicq
textoicq=request("textoicq")
if textoicq="" then textoicq="没 填"
//邮箱
textemail=request("textemail")
if textemail="" then textemail="没 填"
//主页
texturl=request("texturl")
if texturl="http://" then texturl="没 填"
//表情
textface=request("radiobutton2")
//图像
images=mid(request("image"),14,2)
//标题
textcaption=request("textcaption")
//内容保持原形
session("reapletextword")=textword
textword=replace(textword,chr(13),"<br>")
textword=replace(textword," "," ")
'textword=replace(textword,chr(10),"<p>")
//取mid最值
sqlmid="select max(mid) as maxid from guest"
set rsid=conn.execute(sqlmid)
set rsadd=server.createobject("adodb.recordset")
sql="select * from guest"
rsadd.open sql,conn,3,3
rsadd.addnew
rsadd("name")=textname
rsadd("gender")=textgender
rsadd("oicq")=textoicq
rsadd("email")=textemail
rsadd("url")=texturl
rsadd("face")=textface
rsadd("word")=textword
rsadd("images")=images
rsadd("caption")=textcaption
rsadd("mid")=rsid("maxid")+1
rsadd.update
'sqlid="update guest set mid="&maxid
'set rsid=server.createobject("adodb.recordset")
'rsid.open sqlid,conn,3,3
'sqlmaxid="update guest set mid="&rsid("maxid")+1&" where mid="&rsid("maxid")
'response.write sqlmaxid
'response.end
'conn.execute sqlmaxid
end if
%>
<body bgcolor="F7FEF6" text="#000000" >
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr>
<td align="center">
<table width="80%" border="0" cellpadding="1" cellspacing="0" bgcolor="70C570">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="6" bgcolor="F7FEF6" class="text9">
<tr>
<td width="25%" align="center" ><a href="../index.asp" target="_blank"><img src="images/about/butindex.gif" width="86" height="21" alt=" 返 回 首 页 " border="0"></a></td>
<td width="25%" align="center"><a href="javascript:;"><img src="images/about/butsup.gif" width="86" height="21" onClick="displayWindow('supervisor.asp','','306','260','toolbar=yes,status=yes,menubar=yes,scrollbars=yes')" alt=" 留言本管理 " border="0"></a></td>
<td align="center" width="25%"><a href="default.asp?book=true"><img src="images/about/butbook.gif" width="86" height="21" border="0" alt=" 改 变 风 格 "></a></td>
<td align="center" width="25%"><a href="javascript:;" onClick="MM_showHideLayers('floater','','show')"><img src="images/about/butwrite.gif" width="86" height="21" border="0" alt=" 留 言 签 写 "></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="0" align="center">
<tr>
<td align="center">
<table width="80%" border="0" cellspacing="0" cellpadding="0"54" bgcolor="#70C570">
<tr>
<td height="24">
<table width="100%" border="0" cellspacing="1" cellpadding="3" height="100%" b bordercolor="70C570" d class="text9" style="TABLE-LAYOUT: fixed" >
<tr align="center">
<td bgcolor="F7FEF6" width="30" background="images/bbs/bg.gif">表情</td>
<td bgcolor="F7FEF6" background="images/bbs/bg.gif" height="21">主
题</td>
<td bgcolor="F7FEF6" width="100" background="images/bbs/bg.gif">留言人</td>
<td bgcolor="F7FEF6" width="100" background="images/bbs/bg.gif">留言日期</td>
<td bgcolor="F7FEF6" width="40" background="images/bbs/bg.gif">回
复</td>
<td bgcolor="F7FEF6" width="45" background="images/bbs/bg.gif">展
开</td>
</tr>
<%
sql="select * from guest order by mid desc"
//搜索内容
search=request("search")
if len(search)>0 then
search=replace(search,chr(39),"＇")
sql="select * from guest where name like '%"&search&"%'or caption like '%"&search&"%' or word like '%"&search&"%'or wordid like '%"&search&"%' order by mid desc"
'response.write sql
'response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
//是否有留言内容
if rs.bof and rs.eof then
if len(search)=0 then
response.redirect("add_say.asp")
else
response.redirect "search_no.asp?search="&search
end if
end if
if pagerow>0 then
rs.pagesize=pagerow
else
rs.pagesize=10
end if
if page < 1 then page=1
if page > rs.pagecount then page=rs.pagecount
overallcount=rs.recordcount
overallpage=rs.pagecount
showsay rs,page
%>
<% sub showsay(rs,page) %>
<% rs.absolutepage=page %>
<% for i=1 to rs.pagesize %>
<tr>
<td bgcolor="F7FEF6" width="30" align="center"><img src="images/face/<%=rs("face")%>.gif" width="16" height="16">
</td>
<td bgcolor="F7FEF6" onmouseover=javascript:this.bgColor='#EFFBEE' onmouseout=javascript:this.bgColor='#F7FEF6'><a style="CURSOR: hand"
onClick=hve_display(<%="id"&rs("id")%>,<%="img"&rs("id")%>) <% if len(rs("word"))>5 then %> title="<%=left(rs("word"),5)&"..." %> <%else%> title="<%=rs("word")%> <%end if %> "><%=rs("caption") %> </a>
</td>
<td bgcolor="F0FBEF" width="100" align="center"><%=rs("name") %></td>
<td bgcolor="F7FEF6" width="100" align="center">
<% =mid(rs("worddate"),1,8) %>
</td>
<td bgcolor="F7FEF6" width="35" align="center">
<% if len(rs("wordid"))>0 then %>
<img src="images/bbs/yes.gif" width=14 height=18>
<%else response.write" " end if %>
</td>
<td bgcolor="F7FEF6" width="45" align="center"><img style="CURSOR: hand"
onClick=hve_display(<%="id"&rs("id")%>,<%="img"&rs("id")%>) height=16 src="images/bbs/open.gif"
width=17 name=<%="img"&rs("id")%> alt=" 展 开 留 言 " > </td>
</tr>
<tr id=<%="id"&rs("id") %> style="display =none" align="left" valign="top">
<td bgcolor="F7FEF6" colspan="6" >
<table width="100%" border="0" cellspacing="0" cellpadding="6" >
<tr>
<td width="100" align="center" height="153" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3" align="center" style="TABLE-LAYOUT: fixed" class="text9">
<tr>
<td valign="middle" align="center" width="100%"><font style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word; 130; 0pt"><%=rs("name") %><br>
<br>
<img src="images/image/<%=rs("images")%>.gif" width="84" height="95">
</font></td>
</tr>
</table>
</td>
<td align="center" height="153" width="1">
<table width=1 height=100% border="0" cellpadding="0" cellspacing="0" bgcolor="#70C570">
<tr>
<td width=1></td>
</tr>
</table>
</td>
<td valign="top">
<table width="100%" border="0">
<tr>
<td><font color="#006633">主题</font><font color="#006600">:</font><%=rs("caption") %> </td>
<td width="165"><img src="images/but/posttime.gif" width="16" height="15"><font color="#006633">：
<% =rs("worddate") %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -