newtopic.asp

博客程序整站（完整）

<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
	dim rs,sql,ars
	dim orders,topic,isbest
	dim postname,classid,posttime
	dim usersql
	dim blogurl,userurl
	blogurl=trim(Application(cachename&"info")(7))
   	username=ReplaceBadChar(request("user"))
	if trim(request("orders"))=1 then
		orders="iis"
	elseif trim(request("orders"))=2 then
		orders="id"
	elseif trim(request("orders"))=3 then
		orders="commentnum"
	end if
	if trim(request("classid"))="all" then
            classid=""
	else
		if isnumeric(request("boardid"))	then
			classid=" and classid="&cint(trim(request("classid")))&""
		else
			classid=""
		end if
    end if
	if username<>"" then
		usersql=" and username='"&username&"'"
	else
		usersql=""
	end if

	if cint(request("action"))=1 then
	'显示日志
		if issqldate then
			set rs=conn.execute("select top "&cint(request("n"))&" username,topic,id,classid,subjectid,addtime,iis,commentnum from blog where  passcheck<>'false' and datediff(d,addtime,getdate())<"&cint(request("sdate"))&"  "&classid&usersql&"  ORDER BY "&orders&" desc")
		else
			set rs=conn.execute("select top "&cint(request("n"))&" username,topic,id,classid,subjectid,addtime,iis,commentnum from blog where  passcheck<>'false' and datediff('d',addtime,now())<"&cint(request("sdate"))&"  "&classid&usersql&"  ORDER BY "&orders&" desc")
		end if
	elseif cint(request("action"))=2 then
	'显示精华日志
		if issqldate then		
			set rs=conn.execute("select top "&cint(request("n"))&" username,topic,id,classid,subjectid,addtime,iis,commentnum from blog where passcheck<>'false' and isbest='true' and datediff(d,addtime,gatedate())<"&cint(request("sdate"))&"  "&classid&usersql&"  ORDER BY "&orders&" desc")
		else
			set rs=conn.execute("select top "&cint(request("n"))&" username,topic,id,classid,subjectid,addtime,iis,commentnum from blog where passcheck<>'false' and isbest='true' and datediff('d',addtime,now())<"&cint(request("sdate"))&"  "&classid&usersql&"  ORDER BY "&orders&" desc")
		end if    
	end if

	dim i
	i=0
	do while Not RS.Eof and i<cint(request("n"))
    postname=trim(rs(0))
    POSTTIME=rs(5)
	topic=htmlencode(Replace(Replace(Replace(Replace(rs(1),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),""))
	if Application(cachename&"info")(32)="true" then
		userurl="http://"&postname&"."&trim(Application(cachename&"info")(6))
	else
		userurl=blogurl&"blog.asp?name="&postname
	end if
	if strLength(topic)>Cint(request("tlen")) then
        topic=InterceptString(topic,request("tlen")+3)&"..."
    end if
	response.write "document.write('<FONT color=#800000 style=font-family:webdings>4</FONT><span style=""font-size:9pt;line-height: 15pt"">');"
	if request("classname")=1 then
	set ars=conn.execute("select classname from classname where id="&rs(3))
		if not ars.eof then
			response.write "document.write('<a href="&blogurl&"list.asp?classid="&rs(3)&" target=_blank>〖"&htmlencode(ars(0))&"〗</a>');"
		end if
	end if

	if request("subjectname")=1 then
	set ars=conn.execute("select subjectname from subject where id="&rs(4))
		if not ars.eof then
			response.write "document.write('<a href="&blogurl&"blog.asp?name="&rs(0)&"&subjectid="&rs(4)&" target=_blank>["&htmlencode(ars(0))&"]</a>');"
		end if
	end if
    response.write "document.write('<a href="&blogurl&"more.asp?name="&rs(0)&"&id="&rs(2)&" title="&topic&" target=_blank>');"
    response.write "document.write('"&topic&"');"
	response.write "document.write('</a>');"

	select case cint(request("info"))
	case 0
	case 1
	response.write "document.write('