new.asp

浪人文章系统

<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLUser.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockUser.asp"-->

<%
	dim Shu,Cut,Face,Color,Size,Hits,AsSortHidden,DateHidden

	if Trim(Request.QueryString("Shu"))="" or Trim(Request.QueryString("Shu"))="0" then
		Shu=10
	else
		Shu=cint(Request.QueryString("Shu"))
	end if

	if Trim(Request.QueryString("Cut"))="" or Trim(Request.QueryString("Cut"))="0" then
		Cut=30
	else
		Cut=cint(Request.QueryString("Cut"))
	end if

	if Trim(Request.QueryString("Face"))="" then
		Face="宋体"
	else
		Face=Trim(Request.QueryString("Face"))
	end if

	if Trim(Request.QueryString("Size"))="" then
		Size="12"
	else
		Size=Trim(Request.QueryString("Size"))
	end if

	select case Trim(Request.QueryString("AsSortHidden"))
	case "1"
		AsSortHidden="☆"
	case "2"
		AsSortHidden="★"
	case "3"
		AsSortHidden="○"
	case "4"
		AsSortHidden="●"
	case "5"
		AsSortHidden="◎"
	case "6"
		AsSortHidden="◇"
	case "7"
		AsSortHidden="◆"
	case "8"
		AsSortHidden="□"
	case "9"
		AsSortHidden="■"
	case "10"
		AsSortHidden="△"
	case "11"
		AsSortHidden="▲"
	case "12"
		AsSortHidden="※"
	case else
		AsSortHidden=""
	end select

	dim rsNew,NameColor,AsSortColor,Ar_DateTime
	set rsNew=Server.CreateObject("Adodb.RecordSet")
	
	if Trim(Request.QueryString("Hits"))="1" then
		if Trim(Request.QueryString("AsSortID"))<>"" then
			GuSQL="select top "&Shu&" "&GuTablePrefix&"_AsSort.AS_Name,"&GuTablePrefix&"_Article.Ar_ID,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_NameColor,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_Show,"&GuTablePrefix&"_Article.Ar_UserPublish,"&GuTablePrefix&"_Article.Ar_AllHits,"&GuTablePrefix&"_Article.Ar_DateTime from "&GuTablePrefix&"_AsSort,"&GuTablePrefix&"_Article where "&GuTablePrefix&"_Article.Ar_Show='1' and "&GuTablePrefix&"_Article.Ar_UserPublish='0' and "&GuTablePrefix&"_Article.Ar_AsSortID="&GuTablePrefix&"_AsSort.AS_ID and "&GuTablePrefix&"_Article.Ar_AsSortID="&Trim(Request.QueryString("AsSortID"))&" order by "&GuTablePrefix&"_Article.Ar_AllHits desc"
		elseif Trim(Request.QueryString("SortID"))<>"" then
			GuSQL="select top "&Shu&" "&GuTablePrefix&"_AsSort.AS_Name,"&GuTablePrefix&"_Article.Ar_ID,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_NameColor,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_Show,"&GuTablePrefix&"_Article.Ar_UserPublish,"&GuTablePrefix&"_Article.Ar_AllHits,"&GuTablePrefix&"_Article.Ar_DateTime from "&GuTablePrefix&"_Sort,"&GuTablePrefix&"_AsSort,"&GuTablePrefix&"_Article where "&GuTablePrefix&"_Article.Ar_Show='1' and "&GuTablePrefix&"_Article.Ar_UserPublish='0' and "&GuTablePrefix&"_Article.Ar_SortID="&GuTablePrefix&"_Sort.So_ID and "&GuTablePrefix&"_Article.Ar_AsSortID="&GuTablePrefix&"_AsSort.AS_ID and "&GuTablePrefix&"_Article.Ar_SortID="&Trim(Request.QueryString("SortID"))&" order by "&GuTablePrefix&"_Article.Ar_AllHits desc"
		else
			GuSQL="select top "&Shu&" "&GuTablePrefix&"_AsSort.AS_Name,"&GuTablePrefix&"_Article.Ar_ID,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_NameColor,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_Show,"&GuTablePrefix&"_Article.Ar_UserPublish,"&GuTablePrefix&"_Article.Ar_AllHits,"&GuTablePrefix&"_Article.Ar_DateTime from "&GuTablePrefix&"_AsSort,"&GuTablePrefix&"_Article where "&GuTablePrefix&"_Article.Ar_Show='1' and "&GuTablePrefix&"_Article.Ar_UserPublish='0' and "&GuTablePrefix&"_Article.Ar_AsSortID="&GuTablePrefix&"_AsSort.AS_ID order by "&GuTablePrefix&"_Article.Ar_AllHits desc"
		end if
	else
		if Trim(Request.QueryString("AsSortID"))<>"" then
			GuSQL="select top "&Shu&" "&GuTablePrefix&"_AsSort.AS_Name,"&GuTablePrefix&"_Article.Ar_ID,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_NameColor,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_Show,"&GuTablePrefix&"_Article.Ar_UserPublish,"&GuTablePrefix&"_Article.Ar_AllHits,"&GuTablePrefix&"_Article.Ar_DateTime from "&GuTablePrefix&"_AsSort,"&GuTablePrefix&"_Article where "&GuTablePrefix&"_Article.Ar_Show='1' and "&GuTablePrefix&"_Article.Ar_UserPublish='0' and "&GuTablePrefix&"_Article.Ar_AsSortID="&GuTablePrefix&"_AsSort.AS_ID and "&GuTablePrefix&"_Article.Ar_AsSortID="&Trim(Request.QueryString("AsSortID"))&" order by "&GuTablePrefix&"_Article.Ar_DateTime desc,"&GuTablePrefix&"_Article.Ar_ID desc"
		elseif Trim(Request.QueryString("SortID"))<>"" then
			GuSQL="select top "&Shu&" "&GuTablePrefix&"_AsSort.AS_Name,"&GuTablePrefix&"_Article.Ar_ID,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_NameColor,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_Show,"&GuTablePrefix&"_Article.Ar_UserPublish,"&GuTablePrefix&"_Article.Ar_AllHits,"&GuTablePrefix&"_Article.Ar_DateTime from "&GuTablePrefix&"_Sort,"&GuTablePrefix&"_AsSort,"&GuTablePrefix&"_Article where "&GuTablePrefix&"_Article.Ar_Show='1' and "&GuTablePrefix&"_Article.Ar_UserPublish='0' and "&GuTablePrefix&"_Article.Ar_SortID="&GuTablePrefix&"_Sort.So_ID and "&GuTablePrefix&"_Article.Ar_AsSortID="&GuTablePrefix&"_AsSort.AS_ID and "&GuTablePrefix&"_Article.Ar_SortID="&Trim(Request.QueryString("SortID"))&" order by "&GuTablePrefix&"_Article.Ar_DateTime desc,"&GuTablePrefix&"_Article.Ar_ID desc"
		else
			GuSQL="select top "&Shu&" "&GuTablePrefix&"_AsSort.AS_Name,"&GuTablePrefix&"_Article.Ar_ID,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_NameColor,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_Show,"&GuTablePrefix&"_Article.Ar_UserPublish,"&GuTablePrefix&"_Article.Ar_AllHits,"&GuTablePrefix&"_Article.Ar_DateTime from "&GuTablePrefix&"_AsSort,"&GuTablePrefix&"_Article where "&GuTablePrefix&"_Article.Ar_Show='1' and "&GuTablePrefix&"_Article.Ar_UserPublish='0' and "&GuTablePrefix&"_Article.Ar_AsSortID="&GuTablePrefix&"_AsSort.AS_ID order by "&GuTablePrefix&"_Article.Ar_DateTime desc,"&GuTablePrefix&"_Article.Ar_ID desc"
		end if
	end if

	rsNew.open GuSQL,GuConn,1,1
	if rsNew.eof and rsNew.bof then

		Response.write "document.write('<font style=""font-family:"&Face&";font-size:9pt;color:#000000"">没有找到相关数据</font>');"

	else
		do while not rsNew.eof

		if Trim(Request.QueryString("Color"))="" then
			NameColor=rsNew("Ar_NameColor")
			AsSortColor="Black"
		else
			NameColor=Trim(Request.QueryString("Color"))
			AsSortColor=Trim(Request.QueryString("Color"))
		end if

		if rsNew("Ar_DateTime")=date() then
			Ar_DateTime="<font style=""font-family:宋体;font-size:8pt;color:#FF0000"">"&month(rsNew("Ar_DateTime"))&"-"&day(rsNew("Ar_DateTime"))&"</font>"
		else
			Ar_DateTime="<font style=""font-family:宋体;font-size:8pt;color:"&Color&""">"&month(rsNew("Ar_DateTime"))&"-"&day(rsNew("Ar_DateTime"))&"</font>"
		end if
		
		Response.write "document.write('"

		if Trim(Request.QueryString("AsSortHidden"))="" then
			Response.write "<a href="""&WebSiteURL&"List.asp?So="&rsNew("Ar_SortID")&"&AS="&rsNew("Ar_AsSortID")&""" target=""_blank"" style=""font-family:"&Face&";font-size:"&Size&"px;color:"&AsSortColor&""">["&rsNew("AS_Name")&"]</a>"
		else
			Response.write "<font style=""font-family:"&Face&";font-size:"&Size&"px;color:"&AsSortColor&""">"&AsSortHidden&"</font>"
		end if

		Response.write "<a href="""&WebSiteURL&"Article.asp?ID="&rsNew("Ar_ID")&""" title="""&rsNew("Ar_Name")&""" target=""_blank"" style=""font-family:"&Face&";font-size:"&Size&"px;color:"&NameColor&""">"&GuStringCut(rsNew("Ar_Name"),Cut)&"</a>"

		if Trim(Request.QueryString("DateHidden"))="1" then
			Response.write ""
		else
			Response.write Ar_DateTime
		end if

		Response.write "<br>');"

		rsNew.movenext
		loop

	end if
	rsNew.Close

	set rsNew=Nothing

CloseDatabase
%>