YaCloud/Yact-Backup
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
0e354d2cc2f8fc46c4aebe1f934b8c9c4a395107
Yact-Backup/www/Search.asp
T
gaohengyi 0e354d2cc2 clean git
2025-07-13 12:02:30 +08:00

1099 lines
44 KiB
Plaintext
Raw Blame History

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<%session.CodePage="936"%>
<!--#include file="FS_Inc/Const.asp" -->
<!--#include file="FS_InterFace/MF_Function.asp" -->
<!--#include file="FS_Inc/Function.asp" -->
<!--#include file="FS_Inc/Func_Page.asp" -->
<!--#include file="FS_InterFace/MS_Public.asp" -->
<!--#include file="FS_InterFace/DS_Public.asp" -->
<!--#include file="FS_InterFace/CLS_Foosun.asp" -->
<%
Server.ScriptTimeOut=999
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
response.Charset = "gb2312"
Dim starttime,endtime
starttime=timer()
function morestr(str,length)
if len(str)>length then
morestr = left(str,length)&"<strong>...</strong>"
else
morestr = str
end if
end function
Dim Conn,Old_News_Conn,User_Conn,Search_Sql,Search_RS,strShowErr,Cookie_Domain,Cookie_Copyright,Cookie_eMail,Cookie_Site_Name
Dim Server_Name,Server_V1,Server_V2,Server_V3
Dim TmpStr,TmpArr,SqlDateType,FileSize,FileEditDate,TmpStr1,TmpStr2
Dim Keyword,s_type,SubSys,ClassId,s_date,e_date ,GetType,AreaID,PubType
Dim ChildDomain,ClassPath
Dim LocalUrl,RDSqlDateType
Dim MsMinPric,MsMaxPric
Dim StringType
IF G_IS_SQL_DB = 1 Then
StringType = "SubString"
Else
StringType = "Mid"
End If
GetType = Server.HtmlEncode(request.QueryString("GetType"))''内部 '20140520安全补丁
if GetType = "" then response.Write("请指定必要的参数.") : response.End()
''日期
If G_IS_SQL_DB = 1 Then
SqlDateType = "'"
else
SqlDateType = "#"
end If
Function Get_MF_Config()
if request.Cookies("FoosunSearchCookie")("Cookie_Domain") = Get_MF_Domain() then exit Function
set Search_RS=Conn.execute("select top 1 MF_Domain,MF_Site_Name,MF_eMail,MF_Copyright_Info from FS_MF_Config")
Response.Cookies("FoosunSearchCookie")("Cookie_Domain")=Search_RS("MF_Domain")
Response.Cookies("FoosunSearchCookie")("Cookie_Copyright")=Search_RS("MF_Copyright_Info")
Response.Cookies("FoosunSearchCookie")("Cookie_eMail")=Search_RS("MF_eMail")
Response.Cookies("FoosunSearchCookie")("Cookie_Site_Name")=Search_RS("MF_Site_Name")
Response.Cookies("FoosunSearchCookie").Expires=Date()+1
Search_RS.close
End Function
Function get_NewsLink(f_NewsLinkRecordSet)
Dim f_NewsLink
Set f_NewsLink = New CLS_FoosunLink
get_NewsLink = f_NewsLink.NewsLink(f_NewsLinkRecordSet)
Set f_NewsLink = Nothing
End Function
'得到信息链接地址
Function GetTheInfoLink(InfoID,InfoType)
Dim LinkObj
Select Case InfoType
Case "DS"
Set LinkObj = New cls_DS
GetTheInfoLink = LinkObj.get_DownLink(InfoID)
Set LinkObj = Nothing
Case "MS"
Set LinkObj = New cls_MS
GetTheInfoLink = LinkObj.get_productsLink(InfoID)
Set LinkObj = Nothing
End Select
End Function
''得到相关表的值。
Function Get_OtherTable_Value(This_Fun_Sql)
Dim This_Fun_Rs
if instr(This_Fun_Sql," FS_ME_")>0 then
set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
else
set This_Fun_Rs = Conn.execute(This_Fun_Sql)
end if
if instr(lcase(This_Fun_Sql)," in ")>0 then
do while not This_Fun_Rs.eof
Get_OtherTable_Value = Get_OtherTable_Value & This_Fun_Rs(0) &"&nbsp;"
This_Fun_Rs.movenext
loop
else
if not This_Fun_Rs.eof then
Get_OtherTable_Value = This_Fun_Rs(0)
else
Get_OtherTable_Value = ""
end if
end if
set This_Fun_Rs=nothing
End Function
''++++++++++++++++++++++++++++++++++++
'检查本地文件 返回大小和修改日期
Function CheckFile(PhFileName)
dim fsv1,fsv2
fsv1="":fsv2=""
On Error Resume Next
if isnull(PhFileName) or PhFileName="" then CheckFile="|":exit Function
Dim Fso,MyFile
Set Fso = CreateObject(G_FS_FSO)
If Left(LCase(PhFileName),7) = "http://" Then
CheckFile="|":exit Function
Else
IF Left(PhFileName,1) <> "/" Then
CheckFile="|":exit Function
End If
End If
If Fso.FileExists(server.MapPath(PhFileName)) Then
set MyFile = Fso.GetFile(server.MapPath(PhFileName))
fsv1 = formatnumber(MyFile.Size/1024,2,-1)&"K"
fsv2 = MyFile.DateLastModified
set MyFile = nothing
End if
if Err<>0 then CheckFile="|":exit Function
Set Fso = Nothing
CheckFile = fsv1&"|"&fsv2
End Function
MF_Default_Conn
MF_User_Conn
MF_Old_News_Conn
Get_MF_Config
SubSys_Cookies:MFConfig_Cookies:NSConfig_Cookies:DSConfig_Cookies
Cookie_Domain = request.Cookies("FoosunSearchCookie")("Cookie_Domain")
Cookie_Copyright = request.Cookies("FoosunSearchCookie")("Cookie_Copyright")
Cookie_eMail = request.Cookies("FoosunSearchCookie")("Cookie_eMail")
Cookie_Site_Name = request.Cookies("FoosunSearchCookie")("Cookie_Site_Name")
if Cookie_Domain="" then
Cookie_Domain = "http://localhost"
else
if left(lcase(Cookie_Domain),len("http://"))<>"http://" then Cookie_Domain = "http://"&Cookie_Domain
if right(Cookie_Domain,1)="/" then Cookie_Domain = mid(Cookie_Domain,1,len(Cookie_Domain) - 1)
end if
''防盗连
Server_Name = Len(Request.ServerVariables("SERVER_NAME"))
Server_V1 = Left(Replace(Cstr(Request.ServerVariables("HTTP_REFERER")),"http://",""),Server_Name)
'20201225增加https支持
Server_V3 = Left(Replace(Cstr(Request.ServerVariables("HTTP_REFERER")),"https://",""),Server_Name)
Server_V2 = Left(Cstr(Request.ServerVariables("SERVER_NAME")),Server_Name)
if Server_V1 <> Server_V2 and Server_V2 <> Server_V3 and Server_V1 <> "" and Server_V2 <> "" then
response.Write("没有权限，请访问<a href="""&Cookie_Domain&""">"&Cookie_Domain&"</a>.")
response.End()
end if
''+++++++++++++++++++++++++++++++++++++++++++
select case GetType
case "LoginHtml"
%>
<%
If session("FS_UserName") = "" Then
Response.Write("<A href="&Cookie_Domain&"/>返回首页</A>")
Else
Response.Write("<A href="&Cookie_Domain&"/>返回首页</A>")
'Response.Write("<a href="&Cookie_Domain&"/User/Main.asp>["&session("FS_UserName")&"]欢迎您来到会员中心")
End if
%>
<%case "FootHTML"%>
&nbsp;<BR>
<FONT size=-1><%=Cookie_Copyright%></FONT><BR><BR>
<%case "CopyrightHTML"
TmpStr = "<TABLE cellSpacing=0 cellPadding=2 width=""100%"" border=0>"&vbNewLine _
&"<TR>"&vbNewLine _
&"<TD align=right height=25></TD>"&vbNewLine _
&"</TR>"&vbNewLine _
&"</TABLE>"&vbNewLine _
&"</CENTER>"&vbNewLine
response.Write(TmpStr)
case "MainInfo"
SubSys = Ucase(NoHtmlHackInput(Server.HtmlEncode(NoSqlHack(request.QueryString("SubSys"))))) '20140520安全补丁
Keyword = Server.HtmlEncode(NoSqlHack(request.QueryString("Keyword"))) '20140520安全补丁
s_type = NoHtmlHackInput(Server.HtmlEncode(NoSqlHack(request.QueryString("s_type")))) '20140520安全补丁
ClassId = NoHtmlHackInput(Server.HtmlEncode(NoSqlHack(request.QueryString("ClassId")))) '20140520安全补丁
AreaID = NoHtmlHackInput(Server.HtmlEncode(NoSqlHack(request.QueryString("s_area")))) '20140520安全补丁
PubType = NoHtmlHackInput(Server.HtmlEncode(NoSqlHack(request.QueryString("PubType")))) '20140520安全补丁
s_date = Server.HtmlEncode(NoSqlHack(trim(request.QueryString("s_date")))) '20140520安全补丁
e_date = Server.HtmlEncode(NoSqlHack(trim(request.QueryString("e_date")))) '20140520安全补丁
If e_date <> "" And Len(e_date) <= 10 Then
e_date = e_date & " " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now())
End If
If SubSys <> "SD" And SubSys <> "HS" Then
If Keyword = "" then
strShowErr=strShowErr&"<li>关键字不能为空</li>"&vbnewLine
End If
End If
if s_date<>"" then if not isdate(s_date) then strShowErr=strShowErr&"<li>开始日期"&s_date&"非法</li>"&vbnewLine
if e_date<>"" then if not isdate(e_date) then strShowErr=strShowErr&"<li>结束日期"&e_date&"非法</li>"&vbnewLine
if strShowErr<>"" then strShowErr=strShowErr&"<li><a href="""&Cookie_Domain&""">"&Cookie_Domain&"</a>.</li>": response.Write(strShowErr):response.End()
if SubSys="" then SubSys = "NS"
'===========================================
''sql的处理
select case SubSys
case "NS"
TmpStr = "新闻"
select case s_type
case "title"
s_type="NewsTitle"
case "stitle"
s_type = "CurtTitle"
case "content"
s_type = "Content"
case "NaviContent"
s_type ="NewsNaviContent"
case "author","source"
s_type = s_type
case "keyword"
s_type = "Keywords"
case else
s_type = "NewsTitle,CurtTitle,NewsNaviContent,Content,author,source,Keywords"
end select
Search_Sql = "select NewsID,NewsTitle,CurtTitle,NewsNaviContent,Content,A.addtime,PopId,ClassName,A.IsURL,isPicNews,NewsSmallPicFile,NewsPicFile," _
&"Source,Author,Hits,TodayNewsPic,ClassEName,SaveNewsPath,FileName,A.FileExtName,B.[Domain],B.SavePath,A.URLAddress from FS_NS_News A,FS_NS_NewsClass B where A.ClassID=B.ClassID" _
&" and isLock=0 and isRecyle=0 and isdraft=0 "
if Keyword<>"" then
if instr(s_type,",")=0 then
Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"")
else
TmpArr = split(s_type,",")
TmpStr2 = ""
for each TmpStr1 in TmpArr
TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&""
next
if left(TmpStr2,len(" or "))=" or " then
TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2 & "order by A.addtime desc"
end if
end if
end if
if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","") & "order by addtime desc"
if s_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime>="&SqlDateType&s_date&SqlDateType & "order by addtime desc"
if e_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime<="&SqlDateType&e_date&SqlDateType & "order by addtime desc"
case "WS"
TmpStr = "留言本"
select case s_type
case "title"
s_type="Topic"
case "content"
s_type = "Body"
case "author"
s_type = "User"
case else
s_type = "Topic,Body,User"
end select
Search_Sql = "select A.ID,ClassName,ParentID,User,Topic,Body,A.AddDate,IsTop,State,Style,IsAdmin,Answer,Hit,LastUpdateDate,LastUpdateUser," _
&"Face,IP,Isonline,Vistor,isUpoad " _
&" from FS_WS_BBS A,FS_WS_Class B where A.ClassID=B.ClassID "
if Keyword<>"" then
if instr(s_type,",")=0 then
Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"")
else
TmpArr = split(s_type,",")
TmpStr2 = ""
for each TmpStr1 in TmpArr
TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&""
next
if left(TmpStr2,len(" or "))=" or " then
TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
end if
end if
end if
if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","")
if s_date<>"" then Search_Sql = and_where(Search_Sql) & " A.AddDate>="&SqlDateType&s_date&SqlDateType
if e_date<>"" then Search_Sql = and_where(Search_Sql) & " A.AddDate<="&SqlDateType&e_date&SqlDateType
case "DS"
TmpStr = "下载"
select case s_type
case "title"
s_type="Name"
case "content"
s_type = "Description"
case else
s_type = "Name,Description"
end select
Dim DataStr
IF G_IS_SQL_DB = 1 Then
DataStr = "datediff(d,A.AddTime,"&date()&")"
Else
DataStr = "datediff('d',A.AddTime,'"&date()&"')"
End If
Search_Sql = "select DownLoadID,ClassName,Name,Description,A.AddTime,ClickNum,ClassEName,A.SavePath,A.FileExtName,A.FileName," _
&"FileSize,RecTF,Types,Hits,ConsumeNum,A.Pic from FS_DS_List A,FS_DS_Class B where A.ClassID=B.ClassID" _
&" and AuditTF=1 and (OverDue=0 or (OverDue>0 and " & DataStr & " <= OverDue)) "
if Keyword<>"" then
if instr(s_type,",")=0 then
Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"")
else
TmpArr = split(s_type,",")
TmpStr2 = ""
for each TmpStr1 in TmpArr
TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&""
next
if left(TmpStr2,len(" or "))=" or " then
TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
end if
end if
end if
if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","")
if s_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime>="&SqlDateType&s_date&SqlDateType
if e_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime<="&SqlDateType&e_date&SqlDateType
case "MS"
TmpStr = "商城"
select case s_type
case "title"
s_type="ProductTitle"
case "content"
s_type = "ProductContent"
case "keyword"
s_type = "Keywords"
case else
s_type = "ProductTitle,ProductContent,Keywords"
end select
'-----
MsMinPric = Trim(NoHtmlHackInput(NoSqlHack(request.QueryString("MinPric"))))
MsMaxPric = Trim(NoHtmlHackInput(NoSqlHack(request.QueryString("MaxPric"))))
'------
'---2007.9.25 Edit by arjun
'双表查询，关键字段ID,如果不指定表，将造成查询时出错
Search_Sql = "select A.ID as ID,ProductTitle,ClassCName,Stockpile,StockpileWarn,OldPrice,NewPrice,IsWholesale,ProductContent,MakeFactory," _
&"ProductsAddress,Click,smallPic,BigPic,StyleFlagBit,SaleStyle,A.AddTime,Discount,DiscountStartDate,DiscountEndDate," _
&" ClassEName,A.SavePath,A.FileExtName,A.FileName from FS_MS_Products A,FS_MS_ProductsClass B where A.ClassID=B.ClassID "
if Keyword<>"" then
if instr(s_type,",")=0 then
Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"")
else
TmpArr = split(s_type,",")
TmpStr2 = ""
for each TmpStr1 in TmpArr
TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&""
next
if left(TmpStr2,len(" or "))=" or " then
TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
end if
end if
end if
if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","")
if s_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime>="&SqlDateType&s_date&SqlDateType
if e_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime<="&SqlDateType&e_date&SqlDateType
If MsMinPric <> "" And IsNumeric(MsMinPric) Then Search_Sql = and_where(Search_Sql) & " A.NewPrice>="&MsMinPric
If MsMaxPric <> "" And IsNumeric(MsMaxPric) Then Search_Sql = and_where(Search_Sql) & " A.NewPrice<="&MsMaxPric
'Search_Sql=""
case "RD"
If G_IS_SQL_Old_News_DB = 1 Then
RDSqlDateType = "'"
else
RDSqlDateType = "#"
end if
TmpStr = "总站归档搜索"
select case s_type
case "title"
s_type="NewsTitle"
case "stitle"
s_type = "CurtTitle"
case "content"
s_type = "Content"
case "NaviContent"
s_type ="NewsNaviContent"
case "author","source"
s_type = s_type
case "keyword"
s_type = "Keywords"
case else
s_type = "NewsTitle,CurtTitle,NewsNaviContent,Content,author,source,Keywords"
end select
Search_Sql = "select ID,NewsID,NewsTitle,CurtTitle,NewsNaviContent,Content,addtime,PopId,IsURL,isPicNews,NewsSmallPicFile,NewsPicFile," _
&"Source,Author,Hits,TodayNewsPic,SaveNewsPath,FileName,FileExtName,FileTime from FS_Old_News " _
&" where isLock=0 and isRecyle=0 and isdraft=0 "
if Keyword<>"" then
if instr(s_type,",")=0 then
Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"")
else
TmpArr = split(s_type,",")
TmpStr2 = ""
for each TmpStr1 in TmpArr
TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&""
next
if left(TmpStr2,len(" or "))=" or " then
TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
end if
end if
end If
if s_date<>"" then Search_Sql = and_where(Search_Sql) & " addtime>="&RDSqlDateType&s_date&RDSqlDateType
if e_date<>"" then Search_Sql = and_where(Search_Sql) & " addtime<="&RDSqlDateType&e_date&RDSqlDateType
case "SD"
Dim ValidTime
TmpStr = "供求"
if G_IS_SQL_DB=1 then
ValidTime = NoSqlHack(" and dateadd(d,ValidTime,EditTime)>=getdate() ")
else
ValidTime = NoSqlHack(" and dateadd('d',ValidTime,EditTime)>=date() ")
end If
Search_Sql = "select A.ID,A.UserNumber,PubTitle,PubType,PubContent,Keyword,CompType,PubNumber,PubPrice,PubPack,Pubgui,PubPic_1,PubPic_2,PubPic_3," _
&"A.Addtime,EditTime,ValidTime,PubAddress,otherLink,hits,GQ_ClassName,C.ClassName,AreaID,A.ClassID from FS_SD_News A,FS_SD_Class B,FS_SD_Address C " _
&"where A.ClassID=B.ID and A.AreaID = C.ID and A.isLock=0 and A.HideTF=0 and isPass=1 "&ValidTime
'---ken
If Keyword <> "" Then Search_Sql = and_where(Search_Sql) & " A.PubTitle Like '%"&Keyword&"%' "
'---end
if ClassID<>"" then Search_Sql = and_where(Search_Sql) & " A.ClassID="&ClassId&" "
if AreaID<>"" then Search_Sql = and_where(Search_Sql) & " A.AreaID="&AreaID&" "
if PubType<>"" then if cint(PubType)>0 then Search_Sql = and_where(Search_Sql) & " A.PubType="&cint(PubType)-1&" "
Search_Sql = Search_Sql & " order by C.ClassLevel desc,B.ClassOrder desc,A.hits desc,A.ID desc"
'----------2007-01-18 Edit By Ken For Fs_House Search
Case "HS"
Dim HSType,QH_Type,THKWD_Type,THUse_Type,THInfo_Type,THHouse_Type,THZX_Type
Dim SHKey_Type,SHUse_Type,SHHouse_Type,SHZX_Type
Dim KWDsType,HSsql
HSType = NoHtmlHackInput(NoSqlHack(request.QueryString("HSType")))
'If HSType = "" Then : Response.Write "参数传递错误" : Response.End : End If
'---- 匹配信息发布时间范围
If s_date <> "" And e_date <> "" Then
If G_IS_SQL_DB = 1 Then
HSsql = HSsql & " And PubDate >= '" & s_date & "' And PubDate <= '" & e_date & "'"
Else
HSsql = HSsql & " And PubDate >= #" & s_date & "# And PubDate <= #" & e_date & "#"
End If
Else
HSsql = HSsql
End If
If HSType = "Quotation" Then
TmpStr = "楼盘信息搜索"
KWDsType = NoHtmlHackInput(NoSqlHack(request.QueryString("QHKey_Type")))
QH_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("QH_Type")))
Select Case KWDsType '匹配搜索关键字
Case "QHTitle"
If Keyword <> "" Then
HSsql = HSsql & " And HouseName Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "QHAddress"
If Keyword <> "" Then
HSsql = HSsql & " And Position Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "QHSell"
If Keyword <> "" Then
HSsql = HSsql & " And PreSaleRange Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "QHSellNum"
If Keyword <> "" Then
HSsql = HSsql & " And PreSaleNumber Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "QHInfo"
If Keyword <> "" Then
HSsql = HSsql & " And introduction Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "QHTelNum"
If Keyword <> "" Then
HSsql = HSsql & " And Tel Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case Else
HSsql = HSsql
End Select
'---- 匹配房屋状况
If QH_Type <> "" Then
QH_Type = Cint(QH_Type)
HSsql = HSsql & " And Status = " & QH_Type
Else
HSsql = HSsql
End If
'---匹配查询sql语句
Search_Sql = "Select ID,HouseName,Position,Direction,Class,OpenDate,PreSaleNumber,IssueDate,PreSaleRange,Status,Price,PubDate,Tel,Click,UserNumber,introduction From FS_HS_Quotation Where isRecyle = 0 And Audited = 1" & NoSqlHack(HSsql) & " Order By ID Desc,PubDate Desc"
ElseIf HSType = "Tenancy" Then
TmpStr = "租赁信息搜索"
THKWD_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("THKey_Type")))
THUse_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("THUse_Type")))
THInfo_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("THInfo_Type")))
THHouse_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("THHouse_Type")))
THZX_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("THZX_Type")))
'-----匹配查询关键字
Select Case THKWD_Type
Case "THTitle"
If Keyword <> "" Then
HSsql = HSsql & " And Position Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "THAdd"
If Keyword <> "" Then
HSsql = HSsql & " And CityArea Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "THAouth"
If Keyword <> "" Then
HSsql = HSsql & " And LinkMan Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "THInfo"
If Keyword <> "" Then
HSsql = HSsql & " And Remark Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case Else
HSsql = HSsql
End Select
'---匹配房屋用途
If THUse_Type <> "" Then
THUse_Type = Cint(THUse_Type)
HSsql = HSsql & " And UseFor = " & THUse_Type
Else
HSsql = HSsql
End If
'---匹配信息类型
If THInfo_Type <> "" Then
THInfo_Type = Cint(THInfo_Type)
HSsql = HSsql & " And Class = " & THInfo_Type
Else
HSsql = HSsql
End If
'---匹配户型
If THHouse_Type <> "" Then
If THHouse_Type = "Other" Then
HSsql = HSsql & " And " & StringType & "(HouseStyle,1,1) > 3 And " & StringType & "(HouseStyle,3,1) > 2"
Else
HSsql = HSsql & " And " & StringType & "(HouseStyle,1,1) = '" & Split(THHouse_Type,",")(0) & "' And " & StringType & "(HouseStyle,3,1) = '" & Split(THHouse_Type,",")(1) & "'"
End If
Else
HSsql = HSsql
End If
'---匹配装修类型
If THZX_Type <> "" Then
THZX_Type = Cint(THZX_Type)
HSsql = HSsql & " And Decoration = " & THZX_Type
Else
HSsql = HSsql
End If
'---匹配查询sql语句
Search_Sql = "Select TID,UseFor,Class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate From FS_HS_Tenancy Where Audited = 1 And isRecyle = 0" & NoSqlHack(HSsql) & " Order By TID Desc,PubDate Desc"
Else
TmpStr = "二手房信息搜索"
SHKey_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("SHKey_Type")))
SHUse_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("SHUse_Type")))
SHHouse_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("SHHouse_Type")))
SHZX_Type = NoHtmlHackInput(NoSqlHack(request.QueryString("SHZX_Type")))
'---匹配搜索关键字
Select Case SHKey_Type
Case "SHNum"
If Keyword <> "" Then
HSsql = HSsql & " And Label = '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "SHAdd"
If Keyword <> "" Then
HSsql = HSsql & " And Address Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "SHCent"
If Keyword <> "" Then
HSsql = HSsql & " And CityArea Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "SHAouth"
If Keyword <> "" Then
HSsql = HSsql & " And LinkMan Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case "SHInfo"
If Keyword <> "" Then
HSsql = HSsql & " And Remark Like '%" & Keyword & "%'"
Else
HSsql = HSsql
End If
Case Else
HSsql = HSsql
End Select
'---匹配房屋用途
If SHUse_Type <> "" Then
SHUse_Type = Cint(SHUse_Type)
HSsql = HSsql & " And UseFor = " & SHUse_Type
Else
HSsql = HSsql
End If
'---匹配户型
If SHHouse_Type <> "" Then
If SHHouse_Type = "Other" Then
HSsql = HSsql & " And " & StringType & "(HouseStyle,1,1) > 3 And " & StringType & "(HouseStyle,3,1) > 2"
Else
HSsql = HSsql & " And " & StringType & "(HouseStyle,1,1) = '" & Split(SHHouse_Type,",")(0) & "' And " & StringType & "(HouseStyle,3,1) = '" & Split(SHHouse_Type,",")(1) & "'"
End If
Else
HSsql = HSsql
End If
'---匹配装修类型
If SHZX_Type <> "" Then
SHZX_Type = Cint(SHZX_Type)
HSsql = HSsql & " And Decoration = " & SHZX_Type
Else
HSsql = HSsql
End If
'HSsql=""
'---匹配搜索sql语句
Search_Sql = "Select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,Contact,Remark,PubDate From FS_HS_Second Where Audited = 1 And isRecyle = 0" & NoSqlHack(HSsql) & " Order By SID Desc,PubDate Desc"
End If
'------------------
case else
strShowErr="<li>错误的参数传递.SubSys</li><li><a href="""&Cookie_Domain&""">"&Cookie_Domain&"</a>.</li>": response.Write(strShowErr):response.End()
end select
On Error Resume Next
Set Search_RS = CreateObject(G_FS_RS)
if SubSys="RD" then
Search_RS.Open Search_Sql,Old_News_Conn,1,1
Else
Search_RS.Open Search_Sql,Conn,1,1
end if
if Err<>0 then
response.Write("<li>查询条件不匹配.无法继续.<br />"&"<br/>"&Err.Number&":"&Err.description&"</li>")
response.End()
end if
Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
int_RPP=10 '设置每页显示数目
int_showNumberLink_=10 '数字导航显示数目
showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
str_nonLinkColor_="#999999" '非热链接颜色
toF_="<font face=webdings>9</font>" '首页
toP10_=" <font face=webdings>7</font>" '上十
toP1_=" <font face=webdings>3</font>" '上一
toN1_=" <font face=webdings>4</font>" '下一
toN10_=" <font face=webdings>8</font>" '下十
toL_="<font face=webdings>:</font>" '尾页
IF Search_RS.eof THEN%>
<TABLE class="t bt" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD noWrap><FONT size=+1>&nbsp;<B><FONT size=+1>&nbsp;<B><%=TmpStr%></B></FONT>&nbsp;</B></FONT>&nbsp;</TD>
<TD noWrap align=right>
<FONT size=-1>共有<B>0</B>项符合<B><%=Keyword%></B>的查询结果
（搜索用时 <B><%=FormatNumber((timer()-starttime),2,-1)%></B>毫秒）&nbsp;</FONT>
</TD>
</TR>
</TBODY>
</TABLE>
<p><font size=-1 color=#666666>未查询到符合条件的记录。</font></p>
<%else
Dim UrlAndTitle,SaveNewsPath,Content,NewsSmallPicFile,NewsPicFile,addtime,NaviContent ,SysRs_Tmp,ChildPath,picShuXing,picShuXingB
Dim rndpic,DBUserName,sdnextdoman
Search_RS.PageSize=int_RPP
cPageNo=CintStr(Request.QueryString("Page"))
If cPageNo="" or not isnumeric(cPageNo) Then cPageNo = 1
cPageNo = Clng(cPageNo)
If cPageNo<1 Then cPageNo=1
If cPageNo>Search_RS.PageCount Then cPageNo=Search_RS.PageCount
Search_RS.AbsolutePage=cPageNo
FOR int_Start=1 TO int_RPP
select case SubSys
case "NS"
Dim f_NewsLinkRecordSet
Set f_NewsLinkRecordSet = New CLS_FoosunRecordSet
Set f_NewsLinkRecordSet.Values("ClassEName,Domain,SavePath,IsURL,URLAddress,SaveNewsPath,FileName,FileExtName") = Search_RS
SaveNewsPath = get_NewsLink(f_NewsLinkRecordSet)
Set f_NewsLinkRecordSet = Nothing
UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("NewsTitle")&"</A>"
addtime = Search_RS("addtime")
if isnull(addtime) then addtime=""
if isdate(addtime) then addtime = FormatDateTime(addtime,0)
NewsSmallPicFile = Search_RS("NewsSmallPicFile")
NewsPicFile = Search_RS("NewsPicFile")
if NewsSmallPicFile = "" then
NewsSmallPicFile = "sys_images/NoPic.jpg"
end if
NaviContent = Search_RS("Content")
if isnull(NaviContent) or NaviContent="" then
NaviContent = "暂无"
else
NaviContent = morestr(Lose_Html(NaviContent),255)
NaviContent = morestr(Lose_Html(NaviContent),255)
If NaviContent <> "" Then
NaviContent = Search_TextArr(Keyword,"Content",NaviContent)
Else
NaviContent = "详细内容请点击标题浏览"
End If
end if
FileSize = split(CheckFile(LocalUrl),"|")(0)
FileEditDate = split(CheckFile(LocalUrl),"|")(1)
case "RD"
SaveNewsPath = ""&Cookie_Domain&"/historynews.asp?id="&Search_RS("ID")&""
UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("NewsTitle")&"</A>"
addtime = Search_RS("addtime")
if isnull(addtime) then addtime=""
if isdate(addtime) then addtime = FormatDateTime(addtime,0)
NewsSmallPicFile = Search_RS("NewsSmallPicFile")
NewsPicFile = Search_RS("NewsPicFile")
if NewsSmallPicFile = "" then
NewsSmallPicFile = "sys_images/NoPic.jpg"
end if
NaviContent = Search_RS("Content")
if isnull(NaviContent) or NaviContent="" then
NaviContent = "暂无"
else
NaviContent = morestr(Lose_Html(NaviContent),255)
If NaviContent <> "" Then
NaviContent = Search_TextArr(Keyword,"Content",NaviContent)
Else
NaviContent = "详细内容请点击标题浏览"
End If
end if
FileSize = ""
FileEditDate = addtime
case "WS"
SaveNewsPath = ""&Cookie_Domain&"/historynews.asp?id="&Search_RS("ID")&""
UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("Topic")&"</A>"
addtime = Search_RS("AddDate")
if isnull(addtime) then addtime=""
if isdate(addtime) then addtime = FormatDateTime(addtime,0)
NewsSmallPicFile = Search_RS("Face")
NewsPicFile = Search_RS("Face")
if NewsSmallPicFile = "" then
NewsSmallPicFile = "sys_images/NoPic.jpg"
else
NewsSmallPicFile = Cookie_Domain&"/sys_images/emot/face"&NewsSmallPicFile&".gif"
end if
NaviContent = Search_RS("Body")
if isnull(NaviContent) or NaviContent="" then
NaviContent = "暂无"
else
NaviContent = morestr(Lose_Html(NaviContent),255)
NaviContent = Search_TextArr(Keyword,"Body",NaviContent)
end if
FileSize = ""
FileEditDate = addtime
case "DS"
set SysRs_Tmp = Conn.execute("select DownDir,IsDomain From FS_DS_SysPara")
if not SysRs_Tmp.eof then
if not isnull(SysRs_Tmp("IsDomain")) and SysRs_Tmp("IsDomain") <> "" then
ChildDomain = SysRs_Tmp("IsDomain")
else
ChildDomain =Cookie_Domain&"/"&SysRs_Tmp("DownDir")
end if
LocalUrl = "/"&SysRs_Tmp("DownDir")
end If
SysRs_Tmp.close
if isnull(ChildDomain) then ChildDomain = ""
ClassPath = Search_RS("ClassEName")
if isnull(ClassPath) then ClassPath = ""
if right(ChildDomain,1)="/" then ChildDomain = mid(ChildDomain,1,len(ChildDomain) - 1)
if ChildDomain<>"" then
if left(lcase(ChildDomain),len("http://"))<>"http://" then ChildDomain = "http://"&ChildDomain
else
ChildDomain = Cookie_Domain
end if
if ClassPath<>"" then ClassPath = replace(ClassPath,"/","")
if len(ChildDomain&"/"&ClassPath)>1 then ChildPath = ChildDomain&"/"&ClassPath
SaveNewsPath = ChildPath & Search_RS("SavePath")
if right(SaveNewsPath,1)<>"/" then SaveNewsPath = SaveNewsPath&"/"
SaveNewsPath = SaveNewsPath & Search_RS("FileName") &"."& Search_RS("FileExtName")
SaveNewsPath = GetTheInfoLink(Search_RS("DownLoadID"),"DS")
UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("Name")&"</A>"
addtime = Search_RS("addtime")
if isnull(addtime) then addtime=""
if isdate(addtime) then addtime = FormatDateTime(addtime,0)
NewsSmallPicFile = Search_RS("Pic")
NewsPicFile = Search_RS("Pic")
if NewsSmallPicFile = "" then
NewsSmallPicFile = "sys_images/NoPic.jpg"
end if
NaviContent = Search_RS("Description")
if isnull(NaviContent) or NaviContent="" then
NaviContent = "暂无"
else
NaviContent = morestr(Lose_Html(NaviContent),255)
NaviContent = Search_TextArr(Keyword,"Description",NaviContent)
end if
LocalUrl = LocalUrl&"/"&ClassPath&Search_RS("SavePath")&"/"&Search_RS("FileName") &"."& Search_RS("FileExtName")
FileSize = split(CheckFile(LocalUrl),"|")(0)
FileEditDate = split(CheckFile(LocalUrl),"|")(1)
case "MS"
set SysRs_Tmp = Conn.execute("select SavePath,IsDomain From FS_MS_SysPara")
if not SysRs_Tmp.eof then
if not isnull(SysRs_Tmp("IsDomain")) and SysRs_Tmp("IsDomain") <> "" then
ChildDomain = SysRs_Tmp("IsDomain")
else
ChildDomain = Cookie_Domain & "/" & SysRs_Tmp("SavePath")
end if
LocalUrl = "/"&SysRs_Tmp("SavePath")
end if
SysRs_Tmp.close
if isnull(ChildDomain) then ChildDomain = ""
ClassPath = Search_RS("ClassEName")
if isnull(ClassPath) then ClassPath = ""
if right(ChildDomain,1)="/" then ChildDomain = mid(ChildDomain,1,len(ChildDomain) - 1)
if ChildDomain<>"" then
if left(lcase(ChildDomain),len("http://"))<>"http://" then ChildDomain = "http://"&ChildDomain
else
ChildDomain =Cookie_Domain&"/"&SysRs_Tmp("NewsDir")
end if
if ClassPath<>"" then ClassPath = replace(ClassPath,"/","")
if len(ChildDomain&"/"&ClassPath)>1 then ChildPath = ChildDomain&"/"&ClassPath
SaveNewsPath = ChildPath & Search_RS("SavePath")
if right(SaveNewsPath,1)<>"/" then SaveNewsPath = SaveNewsPath&"/"
SaveNewsPath = SaveNewsPath & Search_RS("FileName") &"."& Search_RS("FileExtName")
SaveNewsPath = GetTheInfoLink(Search_RS("ID"),"MS")
UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("ProductTitle")&"</A>"
addtime = Search_RS("addtime")
if isnull(addtime) then addtime=""
if isdate(addtime) then addtime = FormatDateTime(addtime,0)
NewsSmallPicFile = Search_RS("smallPic")
NewsPicFile = Search_RS("BigPic")
if NewsSmallPicFile = "" then
NewsSmallPicFile = "sys_images/NoPic.jpg"
end if
NaviContent = Search_RS("ProductContent")
if isnull(NaviContent) or NaviContent="" then
NaviContent = "暂无"
else
NaviContent = morestr(Lose_Html(NaviContent),255)
NaviContent = Search_TextArr(Keyword,"ProductContent",NaviContent)
end if
LocalUrl = LocalUrl&"/"&ClassPath&Search_RS("SavePath")&"/"&Search_RS("FileName") &"."& Search_RS("FileExtName")
FileSize = split(CheckFile(LocalUrl),"|")(0)
FileEditDate = split(CheckFile(LocalUrl),"|")(1)
case "SD"
sdnextdoman = Get_OtherTable_Value("select top 1 [Domain] from FS_SD_Config")
if sdnextdoman<>"" then
SaveNewsPath = "http://"&sdnextdoman&"/Supply.asp?id="&Search_RS("ID")
else
SaveNewsPath = ""&Cookie_Domain&"/Supply/Supply.asp?id="&Search_RS("ID")
end if
UrlAndTitle = "["&Replacestr(Search_RS("PubType"),"0:供应,1:求购,2:合作,3:代理,4:其它")&"] " _
&"<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("PubTitle")&"</A>"
addtime = Search_RS("Addtime")
if isnull(addtime) then addtime=""
if isdate(addtime) then addtime = FormatDateTime(addtime,0)
randomize
rndpic = Int(3 * Rnd + 1)
NewsSmallPicFile = Search_RS("PubPic_"&rndpic)
NewsPicFile = NewsSmallPicFile
if NewsSmallPicFile = "" then NewsSmallPicFile = "sys_images/NoPic.jpg"
NaviContent = Search_RS("PubContent")
if isnull(NaviContent) or NaviContent="" then
NaviContent = "暂无"
else
NaviContent = morestr(Lose_Html(NaviContent),255)
NaviContent = Search_TextArr(Keyword,"PubContent",NaviContent)
end if
FileSize = ""
FileEditDate = Search_RS("EditTime")
Case "HS"
Dim HsPicSql,HsPicRs
sdnextdoman = Get_OtherTable_Value("select top 1 isDomain from FS_HS_SysPara")
If LCase(HSType) = "quotation" Then
if sdnextdoman<>"" then
SaveNewsPath = "http://"&sdnextdoman&"/BuildingRead.asp?id="&Search_RS("ID")
else
SaveNewsPath = ""&Cookie_Domain&"/House/BuildingRead.asp?id="&Search_RS("ID")
end if
UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("HouseName")&"</A>"
HsPicSql = "Select * From FS_HS_Picture Where HS_Type = 1 And ID = " & Search_RS("ID")
ElseIf LCase(HSType) = "second" Then
if sdnextdoman<>"" then
SaveNewsPath = "http://"&sdnextdoman&"/SecondRead.asp?id="&Search_RS("SID")
else
SaveNewsPath = ""&Cookie_Domain&"/House/SecondRead.asp?id="&Search_RS("SID")
end if
UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("Address")&"</A>"
HsPicSql = "Select * From FS_HS_Picture Where HS_Type = 3 And ID = "&Search_RS("SID")
Else
if sdnextdoman<>"" then
SaveNewsPath = "http://"&sdnextdoman&"/HouseRead.asp?id="&Search_RS("TID")
else
SaveNewsPath = ""&Cookie_Domain&"/House/HouseRead.asp?id="&Search_RS("TID")
end if
UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("Position")&"</A>"
HsPicSql = "Select * From FS_HS_Picture Where HS_Type = 2 And ID = "&Search_RS("TID")
End If
Set HsPicRs = Conn.ExeCute(HsPicSql)
If HsPicRs.Eof Then
NewsSmallPicFile = ""
Else
NewsSmallPicFile = HsPicRs("Pic")
End If
HsPicRs.Close : Set HsPicRs = Nothing
NewsPicFile = NewsSmallPicFile
if NewsSmallPicFile = "" then NewsSmallPicFile = "sys_images/NoPic.jpg"
addtime = Search_RS("PubDate")
if isnull(addtime) then addtime=""
if isdate(addtime) then addtime = FormatDateTime(addtime,0)
If LCase(HSType) = "quotation" Then
NaviContent = Search_RS("introduction")
Else
NaviContent = Search_RS("Remark")
End if
if isnull(NaviContent) or NaviContent="" then
NaviContent = "暂无"
else
NaviContent = morestr(Lose_Html(NaviContent),255)
NaviContent = Search_TextArr(Keyword,"Remark",NaviContent)
end if
FileSize = ""
FileEditDate = Search_RS("PubDate")
end select
Content="<TABLE cellSpacing=1 cellPadding=1 align=center border=0 width=""100%"">"&vbNewLine _
&"<TBODY>"&vbNewLine _
&"<TR>"&vbNewLine _
'&"<TD class=pic rowspan=2 align=center>"&vbNewLine
'if NewsPicFile<>"" then
' picShuXingB = CheckFile(NewsPicFile)
'' if len(picShuXingB)>5 then picShuXingB = "["&picShuXingB&"]" else picShuXingB="" end if
' Content=Content&"<a href="""&NewsPicFile&""" target=""_blank""><img border=0 src="""&NewsSmallPicFile&""" alt=""点击看大图"&picShuXingB&""" onload=""if(this.offsetWidth>120)this.width=120;""></a></TD>"&vbNewLine
'else
' Content=Content&"<img border=0 src=""sys_images/NoPic.jpg"" onload=""if(this.offsetWidth>120)this.width=120;""></TD>"&vbNewLine
' end if
picShuXing="":picShuXingB=""
Content=Content &"<TD class=content >"&vbNewLine _
&"<font style=""font-size:12px; color:#999999"">"&NaviContent&"</font>"&vbNewLine _
&"</TD>"&vbNewLine _
&"</TR>"&vbNewLine _
&"<TR>"&vbNewLine _
&"<TD height=21><font size=-1>"&vbNewLine _
&"<font color=#008000>"&SaveNewsPath&" - "&FileSize&" "&FileEditDate&" "&addtime&" </font> "
Content=Content &"</font></TD>"&vbNewLine _
&"</TR>"&vbNewLine _
&"</TBODY>"&vbNewLine _
&"</TABLE>"&vbNewLine
if int_Start = 1 then%>
<TABLE class="t bt" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD noWrap><FONT size=+1>&nbsp;<B><FONT size=+1>&nbsp;<B><%=TmpStr%></B></FONT>&nbsp;</B></FONT>&nbsp;</TD>
<TD noWrap align=right>
<FONT size=-1>共有<B><%=Search_RS.recordcount%></B>项符合 <B><%=morestr(Keyword,30)%></B> 的查询结果，
以下是第 <B>1</B> - <B>10</B> 项。（搜索用时 <B><%=FormatNumber((timer()-starttime),2,-1)%></B> 秒）&nbsp;</FONT>
</TD></TR></TBODY></TABLE>
<%end if%>
<DIV>
<div>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<P class=g align="left">
<%
response.Write("【")
if SubSys="NS" then response.Write(""&Replacestr(Search_Rs("ClassName"),":,else:"&Search_Rs("ClassName")))
response.Write("】")
''标题
response.Write(UrlAndTitle)
'response.Write("<font size=-2 color=#666666>")
select case SubSys
case "NS","RD"
'response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
' response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
' response.Write(Replacestr(Search_Rs("PopId"),"5:总置顶,4:栏目置顶,3:总推荐文章,else:普通")&vbNewLine)
'response.Write(Replacestr(Search_Rs("IsURL"),"0:,else: | 标题新闻"))
' response.Write(Replacestr(Search_Rs("isPicNews"),"0:,else: | <img border=0 title=""图"" src=""sys_images/img.jpg"">"))
' response.Write(Replacestr(Search_Rs("TodayNewsPic"),":,else: | 图片头条"))
' response.Write(Replacestr(Search_Rs("Source"),":,else: | "&Search_Rs("Source")))
' response.Write(Replacestr(Search_Rs("Author"),":,else: | "&Search_Rs("Author")))
' response.Write(Replacestr(Search_Rs("Hits"),":,else: | ["&Search_Rs("Hits")&"]"))
case "DS"
response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&Replacestr(Search_Rs("ClassName"),":,else:"&Search_Rs("ClassName")))
response.Write(Replacestr(Search_Rs("RecTF"),"1: | 推荐,else:"))
response.Write(Replacestr(Search_Rs("Types"),"1: | 图片,2: | 文件,3: | 程序,4: | Flash,5: | 音乐,6: | 影视,7: | 其它"))
response.Write(Replacestr(Search_Rs("ClickNum"),":,else: | 热度["&Search_Rs("ClickNum")))
response.Write(Replacestr(Search_Rs("Hits"),":,else: | "&Search_Rs("Hits")&"]"))
response.Write(Replacestr(Search_Rs("ConsumeNum"),"0:,else: | 需要点数["&Search_Rs("ConsumeNum")&"]"))
case "WS"
response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&Replacestr(Search_Rs("ClassName"),":,else:"&Search_Rs("ClassName")))
response.Write(Replacestr(Search_Rs("ParentID"),"0: | <strong>话题</strong>,else:回复"))
response.Write(Replacestr(Search_Rs("User"),":未知用户,else:"&Search_Rs("User")))
response.Write(Replacestr(Search_Rs("IsTop"),"1: | 推荐,else:"))
response.Write(Replacestr(Search_Rs("Answer"),":,else: | 回复["&Search_Rs("Answer")&"]"))
response.Write(Replacestr(Search_Rs("Hit"),":,else: | Hit["&Search_Rs("Hit")&"]"))
response.Write(Replacestr(Search_Rs("LastUpdateDate"),":,else: | LastTime["&Search_Rs("LastUpdateDate")&""))
response.Write(Replacestr(Search_Rs("LastUpdateUser"),":,else: | "&Search_Rs("LastUpdateUser")&"]"))
response.Write(Replacestr(Search_Rs("IP"),":,else:"&Search_Rs("IP")))
response.Write(Replacestr(Search_Rs("Vistor"),"0: | 游客可访,else:"))
case "MS"
response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&Replacestr(Search_Rs("ClassCName"),":,else:"&Search_Rs("ClassCName")))
response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(0),"1: | 推荐,else:")))
response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(1),"1: | 热点,else:")))
response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(2),"1: | 置顶,else:")))
response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(3),"1: | 特价,else:")))
response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(4),"1: | 锁定,else:")))
response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(5),"1: | 促销,else:")))
response.Write(Replacestr(Search_Rs("Click"),":,else: | ["&Search_Rs("Click")&"]"))
response.Write(Replacestr(Search_Rs("Stockpile"),":,else: | 库存"&Search_Rs("Stockpile")))
response.Write(Replacestr(Search_Rs("StockpileWarn"),"1:[<font color=red>库存不够</font>],else:"))
response.Write(Replacestr(Search_Rs("OldPrice"),"0:,else: | [市场价"&Search_Rs("OldPrice")))
response.Write(Replacestr(Search_Rs("NewPrice"),"0:0],else: | 商城价"&Search_Rs("NewPrice")&"]"))
response.Write(Replacestr(left(Search_Rs("IsWholesale"),1),"1: | 可批发,else:"))
response.Write(Replacestr(Search_Rs("MakeFactory"),":,else: | "&Search_Rs("MakeFactory")))
response.Write(Replacestr(Search_Rs("ProductsAddress"),":,else: | "&replace(Search_Rs("ProductsAddress"),","," ")))
response.Write(" | "&Replacestr(Search_Rs("SaleStyle"),"0:正常,1:竞拍,2:一口价,3:降价,4:特价"))
response.Write(Replacestr(Search_Rs("Discount"),":,else: | 折率["&Search_Rs("Discount")&"]"))
response.Write(Replacestr(Search_Rs("DiscountStartDate"),":,else:["&Search_Rs("DiscountStartDate")&"-"))
response.Write(Replacestr(Search_Rs("DiscountEndDate"),":,else:"&Search_Rs("DiscountEndDate")&"]"))
case "SD"
response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&Replacestr(Search_Rs("ClassName"),":,else:"&Search_Rs("ClassName")))
response.Write("|"&Replacestr(Search_Rs("GQ_ClassName"),":,else:"&Search_Rs("GQ_ClassName")))
response.Write("|"&Replacestr(Search_Rs("CompType"),"0:批发,1:零售,2:批零兼营"))
response.Write("|价格:"&Replacestr(Search_Rs("PubPrice"),"0:面议,else:"&Search_Rs("PubPrice")&"元"))
response.Write("|数量:"&Replacestr(Search_Rs("PubNumber"),"0:充足,else:"&Search_Rs("PubNumber")))
response.Write("|有效期限:"&Replacestr(Search_Rs("ValidTime"),":长期有效,0:长期有效,else:"&Search_Rs("ValidTime")&"天"))
response.Write("|产地:"&Replacestr(Search_Rs("PubAddress"),":电话告之,else:"&Search_Rs("PubAddress")))
response.Write("|人气:"&Replacestr(Search_Rs("Hits"),":,else:["&Search_Rs("Hits")&"]"))
DBUserName = Get_OtherTable_Value("select C_Name from FS_ME_CorpUser where UserNumber='"&Search_Rs("UserNumber")&"'")
if DBUserName = "" then DBUserName = Get_OtherTable_Value("select UserName from FS_ME_Users where UserNumber='"&Search_Rs("UserNumber")&"'")
if DBUserName = "" then
DBUserName = "系统管理员"
else
DBUserName = "<a href=""/User/ShowUser.asp?UserNumber="&Search_Rs("UserNumber")&""" title=""点击查看该用户详细信息"" target=_blank>"&DBUserName&"</a>"
end if
response.Write("|发布者:"&DBUserName)
end select
'response.Write("</font>")
response.Write(Content)
%>
</div>
</td>
</tr>
</table>
<%
''+++++++++++++++++++++++++++++++++++++++
Search_RS.MoveNext
if Search_RS.eof or Search_RS.bof then exit for
NEXT
%>
<BR clear=all>
<DIV class=n id=navbar>
<TABLE cellSpacing=0 cellPadding=0 width="1%" align=center border=0>
<TBODY>
<TR style="TEXT-ALIGN: center" vAlign=top align=middle>
<TD vAlign=bottom noWrap class=i><FONT size=-1>结果页码:&nbsp;</FONT>
<TD noWrap class="i"><font size=-1>&nbsp;
<%response.Write( fPageCount(Search_RS,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo) & vbcrlf )%>
</font></TR>
</TBODY>
</TABLE>
</DIV>
<%
END IF
RsClose
end select
Sub RsClose()
Search_RS.Close
Set Search_RS = Nothing
end Sub
Set Old_News_Conn = Nothing
Set User_Conn = Nothing
Set Conn = Nothing
response.End()
%>
Reference in New Issue View Git Blame Copy Permalink