<%
const MaxPerPage=15
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim keyword
keyword=request("txtitle")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rs
dim rstype
dim typesql
dim typeid,typename
typeid=request("typeid")
if typeid="" or not isNumeric(typeid) then
typeid=1
else
typeid=request("typeid")
end if
set rstype=server.createobject("adodb.recordset")
typesql="select * from type where typeid="&cstr(typeid)
rstype.open typesql,con,1,1
typename=rstype("type")
rstype.close
%>
欢迎进入厦门信地房地产营销有限公司
