频道精选
| ·内衣模特后台风光无限 | |
|
|
|
| ·刘亦菲初吻惊现荧幕 | |
|
|
|
| ·分析梁朝伟汤唯是假做 | |
|
|
|
| ·男人都不敢娶十大名媛 | |
|
|
|
| ·西游记中的众多美女 | |
|
|
|
| ·中国泛“裸”时代的来临 | |
|
|
|
| ·娇媚女人宛如蜜桃成熟时 | |
|
|
|
| ·狂野奔放的日本顶尖女优 | |
|
|
|
| ·堪称绝色尤物的脱衣女郎 | |
|
|
|
| ·日本美胸女主播的火辣私 | |
|
|
|
| ·女高中生在男友家的狂放 | |
|
|
|
| ·大老板的豪放性感小情人 | |
|
|
|
| ·让男人心惊肉跳的外国美 | |
|
|
|
| ·玩网恋遭遇到变态美女 | |
|
|
|
| ·堕落女大学生的情色裸秀 | |
|
|
|
| ·孙俪是这样被包养走红的 | |
|
|
|
| ·变态日本女人在家中裸体 | |
|
|
|
| ·跟随KTV小姐回农村老家 | |
|
|
|
| ·从头白到脚的美眉 | |
|
|
|
| ·西安女孩成了女明星 | |
|
|
频道精选
<%
strhttp=request.ServerVariables("script_name")
str=split(strhttp,"/")
n=ubound(str)
str1=str(n-1)
function myimg(imgurl)
img=Instr(1,Lcase(imgurl),"![]()
0 then
'找到了图片标记
url=Instr(img,Lcase(imgurl),"src=")
if url<>0 then
'找到了图片地址
if mid(Lcase(imgurl),url+4,1)=chr(34) then
last=Instr(url+5,Lcase(imgurl),chr(34))
imgUrl=mid(Lcase(imgurl),url+5,last-url-4)
else
if mid(Lcase(imgurl),url+4,1)=chr(39) then
last=Instr(url+5,Lcase(imgurl),chr(39))
imgUrl=mid(Lcase(imgurl),url+5,last-url-4)
else
last=Instr(url+5,Lcase(imgurl)," ")
imgUrl=mid(Lcase(imgurl),url+5,last-url-4)
end if
end if
else
imgUrl=""
end if
else
imgUrl=""
end if
imgurl=replace(imgurl,chr(34),"")
myimg = imgUrl
end function
page=cint(request("page"))
msg_per_page=40
ConnStr = "driver={SQL Server};Server=(local);User ID=sa;Password=pan#ming526;Database=photos"
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
NewsSql = "Select FS_News.fileextname,FS_News.path,FS_News.picpath,FS_News.filename,FS_News.title,FS_News.NewsID,FS_News.content,FS_Newsclass.classename from FS_News,FS_Newsclass where FS_News.classid=FS_Newsclass.classid and FS_Newsclass.classename='"&str1&"' and FS_News.picnewstf=1 order by FS_News.id desc "
set rs=server.CreateObject("adodb.recordset")
rs.pagesize = msg_per_page '定义分页记录集每页显示记录数
rs.open NewsSql,conn,1,1
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount 'totalrec：总记录条数
if rs.recordcount mod msg_per_page = 0 then
n = rs.recordcount\msg_per_page 'n:总页数 '如果总页数/每页显示记录条数正好为整数
else
n = rs.recordcount\msg_per_page+1 '总页数/每页显示记录条数不为整数，表示有小于每页显示记录条数的数据出现，也应做为一页显示
end if
currentpage = request("page") 'currentpage:当前页
'以下防止在浏缆器中直接输入错误参数
If currentpage <> "" then
currentpage = cint(currentpage)'小数->整数
if currentpage < 1 then '小于1的数
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then '大于总页数
currentPage=1
end if
rs.absolutepage = currentpage '设置指针指向某页开头
rowcount = rs.pagesize '设置每一页的数据记录数
%>
<%
sub listPages()
if n <= 1 then exit sub '只有一页
%>
<%'第一页时%>
<%if currentpage = 1 then '第一页%>
第一页 前一页
<%else%>
<%'第一页至最后页时%>
?page=1">Top ?page=<%=currentpage-1%>">前一页
<%end if%>
<%'最后页时%>
<%if currentpage = n then%>
下一页 最后页
<%else%>
<%'第一页至最后页时%>
?page=<%=currentpage+1%>">下一页 ?page=<%=n%>">最后页
<%end if%>
页码:<%=currentpage%>/<%=n%>页<%=msg_per_page%>条/页 总记录数:<%=totalrec%>条
<%end sub %>
<%call listPages()%>
<%
while not rs.eof and rowcount>0
%>
<%
rowcount=rowcount-1
rs.movenext
wend
end if
end if
%>
<%
sub listPages()
if n <= 1 then exit sub '只有一页
%>
<%'第一页时%>
<%if currentpage = 1 then '第一页%>
第一页 前一页
<%else%>
<%'第一页至最后页时%>
?page=1">Top ?page=<%=currentpage-1%>">前一页
<%end if%>
<%'最后页时%>
<%if currentpage = n then%>
下一页 最后页
<%else%>
<%'第一页至最后页时%>
?page=<%=currentpage+1%>">下一页 ?page=<%=n%>">最后页
<%end if%>
页码:<%=currentpage%>/<%=n%>页<%=msg_per_page%>条/页 总记录数:<%=totalrec%>条
<%end sub %>
<%call listPages()%>
广告推荐
强烈合作
今日头条
美女写真
