config.asp

1.拼客信息发布 2.在线报名 3.群组讨论 4.程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站 5.其他的直接看演示吧

<%
'########################################
'
'XinYou-pK(CMS)(v1.0)拼客内容管理系统
'
'使用过程中,如有问题,请联系QQ:16129825   E-mail:[e-mail]
'
'演示地址：http://www.XinYou88.net
'
'程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站
'
'如有BUG,请通知一声,谢谢!!!
'
'########################################
%>
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from [web]"
rs.open sql,conn,1,1
'response.write rs("title")
%>
<%
sub top()
%>
<!--头部-->
<div align="center">
<tr><td width="98%">
   <table width="980">
     <tr>
	   <Td><div id="jnkc" valign="middle" align="left" style="font-size:12px;">
         
           <script>
        setInterval("jnkc.innerHTML=new Date().toLocaleString()+' \u661f\u671f'+'\u65e5\u4e00\u4e8c\u4e09\u56db\u4e94\u516d'.charAt(new Date().getDay());",1000);
                  </script>
       
	   </div></Td>
       <Td colspan="2"><div align="center">
         <iframe name="I1" src="http://news.163.com/weather/news/qx1/58044.html" width="289" height="25" marginwidth="1" marginheight="1" scrolling="no" border="0" frameborder="0"></iframe>
       </div></Td>
       <Td width="290"><div align="right"><a href="index.asp">首页</a>-<a href="user.asp">登陆</a>-<a href="reg.asp">注册</a>-<a href="http://www.lygpinke.com/" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.lygpinke.com/');">设为首页</a>-<a href="javascript:window.external.AddFavorite('http://www.lygpinke.com/', '连云港拼客网')">收藏本站</a>&nbsp;</div></Td>
     </tr>
	 <Tr><td  rowspan="2" width="300"><a href="<%=rs("url")%>"><img src="<%=rs("logo")%>" width="300" height="70" border="0"></a></td>
	   <td height="35" colspan="3" valign="middle"><div align="right"><a href="fbpk.asp"><img src="images/fbpk.gif" width="120" height="25" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="fbmm.asp"><img src="images/fbmm.gif" width="120" height="25" border="0"></a>&nbsp;</div></td>
	 </Tr>
	 <Tr>
	   <td width="263" align="center" valign="middle" ><div align="center">连云港专业的拼客网站.爱拼才会赢!</div></td>
       <td width="107" valign="middle" >
         <div align="center">   
  网站公告<img src="images/gg.gif" width="9" height="8">    
        </div></td>
       <td valign="middle" >
	   <marquee onmouseover=this.stop() onmouseout=this.start() scrollamount=2>
	   <% dim ggrs,ggsql
	   set ggrs=server.createobject("adodb.recordset")
	   ggsql="select * from gg order by shijian desc"
	   ggrs.open ggsql,conn,1,1
	   if ggrs.eof then
	   response.write "暂时没有公告!"
	   else
	   do while not ggrs.eof
	    %>
		   <% if ggrs("tj")="1" then%>
		  ●<a href="gg.asp?id=<%=ggrs("id")%>" target="blank"><font color="red"><%=ggrs("biaoti")%></font> <font color="#999999">[<%=ggrs("shijian")%>]</font></a>
		   <% else%>
		  ●<a href="gg.asp?id=<%=ggrs("id")%>" target="blank"><%=ggrs("biaoti")%> <font color="#999999">[<%=ggrs("shijian")%>]</font></a> 
		  <% end if%>
		<% ggrs.movenext
		   loop
		   end if
		ggrs.close
		set ggrs=nothing
		%>
	   </marquee></td>
	 </Tr>
   </table>
</td></tr>
<tr><Td><table border=0 width="980" height=28 class=tdt cellpadding=0 style="border-collapse: collapse">
<tr><td width="5%" ><div align="right"><img src="images/lbg.gif" width="17" height="30"></div></td><td width="5%" background="images/mbg.gif"   ><div align="center"><a href="index.asp" ><font color="ffffff">首 页</font></a></div></td>
<% dim crs,csql
set crs=server.CreateObject("adodb.recordset")
csql="select * from class1 order by id"
crs.open csql,conn,1,1
do while not crs.eof
%>
<td bgcolor="#FF9900" style="width:5%;" onmouseover=this.bgColor='#ffcc00'; onmouseout=this.bgColor='#ff9900'><div align="center"><a  href="fl.asp?id=<%=crs("id")%>" ><font color="ffffff"><%=crs("class1")%></font></a></div></td>
<% crs.movenext
   loop
