fywen_post.asp

好用的贴吧源代码

<%
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤

'----------------------------------------------------------

'‖=======================================================‖
'‖首页贴吧目录调用
'‖过程名：index_post
'‖参数：NewWindows------是否新窗打开，True为是，False为否
'‖      PostsFont--------分类文字长度 默认8
'‖=======================================================‖
    sub index_post(NewWindows,PostsFont)
	sql="select  * from [post] where [posttitle] = '"&ReplaceBadWord(request.QueryString("searchname"))&"' and [posts] <> '0'" 
  	set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
	If not rs.eof and not rs.bof Then	
	if NewWindows = true then
    WindowsOpen = "target='_blank'"
    else
    WindowsOpen=""				
    end if
 response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center' class='table_5'><tr><td height=""8"" colspan=""6""></td></tr>"
	dim a,b,table
	b=0
    sql1="select  * from [post] where [posttitle] = '"&ReplaceBadWord(request.QueryString("searchname"))&"' and [posts] <> '0' ORDER by [id] DESC" 
  	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='20' class='line_1'><a href=""SearchPost.Asp?searchname="&Server.URLEncode(rs1("posts"))&"""class='index_titlesize_1' "&WindowsOpen&" title='"&rs1("posts")&"'>"&rs1("posts")&"</a></td>"
	if not rs1.eof then 
	rs1.movenext
	end if
	else
	response.write"<td width='16'></td>"
	end if
	Next
	response.Write "<tr><td height=""5"" colspan=""6""></td></tr>"
	loop 
	response.Write "</table>"
	Else
	Response.Write"<br/><br/><table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>"
	Response.Write"<tr><td height='60'><br>您好，您是第一个到达这里的人，<font class='index_titlesize'>"&searchname&"</font>吧尚未建立！<br/><br/>欢迎您在此留言，发表对<font class='index_titlesize'>"&searchname&"</font>的看法，并与今后来到这里的朋友们分享交流。</td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr></table><br/><br/><hr width='100%' align='left' size='1' class='line_1'><br/><br/>"
	If makepost="1" Then
    response.write"<table width='95%' border='0' cellspacing='1' cellpadding='3' align='center' ><form action='Fywen_Post_Ok.asp?Style=no&posts="&server.URLEncode(searchname)&"' method='post'><tr > "
    response.write"<td valign='top' nowap>标　题:</td><td width='90%'><input type='text' name='Title' value='' class='Posts_input'/></td></tr><tr > <td valign='top' nowap>内　容:</td><td width='90%'>" 
    response.write"<textarea name='Body' rows='8' class='Post_input'></textarea></td></tr><tr><td valign='top' nowrap nowap>图片链接:</td><td width='90%'> <input type='text' name='Img' value='http://' class='Posts_input' >"
    response.write" [ <a href='post_img.asp' target='_blank' class='size'>如何贴图</a> ] </td></tr><tr> <td nowap>用户名:</td><td width='90%'>"
    If session("uesrname") = "" Then
    response.write"当前是匿名发表 <a href=""login.asp?url="&server.URLEncode(Post_url)&""" target=""_top"" class=""size"">登录</a> | <a href=""Fywen_Passport.Asp"" target=""_top"" class=""size"">注册</a> "
    Else
    response.write"<input name='uesrname' type='radio' checked='CHECKED'  value='"&session("uesrname")&"'  />"&session("uesrname")&""
    response.write"<input type='radio' name='uesrname'  value='0' />匿名发表"
    End If
    response.write"</td></tr><tr> <td valign='top'></td><td width='93%'> <input type='submit' name='Submit3' value='发表贴子' class='button_1'>&nbsp;&nbsp; <input type='reset' name='Submit3' value='重新填写' class='button_1'></td></tr><tr align='left'> <td valign='top' colspan='2'></td></tr></form></table>"
	Else
	Response.Write"<br/><br/><table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>"
	Response.Write"<tr><td height='55'>对不起，管理员禁止了用户建立贴吧功能<br/><br/><a href='index.asp' class='size'>点击返回首页</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr></table>"
    End If
	End If
	set rs1=nothing
	set rs=nothing
	end sub
'----------------------------------------------------------
'‖=======================================================‖
'‖              ╔━═━═━═━═━═━╗               ‖
'‖              ┃   枫叶在线版权所有   ┃               ‖
'‖              ╚━═━═━═━Fywen ━╝               ‖
'‖=======================================================‖
'‖贴吧搜索调用
'‖过程名：Post_search
'‖参数：NewWindows------是否新窗打开，True为是，False为否
'‖      Postnu--------每页帖子条数
'‖      PostsFont--------标题文字长度 默认30
'‖      Posts--------贴吧名称
'‖=======================================================‖
    Sub Post_search(NewWindows,Postnu,PostsFont,posts)
	Postpage = request.QueryString("Postpage")
    if Postpage ="" then
    Postpage = 1
    else 
    Postpage=Postpage+1
    Postpage=Postpage-1
    end if
	Response.Write"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""table_2"">"
    Response.Write"<tr class=""title_2"">"
    Response.Write"<td width=""7%"" height=""30"" class=""index_titlesize_2""><div align=""center""><strong>点击</strong></div></td>"
    Response.Write"<td width=""7%"" class=""index_titlesize_2""><div align=""center""><strong>回复</strong></div></td>"
    Response.Write"<td width=""56%"" class=""index_titlesize_2""><div align=""center""><strong>标题</strong></div></td>"
    Response.Write"<td width=""11%"" class=""index_titlesize_2""><div align=""center""><strong>作者</strong></div></td>"
	Response.Write"<td width=""10%"" class=""index_titlesize_2""><div align=""center""><strong>日期</strong></div></td>"
    Response.Write"<td width=""9%"" class=""index_titlesize_2""><div align=""center""><strong>最后回复</strong></div></td>"
    Response.Write"</tr><tr><td height=""3"" colspan=""6""></td></tr>"
	if NewWindows=true then
       nen = "target='_blank'"
    else
       nen=""				
    end if
	    If Postpage=1 Then
          sql1="select * from [title] where [posts]='"&posts&"' And [toptitle]=1 And [shenhe]<>1 ORDER by retime DESC"
	      set rs1=server.createobject("adodb.recordset")
	      rs1.open sql1,conn,1
        do while not rs1.eof 
	       title=rs1("title")
           If len(title)>PostsFont Then
	       title=left(title,PostsFont)&"..."
	       End if
		If Rs1("hottitle")=0 then
	      Response.Write"<tr height=""25"">"
	      Response.Write"<td class=""line_1""><div align=""center"">"&rs1("id_count")&"</div></td>"
	      Response.Write"<td class=""line_1""><div align=""center"">"&rs1("post_count")&"</div></td>"
	      Response.Write"<td class=""line_1""><A href=""Fywen_posts.Asp?Postid="&rs1("id")&"&searchname="&Server.URLEncode(Posts)&""" class=""index_titlesize_1"" "&nen&">"&HtmlDeal(title)&"</A> [<font color=""#FF0000"">置顶</font>]</td>"
          Response.Write"<td class=""line_1""><div align=""center"">"
		  call user_ip(rs1("username"),Ipnum)
		  Response.Write"</div></td>"
	      Response.Write"<td class=""line_1""><div align=""center"">"&rs1("retime")&"</div></td>"
	      Response.Write"<td class=""line_1""><div align=""center"">"
		  call user_ip(rs1("post_username"),Ipnum)
		  Response.Write"</div></td></tr>"
		Else
	      Response.Write"<tr height=""25"">"
	      Response.Write"<td class=""line_1""><div align=""center"">"&rs1("id_count")&"</div></td>"
	      Response.Write"<td class=""line_1""><div align=""center"">"&rs1("post_count")&"</div></td>"
	      Response.Write"<td class=""line_1""><A href=""Fywen_posts.Asp?Postid="&rs1("id")&"&searchname="&Server.URLEncode(Posts)&""" class=""index_titlesize_1"" "&nen&">"&title&"</A> [<font color=""#FF0000"">置顶</font>][<font color=""#FF0000"">精品</font>]</td>"
          Response.Write"<td class=""line_1""><div align=""center"">"&rs1("username")&"</div></td>"
	      Response.Write"<td class=""line_1""><div align=""center"">"&rs1("retime")&"</div></td>"
	      Response.Write"<td class=""line_1""><div align=""center"">"
		  call user_ip(rs1("post_username"),Ipnum)
		  Response.Write"</div></td></tr>"
		End If
	   rs1.movenext
       loop
	   End If
	    sql="select * from [title] where [posts]='"&posts&"' And [shenhe]<>1"
		set rs=server.createobject("adodb.recordset")
		rs.open sql,conn,1
	if rs.Eof And rs.bof then 
	    response.Write "<tr><td colspan=""6""><div align=""center"">现在还没有帖子</div></td></tr></table>"
	Else
        sql="select * from [title] where [posts]='"&posts&"' And [toptitle]<>1 And [shenhe]<>1 ORDER by retime DESC"
	    set rs=server.createobject("adodb.recordset")
	    rs.cursortype=adopenstatic
        rs.pagesize = Postnu
	    rs.open sql,conn,1
	if rs.Eof then 
	    response.Write "<tr><td colspan=""6""></td></tr></table>"
	else
		rs.absolutepage = cint(Postpage)
    do while not rs.eof and a < rs.pagesize
    a=a+1
	title=rs("title")
	if len(title)>PostsFont then
	title=left(title,PostsFont)&"..."
	end if
	If Rs("hottitle")=1 then
	   Response.Write"<tr height=""25"">"
	   Response.Write"<td class=""line_1""><div align=""center"">"&rs("id_count")&"</div></td>"
	   Response.Write"<td class=""line_1""><div align=""center"">"&rs("post_count")&"</div></td>"
	   Response.Write"<td class=""line_1""><A href=""Fywen_posts.Asp?Postid="&rs("id")&"&searchname="&Server.URLEncode(Posts)&""" class=""index_titlesize_1"" "&nen&">"&title&"</A> [<font color=""#FF0000"">精品</font>]</td>"
       Response.Write"<td class=""line_1""><div align=""center"">"
	   call user_ip(rs("username"),Ipnum)
	   Response.Write"</div></td>"
	   Response.Write"<td class=""line_1""><div align=""center"">"&rs("retime")&"</div></td>"
       Response.Write"<td class=""line_1""><div align=""center"">"
	   call user_ip(rs("post_username"),Ipnum)
	   Response.Write"</div></td></tr>"
	Else
       Response.Write"<tr height=""25"">"
	   Response.Write"<td class=""line_1""><div align=""center"">"&rs("id_count")&"</div></td>"
	   Response.Write"<td class=""line_1""><div align=""center"">"&rs("post_count")&"</div></td>"
	   Response.Write"<td class=""line_1""><A href=""Fywen_posts.Asp?Postid="&rs("id")&"&searchname="&Server.URLEncode(Posts)&""" class=""index_titlesize_1"" "&nen&">"&title&"</A></td>"
       Response.Write"<td class=""line_1""><div align=""center"">"
	   call user_ip(rs("username"),Ipnum)
	   Response.Write"</div></td>"
	   Response.Write"<td class=""line_1""><div align=""center"">"&rs("retime")&"</div></td>"
       Response.Write"<td class=""line_1""><div align=""center"">"
	   call user_ip(rs("post_username"),Ipnum)
	   Response.Write"</div></td></tr>"
    End If
	rs.movenext
	If a=Postnu Then
	Exit Do
	End If
loop
if rs.eof and rs.bof then
      response.Write"<tr><td height=""16"" colspan=""6""></td></tr>"
else
response.Write"<tr><td colspan='6' height=""20"">"
Response.Write "<div class='news_fywen2'>&nbsp;&nbsp;&nbsp;&nbsp;"&Postnu&"条/页 当前页次："&Postpage&"/"&rs.pagecount&"&nbsp;"
if Postpage <> 1 then
Response.Write "<!--<img src='images/first.gif' alt='首页' border='0' />--><a href='SearchPost.Asp?Postpage=1&searchname="&Server.URLEncode(Posts)&"'><font color='#000000'>首页</font></a>"
else
Response.Write "<!--<img src='images/first.gif' alt='首页' border='0' />-->首页"
end if
response.Write"&nbsp;"
if Postpage > 1 then
Response.Write "<!--<img src='images/sy.gif' alt='上一页' border='0' />--><a href='SearchPost.Asp?Postpage="&Postpage-1&"&searchname="&Server.URLEncode(Posts)&"'><font color='#000000'>上一页</font></a>"
else
Response.Write "<!--<img src='images/sy.gif' alt='上一页' border='0' />-->上一页"
end if
response.Write"&nbsp;"
if Postpage <= rs.pagecount-1 then
Response.Write "<a href='SearchPost.Asp?Postpage="&Postpage+1&"&searchname="&Server.URLEncode(Posts)&"'><font color='#000000'>下一页</font></a><!--<img src='images/xw.gif' alt='下一页' border='0' />-->"
else
Response.Write "下一页<!--<img src='images/xw.gif' alt='下一页' border='0' />-->"
end if
response.Write"&nbsp;"
if Postpage <= rs.pagecount-1 then
Response.Write "<a href='SearchPost.Asp?Postpage="&rs.pagecount&"&searchname="&Server.URLEncode(Posts)&"'><font color='#000000'>尾页</font></a><!--<img src='images/last.gif' alt='尾页' border='0' />-->"
else
Response.Write "尾页<!--<img src='images/last.gif' alt='尾页' border='0' />-->"
end if
response.Write"<td></tr></table>"
end if
end if
end if
Set Rs1 = Nothing
end sub
%>