sort.asp

房地产管理系统 vb写的,很不错!!!!!!!!!!!

<%
				 sortnum=trim(rs("sort"))
				 if sortnum="" then
				 sortnum=100
				 end if
				 select case sortnum
				 case 1
				 response.write "家居装饰"
				 case 2
				 response.write "时尚家居"
				 case 3
				 response.write "装修流行线"
				 case 4
				 response.write "建材市场"
				 case 5
				 response.write "家装指南"
				 case 6
				 response.write "我家故事"
				 case 7
				 response.write "家-风格"
				 case 8
				 response.write "政策法规"
				 case 9
				 response.write "购房准备"
				 case 10
				 response.write "挑选新房"
				 case 11
				 response.write "签定合同"
				 case 12
				 response.write "装修装饰"
				 case 13
				 response.write "家居物业"
				 case 14
				 response.write "最新动态"
				 case 15
				 response.write "签订合同"
				 case 16
				 response.write "物管专题"
				 case 17
				 response.write "房产办事指南"
				 case 18
				 response.write "土地交易公告"
				 case 19
				 response.write "主管单位通知"
				 case else
				 response.write "未知栏目"
				 end select
				%>