cook.asp

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

<%
if session("admin")="" then
  		response.write"<script>window.open('index.asp','_parent')</script>"
end if
dim fla,fla0,fla1,fla2,fla3,fla4,fla5,fla6
fla=split(session("adminflag"),",")
fla0=fla(0)
fla1=fla(1)
fla2=fla(2)
fla3=fla(3)
fla4=fla(4)
fla5=fla(5)
fla6=fla(6)
fla7=fla(7)
fla8=fla(8)
fla9=fla(9)
fla10=fla(10)
'信息人气共用块
Function htc(a)
sql=""&a&""
set rs1=Server.CreateObject("ADODB.Recordset")                                                    
rs1.open sql,conn,1,1
htc=Rs1.recordcount
rs1.close
response.write(htc)
End Function
'--------------------------------------
Function ADSGM()
 response.Write("<font size=18 color=red>你使用的是免费版,免费试用版暂不提供此功能,请升级为正式版,谢谢!</font><br>")
  response.Write("<font size=14 color=#000>联系人:蒋先生  QQ:526605913  管方网址:http://www.taojin2008.com/</font><br>")
End Function
%>