📄 public.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
if trim(request("infoone"))<>"" then
sql=sql&" and "&WebSqlType&"_infoxxone='"&trim(request("infoone"))&"'"
end if
if trim(request("infotwo"))<>"" then
sql=sql&" and "&WebSqlType&"_infoxxtwo='"&trim(request("infotwo"))&"'"
end if
if trim(request("city"))<>"" then
sql=sql&" and "&WebSqlType&"_infoaddone='"&trim(request("city"))&"'"
end if
if trim(request("Province"))<>"" then
sql=sql&" and "&WebSqlType&"_infoaddtwo='"&trim(request("Province"))&"'"
end if
sql=sql&" order by "&WebSqlType&"_infodate 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><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

response.Write"<TR><TD class=td1 align=middle width=32><IMG src='../images/folder.gif'> </TD>"
response.Write"<TD width='420' class=td1> <A href='/space/info_view.asp?infoid="&rs(""&WebSqlType&"_infoid")&"&"
response.Write"id="&rs(""&WebSqlType&"_infouser")&"'"
response.Write" target=_blank><STRONG  style='FONT-SIZE: 14px'>"
response.Write""&rs(""&WebSqlType&"_infotitle")&"</STRONG></A></TD>"
response.Write"<TD class=td1 align=middle width=64><SPAN class=smalltext><STRONG>"
call htc("select *  from "&WebSqlType&"_book where "&WebSqlType&"_key=2 and "&WebSqlType&"_htc="&rs(""&WebSqlType&"_infoid")&"")
response.Write"</STRONG> / "&rs(""&WebSqlType&"_infohtc")&"</SPAN></TD>"
response.Write"<TD class=td1 width=189><A href='/space/index.asp?id="&rs(""&WebSqlType&"_infouser")&"' target=_blank>"
response.Write""&rs(""&WebSqlType&"_infousername")&"</A><SPAN class='graytext smalltext'> | "&rs(""&WebSqlType&"_infodate")&""
response.Write"</SPAN></TD></TR>"
rs.movenext
i=i+1 
j=j-1
loop
response.Write"</TBODY></TABLE><DIV class=page><SPAN class=right>&nbsp;&nbsp;"
filename="info_list.asp?infoone="&trim(request("infoone"))&"&infotwo="&trim(request("infotwo"))&"&city="&trim(request("city"))&"&Province="&trim(request("Province"))&""
response.Write"共 <STRONG>"&Rs.pagecount&"</STRONG> 页 "
if page=1 then
else
response.Write"<a href="&filename&">|<<</a>&nbsp;" 
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000><<</font></a>&nbsp; "
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a>&nbsp;"
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>&nbsp;" 
response.Write"<a href="&filename&"&page="&page+1&"><font color=#000000>>></font></a>&nbsp; "
response.Write"<a href="&filename&"&page="&Rs.pagecount&"><font color=#000000>>>|</font></a>&nbsp; "
end if
response.Write"</SPAN>&nbsp;</DIV>"
rs.close
end if
End Function
'------------------------------------------------------------------------------------------------------------------------
Function Photo()
set rs1=server.createobject("adodb.recordset")
if trim(request("action"))="htc" then
sql="select * from "&WebSqlType&"_photo  order by "&WebSqlType&"_htc desc"
else
sql="select * from "&WebSqlType&"_photo  order by "&WebSqlType&"_date desc"
end if
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0><tr><td height=194 colspan=5 align=center>暂无内容</td></tr></table>"
else 
listnum=40
rs1.pagesize=listnum
page=Request("page")
if (page-rs1.pagecount) > 0 then
page=rs1.pagecount
elseif page = "" or page < 1 then
page = 1
end if
rs1.absolutepage=page
'编号的实现
j=rs1.recordcount
j=j-(page-1)*listnum
response.Write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0><TBODY><TR>"
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs1.eof and i<listnum
n=n+1
response.Write" <TD class=td3 vAlign=bottom align=middle width='25%'><A href='"
response.Write"/space/photo_view.asp?photoid="&rs1(""&WebSqlType&"_id")&"&id="&rs1(""&WebSqlType&"_user")&"' target=_blank>"
response.Write" <IMG alt='"&rs1(""&WebSqlType&"_title")&"' src='/"&rs1(""&WebSqlType&"_pic")&"'  width='120' border=0 rel='zoom#2.5'>"
response.Write"<BR>"&rs1(""&WebSqlType&"_title")&"</A></TD>"
if n mod 5=0 then response.write("</tr><tr>")
rs1.movenext
i=i+1 
j=j-1
loop
response.Write"</TR></TBODY></TABLE>"
response.Write"<DIV class=page><SPAN class=right>&nbsp;"
filename="index.asp?action="&trim(request("action"))&""
response.Write"<STRONG>共 "&rs1.pagecount&" 页 </STRONG>"
if page=1 then
else
response.Write"<a class=p href="&filename&">|<<</a>&nbsp; "
response.Write"<a class=p href="&filename&"&page="&page-1&"><font color=#000000><<</font></a>&nbsp;" 
response.Write"<a class=p href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a>&nbsp;"
end if
if rs1.pagecount=1 then
else
response.Write"<STRONG> ["&page&"]</STRONG>"
end if
if rs1.pagecount-page <> 0 then
response.Write" <a class=p href="&filename&"&page="&page+1&"><font color=#000000>["&page+1&"]</font></a>&nbsp; "
response.Write"<a class=p href="&filename&"&page="&page+1&"><font color=#000000>>></font></a>&nbsp;" 
response.Write" <a class=p href="&filename&"&page="&rs1.pagecount&"><font color=#000000>>>|</font></a>&nbsp;" 
end if
response.Write"</SPAN>&nbsp;</DIV></DIV>"
rs1.close
end if
End Function
'-------------------------------------------------------------------------------------------------------
Function Logs()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_log  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><TBODY>"
listnum=25
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 rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&rs(""&WebSqlType&"_club")&" "
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else
co=rs2(""&WebSqlType&"_co")
rs2.close
end if
response.Write"<TR><TD class=td1 align=middle width=32><IMG src='../images/folder.gif'> </TD>"
response.Write"<TD width='420' class=td1> <A href='/quan/"&trim(co)&"/bbs_view.asp?bbsid="&rs(""&WebSqlType&"_id")&""
response.Write"&id="&rs(""&WebSqlType&"_club")&"' target=_blank><STRONG style='FONT-SIZE: 14px'>"
response.Write""&rs(""&WebSqlType&"_title")&"</STRONG></A><!--<SPAN class=new>&nbsp;</SPAN> --> </TD>"
response.Write"<TD class=td1 align=middle width=64><SPAN class=smalltext><STRONG>"
call htc("select *  from "&WebSqlType&"_book where "&WebSqlType&"_key=4 and "&WebSqlType&"_htc="&rs(""&WebSqlType&"_id")&"")
response.Write"</STRONG> / "&rs(""&WebSqlType&"_htc")&"</SPAN></TD>"
response.Write"<TD class=td1 width=189><A href='/quan/"&trim(co)&"/bbs_view.asp?bbsid="&rs(""&WebSqlType&"_id")&""
response.Write"&id="&rs(""&WebSqlType&"_club")&"' target=_blank>"&rs(""&WebSqlType&"_username")&"</A>"
response.Write"<SPAN class='graytext smalltext'> | "&rs(""&WebSqlType&"_Ndate")&"</SPAN></TD></TR>"
rs.movenext
i=i+1 
j=j-1
loop
response.Write"</TBODY></TABLE><DIV class=page><SPAN class=right>&nbsp;&nbsp;"
filename="index.asp?id="&id&""
response.Write"共 <STRONG>"&Rs.pagecount&"</STRONG> 页 "
if page=1 then
else
response.Write"<a href="&filename&">|<<</a>&nbsp; "
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000><<</font></a>&nbsp;" 
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a>&nbsp;"
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>&nbsp;" 
response.Write"<a href="&filename&"&page="&page+1&"><font color=#000000>>></font></a>&nbsp;" 
response.Write"<a href="&filename&"&page="&Rs.pagecount&"><font color=#000000>>>|</font></a>&nbsp;" 
end if
response.Write"</SPAN>&nbsp;</DIV>"
rs.close
end if
End Function
'--------------------------------------------------------------------------------------------------------
Function blogs()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_blog  order by "&WebSqlType&"_blogDate 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><TBODY>"
listnum=25
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 rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_blogAsort where "&WebSqlType&"_AsortID="&rs(""&WebSqlType&"_blogAsort")&" "
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else
AsortTitle=rs2(""&WebSqlType&"_AsortTitle")
rs2.close
end if
response.Write"<TR><TD class=td1 align=middle width=32><IMG src='../images/folder.gif'> </TD>"
response.Write"<TD width='420' class=td1> <A href='/Space/blog_view.asp?"
response.Write"blogid="&rs(""&WebSqlType&"_blogid")&"&id="&rs(""&WebSqlType&"_blogUser")&"' target=_blank><STRONG style='FONT-SIZE: 14px'>"
response.Write""&rs(""&WebSqlType&"_blogTitle")&"</STRONG></A><!--<SPAN class=new>&nbsp;</SPAN> --> </TD>"
response.Write"<TD class=td1 align=middle width=64><SPAN class=smalltext><STRONG>"
call htc("select *  from "&WebSqlType&"_book where "&WebSqlType&"_key=7 and "&WebSqlType&"_htc="&rs(""&WebSqlType&"_blogid")&"")
response.Write"</STRONG> / "&rs(""&WebSqlType&"_bloghtc")&"</SPAN></TD>"
response.Write"<TD class=td1 width=189><A href='/Space/blog_view.asp?"
response.Write"blogid="&rs(""&WebSqlType&"_blogid")&"&id="&rs(""&WebSqlType&"_blogUser")&"' target=_blank>"&rs(""&WebSqlType&"_blogUserName")&"</A>"
response.Write"<SPAN class='graytext smalltext'> | "&rs(""&WebSqlType&"_blogDate")&"</SPAN></TD></TR>"
rs.movenext
i=i+1 
j=j-1
loop
response.Write"</TBODY></TABLE><DIV class=page><SPAN class=right>&nbsp;&nbsp;"
filename="index.asp?id="&id&""
response.Write"共 <STRONG>"&Rs.pagecount&"</STRONG> 页 "
if page=1 then
else
response.Write"<a href="&filename&">|<<</a>&nbsp; "
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000><<</font></a>&nbsp;" 
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a>&nbsp;"
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>&nbsp;" 
response.Write"<a href="&filename&"&page="&page+1&"><font color=#000000>>></font></a>&nbsp;" 
response.Write"<a href="&filename&"&page="&Rs.pagecount&"><font color=#000000>>>|</font></a>&nbsp;" 
end if
response.Write"</SPAN>&nbsp;</DIV>"
rs.close
end if
End Function
%>
上一页 1 2 34
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -