list_news.asp.bak

来自「ASPSQL企业网络管理系统」· BAK 代码 · 共 32 行

<%
if Request.QueryString("type") <> "" then
	session("news_type") = Request.QueryString("type")
end if
if session("news_type") = "" then
	str = "select top 5 * from v_news order by time desc"
else
	str = "select top 5 * from v_news where type_id = " & session("news_type") & " order by time desc"
end if
'Response.Write(str)
session("rsnews").open str,session("conn")
%> 
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<% 
while not session("rsnews").eof 
%>
  <tr> 
    <td width="5%" align="center">&nbsp;<font color="#0000FF"><strong>*</strong></font></td>
    <td width="49%">&nbsp;&nbsp;<a href="#" onClick="window.open('../news/show_news.asp?id=<%= session("rsnews")("id") %>','','scrollbars=yes,width=600,height=400')"><%=CutString(session("rsnews")("title"),18) %></a></td>
    <td width="26%"><%= CutDate(session("rsnews")("time")) %></td>
    <% If session("mode") = "admin" Then %>
		<td width="10%"><input name="&deg;&acute;&Aring;&yen;" type="button" onClick="window.open('../admin/edit_news.asp?id=<%= session("rsnews")("id") %>','_self')" value="修　改"></td>
    <td width="10%"><input name="&deg;&acute;&Aring;&yen;" type="button" onClick="if(window.confirm('确定要删除该新闻？')) window.open('../admin/del_news.asp?id=<%= session("rsnews")("id") %>','_self');" value="删　除"></td>
		<% End If %>
  </tr>
<% 
	session("rsnews").MoveNext
wend
session("rsnews").close
%>
</table>