📄 px.asp
字号:
<%
'########################################
'
'XinYou-pK(CMS)(v1.0)拼客内容管理系统
'
'使用过程中,如有问题,请联系QQ:16129825 E-mail:liuxing99@tom.com
'
'演示地址：http://www.XinYou88.net
'
'程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站
'
'如有BUG,请通知一声,谢谢!!!
'
'########################################
%>
<!--#include file="inc/config.asp"-->
<%
dim id,pxrs,pxsql,user,k,thispage,allpages,pagesize,allrecord
k=0
if request("page")="" then
thispage=1
else
thispage=request("page")
end if
user=request.cookies("xinyou88")("user")
id=request("id")
set pxrs=server.CreateObject("adodb.recordset")
pxsql="select * from pkxx where id="&id
pxrs.open pxsql,conn,1,3
if pxrs.eof then
response.write "<script language='javascript'>alert('该信息不存在或被删除');history.back();</script>"
response.End
else
'######################计算剩余时间
'NewDate = DateAdd("m", 1, "31-Jan-95")
i=pxrs("fbsj") '取出发布时间
j=pxrs("yxq") '取出有效天数
dqsj=dateadd("d",j,i) '得出到期时间
m=datediff("n",now(),dqsj)
t=int(m/60/24)
h=int((m-t*24*60)/60)
f=m-t*24*60-h*60
if t<0 then
str="信息已经过期!"
else
str="还有"&t&"天"&h&"小时"&f&"分结束!"
end if
'###################读取大类
dim rsdl,sqldl
set rsdl=server.CreateObject("adodb.recordset")
sqldl="select * from class1 where id="&pxrs("class1")
rsdl.open sqldl,conn,1,1
'#########################读取小类
dim rsxl,sqlxl
set rsxl=server.createobject("adodb.recordset")
sqlxl="select * from class2 where id="&pxrs("class2")
rsxl.open sqlxl,conn,1,1
'##############################
%>
<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>
<script language=javascript>
<!--
function checkform()
{
if(document.myform.hfneirong.value.length<1)
{
alert("请填写回复信息!");
document.myform.hfneirong.focus();
return false;
}
}
//-->
</script>
</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"><li>最新拼客信息:</li></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"><li>相关拼客信息:</li></td>
</tr>
<tr>
<td>
<table width="100%">
<% set xgrs=server.CreateObject("adodb.recordset")
xgsql="select top 10 * from pkxx where class1="&pxrs("class1")&" order by fbsj desc"
xgrs.open xgsql,conn,1,1
if xgrs.eof then
'response.write xgsql
%>
<tr><td>无相关信息</td></tr>
<% else %>
<tr>
<% do while not xgrs.eof%>
<td><li><a href="px.asp?id=<%=xgrs("id")%>" target="_blank"><%=left(Server.HTMLEncode(xgrs("biaoti")),15)%>
<%
fbsj=xgrs("fbsj")
'm=datediff("n",now(),dqsj)
g=datediff("d",fbsj,now())
if g<1 then
'response.write g
%>
<font color="red"><%=mid(xgrs("fbsj"),6,4)%></font>
<%else%>
<%=mid(xgrs("fbsj"),6,4)%>
<% end if%>
</a></li></td></tr><tr>
<% xgrs.movenext
loop
end if
xgrs.close
set xgrs=nothing
%>
</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%" class="table" >
<tr>
<td height="30" class="title" colspan="2">您的位置:首页 >>> <%=rsdl("class1")%> >>> <%=rsxl("class2")%> >>> 详细信息</td>
</tr>
<tr>
<td height="30" colspan="2" class="table"><div align="center" class="mustfill" ><font color="red" >[<%=rsxl("class2")%>]</font> <%=left(Server.HTMLEncode(pxrs("biaoti")),30)%></div></td>
</tr>
<tr class="table">
<Td width="30%" class="clip"> <div align="center">
<% if pxrs("tupian")<>"" then%>
<a href="<%=pxrs("tupian")%>"><img src="<%=pxrs("tupian")%>" width="160" height="160" border="0"></a>
<% else%>
<img src="images/nopic.gif" width="160" height="160" border="0"></a>
<% end if%>
</div></Td>
<%'###############调出会员信息
set hrs=server.CreateObject("adodb.recordset")
hsql="select * from user where name='"&pxrs("fbr")&"'"
hrs.open hsql,conn,1,1
if hrs.eof then
hyzl="不是注册会员,不能查看详细资料"
else
hyzl="注册资料:"&hrs("xingming")&","&hrs("sex")&",地址:"&hrs("dizhi")
end if
%>
<Td>
<table width="100%" class="cpprop">
<tr><td width="15%" height="25"><div align="right">发布拼客:</div></td>
<td width="82%"><a href="userinfo.asp?u=<%=pxrs("fbr")%>" target="blank" title="<%=hyzl%>"><%=Server.HTMLEncode(pxrs("fbr"))%></a> <font color="#999999">[<%=pxrs("ip")%>]</font></td>
</tr>
<tr><td height="25"><div align="right">发布时间:</div></td><td><%=pxrs("fbsj")%> [浏览：<font color="red"><%=pxrs("llcs")%></font>次 回复：<font color="red"><%=pxrs("hfcs")%></font>次]</td></tr>
<tr><td height="25"><div align="right">有效期:</div></td><td><font color="red"><%=pxrs("yxq")%></font>天, <font color="red"><%=str%></font></td></tr>
<tr><td height="25"><div align="right">联系方式:</div></td><td valign="middle"><%=pxrs("dianhua")%>
<% if pxrs("qq")<>"" then%>
<a target="blank" href="tencent://message/?uin=<%=pxrs("qq")%>&Site=www,lygpinke.com&Menu=yes"><img border="0" SRC="http://wpa.qq.com/pa?p=1:<%=pxrs("qq")%>:10" alt="点击这里给我发消息"> <%=pxrs("qq")%></a>
<%end if%>
</td>
</tr>
<tr><td height="25"><div align="right">报名拼客:</div></td><td style="word-break:break-all">共<font color="red"><%=pxrs("bmrs")%></font>人
<% '################调出所有报名信息
set bmrs=server.CreateObject("adodb.recordset")
bmsql="select * from bmxx where pxid="&pxrs("id")
bmrs.open bmsql,conn,1,1
do while not bmrs.eof
user=bmrs("user")
'####################调出报名会员信息
set bmhrs=server.CreateObject("adodb.recordset")
bmhsql="select * from user where name='"&user&"'"
bmhrs.open bmhsql,conn,1,1
hyxx="注册信息:"&bmhrs("xingming")&","&bmhrs("sex")&",联系方式:"&bmhrs("shouji")
%>
<a href="userinfo.asp?u=<%=user%>" target="_blank" title="<%=hyxx%>">[<%=user%>]</a>
<% bmrs.movenext
loop
bmrs.close
set bmrs=nothing
bmhrs.close
set bmhrs=nothing
%>
</td></tr>
<tr><td height="25" colspan="2"><div align="center"><a href="bm.asp?id=<%=pxrs("id")%>" class="bbsline">对这个感兴趣!我要报名参加!</a></div></td></tr>
</table></Td>
</tr>
<tr>
<td colspan="2">
<table width="100%" class="table">
<tr>
<td style="word-break:break-all"><%=Server.HTMLEncode(pxrs("neirong"))%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2">
<table width="100%" class="table">
<tr>
<td width="100%" valign="top">
<table width="100%">
<%'################调出回复
set hfrs=server.CreateObject("adodb.recordset")
hfsql="select * from hfxx where pxid="&pxrs("id")&" order by hfsj desc"
hfrs.open hfsql,conn,1,1
if hfrs.eof then
%>
<tr><td class="title">暂时没有回复信息</td></tr>
<% else
'分页开始
hfrs.pagesize=3
pagesize=hfrs.pagesize
allrecord=hfrs.recordcount
allpages=hfrs.pagecount
if thispage<1 then
thispage=1
end if
on error resume next
hfrs.move (thispage-1)*pagesize
'分页结束
%>
<tr>
<% do while not hfrs.eof%>
<td class="title"><li></li><A href="userinfo.asp?u=<%=hfrs("hfuser")%>" target="_blank" title="查看会员资料"><%=hfrs("hfuser")%></A> 在 <%=hfrs("hfsj")%> 说:</td></tr>
<tr><td class="table" style="word-break:break-all"><%=Server.HTMLEncode(hfrs("hfneirong"))%></td></tr><tr>
<% k=k+1
hfrs.movenext
if k>=pagesize then exit do
loop
end if
hfrs.close
set hfrs=nothing
%>
<tr><td align="center" class="bbsline">共<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=<%=pxrs("id")%>&page=1>首页</a> <a href=?id=<%=pxrs("id")%>&page=<%=(thispage-1)%>>上一页</a>
<%
end if
if allpages-thispage<1 then
response.write " 下一页 尾页"
else
%>
<a href=?id=<%=pxrs("id")%>&page=<%=(thispage+1)%>>下一页</a> <a href=?id=<%=pxrs("id")%>&page=<%=allpages%>>尾页</a></td></tr>
<%
end if
%>
</table></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2">
<table width="100%" class="table">
<tr>
<td width="100%" valign="top">
<form name="myform" action="hfok.asp?id=<%=pxrs("id")%>" method="post">
<table width="100%" >
<tr><td><textarea onpropertychange="if(value.length>200) value=value.substr(0,200)" name="hfneirong" cols="90" rows="3"></textarea></td></tr>
<tr><td>用户名:<input type="text" name="hfuser" value="<%=user%>" size="15" maxlength="20">
<input type="radio" name="yk" value="1">游客回复 [<a href="reg.asp">注册</a> <a href="login.asp">登陆</a>] <input type="submit" value="发布回复" onclick="javascript:return checkform();"> <input type="reset" value="取消发布"></td></tr>
</table></form>
</td>
</tr>
</table>
</td></tr>
</table>
</td></tr>
</table>
</div></Td>
</tr>
</table>
</div>
<% call foot() %>
<%
end if
'#######################增加浏览次数
llcs=pxrs("llcs")
llcs=llcs+1
pxrs("llcs")=llcs
pxrs.update
'#######################
pxrs.close
set pxrs=nothing
rsdl.close
set rsdl=nothing
rsxl.close
set rsxl=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -