getnews.asp

来自「于毕业设计与论文以及做课题用-MSK Simulink simulation p」· ASP 代码 · 共 21 行

<!--#include file="conn.asp"-->
<ul>
<%
response.Charset="gb2312"

	Dim nSql
		nSql="Select top 13 * 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
%>
<li><a href='default.asp?HX33_WishID=<%=nRs("HX33_WishID")%>' target="_blank" title="<%=nRs("HX33_WishContent")%>">
<%=left(nRs("HX33_Sender"),5)%>&nbsp;<strong>祝福</strong>&nbsp;<%=left(nRs("HX33_Picker"),5)%>：<%=left(nRs("HX33_WishContent"),14)%>
</a></li>
<%
nRs.movenext
wend
nRs.close:set nRs = nothing
%>
</ul>