主题:大哥们帮看看这段代码,什么意思啊
这里边的数据库表是什么,我怎么找不到他调用的表啊"& typeto &" ,是这个吗,
set rs=server.createobject("adodb.recordset")
sql= "SELECT zid,Num,Diduan, Taox, Mianj, M, Lc,Jiag, J, Xiaoqm, Tele, Content,Dat,fangshi,dj, "& typeto &".Dat FROM[color=FF0000] "& typeto &" [/color]WHERE Diduan LIKE '" + Replace(rs__myDiduan, "'", "''") + "' AND Taox LIKE '" + Replace(rs__myTaox, "'", "''") + "' AND Taox LIKE '" + Replace(rs__myTaox, "'", "''") + "' AND M LIKE '" + Replace(rs__myMianj, "'", "''") + "' AND J LIKE '" + Replace(rs__myJiag, "'", "''") + "' AND Dat>=#" & sj& "# order by dat Desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then %>
<p align="center">还没有房源!</p>
<% else
rs.pagesize=30
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showpages
showContent
showpages1
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showpages
showContent
showpages1
else
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i,j
%>
set rs=server.createobject("adodb.recordset")
sql= "SELECT zid,Num,Diduan, Taox, Mianj, M, Lc,Jiag, J, Xiaoqm, Tele, Content,Dat,fangshi,dj, "& typeto &".Dat FROM[color=FF0000] "& typeto &" [/color]WHERE Diduan LIKE '" + Replace(rs__myDiduan, "'", "''") + "' AND Taox LIKE '" + Replace(rs__myTaox, "'", "''") + "' AND Taox LIKE '" + Replace(rs__myTaox, "'", "''") + "' AND M LIKE '" + Replace(rs__myMianj, "'", "''") + "' AND J LIKE '" + Replace(rs__myJiag, "'", "''") + "' AND Dat>=#" & sj& "# order by dat Desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then %>
<p align="center">还没有房源!</p>
<% else
rs.pagesize=30
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showpages
showContent
showpages1
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showpages
showContent
showpages1
else
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i,j
%>