📄 space.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
else
nn=nn-1
n=listnum*nn
end if
do while not rs1.eof and i<listnum
n=n+1
response.Write"<TD width='20%' align=middle class=td3><A href="&cityurl&"space/photo_view.asp?photoid="&rs1(""&WebSqlType&"_id")&""
response.Write"&id="&id&" target=_blank>"
response.Write"<IMG title="&rs1(""&WebSqlType&"_title")&" src='/"&rs1(""&WebSqlType&"_pic")&"' width='100' border=0><BR>"
response.Write rs1(""&WebSqlType&"_title")
response.Write"</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="photo.asp?id="&id&""
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></DIV> " 
rs1.close
end if
End Function
'-----------------------------------------------------------------------------
Function SbbsID()
response.Write"<TABLE cellSpacing=0><TBODY><TR bgcolor='#F2F2F2'>"
response.Write"<TH width=52 height='30'>&nbsp;</TH>"
response.Write"<TH width='683'><DIV style='TEXT-ALIGN: left'>贴子名称</DIV></TH>"
response.Write"<TH width=177 align='left'><DIV class=th>&nbsp;发布日期</DIV></TH><TH width=38>"
response.Write"<DIV class=th><!-- 操作 --></DIV></TH></TR>"
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_log where "&WebSqlType&"_user="&id&" order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else 
listnum=20
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
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
if trim(rs1(""&WebSqlType&"_j"))=1 then
keyj="加精"
else
keyj=""
end if
if trim(rs1(""&WebSqlType&"_z"))=1 then
keyz="置顶"
else
keyz=""
end if
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&rs1(""&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 align='center'><IMG src='"
response.Write""&cityurl&"images/folder.gif'>&nbsp;</TD><TD class=td1><SPAN class='graytext right'>"
response.Write""&rs1(""&WebSqlType&"_sort")&"</SPAN> <A href='/quan/"&trim(co)&"/bbs_view.asp?bbsid="
response.Write""&rs1(""&WebSqlType&"_id")&"&id="&rs1(""&WebSqlType&"_club")&"' target=_blank>"&rs1(""&WebSqlType&"_title")&"</A>"
response.Write" <font color=red>"&keyj&"</font> <font color=#006600>"&keyz&"</font>"
response.Write" </TD><TD align='left' class=td1>&nbsp;"&rs1(""&WebSqlType&"_Ndate")&"</TD>"
response.Write" <TD align='center' class=td1></TD></TR>"
rs1.movenext
i=i+1 
j=j-1
loop
response.Write"<TR align='right'><TD colSpan=4 class=page>"
filename="bbs.asp?id="&id&""
response.Write"共 "&rs1.pagecount&" 页 "
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 rs1.pagecount=1 then
else
response.Write"["&page&"]"
end if
if rs1.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="&rs1.pagecount&"><font color=#000000>>>|</font></a>&nbsp; "
end if
response.Write"</TD></TR>"
rs1.close
end if
response.Write"</TBODY></TABLE>"
End Function
'------------------------------------------------------------------------------------------------
Function SblogID()
response.Write"<TABLE cellSpacing=0><TBODY><TR bgcolor='#F2F2F2'>"
response.Write"<TH width=52 height='30'>&nbsp;</TH>"
response.Write"<TH width='683'><DIV style='TEXT-ALIGN: left'>文章名称</DIV></TH>"
response.Write"<TH width=177 align='left'><DIV class=th>&nbsp;发布日期</DIV></TH><TH width=38>"
response.Write"<DIV class=th>人气</DIV></TH></TR>"
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_blog where "&WebSqlType&"_bloguser="&id&" order by "&WebSqlType&"_blogDate desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else 
listnum=20
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
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
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_blogAsort where "&WebSqlType&"_AsortID="&rs1(""&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 align='center'><IMG src='"
response.Write""&cityurl&"images/folder.gif'>&nbsp;</TD><TD class=td1><SPAN class='graytext right'>"
response.Write""&AsortTitle&"</SPAN> <A href='/Space/blog_view.asp?blogid="&rs1(""&WebSqlType&"_blogid")&"&id="&rs1(""&WebSqlType&"_blogUser")&"' target=_blank>"
response.Write""&rs1(""&WebSqlType&"_blogtitle")&"</A>"
response.Write" </TD><TD align='left' class=td1>&nbsp;"&rs1(""&WebSqlType&"_blogdate")&"</TD>"
response.Write" <TD align='center' class=td1 style='font-size:14px; color:#FF0000; font-weight:bold;'>"&rs1(""&WebSqlType&"_bloghtc")&"</TD></TR>"
rs1.movenext
i=i+1 
j=j-1
loop
response.Write"<TR align='right'><TD colSpan=4 class=page>"
filename="blog.asp?id="&id&""
response.Write"共 "&rs1.pagecount&" 页 "
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 rs1.pagecount=1 then
else
response.Write"["&page&"]"
end if
if rs1.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="&rs1.pagecount&"><font color=#000000>>>|</font></a>&nbsp; "
end if
response.Write"</TD></TR>"
rs1.close
end if
response.Write"</TBODY></TABLE>"
End Function
'------------------------------------------------------------------------------------------------
Function SinfoID()
sql="select * from "&WebSqlType&"_info where "&WebSqlType&"_infouser="&id&" 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=194 align=center>暂无内容</td></tr>"
else 
do while not rs.eof
response.Write"<TABLE cellSpacing=0><TBODY><TR>"
response.Write" <TD class=td1 align=middle width=38><IMG src="&cityurl&"images/yes.gif></TD>"
response.Write" <TD width='663' align=left class=td1>"
response.Write"<A href='info_view.asp?infoid="&rs(""&WebSqlType&"_infoid")&"&id="&id&"' target=_blank><STRONG>"
response.Write""&rs(""&WebSqlType&"_infotitle")&"</STRONG></A> <SPAN class=graytext>("&rs(""&WebSqlType&"_infoaddone")&"、"
response.Write""&rs(""&WebSqlType&"_infoaddtwo")&")</SPAN><BR>"
response.Write" 发布时间："&year(rs(""&WebSqlType&"_infodate"))&"年"&month(rs(""&WebSqlType&"_infodate"))&"月"
response.Write""&day(rs(""&WebSqlType&"_infodate"))&"日 "&Hour(rs(""&WebSqlType&"_infodate"))&"时"&Minute(rs(""&WebSqlType&"_infodate"))&""
response.Write"分</TD><TD class=td1 align=middle width=131><SPAN class=bluetext>&nbsp;"
response.Write"<A href='info_view.asp?infoid="&rs(""&WebSqlType&"_infoid")&"&id="&id&"' target=_blank>"
response.Write""&rs(""&WebSqlType&"_infoxxone")&"</A></SPAN></TD><TD class=td1 align=middle width=118>"
response.Write"人气："&rs(""&WebSqlType&"_infohtc")&" </TD> </TR></TBODY></TABLE>"
rs.movenext
loop
rs.close
end if
End Function
'--------------------------------------------------------------------------------------------------------------------
Function SaxtivitxID()
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_user="&id&" order by "&WebSqlType&"_date 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=194 align=center>暂无内容</td></tr>"
else 
do while not rs.eof
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
weget="/quan/"&trim(co)&"/activitx_view.asp?id="&rs(""&WebSqlType&"_club")&"&action=activitx&activitxid="&rs(""&WebSqlType&"_id")&""
else
weget="/space/activitx_view.asp?activitxid="&rs(""&WebSqlType&"_id")&"&id="&rs(""&WebSqlType&"_user")&""
end if
response.Write"<TABLE cellSpacing=0><TBODY><TR>"
response.Write"<TD class=td1 align=middle width=40><IMG src='"&cityurl&"images/yes.gif'></TD>"
response.Write"<TD class=td1 align=left><A href='"&weget&"' target=_blank><STRONG>"&rs(""&WebSqlType&"_title")&"</STRONG></A>"
response.Write" <SPAN class=graytext>("&rs(""&WebSqlType&"_addone")&")</SPAN><BR>"
response.Write" 活动时间："&year(rs(""&WebSqlType&"_date"))&"年"&month(rs(""&WebSqlType&"_date"))&"月"&day(rs(""&WebSqlType&"_date"))&"日"
response.Write" "&Hour(rs(""&WebSqlType&"_date"))&"时"&Minute(rs(""&WebSqlType&"_date"))&"分</TD>"
response.Write" <TD class=td1 align=middle width=150><SPAN class=bluetext>&nbsp;<A href="&weget&" target=_blank>"
response.Write""&rs(""&WebSqlType&"_ctitle")&"</A></SPAN></TD>"
response.Write" <TD class=td1 align=middle width=120>人数：<STRONG class=redtext>"&rs(""&WebSqlType&"_Rhtc")&"</STRONG>/"
if trim(rs(""&WebSqlType&"_ren"))=0 then
response.Write"不限"
else
response.Write rs(""&WebSqlType&"_ren")
end if
response.Write" </TD> <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></TBODY></TABLE>"
rs.movenext
loop
rs.close
end if
End Function
%>
上一页 12
⌨️ 快捷键说明

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