📄 so.asp
字号:
<%
'########################################
'
'XinYou-pK(CMS)(v1.0)拼客内容管理系统
'
'使用过程中,如有问题,请联系QQ:16129825 E-mail:liuxing99@tom.com
'
'演示地址：http://www.XinYou88.net
'
'程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站
'
'如有BUG,请通知一声,谢谢!!!
'
'########################################
%>
<!--#include file="inc/config.asp"-->
<% dim frs,fsql,id,k,thispage,allpages,pagesize,allrecord
k=0
if request("page")="" then
thispage=1
else
thispage=request("page")
end if
lx=request("lx")
key=request("key")
set frs=server.CreateObject("adodb.recordset")
'ssql="select * from xinxi where "&sos&" like '%"&key&"%' order by fbsj desc"
'ssql="select * from [xinxi] where (biaoti like '%"&key&"%' or neirong like '%"&key&"%') order by fbsj desc"
fsql="select * from pkxx where (biaoti like '%"&key&"%' or neirong like '%"&key&"%'or fbr like '%"&key&"%' or dizhi like '%"&key&"%') order by fbsj desc"
frs.open fsql,conn,1,1
if frs.eof then
Response.Write "<script language='javascript'>alert('无相关信息');history.back();</script>"
response.End
else
'###################读取大类
dim rsdl,sqldl
set rsdl=server.CreateObject("adodb.recordset")
sqldl="select * from class1 where id="&frs("class1")
rsdl.open sqldl,conn,1,1
'#########################读取小类
dim rsxl,sqlxl
set rsxl=server.createobject("adodb.recordset")
sqlxl="select * from class2 where id="&frs("class2")
rsxl.open sqlxl,conn,1,1
'##############################
'分页开始
frs.pagesize=20
pagesize=frs.pagesize
allrecord=frs.recordcount
allpages=frs.pagecount
if thispage<1 then
thispage=1
end if
on error resume next
frs.move (thispage-1)*pagesize
'分页结束
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<meta name="keywords" content="<%=rs("key")%>">
<meta name="author" content="版权所有:XINYOU(QQ:16129825 TEL:0518-5526465)连云港信友科技有限公司,诚接各种网站建设,程序编写!">
<title><%=rs("title")%>-拼客分类</title>
<style type="text/css">
<!--
body {
margin-top: 0px;
}
-->
</style>
</head>
<body>
<% call top() %>
<div align="center">
<table width="980">
<tr>
<!--左侧-->
<td width="250" valign="top">
<div align="center">
<table width="99%">
<Tr><td>
<table width="100%" class="table">
<tr>
<td height="30" class="title">热门拼客信息</td>
</tr>
<tr>
<td><table width="100%"><% call hotpk()%></table></td>
</tr>
</table>
</td></Tr>
<Tr><td>
<table width="100%" class="table">
<tr>
<td height="30" class="title">最新拼客信息</td>
</tr>
<tr>
<td><table width="100%"><% call newpk()%></table></td>
</tr>
</table>
</td></Tr>
<Tr><td>
<table width="100%" class="table">
<tr>
<td height="30" class="title">拼客分类</td>
</tr>
<tr>
<td><table width="100%"><% call flist() %></table></td>
</tr>
</table>
</td></Tr>
</table>
</div> </td>
<!--左侧结束-->
<!--中部-->
<Td width="720" align="center" valign="top"><div align="center">
<table width="100%" align="center">
<tr><td>
<table width="100%" >
<tr>
<td height="30" class="title" > [>] 共搜索到<font color=red> <%=allrecord%></font> 条 <font color="red"><%=key%></font> 信息!</td>
</tr>
<tr>
<Td>
<table width="100%" class="table">
<tr class="tablemenu">
<td width="5%" height="25"><div align="center">编号</div></td>
<td width="45%"><div align="center">标题</div></td>
<td width="12%"><div align="center">发布人</div></td>
<td width="10%"><div align="center">发布时间</div></td>
<td width="8%"><div align="center">有效期</div></td>
<td width="10%"><div align="center">浏览/回复</div></td>
<td width="10%"><div align="center">报名人数</div></td>
</tr>
<tr>
<% dim j
j=1
do while not frs.eof
%>
<td width="5%" height="25" class="smallclass"><div align="center"><%=j%></div></td>
<td width="45%" class="smallclass"><div align="left">
<a href="px.asp?id=<%=frs("id")%>" target="blank">
<font color="red">[<%=rsxl("class2")%>]</font><%=Server.HTMLEncode(left(frs("biaoti"),16))%>
<% if frs("tupian")<>"" then%>
<font color="red">[图]</font>
<% end if%>
<% if frs("tj")="1" then%>
<font color="red">[荐]</font>
<% end if%>
</a>
</div></td>
<td width="12%" class="smallclass"><div align="center"><%=frs("fbr")%></div></td>
<td width="10%" class="smallclass"><div align="center"><%=mid(frs("fbsj"),6,4)%></div></td>
<td width="8%" class="smallclass"><div align="center"><font color="red"><%=frs("yxq")%></font>天</div></td>
<td width="10%" class="smallclass"><div align="center"><%=frs("llcs")%>/<%=frs("hfcs")%></div></td>
<td width="10%" class="smallclass"><div align="center"><%=frs("bmrs")%></div></td>
</tr><tr>
<% k=k+1
frs.movenext
j=j+1
if k>=pagesize then exit do
loop
end if%>
<tr class="tablemenu"><td height="25" colspan="7" align="center">共<font color=red><%=allrecord%></font>条记录 每页<font color=red><%=pagesize%></font>条 共<font color=red><%=allpages%></font>页
<%
if allpages<2 then
response.write "首页 上一页"
else
%><a href=?id=<%=id%>&page=1>首页</a> <a href=?id=<%=id%>&page=<%=(thispage-1)%>>上一页</a>
<%
end if
if allpages-thispage<1 then
response.write " 下一页 尾页"
else
%>
<a href=?id=<%=id%>&page=<%=(thispage+1)%>>下一页</a> <a href=?id=<%=id%>&page=<%=allpages%>>尾页</a></td></tr>
<%
frs.close
set frs=nothing
rsdl.close
set rsdl=nothing
rsxl.close
set rsxl=nothing
end if
%>
</table>
</Td>
</tr>
</table>
</td></tr>
</table>
</div></Td>
</tr>
</table>
</div>
<% call foot() %>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -