📄 default.asp

📁 北京商务网
💻 ASP
字号:
<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/config.asp"-->
<SCRIPT>
function viewa(url){ 
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=100,width=575,height=240'); 
}
</SCRIPT>
<SCRIPT language=javascript src="../manage/images/zyok.JS"></SCRIPT>
<HTML><HEAD><TITLE><%=WebName%>·在线咨询</TITLE>
<META content=zh-cn http-equiv=Content-Language>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK 
href="images/main.css" rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<TD bgColor=#FFFFFF height=4></TD>
</tr>
</table>
<center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="770" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD background="images/x_2.gif" height=69 
vAlign=top width=275> 　</TD>
<TD vAlign=top>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="40">
<tr>
<td width="100%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="41">
<tr>
<td width="23%" rowspan="2" height="8" valign="bottom">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<tr>
<td width="100%" valign="top">
<img border="0" src="images/car6684.gif"></td>
</tr>
</table>
</td>
<td width="77%" height="17">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="338" id="AutoNumber5">
<tr>
<TD width="25" style="font-size: 12px; font-family: 宋体; line-height: 150%">
　</TD>
<TD width="66" style="font-size: 12px; font-family: 宋体; line-height: 150%">
　</TD>
<TD width="25" style="font-size: 12px; font-family: 宋体; line-height: 150%">
　</TD>
<TD width="66" style="font-size: 12px; font-family: 宋体; line-height: 150%">
　</TD>
<TD width="290" style="font-size: 12px; font-family: 宋体; line-height: 150%">
<p align="center">
&nbsp; <b> 
<span style="font-weight: 400"><font color="#FFFF00">
<%if session("user")<>"" then%><a href="../exitsystem.asp"><img border="0" src="../hyxx/images/gb.gif" width="16" height="13" alt="点击退出"></a></font>欢迎您:<font face=arial color="#FF0000"><%=session("user")%></font><font color="#FFFF00"><%else%>&nbsp;&nbsp; </font></span></b> 
<a href="../Login/register.asp"><img border="0" src="../images/zc.gif"></a>&nbsp; 
<a href="../help/hyhelp.asp">
<img border="0" src="../images/help.gif"></a><b><span style="font-weight: 400"><font color="#FFFF00"><%end if%></font></span></b></TD>
<TD width=4 valign="middle" style="font-size: 12px; font-family: 宋体; line-height: 150%; color: #000">
　</TD>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="77%" height="3"> </td>
</tr>
</table>
</td>
</tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="495">
<TBODY>
<TR>
<TD align=right bgColor=#ff8400 height=28 width="385">
<center>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=200 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD width="11"><B>
<IMG 
src="images/index_aro.gif"></B></TD>
<TD width="82">
<font color="#FFFFFF" style="font-size: 10pt; letter-spacing: 1">
<b><a href="Add.asp"><font color="#FFFFFF">我要咨询</font></a></b></font></TD>
<TD width="11"><B>
<IMG 
src="images/index_aro.gif"></B></TD>
<TD width="76"><span style="letter-spacing: 1">
<font color="#FFFFFF" size="2"><b><a href="default.asp">
<font color="#FFFFFF">查看留言</font></a></b></font></span></TD>
</TR></TBODY></TABLE></TD>
<TD align=right bgColor=#ff8400 height=28 width="82">
<font color="#FFFFFF"><b><a href="../default.asp">
<font color="#FFFFFF" style="font-size: 10pt">&lt;&lt;回首页</font></a></b></font></TD>
<TD align=right height=28 width=28>
<IMG 
src="images/x_3.gif"></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</center>
<center>
<TABLE width="770" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="769">
<TBODY>
<TR>
<TD align=right width=38>
　</TD>
<TD height=25 width=52><B><FONT 
color=#cc6600>　</FONT></B><IMG 
src="images/x_4.gif"> </TD>
<TD height=25 width=679><B>
<span style="letter-spacing: 1; font-size: 10.5pt">客</span><span style="font-size: 10.5pt; letter-spacing: 1">户留言信息</span></B></TD></TR></TBODY></TABLE>
<div align="center">
<center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="90%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD bgColor=#01438b height=1></TD></TR>
<TR>
<TD bgColor=#217dda height=5></TD></TR></TBODY></TABLE>
</center>
</div>
<center>
<TABLE border=0 cellSpacing=1 width="90%" style="border-collapse: collapse" bordercolor="#111111" background="images/bg1.gif" height="198">
<TBODY>
<TR>
<TD align=middle height="12">　</TD></TR>
<TR>
<TD align=middle height="169">
<TABLE border=0 cellPadding=0 cellSpacing=0 height=160 width="100%" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#FFFFFF">
<TBODY>
<TR vAlign=top>
<TD colSpan=5 height="160">
<div align="center">
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr> 
<td valign="top"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr> 
<td> 
<%
const MaxPerPage=8 '分页显示留言个数
dim sql,rs,totalput,CurrentPage,TotalPages,i
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from GuestBook order by id desc"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write "<p align='center'> 还 没 有 任 何 留 言</p>" 
else 
totalPut=rs.recordcount 
if currentpage<1 then 
currentpage=1 
end if 
if (currentpage-1)*MaxPerPage>totalput then 
if (totalPut mod MaxPerPage)=0 then 
currentpage= totalPut \ MaxPerPage 
else 
currentpage= totalPut \ MaxPerPage + 1 
end if 
end if 
if currentPage=1 then 
showContent 
showpages 
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent 
showpages 
else 
currentPage=1 
showContent 
end if 
end if 
rs.close 
end if 
set rs=nothing 
conn.close 
set conn=nothing 
sub showContent 
i=0 
do while not (rs.eof or err) %>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff" style="border-collapse: collapse">
<tr > 
<td width="95%" > 
<table width="688" height="20" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr> 
<td width="485" align="right" valign="bottom"> 
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber10" background="images/bg23.gif" height="21">
<tr>
<td width="100%" height="21"> <b><font color="#000066">
&nbsp; 
<img src="images/gb.gif"> 主题：&nbsp;</font><font color="#000099"><%=rs("Title")%></font></b><font color="#CC6600">&nbsp;&nbsp;&nbsp; 
</font> 
<%if rs("where")<>"" then%> 
<IMG alt="<%=rs("where")%>" border=0  
src="images/gb_where.gif">
<%else%> 
<IMG alt="未知" border=0  
src="images/l1.gif"> 
<%end if%> 
<%if rs("tel")<>"" then%>  
<IMG alt="<%=rs("tel")%>" border=0  
src="images/gb_msn.gif">
<%else%> 
<IMG alt="未知" border=0  
src="images/l2.gif"> 
<%end if%> 
<%if rs("UserEmail")="@" then%>  
<IMG  
alt="未知" border=0 src="images/l3.gif">
<%else%> <a href="mailto:<%=rs("UserEmail")%>"> 
<IMG 
alt="<%=rs("UserEmail")%>" border=0 src="images/gb_mail.gif"></a> 
<%end if%> </td> 
</tr>
</table>
</td>
<td valign="bottom" width="110">　</td>
</tr>
</table>
</td>
</tr>
<tr> 
<td>
<div align="center">
<center>
<table width="688" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" height="62">
<tr> 
<td width="76" align="right" valign="top" height="50" rowspan="2" bgcolor="#FDFEFF"> <strong><font color="#000066"><br>
内容：&nbsp; </font></strong></td>
<td height="29" width="555" valign="middle" colspan="2" bgcolor="#FDFEFF"> 
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber9">
<tr>
<td width="100%">
<%=rs("Content")%></td>
</tr>
</table>
</center>
</div>
</td>
<td height="50" width="57" rowspan="2" bgcolor="#FDFEFF"> 　</td>
</tr>
<tr>
<td height="21" width="321" valign="middle" bgcolor="#FDFEFF"> 
　</td>
<td height="21" width="234" bgcolor="#FDFEFF"> 
<p><font color="#CC6600"><b>&nbsp; →</b><a href="mailto:<%=rs("UserEmail")%>"><%=rs("UserName")%></a>[<%=rs("AddTime")%>]</font></td> 
</tr>
</table></center>
</div>
</td>
</tr>
<%
set rsg=server.createobject("adodb.recordset")
sql="select * from hfbook where Gid="&rs("Id")
rsg.open sql,conn,1,1 
if rsg.eof then
response.Write(" ") 
else
while not rsg.eof
%>
<tr> 
<td> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="70" align="right" bgcolor="#FFFFFF"><strong>
<font color="#FF3300">
回复：&nbsp;</font></strong></td>
<td height="29" bgcolor="#FFFFFF"> 
<table width="618" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="560" height="20" bgcolor="#FFFFFF"> 
<%If rsg("IsA")=True then%>
<font color="#FF3300">&lt;&gt; <%=rsg("Gcontent")%> —— </font>  
<%if rsg("GEmail")="@" then%>
<font color="#FF3300"><b><%=rsg("Gname")%></b></font>  
<%else%> 
<font color="#FF3300"> <b><%=rsg("Gname")%></b>  
</font> <a href="mailto:<%=rsg("GEmail")%>"><font color="#FF3300">
[Email]</font></a> 
<%end if%> 
<font color="#FF3300"><%=rsg("Gtime")%></font>  
<%else%> 
<font color="#000066">&lt;&gt; <%=rsg("Gcontent")%> —— </font>  
<%if rsg("GEmail")="@" then%>
<font color="#000066"><b><%=rsg("Gname")%></b></font>  
<%else%> 
<font color="#000066"><b><%=rsg("Gname")%></b></font> 
<a href="mailto:<%=rsg("GEmail")%>"> 
<IMG 
alt="<%=rs("UserEmail")%>" border=0 src="images/gb_mail.gif"></a> 
<%end if%> 
<font color="#000066"><%=rsg("Gtime")%></font>  
<%End If%> 
</td>
<td width="58" align="center" bgcolor="#FFFFFF"> 
　</td>
</tr>
</table>
<%
rsg.movenext
wend
end if
%>
</td>
</tr>
<tr>
<td width="70%" align="right" colspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11">
<tr>
<TD height=5 background="images/line.gif"></TD>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr> 
<td align="right" bgcolor="#EEF3FF"> 
<% i=i+1 
if i>=MaxPerPage then exit do 
rs.movenext 
loop 
end sub 
sub showpages() 
dim n 
if (totalPut mod MaxPerPage)=0 then 
n= totalPut \ MaxPerPage 
else 
n= totalPut \ MaxPerPage + 1 
end if 
if n=0 then 
response.write "<p align='right'><a href=gbadd.asp>请留下您宝贵的意见！</a></p>" 
exit sub 
end if 
dim k 
response.write "分页 &gt;&gt; " 
for k=1 to n 
if k=currentPage then 
response.write"["+Cstr(k)+"]" 
else 
response.write"<a href='default.asp?page="+cstr(k)+"'>[ "+Cstr(k)+" ]</a>"
end if 
next 
end sub 
%>
</td>
</tr>
<tr> 
<td height="20" align="right" valign="bottom" bgcolor="#217DDA"> 
<%if session("GbAdmin")="" then%>
<%else%>
<a href="default.asp?aout"><font color="#FFFFFF">退出管理</font></a>&nbsp;&nbsp;  
<%end if%>
</td>
</tr>
</table></td>
<%rs.close%>
</tr>
</table>
</center>
</div>
</TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
</center>
<%
if request.querystring="aout" then
Session.Abandon()
response.redirect "default.asp"
end if
%> </TD>
<TD bgColor=#ff8400 width=1 rowspan="2"></TD></TR>
<tr>
<TD vAlign=top>
　</TD>
</tr>
</TBODY></TABLE></BODY>
<!--#include file="../inc/end.asp"-->
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -