today_dish.asp

又一套宾馆全站源码

<%
	set rs = server.Createobject("ADODB.recordset")
	rs.open "Select top 1 * from t_dish order by dish_date desc",Application("Connect_String"),3,2
	
	str="<div align=center><center>"
	do while not rs.eof
	str=str & "<table border=0>"
	str=str & "<tr><td width='100%' align=center><a href=javascript:void(null) onclick=window.open('asp/disp_dish.asp?id="& rs("dish_id") &"','','scrollbars=yes,width=500,height=450');>"& rs("dish_title") &"</a></td></tr></table>"
	rs.movenext
	loop
	str=str & "</center></div>"
	response.write "document.write(""" & str &""")" & vbnewline

%>