⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 author.asp

📁 ASP仿QQ程序 web版的
💻 ASP
字号:
<!--#include file="conn.asp"-->

<%
	dim name,page,i,rowcount

	i=1
	rowcount=0

	page=request.querystring("page")
	name=request.querystring("name")

	sql="select * from users where name='"&name&"'"
	set rs=server.createobject("adodb.recordset")
	rs.open sql, conn, 1,1

	if page="" then page=1
	page=int(page)
	if page<1 then page=1
	if page>rs.pagecount then page=rs.pagecount

	if not (rs.EOF and rs.BOF) then 
			rs.AbsolutePage =page
	end if

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>流星网盟留言簿</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css"> <body background="image/bg02.gif">

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) 
		{ //v2.0
			window.open(theURL,winName,features);
		}
//-->
</script>

<body background="image/bg01.gif">
<div align="center"><font color="#FFFFFF"><b><%=rs("name")%></b> 所有的留言 共<font color="#000000"><%=rs.recordcount%></font>条</font><br>
  <br>
  <table style="border-collapse:collapse" width="500" border="1" cellpadding="3" cellspacing="0" bordercolor="#000000">
    <tr bgcolor="#FFFFFF"> 
      <td width="10%"><div align="center">编 号</div></td>
      <td width="40%"><div align="center">主 题</div></td>
      <td width="35%"><div align="center">发表时间</div></td>
      <td width="15%"><div align="center">已经回复</div></td>
    </tr>

	<%do while not rs.eof and rowcount<10%>
		<tr bgcolor="#D2F0FF"> 
		  <td width="10%"><div align="center"><%=i%></div></td>
		  <td width="40%"><div align="center"><a href="#" title='查看详细内容'  onClick="MM_openBrWindow('con_detail.asp?id=<%=rs("id")%>','','scrollbars=yes,width=600,height=300')"><%=rs("title")%></a></div></td>
		  <td width="35%"><div align="right"><%=rs("submittime")%></div></td>
		  <td width="15%"><div align="center"><a href='reply.asp?id=<%=rs("id")%>' title='回复该留言' target="blank" onclick='javascript:window.close()'><%if rs("reply")<>"" then%><%="是"%><%else%><%="否"%><%end if%></a></div></td>
		</tr>
	<%
		i=i+1
		rowcount=rowcount+1
		rs.MoveNext
		loop
	%>
  </table>
  <br>

	<%if page<>1 then%>
			<a href="author.asp?name=<%=name%>&page=1"><font color="#FFFFFF">第一页</font></a>
			<a href="author.asp?name=<%=name%>&page=<%=page-1%>"><font color="#FFFFFF">上一页</font></a>
		<%end if%>
		<%if page<>rs.pagecount then%>
			<a   href="author.asp?name=<%=name%>&page=<%=page+1%>"><font color="#FFFFFF">下一页</a>
			<a href="author.asp?name=<%=name%>&page=<%=rs.pagecount%>">最后一页</font></a>
	<%end if%>
		<font color="#FFFFFF">第<font color=#000000><%=page%></font>页/共<font color=#000000><%=rs.pagecount%></font>页</font>
  <p>
    <input name="close" type="button" class="button" value="关 闭" onclick='javascript:window.close()'>
  </p>
</div>
</body>
</html>

⌨️ 快捷键说明

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