news.asp

由网络搜集供大家学习使用如果侵占请自行删除

<!--#include file="setup.asp" -->
function view(id){  
var id; window.open('<%=news_location%>view.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=110,width=580,height=420');  
}   
<%  
'on error resume next 
dim rst, sql  
dim cata,num,showtime,showclick
set rst = server.createobject("adodb.recordset") 

cata=request("cata")

'类别显示,cata是类别代码,如果是special就显示特别新闻
if cata<>"" and isnumeric(cata) then
	sql="select * from category where id="&cata
	rst.open sql,conn,1,1
	if rst.eof and rst.bof then
		cat=""
	else
		cat=" where cataid='"&rst("title")&"' "
	end if
	rst.close
else
	if cata="special" then
		cat=" where special "
	else
		cat=""
	end if
end if
'显示新闻条数
if request("num")<>"" and isnumeric(request("num")) then
	num=cint(request("num"))
else
	num=15
end if
'是否显示时间
if request("showtime")="yes" then
	showtime="yes"
else
	showtime="no"
end if
'是否显示点击数
if request("showclick")="yes" then
	showclick="yes"
else
	showclick="no"
end if

sql = "SELECT top "&num&" * FROM news "&cat&" ORDER BY id DESC" 

rst.open sql, conn, 1, 1  
if err.number <> 0 then  
	response.write "document.write('数据库出错')"  
else  
	if rst.bof and rst.eof then  
		rst.close  
		response.write "document.write('暂时没有新闻...');"  
	else  
		dim i  
		do while not rst.eof  
			if rst("special") then
				response.write "document.write("&chr(34)
				if request("cata")="" or request("cata")="special" then
					response.write "["&rst("cataid")&"]"
				end if
				response.write "<a target='_self' href='javascript:view(" & cstr(rst("id")) & ")'>●" & rst("title") & "</a>"  
			else
				response.write "document.write("&chr(34)
				if request("cata")="" or request("cata")="special" then
					response.write "["&rst("cataid")&"]"
				end if
				response.write "<a target='_self' href='javascript:view(" & cstr(rst("id")) & ")'>○" & rst("title") & "</a>"
			end if

			if showtime="yes" then response.write "<font size=-1> "&rst("addtime")&" </font>"
			if showclick="yes" then response.write "<font size=-1>[<font color=red>+"&rst("hits")&"</font>]</font>"

			if rst("image")<>"" then  
				response.write "<img src='"&news_location&"images/news.gif'  border=0>"  
			end if  
			select case right(rst("linkurl"),4)  
				case ".zip"  
					response.write "<img src='"&news_location&"images/zip.gif' border=0>"  
				case ".rar"  
					response.write "<img src='"&news_location&"images/rar.gif' border=0>"  
				case ".exe"  
					response.write "<img src='"&news_location&"images/exe.gif' border=0>"  
			end select  
			response.write "<br>"&chr(34)&");"&vbcrlf
			rst.movenext  
		loop  
		rst.close 
		if show_more="yes" then
			response.write "document.write('<br><br><div align=right><a href="&news_location&"\default.asp"
			if isnumeric(request("cata")) then response.write "?cataid="&request("cata")
			response.write " target=_blank>更多新闻……</a></div>')"
		end if
	end if  
end if  
  
  
set rst=Nothing  
endconnection  
%>