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=17

'类别显示,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=8
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 "&nbsp;&nbsp;&nbsp;&nbsp;<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 "<img src=./images/dot1.gif>&nbsp;["&rst("cataid")&"]"
				'end if
				response.write "&nbsp;&nbsp;&nbsp;&nbsp;<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 "[<font color=red>图</font>]"  
			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
			
		end if
	end if  
end if  
  
  
set rst=Nothing  
endconnection  
%>