crs.close
set crs=nothing
%>
<td width="5%" background="images/mbg.gif" ><div align="center"><a href="group_list.asp"><font color="#ffffff">圈 子</font></a></div></td><td width="5%" background="images/mbg.gif" ><div align="center"><a href="flm.asp?id=1"><font color="#FFFFff">买卖街</font></a></div></td><td width="5%" background="images/mbg.gif" ><div align="center"><a href="lt/"><font color="#FFFFff">聊天室</font></a></div></td><td width="5%" ><div align="left"><img src="images/rbg.gif" width="17" height="30"></div></td></tr>
<tr><Td height="3" bgcolor="#FF9900" colspan="20"></Td></tr>
</table>
</Td></tr>
</div>
<% 
end sub
%>
<%
sub foot()
%>
<div align="center">
<Table width="980">
<tr>
<Td height="30" bgcolor="#F7F7F7" class="table">
  <div align="center">
<% dim dbrs,dbsql
set dbrs=server.CreateObject("adodb.recordset")
dbsql="select * from dbclass order by xuhao"
dbrs.open dbsql,conn,1,1
  do while not dbrs.eof
  %>
  <a href="about.asp?id=<%=dbrs("id")%>" target="blank"><%=dbrs("lanmu")%></a>&nbsp;&nbsp;&nbsp;&nbsp;
  <% dbrs.movenext
     loop
dbrs.close
set dbrs=nothing
%>
</div></Td>
</tr>
<Tr><Td><div align="center">
<%=rs("copyright")%>
</div></Td>
</Tr>
</Table>
</div>
<% end sub %>
<%
sub newpk()
set newpkrs=server.CreateObject("adodb.recordset")
newpksql="select top 10 * from pkxx order by fbsj desc"
newpkrs.open newpksql,conn,1,1
if newpkrs.eof then
%>
<tr><td>无最新拼客信息！</td></tr>
<% else%>
<tr>
<% do while not newpkrs.eof%>
<td><li><a href="px.asp?id=<%=newpkrs("id")%>" target="_blank"><%=left(Server.HTMLEncode(newpkrs("biaoti")),10)%>&nbsp;
<% 
fbsj=newpkrs("fbsj")
'm=datediff("n",now(),dqsj)
g=datediff("d",fbsj,now())
if g<1 then
'response.write g
%>
<font color="red"><%=mid(newpkrs("fbsj"),6,4)%></font>
<% else%>
<%=mid(newpkrs("fbsj"),6,4)%>
<% end if%>
</a></li></td></tr><tr>
<% newpkrs.movenext
   loop
end if
newpkrs.close
set newpks=nothing
end sub
%>
<%
sub hotpk()
set hotpkrs=server.CreateObject("adodb.recordset")
hotpksql="select top 10 * from pkxx order by llcs desc"
hotpkrs.open hotpksql,conn,1,1
if hotpkrs.eof then
%>
<tr><td>无热门拼客信息！</td></tr>
<% else%>
<tr>
<% do while not hotpkrs.eof%>
<td><li><a href="px.asp?id=<%=hotpkrs("id")%>" target="_blank"><%=left(Server.HTMLEncode(hotpkrs("biaoti")),10)%>&nbsp;
<% 
fbsj=hotpkrs("fbsj")
'm=datediff("n",now(),dqsj)
g=datediff("d",fbsj,now())
if g<1 then
'response.write g
%>
<font color="red"><%=mid(hotpkrs("fbsj"),6,4)%></font>
<%else%>
<%=mid(hotpkrs("fbsj"),6,4)%>
<%end if%>
</a></li></td></tr><tr>
<% hotpkrs.movenext
   loop
end if
hotpkrs.close
set hotpks=nothing
end sub
%>
<%
sub bmxx()
set bmrs=server.CreateObject("adodb.recordset")
bmsql="select * from bm order by id desc"
bmrs.open bmsql,conn,1,1
if bmrs.eof then
%>
<tr><td>没有添加便民信息</td></tr>
<% else 
  'response.write bmrs("title")
  dim k
  k=1
%>
<tr align="center">
<% do while not bmrs.eof%>
<td width="50%"><a href="<%=bmrs("url")%>" target="_blank" title="<%=bmrs("shuoming")%>" ><%=left(bmrs("title"),6)%></a></td>
<% if k mod 2 =0 then%> 
</tr><tr align="center">
<% end if%>
<% k=k+1
   bmrs.movenext
   loop
end if
bmrs.close
set bmrs=nothing
end sub
%>
<% 
sub tjpk()
set tjpkrs=server.CreateObject("adodb.recordset")
tjpksql="select top 6 * from pkxx where tj='1' order by fbsj desc"
tjpkrs.open tjpksql,conn,1,1
if tjpkrs.eof then
%>
<tr><td >无推荐拼客信息(图片)</td></tr>
<% else%>
<tr>
<% do while not tjpkrs.eof%>
<td width="17%" align="center"><a href="px.asp?id=<%=tjpkrs("id")%>"><img src="<%=tjpkrs("tupian")%>" width="90" height="90" border="0"><br><%=left(Server.HTMLEncode(tjpkrs("biaoti")),7)%></a></td>
<% tjpkrs.movenext
   loop
end if
%>
</tr><tr>
<%
tjprs.close
set rjpkrs=nothing
end sub
%>
<% 
sub flist()
set dlrs=server.CreateObject("adodb.recordset")
dlsql="select top 12 * from class1 order by id"
dlrs.open dlsql,conn,1,1
if dlrs.eof then
%>
<tr><td>请添加大类！</td></tr>
<% else 
dim k
k=1
%>
<tr>
<% do while not  dlrs.eof%>
<td width="50%"><a href="fl.asp?id=<%=dlrs("id")%>" target="_blank"><li><b><%=dlrs("class1")%></b></li></a>
<br>
<% set xlrs=server.CreateObject("adodb.recordset")
xlsql="select top 2 * from class2 where class1="&dlrs("id")&" order by id"
xlrs.open xlsql,conn,1,1
if xlrs.eof then
%>
请添加小类！
<% else 
do while not xlrs.eof
%>
&nbsp;&nbsp;<a href="flx.asp?dl=<%=xlrs("class1")%>&xl=<%=xlrs("id")%>" target="_blank"><%=xlrs("class2")%></a>
<% 
xlrs.movenext
loop
end if
xlrs.close
set xlrs=nothing
%>
</td>
<% if k mod 2 =0 then%>
</tr><tr>
<% end if%>
<% dlrs.movenext
   k=k+1
   loop
end if
dlrs.close
set dlrs=nothing
end sub
%>
<%
sub pxlist()
set class1rs=server.CreateObject("adodb.recordset")
class1sql="select top 12 * from class1 order by id"
class1rs.open class1sql,conn,1,1
%>
<tr>
<% 
dim k
k=1
do while not class1rs.eof%>
<td width="50%"><table width="100%" class="table"><tr><td class="title"><a href="fl.asp?id=<%=class1rs("id")%>" target="_blank"> [>] <%=class1rs("class1")%></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="fl.asp?id=<%=class1rs("id")%>" target="_blank"> 更多>>></a></td></tr>
<%
set flrs=server.CreateObject("adodb.recordset")
flsql="select top 5 * from pkxx where class1="&class1rs("id")&" order by fbsj desc"
flrs.open flsql,conn,1,1
if flrs.eof then %>
<tr><td>没有该类信息！</td></tr>
<% else%>
<tr>
<% do while not flrs.eof%>
<td>
<a href="px.asp?id=<%=flrs("id")%>" target="_blank">
<li><%=Server.HTMLEncode(left(flrs("biaoti"),10))%>&nbsp;
<% 
fbsj=flrs("fbsj")
'm=datediff("n",now(),dqsj)
g=datediff("d",fbsj,now())
if g<1 then
'response.write g
%>
<font color="red">[<%=mid(flrs("fbsj"),6,4)%>]</font>
<%else%>
[<%=mid(flrs("fbsj"),6,4)%>]
<% end if%>
[报名：<font color="red"><%=flrs("bmrs")%></font>]</li></a>
</td></tr><tr>
<% flrs.movenext
   loop
end if
flrs.close
set flrs=nothing
%>

</table></td>
<% if k mod 2 =0 then %>
</tr><tr>
<% end if%>
<% class1rs.movenext
   k=k+1
   loop
class1rs.close
set class1rs=nothing
end sub
%>
<%
sub gglist()
set ggrs=server.CreateObject("adodb.recordset")
ggsql="select top 5 * from gg order by shijian desc"
ggrs.open ggsql,conn,1,1
if ggrs.eof then
%>
<tr><td>暂时没有新闻</td></tr>
<% else%>
<Tr>
<% do while not ggrs.eof%>
<td><a href="gg.asp?id=<%=ggrs("id")%>" target="_blank">
<li><%=left(ggrs("biaoti"),10)%>&nbsp;
<% 
fbsj=ggrs("shijian")
'm=datediff("n",now(),dqsj)
g=datediff("d",fbsj,now())
if g<1 then
'response.write g
%>
<font color="red"><%=mid(ggrs("shijian"),6,4)%></font>
<%else%>
<%=mid(ggrs("shijian"),6,4)%>
<%end if%>
</li></a>
</td></tr><tr>
<% ggrs.movenext
loop
end if
ggrs.close
set ggrs=nothing
end sub
%>
<%
sub pkstar()
set psrs=server.CreateObject("adodb.recordset")
pssql="select top 2 * from user order by dlcs desc"
psrs.open pssql,conn,1,1
'response.write pssql
%>
<tr>
<% do while not psrs.eof%>
<td width="50%" align="center"><A href="userinfo.asp?u=<%=psrs("name")%>" target="_blank"><img src="images/face/<%=psrs("touxiang")%>.gif" width="70" height="70" border="0"><br><%=psrs("name")%></a><td>
<% psrs.movenext
   loop
%>
</tr>
<%
psrs.close
set psrs=nothing
end sub
%>
<%
sub newmm()
set newpkrs=server.CreateObject("adodb.recordset")
newpksql="select top 10 * from mmxx order by fbsj desc"
newpkrs.open newpksql,conn,1,1
if newpkrs.eof then
%>
<tr><td>无最新买卖信息！</td></tr>
<% else%>
<tr>
<% do while not newpkrs.eof%>
<td><li><a href="mx.asp?id=<%=newpkrs("id")%>" target="_blank"><%=left(Server.HTMLEncode(newpkrs("biaoti")),10)%>&nbsp;
<% 
fbsj=newpkrs("fbsj")
'm=datediff("n",now(),dqsj)
g=datediff("d",fbsj,now())
if g<1 then
'response.write g
%>
<font color="red"><%=mid(newpkrs("fbsj"),6,4)%></font>
<% else%>
<%=mid(newpkrs("fbsj"),6,4)%>
<% end if%>
</a></li></td></tr><tr>
<% newpkrs.movenext
   loop
end if
newpkrs.close
set newpks=nothing
end sub
%>
<%
sub hotmm()
set hotpkrs=server.CreateObject("adodb.recordset")
hotpksql="select top 10 * from mmxx order by llcs desc"
hotpkrs.open hotpksql,conn,1,1
if hotpkrs.eof then
%>
<tr><td>无热门买卖信息！</td></tr>
<% else%>
<tr>
<% do while not hotpkrs.eof%>
<td><li><a href="px.asp?id=<%=hotpkrs("id")%>" target="_blank"><%=left(Server.HTMLEncode(hotpkrs("biaoti")),10)%>&nbsp;
<% 
fbsj=hotpkrs("fbsj")
'm=datediff("n",now(),dqsj)
g=datediff("d",fbsj,now())
if g<1 then
'response.write g
%>
<font color="red"><%=mid(hotpkrs("fbsj"),6,4)%></font>
<%else%>
<%=mid(hotpkrs("fbsj"),6,4)%>
<%end if%>
</a></li></td></tr><tr>
<% hotpkrs.movenext
   loop
end if
hotpkrs.close
set hotpks=nothing
end sub
%>