function.asp

by php excellent hotel management system

<%
'###########################################################################################
'			   Copyright (C) 2006 FreeLin rights reserved.                                 '
'			      本系统由FREELIN工作室独立开发2006.3.20                                      '
'				     版权所有,并保留所有版权,不得修改传播                                       '
'					    http://www.yisky.com                                          '
'						     [e-mail]                                                '
'###########################################################################################

'###########################################################################################
'基本设置
'   Copyright 2006
'	[e-mail]
'###########################################################################################
function unhtml(str)
  	str = replace(str," ","&nbsp;")
	str = replace(str,vbCrLf,"<br>")
	unhtml=str
end function

'###########################################################################################
'list_page()
'   Copyright 2006
'	[e-mail]
'###########################################################################################
Function list_page(atype)
sql="select * from news order by id desc"
url = "news"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.PageSize=15
page_count=rs.PageCount 
all_record=rs.recordcount
If(all_record<1) Then
	response.Write "<div align=center>对不起，没有新的新闻！</div>"
else	
page=int(request.QueryString ("page"))
if page<1 then page=1
if page>page_count then page=page_count
if page="" then page=1
rs.AbsolutePage=page
for i=1 to rs.PageSize
	if rs.EOF then 
	exit for
	end if
%>
	·<a target=_blank href='showNews.asp?id=<%=rs("id")%>'><%=rs("title")%></a>&nbsp;&nbsp;&nbsp;<%=rs("date")%><BR>
<%
rs.movenext
next
If(page_count=1) Then%>
	<div align="right">共有<%=all_record%>条新闻&nbsp;<%=page%>/<%=page_count%>&nbsp;上一页&nbsp;1&nbsp;下一页</div>
<%
else

	if page=1 and page<>page_count then%>
		<div align="right">共有<%=all_record%>条新闻&nbsp;<%=page%>/<%=page_count%>&nbsp;上一页&nbsp;
		<%for i=1 to page_count%>
		<a href="<%=url%>.asp?page=<%=i%>"><%=i%></a>&nbsp;
		<%next%>
		<a href="<%=url%>.asp?page=<%=page+1%>">下一页</a></div>
	<%elseif page=page_count and page<>1 then%>
		<div align="right">共有<%=all_record%>条新闻&nbsp;<%=page%>/<%=page_count%>&nbsp;<a href="<%=url%>.asp?page=<%=page-1%>">上一页</a>&nbsp;
		<%for i=1 to page_count%>
		<a href="<%=url%>.asp?page=<%=i%>"><%=i%></a>&nbsp;
		<%next%>
		下一页</div>
	<%else%>
		<div align="right">共有<%=all_record%>条新闻&nbsp;<%=page%>/<%=page_count%>&nbsp;<a href="<%=url%>.asp?page=<%=page-1%>">上一页</a>&nbsp;
		<%for i=1 to page_count%>
		<a href="<%=url%>.asp?page=<%=i%>"><%=i%></a>&nbsp;
		<%next%>
		<a href="<%=url%>.asp?page=<%=page+1%>">下一页</a></div>
<%
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
End Function

'###########################################################################################
'list_class()
'   Copyright 2006
'	[e-mail]
'###########################################################################################
Function list_class()
	set rs = conn.execute("select * from class")
	do while not rs.eof
	%>
<a class="select" href='Showhouse.asp?type=<%=rs("className")%>'><%=rs("className")%></a>&nbsp;
<%
	rs.movenext
	loop
End Function

%>