📄 hx33wishlist.asp

📁 于毕业设计与论文以及做课题用-MSK Simulink simulation program for the design and graduation thesis topic, and makin
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>新年许愿墙|2009年新年祝福-餐饮E站通</title>
<meta name="Keywords" content="<%=HX33_KeyWord%>" />
<meta name="Description" content="<%=HX33_Descrip%>" />
<style><!--@import url(inc/list.css);--></style>
<script type="text/javascript" src="inc/common.js"></script>
</head>

<body>
<!--#include file="HX33_Top.asp" -->

<div id="mainList">
	<table width="100%" border="0" cellpadding="0" cellspacing="1" class="List">
		<tr>
			<th>爱墙编号</th>
			<th>字条内容</th>
			<th>发送者</th>
			<th>接收者</th>
			<th>人气</th>
			<th>发送时间</th>
		</tr>
	<%
	Dim Sql
	If request("flag")="rank" then
	Sql="Select * From [HX33_LoveWallPosts] Order By HX33_hits DESC"
	Else
		If request("HX33_WishID")="" Then
			Sql="Select * From [HX33_LoveWallPosts] Order By HX33_WishID DESC"			
		Else  
			Dim HX33_WishID
			HX33_WishID=CLng(Trim(request("HX33_WishID")))
			Sql="Select * From [HX33_LoveWallPosts] Where HX33_WishID="&HX33_WishID
		End If 
	End If
	Dim Rs
	Set Rs=Server.CreateObject("ADODB.RecordSet")
		Rs.PageSize=HX33_WishPage
		Rs.CacheSize=Rs.PageSize
		Rs.Open Sql,Conn,1,1
	Dim Page
		If Request("Page")="" Then
			Page=1
		Else
			Page=Clng(Request("Page"))
		End If
		If Not(Rs.Eof And Rs.Bof) Then
			Rs.AbsolutePage=Page
		End If
	Dim PageCount
		PageCount=Rs.PageCount
	Dim RecordCount		
		RecordCount=Rs.recordcount
	Dim I
		For I=1 To Rs.PageSize
			If Rs.Eof Then
				Exit For
			End If
	%>  
		<tr>
			<td class="ListID"><%=Rs("HX33_WishID")%></td>
			<td class="ListInfo">
			<%
			response.write "<img src='images/support.gif' style='cursor:hand;' alt='支持' onclick='support("&Rs("HX33_WishID")&")' />&nbsp;&nbsp;&nbsp;<a href='default.asp?HX33_WishID="&Rs("HX33_WishID")&"' style='color:#2A2A2A;'>"&Rs("HX33_WishContent")&"（"&Rs("HX33_Sender")&"爱墙</a>"
			If session("HX33Login")<>"" Then response.write " "&Rs("HX33_WishIP")&" <a href='admin.asp?cmd=del&HX33_WishID="&Rs("HX33_WishID")&"'><img src='images/close.gif' alt='删除字条' /></a>"
			response.write "）"
			%>			
			</td>
			<td class="ListSend"><%=Rs("HX33_Sender")%></td>
			<td class="ListPick"><%=Rs("HX33_Picker")%></td>
			<td class="Listhits"><%=Rs("HX33_hits")%></td>
			<td class="ListDate"><%=Rs("HX33_WishDate")%></td>
		</tr>
	<%
			Rs.MoveNext 
		Next
		Rs.Close
	Set Rs=Nothing
		Conn.Close
	Set Conn=Nothing 
	%>   
		<tr>
			<td colspan="6" class="PageList">
				<a href="HX33writeWish.asp"><img src="images/btn_diy.gif" /></a><%If session("HX33Login")<>"" Then response.write "<a href='login.asp?q=q'><img src='images/lol.gif' alt='修改密码'></a>"%>				
				<span class="Page">（共有<%=RecordCount %>个字条）&nbsp;&nbsp;&nbsp;&nbsp;<script src="inc/PageList.js" type="text/javascript"></script><script type="text/javascript">PageListBar(<%=PageCount%>,<%=Page%>,"")</script></span>
			</td>
		</tr>
	</table>
</div>

<div id="footer">
<!--#include file="foot.asp" -->
</div>
</body>
</html>
⌨️ 快捷键说明

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