<!--#include file=config1.asp-->
<!--#include FILE="background.asp"-->
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<link href="1.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#66FFCC">
<table>
<tr><td> </td></tr>
</table>
<!--#include file="conn.asp"-->
<%
sharesql="select * from share"
set sharers=conn.execute(sharesql)
%>
<style type="text/css">
<!--
a:link {
font-size: 12px;
color: #FF2020;
text-decoration: none;
}
a:visited {
font-size: 12px;
color: #E30000;
text-decoration: none;
}
a:hover {
font-size: 12px;
color: #062CFF;
text-decoration: none;
}
-->
</style>
<table width="750" border="1" align="center" cellpadding="3" cellspacing="3" bordercolor="#FF9900"class="tablebg<%=skin%>d">
<tr class="tablebg<%=skin%>a">
<td width="68"><img name="" src="<%=sharers("logo")%>" width="60" height="60" alt=""></td>
<td width="468"><img name="" src="<%=sharers("banner")%>" width="468" height="60" alt=""></td>
<td><table width="84" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF9900">
<tr class="tablebg<%=skin%>e">
<td width="84" bgcolor="#FF66CC"><div align="center">
<a href="#" onClick="this.style.behavior='url(#default#homepage)';this.sethomepage('http://localhost/index.asp')">设置首页</a></div></td>
</tr>
<tr class="tablebg<%=skin%>f">
<td bgcolor="#999933"><p align="center">
<a href="#" onClick="javascript:window.external.addfavorite('http://localhost/index.asp','留言版')">加入收藏</a>
</p></td>
</tr>
<tr class="tablebg<%=skin%>g">
<td bgcolor="#FF9900"><div align="center">联系我们</div></td>
</tr>
</table></td>
</tr>
<tr class="tablebg<%=skin%>a">
<td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr class="tablebg<%=skin%>j">
<td width="500"><a href="../hq1/index1.asp" target="_top">主页</a></td>
<td width="500"><a href="index61.asp" target="_top">浏览留言</a></td>
<td width="500"><a href="fb.asp" target="_top">发表留言</a></td>
<td width="500"><a href="admin.asp" target="_top">管理登陆</a></td>
<td width="500"><a href="zc.asp" target="_top">用户注册</a></td>
<td width="500"><a href="index6.asp" target="_top">用户登陆</a></td>
</tr>
</table></td>
</tr>
</table>
<p>
<div align="center"><font color="#FF00CC"face="隶书">配色：</font>
<select name="skin" id="skin" onChange="javascript:location.href='index61.asp?skin='+document.all.skin.value">
<option value="1" selected>蓝天白云</option>
<option value="2" <%if skin=2 then response.write("selected")%>>水晶紫色</option>
<option value="3" <%if skin=3 then response.write("selected")%>>秋意盎然</option>
<option value="4" <%if skin=4 then response.write("selected")%>>绿野仙踪</option>
<option value="5" <%if skin=5 then response.write("selected")%>>浓浓绿意</option>
<option value="6" <%if skin=6 then response.write("selected")%>>橘子红了</option>
</select>
</div>
<center>
<table>
<%
sql="select * from leaveword order by id desc"
Set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
If rs.eof Then
%>
<tr><td>暂无留言</td></tr>
<%
Else
%>
<tr><td>
<%
pageno=request.querystring("pageno")
rs.pagesize=3
If pageno="" Then
pageno=1
Else
pageno=CInt(pageno)
End If
rs.absolutepage=pageno
%>
<%
temp=3
Do While Not rs.eof And temp>0%>
<%
usersql="select * from user where id="&rs("regid")
Set userrs=conn.execute(usersql)
If Not userrs.eof then
%>
<table width="750" border="1"bordercolor="#FF9900"cellpadding="3"cellspacing="3"align="center"class="tablebg<%=skin%>d">
<tr class="tablebg<%=skin%>a"><td rowspan="2"width="100"class="tablebg<%=skin%>j">
<img name="" src="<%=userrs("images")%>"alt=""width="80"height="80">
</td>
<td class="tablebg<%=skin%>b">留言标题：<%=rs("leaveword_title")%></td>
<TD>留言时间：<%=rs("leaveword_date")%></td>
</tr>
<tr class="tablebg<%=skin%>d">
<td colspan="2">留言内容： <br>
<pre>
<%=rs("leaveword_contents")%>
</pre>
<p>
<%
replysql="select * from reply where leaveword_id="&rs("id")
Set replys=conn.execute(replysql)
If Not replys.eof then
Do While Not replys.eof
response.write "回复内容："&"<br><pre>"&replys("reply_contents")&"</PRE><br>"
sql2="select * from user where id="&replys("regid")
Set rs2=conn.execute(sql2)
response.write "回复人："&rs2("username")&"<br>"
replys.movenext
Loop
End If
%>
</td>
</tr>
<tr class="tablebg<%=skin%>j">
<td>留言人：<%=userrs("username")%></td>
<td colspan="2">
<% If userrs("Email")="" Then
response.write ("电子信箱")
Else
response.write ("<a href=mailto:"&userrs("Email")&">电子信箱</a>")
End If
%>|
<%
If userrs("Msn")="" Then
response.write ("Msn")
Else
response.write ("Msn:"&userrs("Msn"))
End if
%>|
QQ:<%=userrs("qq")%>| Homepage:<%=userrs("homepage")%>| <a href="reply.asp?leaveword_id=<%=rs("id")%>">回复</a>
</td>
</tr>
</table>
<%
End if
temp=temp-1
rs.movenext
Loop
%>
</td>
</tr>
</table>
<%End if%>
</center>
<br>
<table width="750" border="1" align="center" cellpadding="3" cellspacing="3" bordercolor="#FF9900" class="tablebg<%=skin%>f">
<tr class="tablebg<%=skin%>j">
<td align="center">
<%
For A=1 to rs.pagecount
response.Write("<a href=index61.asp?pageno="&A&">"&A&"</a> ")
next
%>
<%If pageno=1 Then %>
【首页】
【上页】
<%else%>
【<a href="index61.asp?pageno=1">首页</a>】
【<a href="index61.asp?pageno=<%=(pageno-1)%>">上页</a>】
<%End if%>
<%
If pageno=rs.pagecount then
%>
【下页】
【尾页】
<%else%>
【<a href="index61.asp?pageno=<%=(pageno+1)%>">下页</a>】
【<a href="index61.asp?pageno=<%=rs.pagecount%>">尾页</a>】
<%End if%>
</td>
</tr>
</table>
<p>
<%
endsql="select * from share"
set endrs=conn.execute(endsql)
%><body topmargin="0">
<table width="750" border="1" align="center" cellpadding="3" cellspacing="3" bordercolor="#FF9900"class="tablebg<%=skin%>d">
<tr class="tablebg<%=skin%>a">
<td colspan="2"align="center"><marquee onmouseover="this.stop()"onmouseout="this.start()"scrollamount="2"scrolldelay="60"direction="left">版权所有：<%=endrs("copyright")%></marquee></td>
</tr>
<tr class="tablebg<%=skin%>h">
<td width="500">电话：<%=endrs("tele")%></td>
<td width="500">传真：<%=endrs("fax")%></td>
</tr>
<tr class="tablebg<%=skin%>j">
<td width="500">电子邮箱：<%=endrs("email")%></td>
<td width="500">网站名字：<%=endrs("sitename")%></td>
</tr>
</table>
</BODY>
</HTML>
我的问题是当我点击下页时，跳转下一页面时，然后选择配色时会自动跳转到第一个页面，请问怎么解决这个问题？请各位师哥师姐帮帮忙？小弟在此谢谢！
