findlove.asp

于毕业设计与论文以及做课题用-MSK Simulink simulation program for the design and graduation thesis topic, and makin

<!--#include file="conn.asp" -->
<%
response.expires=-1 
response.expiresabsolute=now()-1 
response.cachecontrol="no-cache"
response.Charset="gb2312"
	Dim Sql
		Sql="Select * From [HX33_LoveWallPosts] where HX33_WishID="&Cint(request("HX33_WishID"))
	Dim Rs
    Set Rs=Server.CreateObject("ADODB.RecordSet")	
		Rs.Open Sql,Conn,1,1
	
	Dim T,L
		If not Rs.Eof Then
		Randomize
		T = Int(330*Rnd+220)
		L = Int(700*Rnd+10)
		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:"&Rs("HX33_WishID")&"' 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='comment'><a href='comment.asp?HX33_WishID="&Rs("HX33_WishID")&"' target='_blank'>评论("&Rs("HX33_Comments")&")条</a></p><p class='Date'>"&Rs("HX33_WishDate")&"</p></div>"
		else
		response.Write "null"
	    end if
	RS.Close
	Set RS=Nothing
	Conn.Close
	Set Conn=Nothing
	%>