index_inc.asp

好用的贴吧源代码

	sql="select * from [user] where [username]='"&session("uesrname")&"'"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	Response.Write Rs("Firstdate")
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖会员注册时间调用
'‖过程名：Vip_logintime
'‖参数：  （无）
'============================================
    sub Vip_logintime()
	sql="select * from [user] where [username]='"&session("uesrname")&"'"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	Response.Write Rs("zhucedate")
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖首页会员发布帖子条数调用
'‖过程名：Vip_post
'‖参数：  （无）
'============================================
    sub Vip_post()
	sql="select * from [title] where [username]='"&session("uesrname")&"'"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
	response.write rs.recordcount
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖首页会员回复帖子条数调用
'‖过程名：Vip_Repost
'‖参数：  （无）
'============================================
    sub Vip_Repost()
	sql="select * from [retitle] where [username]='"&session("uesrname")&"'"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	response.write rs.recordcount
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖首页文字链接调用
'‖过程名：index_link
'‖参数：  NewWindows------是否新窗打开，True为是，False为否
'‖        linknum---------链接字体长度 默认8
'=============================================
    sub index_link(NewWindows,linknum)
	if NewWindows = true then
    WindowsOpen = "target='_blank'"
    else
    WindowsOpen=""				
    end if
 response.write"<table width='96%' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td height='5' colspan='5'></td></tr>"
	dim a,b,table
	b=0
    sql1="select * from [link] where [linkimg]=0 or [xxx]=1 ORDER by [id] ASC" '  
  	set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,1,1	
    do while not rs1.bof and not rs1.eof
	response.Write "<tr>"
	For a = 1 to 6
	if not rs1.eof then
	linkname=rs1("linkname")
	if len(linkname)>linknum then
	linkname=left(linkname,linknum)
	end if
	response.write"<td width='16%' height='15'><a href='"&rs1("linkurl")&"'class='index_titlesize_1' "&WindowsOpen&">"&linkname&"</a></td>"
	if not rs1.eof then 
	rs1.movenext
	end if
	else
	response.write"<td width='16'></td>"
	end if
	Next
	response.Write "</tr>"
	loop 
	response.Write "</table>"
	set rs1=nothing
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖首页文字链接调用
'‖过程名：index_linklogo
'‖参数：  NewWindows------是否新窗打开，True为是，False为否
'============================================
    sub index_linklogo(NewWindows)
	if NewWindows = true then
    WindowsOpen = "target='_blank'"
    else
    WindowsOpen=""				
    end if
 response.write"<table width='96%' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td height='5' colspan='6'></td></tr>"
	dim a,b,table
	b=0
    sql1="select * from [link] where [linkimg]=1 or [xxx]=1 ORDER by [id] ASC" '  
  	set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,1,1	
    do while not rs1.bof and not rs1.eof
	response.Write "<tr>"
	For a = 1 to 6
	if not rs1.eof then
	response.write"<td width='16%' height='35'><a href='"&rs1("linkurl")&"'class='index_titlesize_1' "&WindowsOpen&" title='"&rs1("linkname")&"'><img src='"&rs1("linklogo")&"' height='31' width='88' border='0'></a></td>"
	if not rs1.eof then 
	rs1.movenext
	end if
	else
	response.write"<td width='16'></td>"
	end if
	Next
	response.Write "</tr>"
	loop 
	response.Write "</table>"
	set rs1=nothing
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖贴吧置顶帖子个数调用
'‖过程名：searchname_number
'‖参数：  posts------要统计的帖吧名称
'============================================
    sub searchname_number(posts)
	sql="select * from [title] where [posts] = '"&posts&"' And [toptitle]=1 And [shenhe]<>1"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	response.write rs.recordcount
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
' ‖ 贴吧精华帖子个数调用
' ‖ 过程名：searchnames_number
' ‖ 参数：  posts------要统计的帖吧名称
'============================================
    sub searchnames_number(posts)
	sql="select * from [title] where [posts] ='"&posts&"' And [hottitle]=1 And [shenhe]<>1"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	response.write rs.recordcount
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================ 
'‖贴吧主题帖子调用
'‖过程名：searchname_title
'‖参数：  posts------统计的帖吧名称
'============================================
    sub searchname_title(posts)
	sql="select * from [title] where [posts] ='"&posts&"' And [shenhe]<>1"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	response.write rs.recordcount
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================ 
'‖贴吧回复主题帖子调用
'‖过程名：searchname_retitle
'‖参数：  posts------要统计的帖吧名称
'============================================
    sub searchname_retitle(posts)
	sql="select * from [retitle] where [posts] ='"&posts&"'"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	response.write rs.recordcount
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================ 
'‖贴吧回复主题帖子调用
'‖过程名：searchnameid_retitle
'‖参数：  posts------要统计的帖吧名称
'============================================
    sub searchnameid_retitle(postsid)
	sql="select * from [retitle] where [postid] ="&postsid
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	response.write rs.recordcount
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================ 
'‖贴吧吧主调用
'‖过程名：searchnameid_retitle
'‖参数：  post------帖吧名称
'============================================
    sub Postuser_post(post)
	sql="select * from [user] where [postadmin] ='"&post&"'"
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1	
	do while not rs.bof and not rs.eof
	response.write "&nbsp;"&rs("username")
	rs.movenext
	loop
	end sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================ 
'‖IP显示位数函数
'‖过程名：user_ip
'‖参数：  IP真实IP ，NUM 显示位数
'============================================
Sub user_ip(ip,num)
	If instr(ip,".")<>0 Then
    u_ip=split(ip,".") 
	for i=0 to ubound(u_ip)
	I_num=I_num+1
	next 
	If I_num >= 4 then
	Select Case num
	Case "1"
	response.Write(u_ip(0)&".*.*.*")
	Case "2"
	response.Write(u_ip(0)&"."&u_ip(1)&".*.*")
	Case "3"
	response.Write(u_ip(0)&"."&u_ip(1)&"."&u_ip(2)&".*")
	Case "4"
    response.Write(ip)
    End Select
	else
    response.Write(ip)
	End If
	else
    response.Write(ip)
	end if
End Sub
'------------------------------------------------------------
%>