<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE
html PUBLIC "-//W3C//DTD X
HTML 1.0 Transitional//EN" "http://www.w3.org/TR/x
html1/DTD/x
html1-transitional.dtd">
<
html xmlns="http://www.w3.org/1999/x
html">
<head>
<meta http-equiv="Content-Type" content="text/
html; charset=gb2312" />
<title>留言板首页</title>
<style type="text/
css">
BODY {
MARGIN-TOP: 0px; MARGIN-LEFT: 0px; MARGIN-RIGHT: 0px
}
</style>
<LINK href="Styles.
css" type="text/
css" rel="stylesheet">
<style type="text/
css">
A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #ff0000; TEXT-DECORATION: none
}
A:active {
TEXT-DECORATION: none
}
#Layer1 {
position:absolute;
left:412px;
top:106px;
width:80px;
height:40px;
z-index:1;
visibility: hidden;
}
</style>
<script language="javascript">
<!--
function loginChk()
{
if(form1.txtLoginName.value=="")
{
alert("用户名不能为空");
form1.txtLoginName.focus();
return false;
}
if(form1.txtLoginPwd.value=="")
{
alert("请输入密码");
form1.txtLoginPwd.focus();
return false;
}
return true;
}
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_showHideLayers() { //v6.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>
<!--#include file="conn.asp"-->
<body>
<div id="Layer1" onmouseover="MM_showHideLayers('Layer1','','show')" onmouseout="MM_showHideLayers('Layer1','','hide')"><table border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="font12">
<tr>
<td height="20" width="80"><a href="updateDetail.asp?chgWhat=Detail">
修改用户资料</a></td>
</tr>
<tr>
<td height="20" width="80"><a href="updateDetail.asp?chgWhat=Pwd">
修改用户密码</a></td>
</tr>
</table>
</div>
<form id="form1" method="post" action="login.asp" onsubmit="return loginChk()">
<table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
<tr>
<td background="img/logo.jpg" height="80">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td height="80"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td vAlign="bottom" align="left" background="img/02-step-bg.gif" height="36">
<table width="70%" height="30" border="0" align="center" cellPadding="0" cellSpacing="0" class="font12">
<tr>
<td>
<%if session("$_name$")="" then%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30">用户名：</td>
<td><label>
<
input name="txtLoginName" type="text" size="12" />
</label></td>
<td>密码：</td>
<td><label>
<
input name="txtLoginPwd" type="password" size="12" />
</label></td>
<td> </td>
<td><
input type="submit" name="Submit" value="登录" /></td>
<td> </td>
<td><label>
<
input type="
button" name="Submit2" value="注册" onclick="javascript:window.location.href='register.asp'" />
</label></td>
</tr>
</table>
<%else%>
<table width="474" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="309" height="30"><span class="font12Red"><%=session("$_name$")%></span> 您 好，欢 迎 您 来 到 潇 湘 尘 影 的 留 言 板</td>
<td width="86" onmouseover="MM_showHideLayers('Layer1','','show')" onmouseout="MM_showHideLayers('Layer1','','hide')">【控制面板】</td>
<td width="79">【<a href="logout.asp">退出登录</a>】</td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table cellSpacing="0" cellPadding="0" width="70%" align="center" border="0">
<tr>
<td width="15%" align="left"><img src="img/msg.jpg" width="100" height="25" onclick="javascript:window.location.href='msg.asp'" style="
cursor:hand" /></td>
<td width="85%" align="center" class="font13">
<%dim rs,sql,p,q
set rs=server.CreateObject("adodb.recordset")
sql="select * from userDetail,Msg where userDetail.UserName=Msg.MsgAuthor order by MsgID desc"
rs.open sql,conn,1,1
rs.pagesize=5
q=10 '设置每页可以浏览的页的总数
if request.QueryString("p")<>"" then
p=CInt(request.QueryString("p"))
else
p=0 'p=0时，则翻页数字显示1 2 3 4 5，p=1时，则翻页数字显示6 7 8 9 10，依次类推
end if
if request.QueryString("iPage")<>"" then
iPage=CInt(request.QueryString("iPage"))
'if iPage<1 then iPage=1
'if iPage>rs.pageCount then iPage=rs.pageCount
else
iPage=1
end if
rs.AbsolutePage=iPage%>
共有<span class="font14B"><%=rs.recordcount%></span>条留言 | 共<span class="font14B"><%=rs.pagecount%></span>页 | 当前为第<span class="font14B"><%=rs.AbsolutePage%></span>页</td>
</tr>
<tr>
<td colspan="2" align="center">
<%
if rs.eof then
response.write("<center>暂无留言</center>")
else
for i=0 to rs.pageSize-1
if rs.Eof or rs.bof then exit for
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border:#A2D3EC 1px solid">
<tr>
<td width="20%" height="25" align="left" class="font13B" style="border-right:#A2D3EC 1px solid"><%=rs("UserName")%></td>
<td align="left" style="border-bottom:#A2D3EC 1px solid" class="font12">标题：<span class="font13B"><%=rs("MsgTitle")%></span></td>
</tr>
<tr>
<td width="20%" rowspan="3" align="center" valign="top" style="border-right:#A2D3EC 1px solid" class="font12"><%=rs("UserHeadPic")%><br />QQ:<%=rs("UserQQ")%>| <a href="mailto:<%=rs("UserEmail")%>" title="发邮件给他/她"><img src="img/Email.gif" width="18" height="12" border="0" /></a><br /><%=rs("MsgDate")%></td>
<td align="left" class="font12Red" style="line-height:1.5"> <%=rs("MsgContent")%></td>
</tr>
<tr>
<td align="center"><%if rs("MsgReply")<>"" then%><table width="80%" border="0" cellspacing="0" cellpadding="10" style="border:#D1D1D1 1px solid" class="font12">
<tr>
<td width="25%" align="left" valign="top" bgcolor="#F2F2F2"><span class="font13B" style="line-height:1.5">管理员回复</span>：<br />
(<%=rs("MsgReDate")%>)</td>
<td width="78%" align="left" valign="top" bgcolor="#F2F2F2"><%=rs("MsgReply")%></td>
</tr>
</table>
<%end if%></td>
</tr>
<tr>
<td height="25" align="right" valign="bottom" class="font12"><%if session("$_name$")=rs("MsgAuthor") then%><a href="EditMsg.asp?id=<%=rs("MsgID")%>">编辑</a> | <%end if%><%if session("$_name$")="admin" then%><a href="ReplyMsg.asp?id=<%=rs("MsgID")%>">回复</a> | <a href="DeleteMsg.asp?id=<%=rs("MsgID")%>">删除</a><%end if%> </td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0"><tr><td height="3"></td></tr></table>
<% rs.movenext
next
end if
%> </td>
</tr>
</table>
<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right" class="font12">
<%if p<>0 then%>
<a href="index.asp?iPage=<%=(p-1)*q+q%>&p=<%=p-1%>"><<</a>
<%else%>
<<
<%end if%>
<%for j=1 to q
if(p*q+j<=rs.pageCount) then
if(iPage<>q*p+j) then%>
<a href="index.asp?iPage=<%=p*q+j%>&p=<%=p%>"><%=q*p+j%></a>
<%else%>
<span class="font13B"><%=q*p+j%></span>
<%
end if
end if
next%>
<%if p<>(rs.pageCount\q) then%>
<a href="index.asp?iPage=<%=(p+1)*q+1%>&p=<%=p+1%>">>></a>
<%else%>
>>
<%end if%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing%></td>
</tr>
</table>
</form>
</body>
</
HTML>
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
