📄 default.asp
字号:
<!--#include file="conn.asp"-->
<% response.Expires=false %>
<html>
<head>
<title>留言本</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 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"))
book=request("book")
set rssup=conn.execute("select * from supervisor")
pagerow=rssup("row")
if len(book)=0 and rssup("style")=false then
response.redirect "bbs.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" border="0" alt=" 返 回 首 页 "></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')" border="0" alt=" 留言本管理 "></a></td>
<td align="center" width="25%"><a href="bbs.asp?bbs=true"><img src="images/about/butbbs.gif" width="86" height="21" alt=" 改 变 风 格 " border="0"></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">
<%
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 %>
<table width="78%" border="0" align="center" cellpadding="0" cellspacing="1" height="127" bgcolor="70C570">
<tr>
<td>
<table width="100%" border="1" cellpadding="6" cellspacing="0" bordercolordark="F7FEF6"class="text9" align="center" bgcolor="F7FEF6" bordercolor="F7FEF6">
<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 height="33" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3" class="text9" style="TABLE-LAYOUT: fixed">
<tr>
<td height="25"><font color="#006633">主题</font><font color="#006600">: </font><%=rs("caption") %> </td>
<td width="165" height="25"><img src="images/but/posttime.gif" width="16" height="15"><font color="#006633">：
<% =rs("worddate") %>
</font></td>
</tr>
</table>
<hr size="0.2" color="#70C570" width="100%">
<table width="100%" border="0" cellpadding="6" cellspacing="0" class="saytext" height="45%" style="TABLE-LAYOUT: fixed">
<tr>
<td valign="top" width="28" align="center"><img src="images/face/<%=rs("face")%>.gif" width="16" height="16">
</td>
<td valign="top" width="94%" style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word; 130; 0pt" >
<p>
<% =rs("word") %>
<br>
<br>
<br>
<br>
<% if len(rs("wordid")) >0 then %>
<table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor="B3E1B3" height="45%">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="6" bgcolor="EDFAED">
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="2" cellspacing="0" style="TABLE-LAYOUT: fixed">
<tr>
<td><font color="FD3331">管 理 员 回 复:</font></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -