iconfig.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<%
'圈子首页调用模板==============================================================================================================

'友情连接
Function links()
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_link where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc"
rs2.open sql,conn,1,1
l=0
do while not rs2.eof
l=l+1
response.Write("<a href='"&rs2(""&WebSqlType&"_web")&"' target='_blank'>"&rs2(""&WebSqlType&"_title")&"</a>&nbsp;&nbsp;")
if l mod 2=0 then response.write("<br>")
rs2.movenext
loop
rs2.close
End Function
'----------------------------------------------------------------------------------------------------------------------------
'招贴
Function info()
set rs1=server.createobject("adodb.recordset")
sql="select top 10 * from "&WebSqlType&"_info where "&WebSqlType&"_infoclub="&id&" order by "&WebSqlType&"_infodate desc"
rs1.open sql,conn,1,1
n=0
if rs1.eof and rs1.bof then                     
	response.write "<tr class='td2'><td class='td'><td class='td'><td class='td'><td class='td'>还没有内容</td></td></td></td></tr>"
else 
do while not rs1.eof
n=n+1
if n mod 2=0 then
mc="td2"
else
mc="td"
end if
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rs1(""&WebSqlType&"_infouser")
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else 
user=rs2(""&WebSqlType&"_username")
end if
response.Write("<tr class='"&mc&"'><td class='td'><img src='images/folder.gif'></td>")
response.Write("<td align='left' class='td'><span class='right2'></span>")
response.Write("<a href='info_view.asp?id="&id&"&infoid="&trim(rs1(""&WebSqlType&"_infoid"))&"'>"&rs1(""&WebSqlType&"_infotitle")&"</a>") 
response.Write("</td><td class='td'><a href='/space/index.asp?id="&rs1(""&WebSqlType&"_infouser")&"' target='_blank'>"&user&"</a>")
response.Write("</td><td align='left' class='smalltext td graytext'>"&trim(rs1(""&WebSqlType&"_infodate"))&"</td>")
response.Write("</tr>")
rs1.movenext
loop
rs1.close
end if   
End Function
'------------------------------------------------------------------------------------------------------------------------------
'活动
Function activitx(a)
set rs1=server.createobject("adodb.recordset")
sql="select top 10 * from "&WebSqlType&"_activitx where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr class='td2'><td class='td'><td class='td'><td class='td'><td class='td'>还没有内容</td></td></td></td></tr>"
else 
n=0
do while not rs1.eof
n=n+1
if n mod 2=0 then
mc="td2"
else
mc="td"
end if
response.Write("<tr class='"&mc&"'><td class='td'><img src='images/folder.gif'></td>")
response.Write("<td align='left' class='td'><span class='right2'></span>")
response.Write("<a href='activitx_view.asp?activitxid="&rs1(""&WebSqlType&"_id")&"&id="&id&"&action=activitx'>"&rs1(""&WebSqlType&"_title")&"</a>") 
response.Write("</td><td class='td'><a href='/space/index.asp?id="&rs1(""&WebSqlType&"_user")&"' target='_blank'>"&rs1(""&WebSqlType&"_username")&"</a>")
response.Write("</td><td align='left' class='smalltext td graytext'>"&trim(rs1(""&WebSqlType&"_Gdate"))&"</td>")
response.Write("</tr>")
rs1.movenext
loop
rs1.close
end if   
End Function
'----------------------------------------------------------------------------------------------------------------------------
'贴子
Function bbs(a)
set rs1=server.createobject("adodb.recordset")
sql="select top 10 * from "&WebSqlType&"_log where "&WebSqlType&"_club="&id&" order by "&a&" desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr class='td2'><td class='td'><td class='td'><td class='td'><td class='td'>还没有内容</td></td></td></td></tr>"
else 
n=0
do while not rs1.eof
n=n+1
if n mod 2=0 then
mc="td2"
else
mc="td"
end if
response.Write("<tr class='"&mc&"'><td class='td'><img src='images/folder.gif'></td>")
response.Write("<td align='left' class='td'><span class='right2'></span>")
response.Write("<a href='bbs_view.asp?bbsid="&rs1(""&WebSqlType&"_id")&"&id="&id&"&action=bbs'>"&rs1(""&WebSqlType&"_title")&"</a>") 
response.Write("</td><td class='td'><a href='/space/index.asp?id="&rs1(""&WebSqlType&"_user")&"' target='_blank'>"&rs1(""&WebSqlType&"_username")&"</a>")
response.Write("</td><td align='left' class='smalltext td graytext'>"&trim(rs1(""&WebSqlType&"_date"))&"</td>")
response.Write("</tr>")
rs1.movenext
loop
rs1.close
end if   
End Function
'--------------------------------------------------------------------------------------------------------------------------
'相册
Function photo()
set rs1=server.createobject("adodb.recordset")
sql="select top 8 * from "&WebSqlType&"_photo where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td>还没有内容</td></tr>"
else 
n=0
response.write("<tr>")
do while not rs1.eof
n=n+1
if rs1(""&WebSqlType&"_pic")<>"" then
pic=rs1(""&WebSqlType&"_pic")
else
pic="images/s_20070927100055DB0.jpg"
end if
response.write("<td width='20%' align='center' class='td3'>")
response.write("<a href='photo_view.asp?id="&id&"&photoid="&rs1(""&WebSqlType&"_id")&"&action=photo' ><img src='/"&pic&"' border='0' width='100' title='"&rs1(""&WebSqlType&"_title")&"'><br />")
response.write(""&rs1(""&WebSqlType&"_title")&"</a>")
'response.write("<br /><span class='graytext smalltext'>"&rs1(""&WebSqlType&"_htc")&" | "&rs1(""&WebSqlType&"_nhtc")&"</span>")
response.write("</td> ")
if n mod 4=0 then response.write("</tr><tr>")
rs1.movenext
loop
response.write("</tr>")
rs1.close
end if   
End Function
%>