📄 index.asp
字号:
<!-- #include file="common.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="在线网吧留言本！">
<meta name="keywords" content="在线网吧留言本" >
<title><% =GBName %></title>
<link href="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function MM_findObj(n, d) { //v4.01
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 && d.getElementById) x=d.getElementById(n); return x;
}
function MM_jumpMenuGo(selName,targ,restore){ //v3.0
var selObj = MM_findObj(selName); if (selObj) MM_jumpMenu(targ,selObj,restore);
}
//-->
</script>
<SCRIPT language=javaScript src="images/left_right.js"></SCRIPT>
</head>
<body>
<table width="730" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="100" align="center"><img src="<% =GBSkin %>/top.gif"></td>
</tr>
</table>
<table width="730" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="50"> </td>
<td align="center">
<span class="link_around"><%=Link_one%></span>
<span class="link_around"><%=Link_two%></span>
<span class="link_around"><%=Link_three%></span>
</td>
<td width="300" height="50"><a href="guest.asp"><img src="<% =GBSkin %>/lybut.gif" alt="我要留言" width="152" height="24" border="0"></a><a href="manginto.asp"><img src="<% =GBSkin %>/mangbut.gif" alt="留言管理" width="141" height="24" border="0"></a></td>
<td width="50"> </td>
</tr>
</table>
<% if Trim(GBNews)=1 then %>
<!-- #include file="news.asp"-->
<% end if %>
<%
dim rname,rsex,raddr,rmail,rpage,roicq,rhead,rtitl,rcont,rtime,rip,rrepflag,recont
set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from guest order by TopG,id DESC"
rs.open sqlstr,conn,1,3
pagesize=GBENum
%>
<%
currentpage=request.querystring("currentpage")
if currentpage="" then
currentpage=0
rs.movefirst
else
rs.move Clng(currentpage)*pagesize
end if
i=0
while i<pagesize and not rs.EOF
%>
<table width="730" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="10" bgcolor="#FFFFFF"> </td>
<td height="30" style="background-image:url(<% =GBSkin %>/guest_top.gif) ">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="150" align="center" class="guest_flag"><a name="<%=rs("id")%>"></a><%If rs("TopG")=True Then%>[置顶留言]<%Else%>[普通留言]<%End If%></td>
<td align="left" class="guest_name"> <% =rs("name") %>[<% =rs("sex") %>]
</td>
<td width="200"><a href="mailto:<% =rs("email") %>"><img src="images/email.gif" alt="<% =rs("email") %>" border="0"></a> <a href="<% =rs("homepage") %>" target="_blank"><img src="images/home.gif" alt="<% =rs("homepage") %>" border="0"></a> <a href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<% =rs("Oicq") %>" target="_blank"><img src="images/oicq.gif" alt="<% =rs("Oicq") %>" width="16" height="16" border="0"></a> <img src="images/ip.gif" alt="<% =rs("ip") %>" width="16" height="15"> <img src="images/help.gif" alt="帮助" width="16" height="16"></td>
</tr>
</table>
</td>
<td width="10" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td width="10" bgcolor="#FFFFFF"> </td>
<td style="background-image:url(<% =GBSkin %>/guest_bg.gif) ">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="150"><table width="130" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="130" align="right" valign="bottom"><img src="images/<% =rs("headpic") %>.gif" class="mytext"></td>
<td width="10" align="center" style="background-image:url(<% =GBSkin %>/gb_pic_r.gif) "> </td>
</tr>
<tr>
<td height="10" colspan="2" align="center" style="background-image:url(<% =GBSkin %>/gb_pic_b.gif) "></td>
</tr>
</table></td>
<td valign="top"><table width="420" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout:fixed;">
<tr>
<td height="25" valign="bottom" class="guest_title"><% =rs("Title") %></td>
</tr>
<tr>
<td height="2" style="background-image:url(<% =GBSkin %>/line.gif) "></td>
</tr>
<tr>
<td height="6"></td>
</tr>
<tr>
<td class="lytext" style="word-break:break-all; word-wrap:break-word;">
<% If rs("sec")=true Then %>
<span style="color:#FF0000 ">与站长的悄悄话</span>
<% Else %>
<% If ifNeedAuditing="YES" And rs("ifHadDealAuditing")=False Then %>
<span style="color:#FF0000 ">留言正在审核中！</span>
<% ElseIf ifNeedAuditing="YES" And rs("ifHadDealAuditing")=True And rs("ifHadPassAuditing")=False Then %>
<span style="color:#FF0000 ">对不起，您的留言没有通过审核！</span>
<% Else %>
<% =ubbcode(rs("content"))%>
<% End If %>
<% End If %>
</td>
</tr>
<tr><td height="10"></td></tr>
<tr>
<td>
<table cellspacing="0" cellpadding="0" width="250" class="line_around" bgcolor="#FFFFFF">
<tr>
<td height="22"> 留言日期：<% =rs("Date") %> <% =rs("Time") %></td>
</tr>
</table>
</td>
</tr>
<tr><td height="10"></td></tr>
<%
'if rs("repflag")=true then
set rsb=Server.CreateObject("ADODB.Recordset")
'-----------------------此处进行了更改 V2.0 版--------------------------------
strsql="select * from reply where GuestID=" & Trim(rs("ID"))
rsb.open strsql,conn,1,3
if not rsb.eof then
if not rs("ReNoView")=True then
recont=rsb("content")
'-----------------------此处进行了更改 V1.1版-------------------------------
%>
<tr>
<td height="22" style="background-image:url(<% =GBSkin %>/linebg.gif) "> 管理员回复</td>
</tr>
<tr>
<td height="2" style="background-image:url(<% =GBSkin %>/line.gif) "></td>
</tr>
<tr>
<td class="rptext" style="word-break:break-all; word-wrap:break-word;"><% =ubbcode(recont) %></td>
</tr>
<%
'-----------------------此处进行了更改 V2.0 版-------------------------------
end if
end if
rsb.close
set rsb=nothing
'end if
'-----------------------此处进行了更改 V2.0 版-------------------------------
%>
</table></td>
</tr>
</table></td>
<td width="10" bgcolor="#FFFFFF"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="10" height="10"></td>
<td height="10" style="background-image:url(<% =GBSkin %>/guest_b.gif) "></td>
<td width="10" height="10"></td>
</tr>
</table>
<table width="730"" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" bgcolor="#FFFFFF"></td>
</tr>
</table>
<%
rs.movenext
i=i+1
wend
%>
<table width="730" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="20" height="25" align="center" style="background-image:url(<% =GBSkin %>/navig_l.gif) "> </td>
<td align="center" class="guest_name" style="background-image:url(<% =GBSkin %>/navig_bg.gif) "><% rscount=rs.recordcount %>
共有
<% =rscount %>
条留言, 共
<%
totalpage=(rscount-1)/pagesize
totalpage=int(totalpage)+1
%>
<% =totalpage %>
页, 每页
<% =pagesize %>
条, 这是第
<% =currentpage+1 %>
页留言.
<% if Clng(currentpage)>0 then %>
<a href="index.asp?currentpage=<% =Clng(currentpage)-1 %>">上一页</a>
<% else %>
上一页
<% end if %>
/
<% if Clng(currentpage)+1<totalpage then %>
<a href="index.asp?currentpage=<% =Clng(currentpage)+1 %>">下一页</a>
<% else %>
下一页
<% end if %></td>
<td width="10" align="center" style="background-image:url(<% =GBSkin %>/navig_r.gif) "> </td>
</tr>
<tr>
<td height="2" align="center"></td>
<td align="center"></td>
<td align="center"></td>
</tr>
<tr>
<td height="25" align="center" style="background-image:url(<% =GBSkin %>/navig_l.gif) "> </td>
<td align="center" class="guest_name" style="background-image:url(<% =GBSkin %>/navig_bg.gif) ">[
<%
i=1
while i<=totalpage
%>
<a href="index.asp?currentpage=<% =i-1 %>"><% =i %></a>
<%
i=i+1
wend
%>
]</td>
<td width="20" align="center" style="background-image:url(<% =GBSkin %>/navig_r.gif) "> </td>
</tr>
</table>
<table width="730" border="0" align="center" cellpadding="0" cellspacing="0" style="background-image:url(<% =GBSkin %>/line.gif) ">
<tr bgcolor="#FFFFFF">
<td height="10" colspan="3"> </td>
</tr>
<tr>
<td width="10" height="70"> </td>
<td><table width="680" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center"><span class="guest_name"><% =GBCopy %></span></td>
</tr>
</table></td>
<td width="10"> </td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<map name="Map">
<area shape="rect" coords="510,7,564,26" href="http://www.zhisi.net/about.htm" target="_blank">
<area shape="rect" coords="576,9,626,25" href="http://www.zhisi.net/join.htm" target="_blank">
<area shape="rect" coords="639,8,691,26" href="http://www.zhisi.net/contact.htm" target="_blank">
<area shape="rect" coords="247,84,333,104" href="http://www.zhisi.net">
<area shape="rect" coords="370,85,450,105" href="http://www.zhisi.net/learn/">
<area shape="rect" coords="479,84,561,103" href="#">
<area shape="rect" coords="605,84,673,103" href="http://www.zhisi.net/webun/" target="_blank">
</map>
</body>
<embed src="music/mus001.mid" align="center" border="0" width="1" height="1" width="100" autostart="true" loop="true">
<SCRIPT language=JavaScript>
function statusMessageObject(p,d) {
this.msg = MESSAGE
this.out = " "
this.pos = POSITION
this.delay = DELAY
this.i = 0
this.reset = clearMessage
}
function clearMessage() {
this.pos = POSITION
}
var POSITION = 100
var DELAY = 5
var MESSAGE = "☆☆网吧留言簿☆☆欢迎您留言!谢谢!! "
var scroll = new statusMessageObject()
function scroller() {
for (scroll.i = 0; scroll.i < scroll.pos; scroll.i++) {
scroll.out += " "
}
if (scroll.pos >= 0)
scroll.out += scroll.msg
else scroll.out = scroll.msg.substring(-scroll.pos,scroll.msg.length)
window.status = scroll.out
scroll.out = " "
scroll.pos--
if (scroll.pos < -(scroll.msg.length)) {
scroll.reset()
}
setTimeout ('scroller()',scroll.delay)
}
function snapIn(jumpSpaces,position) {
var msg = scroll.msg
var out = ""
for (var i=0; i<position; i++)
{out += msg.charAt(i)}
for (i=1;i<jumpSpaces;i++)
{out += " "}
out += msg.charAt(position)
window.status = out
if (jumpSpaces <= 1) {
position++
if (msg.charAt(position) == ' ')
{position++ }
jumpSpaces = 100-position
} else if (jumpSpaces > 3)
{jumpSpaces *= .75}
else
{jumpSpaces--}
if (position != msg.length) {
var cmd = "snapIn(" + jumpSpaces + "," + position + ")";
scrollID = window.setTimeout(cmd,scroll.delay);
} else {
window.status=""
jumpSpaces=0
position=0
cmd = "snapIn(" + jumpSpaces + "," + position + ")";
scrollID = window.setTimeout(cmd,scroll.delay);
return false
}
return true
}
snapIn(100,0);
// -->
</SCRIPT>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -