📄 public.asp
字号:
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs.eof and i<listnum
n=n+1
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&rs(""&WebSqlType&"_club")&" "
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
else
co=rs1(""&WebSqlType&"_co")
rs1.close
end if
if trim(rs(""&WebSqlType&"_club"))<>0 then
webget="/quan/"&trim(co)&"/activitx_view.asp?id="&rs(""&WebSqlType&"_club")&"&action=activitx&activitxid="&rs(""&WebSqlType&"_id")&""
else
webget="/space/activitx_view.asp?activitxid="&rs(""&WebSqlType&"_id")&"&id="&rs(""&WebSqlType&"_user")&""
end if
response.Write" <TR><TD class=td1 align=middle width=40><IMG src='"
if rs(""&WebSqlType&"_Edate")<= now() then
response.Write"../images/yes.gif"
else
response.Write"../images/on.gif"
end if
response.Write"'></TD><TD class=td1 align=left><SPAN class='right bluetext'>"
response.Write"<A href='"&webget&"' target=_blank style='color:#8284cc;'>"&rs(""&WebSqlType&"_ctitle")&"</A></SPAN>"
response.Write" <A href='"&webget&"' target=_blank style='color:#006600;'>"
response.Write"<STRONG class=bigtext>"&rs(""&WebSqlType&"_title")&"</STRONG></A> <BR><SPAN class=graytext>"
response.Write"地区："&rs(""&WebSqlType&"_addone")&" / 时间："&year(rs(""&WebSqlType&"_date"))&"年"
response.Write""&month(rs(""&WebSqlType&"_date"))&"月"&day(rs(""&WebSqlType&"_date"))&"日 "&Hour(rs(""&WebSqlType&"_date"))&"时"
response.Write""&Minute(rs(""&WebSqlType&"_date"))&"分</SPAN> </TD>"
response.Write" <TD class=td1 align=middle width=120>人数：<STRONG class=redtext>"&rs(""&WebSqlType&"_Rhtc")&"</STRONG>/"
response.Write""&rs(""&WebSqlType&"_ren")&"人 </TD>"
response.Write"<TD class=td1 align=middle width=100><SPAN class=graytext>"
if rs(""&WebSqlType&"_Edate")<= now() then
response.Write"已结束"
else
response.Write"进行中"
end if
response.Write"</SPAN></TD></TR>"
rs.movenext
i=i+1
j=j-1
loop
response.Write"</TBODY></TABLE><DIV class=page><SPAN class=right> "
filename="index.asp?action="&trim(request("action"))&""
response.Write"共 <STRONG>"&Rs.pagecount&"</STRONG> 页"
if page=1 then
else
response.Write"<a href="&filename&">|<<</a> "
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000><<</font></a> "
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a> "
end if
if Rs.pagecount=1 then
else
response.Write" ["&page&"]"
end if
if Rs.pagecount-page <> 0 then
response.Write"<a href="&filename&"&page="&page+1&"><font color=#000000>["&page+1&"]</font></a> "
response.Write" <a href="&filename&"&page="&page+1&"><font color=#000000>>></font></a> "
response.Write"<a href="&filename&"&page="&Rs.pagecount&"><font color=#000000>>>|</font></a> "
end if
response.Write"</SPAN> </DIV></DIV>"
rs.close
end if
End Function
'---------------------------------------------------------------------------------------------------
'活动查询
Function ActivitxSearch()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_key<>2 "
'按关键词--------------------------------
if trim(request("word"))<>"" then
sql=sql&" and "&WebSqlType&"_title like'%"&trim(request("word"))&"%'"
end if
'按地区----------------------------------
if trim(request("city"))<>"" then
sql=sql&" and "&WebSqlType&"_addone like'%"&trim(request("city"))&"%'"
end if
'按类别----------------------------------
if trim(request("sorttitle"))<>"" then
sql=sql&" and "&WebSqlType&"_zhuti='"&trim(request("sorttitle"))&"'"
end if
sql=sql&" order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<table width=100% height=87 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=9CB6D3><tr><td height=194 colspan=5 align=center>暂无内容</td></tr></table>"
else
response.write "<TABLE cellSpacing=0 cellPadding=0 border=0><TBODY>"
listnum=15
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs.eof and i<listnum
n=n+1
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&rs(""&WebSqlType&"_club")&" "
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
else
co=rs1(""&WebSqlType&"_co")
rs1.close
end if
if trim(rs(""&WebSqlType&"_club"))<>0 then
webget="/quan/"&trim(co)&"/activitx_view.asp?id="&rs(""&WebSqlType&"_club")&"&action=activitx&activitxid="&rs(""&WebSqlType&"_id")&""
else
webget="/space/activitx_view.asp?activitxid="&rs(""&WebSqlType&"_id")&"&id="&rs(""&WebSqlType&"_user")&""
end if
response.write "<TR><TD class=td1 align=middle width=40><IMG src='"
if rs(""&WebSqlType&"_Edate")<= now() then
response.write "/images/yes.gif"
else
response.write" /images/on.gif"
end if
response.write "'></TD>"
response.write"<TD class=td1 align=left><SPAN class='right bluetext'>"
response.write"<A href='"&webget&"' target=_blank style='color:#8284cc;'>"&rs(""&WebSqlType&"_ctitle")&"</A></SPAN>"
response.write" <A href='"&webget&"' target=_blank style='color:#006600;'>"
response.write"<STRONG class=bigtext>"&rs(""&WebSqlType&"_title")&"</STRONG></A> <BR><SPAN class=graytext>地区："
response.write""&rs(""&WebSqlType&"_addone")&" / 时间："&year(rs(""&WebSqlType&"_date"))&"年"&month(rs(""&WebSqlType&"_date"))&""
response.write"月"&day(rs(""&WebSqlType&"_date"))&"日 "&Hour(rs(""&WebSqlType&"_date"))&"时"&Minute(rs(""&WebSqlType&"_date"))&"分"
response.write"</SPAN> </TD> <TD class=td1 align=middle width=120>"
response.write"人数：<STRONG class=redtext>"&rs(""&WebSqlType&"_Rhtc")&"</STRONG>/"&rs(""&WebSqlType&"_ren")&"人 </TD>"
response.write" <TD class=td1 align=middle width=100><SPAN class=graytext>"
if rs(""&WebSqlType&"_Edate")<= now() then
response.write"已结束"
else
response.write"进行中"
end if
response.write"</SPAN></TD></TR>"
rs.movenext
i=i+1
j=j-1
loop
response.write"</TBODY></TABLE>"
response.write"<DIV class=page><SPAN class=right> "
filename="search.asp?word="&trim(request("word"))&"&city="&trim(request("city"))&"&sorttitle="&trim(request("sorttitle"))&""
response.write"共 <STRONG>"&Rs.pagecount&"</STRONG> 页 "
if page=1 then
else
response.write"<a href="&filename&">|<<</a> "
response.write"<a href="&filename&"&page="&page-1&"><font color=#000000><<</font></a> "
response.write"<a href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a> "
end if
if Rs.pagecount=1 then
else
response.write"["&page&"]"
end if
if Rs.pagecount-page <> 0 then
response.write"<a href="&filename&"&page="&page+1&"><font color=#000000>["&page+1&"]</font></a> "
response.write"<a href="&filename&"&page="&page+1&"><font color=#000000>>></font></a> "
response.write"<a href="&filename&"&page="&Rs.pagecount&"><font color=#000000>>>|</font></a> "
end if
response.write"</SPAN> </DIV></DIV>"
rs.close
end if
End Function
'---------------------------------------------------------------------------------------------------------------
'招贴地区
Function CityInfo()
set rs=server.createobject("adodb.recordset")
sql="select "&WebSqlType&"_addone from "&WebSqlType&"_ypaddone order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
do while not rs.eof
response.Write"<LI><A title=查询『"&rs(""&WebSqlType&"_addone")&"』所有信息 "
response.Write" href='info_list.asp?city="&rs(""&WebSqlType&"_addone")&"'>"&rs(""&WebSqlType&"_addone")&"</A>"
response.Write" </LI>"
rs.movenext
loop
rs.close
End Function
'分类
Function SortInfo()
response.Write"<TABLE cellSpacing=0 cellPadding=0 width=525 align=center border=0><TBODY>"
sql="select * from "&WebSqlType&"_infoxxone order by "&WebSqlType&"_infodate desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr><td height=20 colspan=3>暂无内容</td></tr>"
else
do while not rs.eof
response.Write"<TR bgColor=#f1fafa>"
response.Write"<TD width='80%' vAlign=bottom bgcolor='#FFFFFF' style='font-size:14px; font-weight:bold; border-bottom:dotted #CCCCCC 1px;'>"
response.Write"<a class=ts href='info_list.asp?infoone="&rs(""&WebSqlType&"_infoone")&"'>"
response.Write"<font color=#000000>"&rs(""&WebSqlType&"_infoone")&"</font></a>"
response.Write"<font color=#000000>(<font color='#FF0000'>"
call htc("select * from "&WebSqlType&"_info where "&WebSqlType&"_infoxxone='"&rs(""&WebSqlType&"_infoone")&"'")
response.Write"</font>)</font></TD>"
response.Write"<TD width='20%' height=26 vAlign=bottom bgcolor='#FFFFFF'"
response.Write" style='border-bottom:dotted #CCCCCC 1px;'><A href='/person/info_add.asp'>"
response.Write"<font color=red>发布信息</font></A> | "
response.Write"<A href='info_list.asp?infoone="&rs(""&WebSqlType&"_infoone")&"'><font color=#000000>更多信息>></font></A></TD>"
response.Write" <TR><TD colspan='2' style='LINE-HEIGHT: 150%'>"
response.Write" <TABLE cellSpacing=0 cellPadding=0 width=525 align=right border=0> <TBODY><TR>"
sql="select * from "&WebSqlType&"_infoxxtwo where "&WebSqlType&"_infoone_id="&rs(""&WebSqlType&"_infoone_id")&" order by "&WebSqlType&"_infodate desc"
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open sql,conn,1,1
if (rs1.eof and rs1.bof) then
response.write "<td height=20 colspan=3>暂无内容</td>"
else
n=0
do while not rs1.eof
n=n+1
response.Write"<TD width=105 height=20><A class=aaaa href='info_list.asp?infoone="&rs(""&WebSqlType&"_infoone")&""
response.Write"&infotwo="&rs1(""&WebSqlType&"_infotwo")&"' target=_self>"&rs1(""&WebSqlType&"_infotwo")&"</A></TD>"
if n mod 9=0 then response.write("</tr><tr>")
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
response.Write"</TR></TBODY></TABLE></TD></TR>"
rs.movenext
loop
end if
rs.close
set rs=nothing
response.Write"</TBODY></TABLE>"
End Function
'导航----------------------------------
Function TitleInfo(a)
if a=1 then
response.Write"我的位置：<A href='../index.asp'>首页</A> » <A href='index.asp'>分类信息</A>"
if trim(request("city"))<>"" then
response.Write" »<A href='info_list.asp?city="&request("city")&"'>"&request("city")&"</a>"
end if
if trim(request("Province"))<>"" then
response.Write" »<A href='info_list.asp?city="&request("city")&"&Province="&request("Province")&"'>"
response.Write""&request("Province")&"</a>"
end if
if trim(request("infoone"))<>"" then
response.Write" »<A href='info_list.asp?infoone="&request("infoone")&"'>"&request("infoone")&"</a>"
end if
if trim(request("infotwo"))<>"" then
response.Write" » <A href='info_list.asp?infoone="&request("infoone")&"&infotwo="&request("infotwo")&"'>"
response.Write""&request("infotwo")&"</a>"
end if
elseif a=2 then
response.Write"<a class=ts href='info_list.asp?infoone="&request("infoone")&"'><font color=#000000>"&request("infoone")&""
response.Write"</font></a>"
if trim(request("city"))<>"" then
response.Write"<A href='info_list.asp?city="&request("city")&"'><font color=#000000>"&request("city")&"</font></a>"
end if
elseif a=3 then
if trim(request("infoone"))<>"" then
sql="select * from "&WebSqlType&"_infoxxtwo where "&WebSqlType&"_infoone='"&request("infoone")&"' order by "&WebSqlType&"_infodate desc"
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open sql,conn,1,1
if (rs1.eof and rs1.bof) then
response.write "暂无内容"
else
do while not rs1.eof
response.Write"<A href='info_list.asp?infoone="&request("infoone")&"&infotwo="&rs1(""&WebSqlType&"_infotwo")&"'>"
response.Write""&rs1(""&WebSqlType&"_infotwo")&"</A> | "
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
else
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_ypaddone order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
do while not rs.eof
response.Write"<A href='info_list.asp?city="&rs(""&WebSqlType&"_addone")&"'>"&rs(""&WebSqlType&"_addone")&"</A> | "
rs.movenext
loop
rs.close
end if
end if
End Function
'主体内容-------------------------------------------
Function Info()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_info where "&WebSqlType&"_infotitle<>''"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -