fywen_title.asp

好用的贴吧源代码

<!--#include file="conn.asp"-->
<!--#include file="inc/pwwd.asp"-->
<%
postnu=ReplaceBadWord(request.QueryString("postnu"))
postsize=ReplaceBadWord(request.QueryString("postsize"))
postopen=ReplaceBadWord(request.QueryString("open"))
post=ReplaceBadWord(request.QueryString("post"))
title=ReplaceBadWord(request.QueryString("title"))
postfile=request.QueryString("postfile")
top = request.QueryString("top")
if postopen = "yes" then
postopen = "target=""_blank"""
else
postopen=""				
end if
If title = "yes" Then
titles="..."
Else
titles=""
End If
%>
 document.write('<table border=0 cellspacing="2" cellpadding=0 width="100%">');
<%  
    sql="select top "&postnu&" * from [title] where [posts]='"&post&"' ORDER by [retime] DESC"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1
	do while not rs.eof
	title=rs("title")
	if len(rs("title")) < postsize then
	title = left(rs("title"),postsize)&titles
	end if
  %>
  document.write('<tr><td width="3%"><%=top%></td><td width="82%" ><a <%=postopen%> href="<%=postfile%>Fywen_posts.Asp?Postid=<%=rs("id")%>&searchname=<%=Server.URLEncode(post)%>" class="index_titlesize_1"><%=title%></a></td><td width="15%" class="index_titlesize_2"><%=Right("0"&month(rs("retime")),2)&"-"&right("0"&day(rs("retime")),2)%></td></tr>');
  <%
rs.movenext
loop
if rs.eof and rs.bof then
%>
document.write('<tr><td></td><td><font color="#666666"><div align="center">现在还没有调用内容</div></font></td><td></td></tr>');
<%
end if
rs.close
set rs=nothing
%>
  document.write('</table>');