📄 default.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/index.css);--></style>
<style><!--@import url(inc/layer.css);--></style>
<script type="text/javascript" src="inc/index.js"></script>
<script type="text/javascript" src="inc/common.js"></script>

</head>

<body>
<div style="display:none;" id="HX33" onclick="Hide();"></div>

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



<div id="newest">
<div id="ntitle" align="right">最新10条许愿：</div>
<div id="space"></div>
<div id="nmarquee">
<table width="100%" height="12" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id=demo1>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
	Dim nSql
		nSql="Select top 10 * From [HX33_LoveWallPosts] Order By HX33_WishID DESC"
	Dim nRs
    Set nRs=Server.CreateObject("ADODB.RecordSet")	
		nRs.Open nSql,Conn,1,1
	while not nRs.eof
%>
<td><table width="200px"><tr><td><a href='default.asp?HX33_WishID=<%=nRs("HX33_WishID")%>'>
<strong><font color="#333366"><%=left(nRs("HX33_Sender"),3)%></font></strong>
<font color="#FF3366">&nbsp;祝福&nbsp;</font>
<strong><font color="#333366"><%=left(nRs("HX33_Picker"),3)%></font></strong>：<%=left(nRs("HX33_WishContent"),5)%>
</a></td></tr></table></td>
<%
nRs.movenext
wend
nRs.close:set nRs = nothing
%> 
		        
        </tr>
      </table></td>
	  <td id=demo2>
    </tr>
  </table>
<script> 
var speed=30;
demo2.innerHTML=demo1.innerHTML;
function Marquee(){ 
if(demo2.offsetWidth-nmarquee.scrollLeft<=0) 
nmarquee.scrollLeft-=demo1.offsetWidth;
else{ 
nmarquee.scrollLeft++;
} 
} 
var MyMar=setInterval(Marquee,speed);
nmarquee.onmouseover=function() {clearInterval(MyMar);} 
nmarquee.onmouseout=function() {MyMar=setInterval(Marquee,speed);} 
</script>
</div>
</div>



<div id="main">
<div id="decoration"></div>
	<%
	Dim Sql
		Sql="Select * From [HX33_LoveWallPosts] Order By HX33_WishID DESC"
	Dim Rs
    Set Rs=Server.CreateObject("ADODB.RecordSet")	
		Rs.PageSize=HX33_IndexNum
		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,RecordCount
		PageCount=Rs.PageCount
		RecordCount=rs.recordcount
	Dim I,T,L,Z
	Z=Rs.PageSize
	For I=1 To Rs.PageSize
		If Rs.Eof Then
			Exit For
		End If
		Randomize
		T = Int(330*Rnd+220)
		L = Int(700*Rnd+10)
		Z = Z - 1
		QQ=Rs("HX33_SenderQQ")
		if Trim(QQ) <> "" and QQ <> 0 then
		QQ="QQ:<a href='tencent://message/?uin="&QQ&"&Site=1&Menu=yes' title='点击与他/她交谈'>"&QQ&"</a>"
		else
		QQ=""
		end if
		response.write "<div id='Layer"&Rs("HX33_WishID")&"' class='Style"&Rs("HX33_Face")&"' style='left:"&L&"px;top:"&T&"px;z-index:"&Z&"' onmousedown='Move(this,event)' ondblclick='Show("&Rs("HX33_WishID")&")'><p class='Num'>字条编号:"&Rs("HX33_WishID")&"&nbsp;&nbsp;&nbsp;人气:"&Rs("HX33_hits")&"<img src='images/close.gif' alt='关闭' onclick='Close("&Rs("HX33_WishID")&")' /><img src='images/support.gif' alt='支持' onclick='support("&Rs("HX33_WishID")&")' /></p><p class='Detail'><img src='images/icon/"&Rs("HX33_Icon")&"' /><span class='Head'>"&Rs("HX33_Picker")&"</span><br />"&Rs("HX33_WishContent")&"</p><p class='Sign'>"&Rs("HX33_Sender")&"&nbsp;&nbsp;&nbsp;"&QQ&"</p><p class='Date'>"&Rs("HX33_WishDate")&"</p></div>"
		Rs.MoveNext
	Next
	RS.Close
	Set RS=Nothing
	Conn.Close
	Set Conn=Nothing
	%>
<div id="Illu">
<a href="HX33writeWish.asp"><div id="diybtn"></div></a>
	<div id="shout">
		↓↓↓<%=ad%><img src="images/lol.gif" alt="HX33.Net" />5分钟前<%=RecordCount%>人爱墙许愿&nbsp;&nbsp;
		<script type="text/javascript" src="inc/PageList.js"></script>
		<script>PageListBar(<%=PageCount%>,<%=Page%>,"")</script>
	</div>
	
</div>

</div>
<%
if request("HX33_WishID") <> "" then
%>
<script language="javascript">
document.getElementById("sKey").value="<%=request("HX33_WishID")%>";
FindLove();
</script>
<%
end if
%>
<div id="footer">
<!--#include file="foot.asp" -->
</div>

</body>
</html>
⌨️ 快捷键说明

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