开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Search.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：31k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Search.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <% Option Explicit %>
  3. <%session.CodePage="936"%>
  4. <!--#include file="FS_Inc/Const.asp" -->
  5. <!--#include file="FS_InterFace/MF_Function.asp" -->
  6. <!--#include file="FS_Inc/Function.asp" -->
  7. <!--#include file="FS_Inc/Func_Page.asp" -->
  8. <%'Copyright (c) 2006 Foosun Inc. Code by awen
  9. Server.ScriptTimeOut=999
  10. Response.Buffer = True
  11. Response.Expires = -1
  12. Response.ExpiresAbsolute = Now() - 1
  13. Response.CacheControl = "no-cache"
  14. response.Charset = "gb2312"
  15. Dim starttime,endtime
  16. starttime=timer()
  17. function morestr(str,length)
  18. if len(str)>length then 
  19. morestr = left(str,length)&"<strong>...</strong>"
  20. else
  21. morestr = str       
  22. end if   
  23. end function
  24. Dim Conn,Old_News_Conn,Search_Sql,Search_RS,strShowErr,Cookie_Domain,Cookie_Copyright,Cookie_eMail,Cookie_Site_Name
  25. Dim Server_Name,Server_V1,Server_V2
  26. Dim TmpStr,TmpArr,SqlDateType,FileSize,FileEditDate,TmpStr1,TmpStr2
  27. Dim Keyword,s_type,SubSys,ClassId,s_date,e_date  ,GetType
  28. Dim ChildDomain,ClassPath
  29. Dim LocalUrl
  31. GetType = NoSqlHack(request.QueryString("GetType")) ''内部
  32. if GetType = "" then response.Write("请指定必要的参数.") : response.End()
  33. ''日期
  34. If G_IS_SQL_DB = 1 Then  
  35. SqlDateType = "'"
  36. else
  37. SqlDateType = "#"
  38. end if
  40. Function Get_MF_Config()
  41. if request.Cookies("FoosunSearchCookie")("Cookie_Domain") = Get_MF_Domain() then exit Function
  42. set Search_RS=Conn.execute("select top 1 MF_Domain,MF_Site_Name,MF_eMail,MF_Copyright_Info  from FS_MF_Config")
  43. Response.Cookies("FoosunSearchCookie")("Cookie_Domain")=Search_RS("MF_Domain") 
  44. Response.Cookies("FoosunSearchCookie")("Cookie_Copyright")=Search_RS("MF_Copyright_Info") 
  45. Response.Cookies("FoosunSearchCookie")("Cookie_eMail")=Search_RS("MF_eMail") 
  46. Response.Cookies("FoosunSearchCookie")("Cookie_Site_Name")=Search_RS("MF_Site_Name") 
  47. Response.Cookies("FoosunSearchCookie").Expires=Date()+1
  48. Search_RS.close
  49. End Function
  51. '得到新闻单个地址____________________________________________________________
  52. Function get_NewsLink(f_id)
  53. get_NewsLink = ""
  54. dim rs,config_rs,config_mf_rs,class_rs
  55. dim SaveNewsPath,FileName,FileExtName,ClassId,LinkType,MF_Domain,Url_Domain,ClassEName,c_Domain,c_SavePath,IsDomain
  56. set rs = Conn.execute("select ID,IsURL,URLAddress,ClassId,NewsId,SaveNewsPath,FileName,FileExtName From FS_NS_News where NewsId='"&f_id&"'")
  57. SaveNewsPath = rs("SaveNewsPath")
  58. FileName = rs("FileName")
  59. FileExtName = rs("FileExtName")
  60. ClassId = rs("ClassId")
  61. LinkType = Conn.execute("select top 1 LinkType from FS_NS_SysParam")(0)
  62. IsDomain = Conn.execute("select top 1 IsDomain from FS_NS_SysParam")(0)
  63. MF_Domain = Cookie_Domain
  64. set class_rs = Conn.execute("select ClassEName,IsURL,URLAddress,[Domain],SavePath From FS_NS_NewsClass where ClassId='"&ClassId&"'")
  65. if not class_rs.eof then
  66. ClassEName = class_rs("ClassEName")
  67. c_Domain = class_rs("Domain")
  68. c_SavePath = class_rs("SavePath")
  69. class_rs.close:set class_rs=nothing
  70. else
  71. ClassEName = ""
  72. class_rs.close:set class_rs=nothing
  73. end if
  74. if not rs.eof then
  75. if rs("IsURL")=0 then
  76. if LinkType = 1 then
  77. if trim(c_Domain)<>"" then
  78. Url_Domain = "http://"&c_Domain
  79. else
  80. if trim(IsDomain)<>"" then
  81. Url_Domain = "http://"&IsDomain
  82. else
  83. Url_Domain = MF_Domain
  84. end if
  85. end if
  86. else
  87. if trim(c_Domain)<>"" then
  88. Url_Domain = "http://"&c_Domain
  89. else
  90. if trim(IsDomain)<>"" then
  91. Url_Domain = "http://"&IsDomain
  92. else
  93. Url_Domain = ""
  94. end if
  95. end if
  96. end if
  97. if trim(c_Domain)<>"" then
  98. get_NewsLink = Url_Domain & SaveNewsPath &"/"&FileName&"."&FileExtName
  99. LocalUrl = SaveNewsPath &"/"&FileName&"."&FileExtName
  100. else
  101. get_NewsLink = Url_Domain & c_SavePath& "/" & ClassEName &SaveNewsPath &"/"&FileName&"."&FileExtName
  102. LocalUrl = c_SavePath& "/" & ClassEName &SaveNewsPath &"/"&FileName&"."&FileExtName
  103. end if
  104. else
  105. get_NewsLink = rs("URLAddress")
  106. end if
  107. rs.close:set rs=nothing
  108.   else
  109. get_NewsLink = ""
  110. rs.close:set rs=nothing
  111.   end if
  112.   get_NewsLink = get_NewsLink
  113. End Function
  115. ''++++++++++++++++++++++++++++++++++++
  116. '检查本地文件 返回大小和修改日期
  117. Function CheckFile(PhFileName)
  118. dim fsv1,fsv2
  119. fsv1="":fsv2=""
  120. On Error Resume Next
  121. if isnull(PhFileName) or PhFileName="" then CheckFile="|":exit Function
  122. Dim Fso,MyFile
  123. Set Fso = CreateObject(G_FS_FSO)
  124. If Fso.FileExists(server.MapPath(PhFileName)) Then
  125. set MyFile = Fso.GetFile(server.MapPath(PhFileName))
  126. fsv1 = formatnumber(MyFile.Size/1024,2,-1)&"K"
  127. fsv2 = MyFile.DateLastModified
  128. set MyFile = nothing 
  129. End if
  130. if Err<>0 then CheckFile="|":exit Function
  131. Set Fso = Nothing
  132. CheckFile = fsv1&"|"&fsv2
  133. End Function
  135. MF_Default_Conn
  136. MF_Old_News_Conn
  138. Get_MF_Config
  140. Cookie_Domain = request.Cookies("FoosunSearchCookie")("Cookie_Domain")
  141. Cookie_Copyright = request.Cookies("FoosunSearchCookie")("Cookie_Copyright")
  142. Cookie_eMail = request.Cookies("FoosunSearchCookie")("Cookie_eMail")
  143. Cookie_Site_Name = request.Cookies("FoosunSearchCookie")("Cookie_Site_Name")
  145. if Cookie_Domain="" then 
  146. Cookie_Domain = "http://localhost"
  147. else
  148. if left(lcase(Cookie_Domain),len("http://"))<>"http://" then Cookie_Domain = "http://"&Cookie_Domain
  149. if right(Cookie_Domain,1)="/" then Cookie_Domain = mid(Cookie_Domain,1,len(Cookie_Domain) - 1)
  150. end if
  152. ''防盗连
  153. Server_Name = Len(Request.ServerVariables("SERVER_NAME"))
  154. Server_V1 = Left(Replace(Cstr(Request.ServerVariables("HTTP_REFERER")),"http://",""),Server_Name)
  155. Server_V2 = Left(Cstr(Request.ServerVariables("SERVER_NAME")),Server_Name)
  156. if Server_V1 <> Server_V2 and Server_V1 <> "" and Server_V2 <> "" then
  157. response.Write("没有权限，请访问<a href="""&Cookie_Domain&""">"&Cookie_Domain&"</a>.")
  158. response.End()
  159. end if
  161. ''+++++++++++++++++++++++++++++++++++++++++++
  162. select case GetType
  163. case "LoginHtml"
  164. %>
  165. <FONT size=-1><A href="<%=Cookie_Domain&"/User/Login.asp"%>" target="_blank">登录</A></FONT>
  167. <%case "FootHTML"%>
  169. &nbsp;<BR>
  170.         <BR>
  171.         <FONT 
  172.       size=-1><%=Cookie_Copyright%></FONT><BR><BR>
  173.   
  174. <%case "CopyrightHTML"
  175. TmpStr = "<TABLE cellSpacing=0 cellPadding=2 width=""100%"" border=0>"&vbNewLine _ 
  176. &"<TR>"&vbNewLine _ 
  177. &"<TD align=right height=25><font size=-1>"&vbNewLine _
  178. &"<a class=fl href=""javascript:window.external.AddFavorite('"&Cookie_Domain&"', '"&Cookie_Site_Name&"')"">加入收藏</a>"&vbNewLine _
  179. &" - <a class=fl href=""#"" onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('"&Cookie_Domain&"')"">设为主页</a>"&vbNewLine _
  180. &" - <A class=fl href=""#"">Top</A>"&vbNewLine _
  181. &"</font></TD>"&vbNewLine _
  182. &"</TR>"&vbNewLine _
  183. &"</TABLE>"&vbNewLine _ 
  184. &"</CENTER>"&vbNewLine
  185. response.Write(TmpStr)  
  186. case "MainInfo"
  187. SubSys = Ucase(NoHtmlHackInput(NoSqlHack(request.QueryString("SubSys"))))
  188. Keyword = NoHtmlHackInput(NoSqlHack(request.QueryString("Keyword")))
  189. s_type = NoHtmlHackInput(NoSqlHack(request.QueryString("s_type")))
  190. ClassId = NoHtmlHackInput(NoSqlHack(request.QueryString("ClassId")))
  191. s_date = trim(request.QueryString("s_date"))
  192. e_date = trim(request.QueryString("e_date"))
  193. if Keyword = "" then strShowErr=strShowErr&"<li>关键字不能为空</li>"&vbnewLine
  194. if s_date<>"" then if not isdate(s_date) then strShowErr=strShowErr&"<li>开始日期"&s_date&"非法</li>"&vbnewLine
  195. if e_date<>"" then if not isdate(e_date) then strShowErr=strShowErr&"<li>结束日期"&e_date&"非法</li>"&vbnewLine
  196. if strShowErr<>"" then strShowErr=strShowErr&"<li><a href="""&Cookie_Domain&""">"&Cookie_Domain&"</a>.</li>": response.Write(strShowErr):response.End()
  197. if SubSys="" then SubSys = "NS"
  198. '===========================================
  199. ''sql的处理
  200. select case SubSys
  201. case "NS"
  202. TmpStr = "新闻"
  203. select case s_type
  204. case "title"
  205. s_type="NewsTitle"   
  206. case "stitle"
  207. s_type = "CurtTitle"
  208. case "content"
  209. s_type = "Content"
  210. case "NaviContent"
  211. s_type ="NewsNaviContent"
  212. case "author","source"
  213. s_type = s_type
  214. case "keyword"
  215. s_type = "Keywords"
  216. case else
  217. s_type = "NewsTitle,CurtTitle,NewsNaviContent,Content,author,source,Keywords"
  218. end select
  219. Search_Sql = "select NewsID,NewsTitle,CurtTitle,NewsNaviContent,Content,A.addtime,PopId,ClassName,A.IsURL,isPicNews,NewsSmallPicFile,NewsPicFile," _
  220. &"Source,Author,Hits,TodayNewsPic,ClassEName,SaveNewsPath,FileName,A.FileExtName from FS_NS_News A,FS_NS_NewsClass B where A.ClassID=B.ClassID" _
  221. &" and isLock=0 and isRecyle=0 and isdraft=0 "
  222. if Keyword<>"" then 
  223. if instr(s_type,",")=0 then 
  224. Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"") 
  225. else
  226. TmpArr = split(s_type,",")
  227. TmpStr2 = ""
  228. for each TmpStr1 in  TmpArr
  229. TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&"" 
  230. next
  231. if left(TmpStr2,len(" or "))=" or " then 
  232. TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
  233. end if
  234. end if
  235. end if
  236. if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","") 
  237. if s_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime>="&SqlDateType&s_date&SqlDateType
  238. if e_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime<="&SqlDateType&e_date&SqlDateType
  239. case "WS"
  240. TmpStr = "留言本"
  241. select case s_type
  242. case "title"
  243. s_type="Topic"   
  244. case "content"
  245. s_type = "Body"
  246. case "author"
  247. s_type = "User"
  248. case else
  249. s_type = "Topic,Body,User"
  250. end select
  251. Search_Sql = "select A.ID,ClassName,ParentID,User,Topic,Body,A.AddDate,IsTop,State,Style,IsAdmin,Answer,Hit,LastUpdateDate,LastUpdateUser," _
  252. &"Face,IP,Isonline,Vistor,isUpoad " _
  253. &" from FS_WS_BBS A,FS_WS_Class B where A.ClassID=B.ClassID "
  254. if Keyword<>"" then 
  255. if instr(s_type,",")=0 then 
  256. Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"") 
  257. else
  258. TmpArr = split(s_type,",")
  259. TmpStr2 = ""
  260. for each TmpStr1 in  TmpArr
  261. TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&"" 
  262. next
  263. if left(TmpStr2,len(" or "))=" or " then 
  264. TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
  265. end if
  266. end if
  267. end if
  268. if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","") 
  269. if s_date<>"" then Search_Sql = and_where(Search_Sql) & " A.AddDate>="&SqlDateType&s_date&SqlDateType
  270. if e_date<>"" then Search_Sql = and_where(Search_Sql) & " A.AddDate<="&SqlDateType&e_date&SqlDateType
  271. case "DS"
  272. TmpStr = "下载"
  273. select case s_type
  274. case "title"
  275. s_type="Name"
  276. case "content"
  277. s_type = "Description"
  278. case else
  279. s_type = "Name,Description"
  280. end select
  281. Search_Sql = "select ClassName,Name,Description,A.AddTime,ClickNum,ClassEName,A.SavePath,A.FileExtName,A.FileName," _
  282. &"FileSize,RecTF,Types,Hits,ConsumeNum,A.Pic from FS_DS_List A,FS_DS_Class B where A.ClassID=B.ClassID" _
  283. &" and AuditTF=1 and (OverDue=0 or (OverDue>0 and datediff('d',A.AddTime,'"&date()&"') <= OverDue)) "
  284. if Keyword<>"" then 
  285. if instr(s_type,",")=0 then 
  286. Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"") 
  287. else
  288. TmpArr = split(s_type,",")
  289. TmpStr2 = ""
  290. for each TmpStr1 in  TmpArr
  291. TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&"" 
  292. next
  293. if left(TmpStr2,len(" or "))=" or " then 
  294. TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
  295. end if
  296. end if
  297. end if
  298. if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","") 
  299. if s_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime>="&SqlDateType&s_date&SqlDateType
  300. if e_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime<="&SqlDateType&e_date&SqlDateType
  301. case "MS"
  302. TmpStr = "商城"
  303. select case s_type
  304. case "title"
  305. s_type="ProductTitle"
  306. case "content"
  307. s_type = "ProductContent"
  308. case "keyword"
  309. s_type = "Keywords"
  310. case else
  311. s_type = "ProductTitle,ProductContent,Keywords"
  312. end select
  313. Search_Sql = "select ProductTitle,ClassCName,Stockpile,StockpileWarn,OldPrice,NewPrice,IsWholesale,ProductContent,MakeFactory," _
  314. &"ProductsAddress,Click,smallPic,BigPic,StyleFlagBit,SaleStyle,A.AddTime,Discount,DiscountStartDate,DiscountEndDate," _
  315. &" ClassEName,A.SavePath,A.FileExtName,A.FileName from FS_MS_Products A,FS_MS_ProductsClass B where A.ClassID=B.ClassID "
  316. if Keyword<>"" then 
  317. if instr(s_type,",")=0 then 
  318. Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"") 
  319. else
  320. TmpArr = split(s_type,",")
  321. TmpStr2 = ""
  322. for each TmpStr1 in  TmpArr
  323. TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&"" 
  324. next
  325. if left(TmpStr2,len(" or "))=" or " then 
  326. TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
  327. end if
  328. end if
  329. end if
  330. if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","") 
  331. if s_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime>="&SqlDateType&s_date&SqlDateType
  332. if e_date<>"" then Search_Sql = and_where(Search_Sql) & " A.addtime<="&SqlDateType&e_date&SqlDateType
  333. case "RD"
  334. TmpStr = "总站归档搜索"
  335. select case s_type
  336. case "title"
  337. s_type="NewsTitle"
  338. case "stitle"
  339. s_type = "CurtTitle"
  340. case "content"
  341. s_type = "Content"
  342. case "NaviContent"
  343. s_type ="NewsNaviContent"
  344. case "author","source"
  345. s_type = s_type
  346. case "keyword"
  347. s_type = "Keywords"
  348. case else
  349. s_type = "NewsTitle,CurtTitle,NewsNaviContent,Content,author,source,Keywords"
  350. end select
  351. Search_Sql = "select ID,NewsID,NewsTitle,CurtTitle,NewsNaviContent,Content,addtime,PopId,IsURL,isPicNews,NewsSmallPicFile,NewsPicFile," _
  352. &"Source,Author,Hits,TodayNewsPic,SaveNewsPath,FileName,FileExtName,FileTime from FS_Old_News " _
  353. &" where isLock=0 and isRecyle=0 and isdraft=0 "
  354. if Keyword<>"" then 
  355. if instr(s_type,",")=0 then 
  356. Search_Sql = and_where(Search_Sql) & Search_TextArr(Keyword,s_type,"") 
  357. else
  358. TmpArr = split(s_type,",")
  359. TmpStr2 = ""
  360. for each TmpStr1 in  TmpArr
  361. TmpStr2 = TmpStr2 & " or " & Search_TextArr(Keyword,TmpStr1,"")&"" 
  362. next
  363. if left(TmpStr2,len(" or "))=" or " then 
  364. TmpStr2 = mid(TmpStr2,len(" or ")+1) : TmpStr2 = " ("&TmpStr2&") " :Search_Sql = and_where(Search_Sql) & TmpStr2
  365. end if
  366. end if
  367. end if
  368. if s_date<>"" then Search_Sql = and_where(Search_Sql) & " addtime>="&SqlDateType&s_date&SqlDateType
  369. if e_date<>"" then Search_Sql = and_where(Search_Sql) & " addtime<="&SqlDateType&e_date&SqlDateType
  370. case else
  371. strShowErr="<li>错误的参数传递.SubSys</li><li><a href="""&Cookie_Domain&""">"&Cookie_Domain&"</a>.</li>": response.Write(strShowErr):response.End()
  372. end select
  375. On Error Resume Next
  376. 'response.Write("["&Search_Sql&"]") '测试用
  377. 'Response.end
  378. Set Search_RS = CreateObject(G_FS_RS)
  379. if SubSys="RD" then 
  380. Search_RS.Open Search_Sql,Old_News_Conn,1,1
  381. Else
  382. Search_RS.Open Search_Sql,Conn,1,1
  383. end if
  384. if Err<>0 then 
  385. response.Write("<li>查询条件不匹配.无法继续.<br />"&Err.Number&":"&Err.description&"</li>")
  386. response.End()
  387. end if
  388. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  389. int_RPP=10 '设置每页显示数目
  390. int_showNumberLink_=10 '数字导航显示数目
  391. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  392. str_nonLinkColor_="#999999" '非热链接颜色
  393. toF_="<font face=webdings>9</font>"    '首页 
  394. toP10_=" <font face=webdings>7</font>" '上十 
  395. toP1_=" <font face=webdings>3</font>" '上一
  396. toN1_=" <font face=webdings>4</font>" '下一
  397. toN10_=" <font face=webdings>8</font>" '下十
  398. toL_="<font face=webdings>:</font>" '尾页
  400. IF Search_RS.eof THEN%>
  401. <TABLE class="t bt" cellSpacing=0 cellPadding=0 width="100%" border=0>
  402.   <TBODY>
  403.   <TR>
  404.     <TD noWrap><FONT size=+1>&nbsp;<B><FONT size=+1>&nbsp;<B><%=TmpStr%></B></FONT>&nbsp;</B></FONT>&nbsp;</TD>
  405.     <TD noWrap align=right>
  406. <FONT size=-1>共有<B>0</B>项符合<B><%=Keyword%></B>的查询结果
  407. （搜索用时 <B><%=FormatNumber((timer()-starttime),2,-1)%></B>毫秒）&nbsp;</FONT>
  408. </TD>
  409.    </TR>
  410.   </TBODY>
  411. </TABLE>
  412. <p><font size=-1 color=#666666>未查询到符合条件的记录。</font></p>
  413. <%else
  414. Dim UrlAndTitle,SaveNewsPath,Content,NewsSmallPicFile,NewsPicFile,addtime,NaviContent ,SysRs_Tmp,ChildPath,picShuXing,picShuXingB
  416. Search_RS.PageSize=int_RPP
  417. cPageNo=Request.QueryString("Page")
  418. If cPageNo="" or not isnumeric(cPageNo) Then cPageNo = 1
  419. cPageNo = Clng(cPageNo)
  420. If cPageNo<1 Then cPageNo=1
  421. If cPageNo>Search_RS.PageCount Then cPageNo=Search_RS.PageCount 
  422. Search_RS.AbsolutePage=cPageNo
  423.   FOR int_Start=1 TO int_RPP 
  424.  
  425. select case  SubSys
  426. case "NS"
  427. SaveNewsPath = get_NewsLink(Search_RS("NewsID"))
  428. UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("NewsTitle")&"</A>"
  429. addtime = Search_RS("addtime")
  430. if isnull(addtime) then addtime=""
  431. if isdate(addtime) then addtime = FormatDateTime(addtime,0)
  432. NewsSmallPicFile = Search_RS("NewsSmallPicFile")
  433. NewsPicFile = Search_RS("NewsPicFile")
  434. if NewsSmallPicFile = "" then 
  435. NewsSmallPicFile = "sys_images/NoPic.jpg"
  436. end if
  438. NaviContent = Search_RS("Content")
  439. if isnull(NaviContent) or NaviContent="" then 
  440. NaviContent = "暂无"
  441. else
  442. NaviContent = morestr(Lose_Html(NaviContent),255)
  443. NaviContent = Search_TextArr(Keyword,"Content",NaviContent)
  444. end if
  445. FileSize = split(CheckFile(LocalUrl),"|")(0)
  446. FileEditDate = split(CheckFile(LocalUrl),"|")(1)
  447. case "RD"
  448. SaveNewsPath = ""&Cookie_Domain&"/historynews.asp?id="&Search_RS("ID")&""
  449. UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("NewsTitle")&"</A>"
  450. addtime = Search_RS("addtime")
  451. if isnull(addtime) then addtime=""
  452. if isdate(addtime) then addtime = FormatDateTime(addtime,0)
  453. NewsSmallPicFile = Search_RS("NewsSmallPicFile")
  454. NewsPicFile = Search_RS("NewsPicFile")
  455. if NewsSmallPicFile = "" then 
  456. NewsSmallPicFile = "sys_images/NoPic.jpg"
  457. end if
  459. NaviContent = Search_RS("Content")
  460. if isnull(NaviContent) or NaviContent="" then 
  461. NaviContent = "暂无"
  462. else
  463. NaviContent = morestr(Lose_Html(NaviContent),255)
  464. NaviContent = Search_TextArr(Keyword,"Content",NaviContent)
  465. end if
  466. FileSize = ""
  467. FileEditDate = addtime
  468. case "WS"
  469. SaveNewsPath = ""&Cookie_Domain&"/historynews.asp?id="&Search_RS("ID")&""
  470. UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("Topic")&"</A>"
  471. addtime = Search_RS("AddDate")
  472. if isnull(addtime) then addtime=""
  473. if isdate(addtime) then addtime = FormatDateTime(addtime,0)
  474. NewsSmallPicFile = Search_RS("Face")
  475. NewsPicFile = Search_RS("Face")
  476. if NewsSmallPicFile = "" then 
  477. NewsSmallPicFile = "sys_images/NoPic.jpg"
  478. else
  479. NewsSmallPicFile = Cookie_Domain&"/sys_images/emot/face"&NewsSmallPicFile&".gif"
  480. end if
  482. NaviContent = Search_RS("Body")
  483. if isnull(NaviContent) or NaviContent="" then 
  484. NaviContent = "暂无"
  485. else
  486. NaviContent = morestr(Lose_Html(NaviContent),255)
  487. NaviContent = Search_TextArr(Keyword,"Body",NaviContent)
  488. end if
  489. FileSize = ""
  490. FileEditDate = addtime
  491. case "DS"
  492. set SysRs_Tmp = Conn.execute("select DownDir,IsDomain From FS_DS_SysPara")
  493. if not SysRs_Tmp.eof then 
  494. if not isnull(SysRs_Tmp("IsDomain")) and SysRs_Tmp("IsDomain") <> "" then 
  495. ChildDomain  =  SysRs_Tmp("IsDomain")
  496. else
  497. ChildDomain =Cookie_Domain&"/"&SysRs_Tmp("DownDir")
  498. end if
  499. LocalUrl = "/"&SysRs_Tmp("DownDir")
  500. end If
  501. SysRs_Tmp.close
  502. if isnull(ChildDomain) then ChildDomain = ""
  503. ClassPath = Search_RS("ClassEName")
  504. if isnull(ClassPath) then ClassPath = ""
  505. if right(ChildDomain,1)="/" then ChildDomain = mid(ChildDomain,1,len(ChildDomain) - 1)
  506. if ChildDomain<>"" then 
  507. if left(lcase(ChildDomain),len("http://"))<>"http://" then ChildDomain = "http://"&ChildDomain
  508. else
  509. ChildDomain = Cookie_Domain
  510. end if
  511. if ClassPath<>"" then ClassPath = replace(ClassPath,"/","")   
  512. if len(ChildDomain&"/"&ClassPath)>1 then ChildPath = ChildDomain&"/"&ClassPath
  513. SaveNewsPath = ChildPath & Search_RS("SavePath")
  514. if right(SaveNewsPath,1)<>"/" then SaveNewsPath = SaveNewsPath&"/"
  516. SaveNewsPath = SaveNewsPath & Search_RS("FileName") &"."& Search_RS("FileExtName")
  517. UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("Name")&"</A>"
  518. addtime = Search_RS("addtime")
  519. if isnull(addtime) then addtime=""
  520. if isdate(addtime) then addtime = FormatDateTime(addtime,0)
  521. NewsSmallPicFile = Search_RS("Pic")
  522. NewsPicFile = Search_RS("Pic")
  523. if NewsSmallPicFile = "" then 
  524. NewsSmallPicFile = "sys_images/NoPic.jpg"
  525. end if
  527. NaviContent = Search_RS("Description")
  528. if isnull(NaviContent) or NaviContent="" then 
  529. NaviContent = "暂无"
  530. else
  531. NaviContent = morestr(Lose_Html(NaviContent),255)
  532. NaviContent = Search_TextArr(Keyword,"Description",NaviContent)
  533. end if
  534. LocalUrl = LocalUrl&"/"&ClassPath&Search_RS("SavePath")&"/"&Search_RS("FileName") &"."& Search_RS("FileExtName")
  535. FileSize = split(CheckFile(LocalUrl),"|")(0)
  536. FileEditDate = split(CheckFile(LocalUrl),"|")(1)
  537. case "MS"
  538. set SysRs_Tmp = Conn.execute("select SavePath,IsDomain From FS_MS_SysPara")
  539. if not SysRs_Tmp.eof then 
  540. if not isnull(SysRs_Tmp("IsDomain")) and SysRs_Tmp("IsDomain") <> "" then 
  541. ChildDomain  =  SysRs_Tmp("IsDomain")
  542. else
  543. ChildDomain = SysRs_Tmp("SavePath")
  544. end if
  545. LocalUrl = "/"&SysRs_Tmp("SavePath")
  546. end if
  547. SysRs_Tmp.close
  548. if isnull(ChildDomain) then ChildDomain = ""
  549. ClassPath = Search_RS("ClassEName")
  550. if isnull(ClassPath) then ClassPath = ""
  551. if right(ChildDomain,1)="/" then ChildDomain = mid(ChildDomain,1,len(ChildDomain) - 1)
  552. if ChildDomain<>"" then 
  553. if left(lcase(ChildDomain),len("http://"))<>"http://" then ChildDomain = "http://"&ChildDomain
  554. else
  555. ChildDomain =Cookie_Domain&"/"&SysRs_Tmp("NewsDir")     
  556. end if
  557. if ClassPath<>"" then ClassPath = replace(ClassPath,"/","")
  558. if len(ChildDomain&"/"&ClassPath)>1 then ChildPath = ChildDomain&"/"&ClassPath
  559. SaveNewsPath = ChildPath & Search_RS("SavePath")
  560. if right(SaveNewsPath,1)<>"/" then SaveNewsPath = SaveNewsPath&"/"
  562. SaveNewsPath = SaveNewsPath & Search_RS("FileName") &"."& Search_RS("FileExtName")
  563. UrlAndTitle = "<A class=l href="""&SaveNewsPath&""" target=_blank>"&Search_RS("ProductTitle")&"</A>"
  564. addtime = Search_RS("addtime")
  565. if isnull(addtime) then addtime=""
  566. if isdate(addtime) then addtime = FormatDateTime(addtime,0)
  567. NewsSmallPicFile = Search_RS("smallPic")
  568. NewsPicFile = Search_RS("BigPic")
  569. if NewsSmallPicFile = "" then 
  570. NewsSmallPicFile = "sys_images/NoPic.jpg"
  571. end if
  573. NaviContent = Search_RS("ProductContent")
  574. if isnull(NaviContent) or NaviContent="" then 
  575. NaviContent = "暂无"
  576. else
  577. NaviContent = morestr(Lose_Html(NaviContent),255)
  578. NaviContent = Search_TextArr(Keyword,"ProductContent",NaviContent)
  579. end if
  580. LocalUrl = LocalUrl&"/"&ClassPath&Search_RS("SavePath")&"/"&Search_RS("FileName") &"."& Search_RS("FileExtName")
  581. FileSize = split(CheckFile(LocalUrl),"|")(0)
  582. FileEditDate = split(CheckFile(LocalUrl),"|")(1)
  583. end select
  584. Content="<TABLE cellSpacing=1 cellPadding=1 border=0 width=""80%"">"&vbNewLine _
  585. &"<TBODY>"&vbNewLine _
  586.   &"<TR>"&vbNewLine _  
  587. &"<TD class=pic rowspan=2 align=center>"&vbNewLine 
  588. if NewsPicFile<>"" then 
  589. picShuXingB = CheckFile(NewsPicFile)
  590. if len(picShuXingB)>5 then picShuXingB = "["&picShuXingB&"]" else picShuXingB="" end if 
  591. 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
  592. else
  593. Content=Content&"<img border=0 src=""sys_images/NoPic.jpg"" onload=""if(this.offsetWidth>120)this.width=120;""></TD>"&vbNewLine
  594. end if
  595. picShuXing="":picShuXingB=""
  596. Content=Content &"<TD class=content valign=top>"&vbNewLine _
  597. &"<font size=-1>"&NaviContent&"</font>"&vbNewLine _
  598. &"</TD>"&vbNewLine _
  599.   &"</TR>"&vbNewLine _
  600.   &"<TR>"&vbNewLine _ 
  601. &"<TD height=21><font size=-1>"&vbNewLine _
  602. &"<font color=#008000>"&SaveNewsPath&" - "&FileSize&" "&FileEditDate&" </font>" _
  603. &"<a class=fl href=""javascript:window.external.AddFavorite('"&SaveNewsPath&"', '"&Cookie_Site_Name&"')"">加入收藏</a>"&vbNewLine _
  604. &" - <a class=fl href=""#"" onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('"&SaveNewsPath&"')"">设为主页</a>"&vbNewLine
  605. 'Content=Content &" - <a class=fl href=""#"" onClick=""window.open('http://www.ueuo.cn/?URL="&server.URLEncode(SaveNewsPath)&"&KeyWord="&server.URLEncode(Keyword)&"');"">加入网络收藏夹</a>"&vbNewLine 
  606. Content=Content &"</font></TD>"&vbNewLine _
  607.   &"</TR>"&vbNewLine _
  608. &"</TBODY>"&vbNewLine _
  609.    &"</TABLE>"&vbNewLine
  610. if int_Start = 1 then%>      
  611. <TABLE class="t bt" cellSpacing=0 cellPadding=0 width="100%" border=0>
  612.   <TBODY>
  613.   <TR>
  614.     <TD noWrap><FONT size=+1>&nbsp;<B><FONT size=+1>&nbsp;<B><%=TmpStr%></B></FONT>&nbsp;</B></FONT>&nbsp;</TD>
  615.     <TD noWrap align=right>
  616. <FONT size=-1>共有<B><%=Search_RS.recordcount%></B>项符合 <B><%=morestr(Keyword,30)%></B> 的查询结果，
  617. 以下是第 <B>1</B> - <B>10</B> 项。（搜索用时 <B><%=FormatNumber((timer()-starttime),2,-1)%></B> 秒）&nbsp;</FONT>
  618. </TD></TR></TBODY></TABLE>
  619. <%end if%>
  620. <DIV>
  621. <div>
  622.   <P class=g>
  623.   <%
  624.   ''标题
  625.   response.Write(UrlAndTitle)
  626.   response.Write("<font size=-2 color=#666666>")
  627. select case  SubSys
  628. case "NS","RD"
  629.   response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
  630.   response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  631.   if SubSys="NS" then response.Write("<img border=0 src=""sys_images/alert.gif"">"&Replacestr(Search_Rs("ClassName"),":,else:"&Search_Rs("ClassName")))
  632.   response.Write(Replacestr(Search_Rs("PopId"),"5:总置顶,4:栏目置顶,3:总推荐文章,else:普通")&vbNewLine)
  633.   response.Write(Replacestr(Search_Rs("IsURL"),"0:,else: | 标题新闻"))
  634.   response.Write(Replacestr(Search_Rs("isPicNews"),"0:,else: | <img border=0 title=""图"" src=""sys_images/img.jpg"">"))
  635.   response.Write(Replacestr(Search_Rs("TodayNewsPic"),":,else: | 图片头条"))
  636.   response.Write(Replacestr(Search_Rs("Source"),":,else: | "&Search_Rs("Source")))
  637.   response.Write(Replacestr(Search_Rs("Author"),":,else: | "&Search_Rs("Author")))
  638.   response.Write(Replacestr(Search_Rs("Hits"),":,else: | ["&Search_Rs("Hits")&"]"))
  639. case "DS" 
  640.   response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
  641.   response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&Replacestr(Search_Rs("ClassName"),":,else:"&Search_Rs("ClassName")))
  642.   response.Write(Replacestr(Search_Rs("RecTF"),"1: | 推荐,else:"))
  643.   response.Write(Replacestr(Search_Rs("Types"),"1: | 图片,2: | 文件,3: | 程序,4: | Flash,5: | 音乐,6: | 影视,7: | 其它"))
  644.   response.Write(Replacestr(Search_Rs("ClickNum"),":,else: | 热度["&Search_Rs("ClickNum")))
  645.   response.Write(Replacestr(Search_Rs("Hits"),":,else: | "&Search_Rs("Hits")&"]"))
  646.   response.Write(Replacestr(Search_Rs("ConsumeNum"),"0:,else: | 需要点数["&Search_Rs("ConsumeNum")&"]"))
  647. case "WS" 
  648.   response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
  649.   response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&Replacestr(Search_Rs("ClassName"),":,else:"&Search_Rs("ClassName")))
  650.   response.Write(Replacestr(Search_Rs("ParentID"),"0: | <strong>话题</strong>,else:回复"))
  651.   response.Write(Replacestr(Search_Rs("User"),":未知用户,else:"&Search_Rs("User")))
  652.   response.Write(Replacestr(Search_Rs("IsTop"),"1: | 推荐,else:"))
  653.   response.Write(Replacestr(Search_Rs("Answer"),":,else: | 回复["&Search_Rs("Answer")&"]"))
  654.   response.Write(Replacestr(Search_Rs("Hit"),":,else: | Hit["&Search_Rs("Hit")&"]"))
  655.   response.Write(Replacestr(Search_Rs("LastUpdateDate"),":,else: | LastTime["&Search_Rs("LastUpdateDate")&""))
  656.   response.Write(Replacestr(Search_Rs("LastUpdateUser"),":,else: | "&Search_Rs("LastUpdateUser")&"]"))
  657.   response.Write(Replacestr(Search_Rs("IP"),":,else:"&Search_Rs("IP")))
  658.   response.Write(Replacestr(Search_Rs("Vistor"),"0: | 游客可访,else:"))
  659. case "MS"
  660.   response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&addtime&vbNewLine)
  661.   response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&Replacestr(Search_Rs("ClassCName"),":,else:"&Search_Rs("ClassCName")))
  662.   response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(0),"1: | 推荐,else:")))
  663.   response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(1),"1: | 热点,else:")))
  664.   response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(2),"1: | 置顶,else:")))
  665.   response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(3),"1: | 特价,else:")))
  666.   response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(4),"1: | 锁定,else:")))
  667.   response.Write(Replacestr(Search_Rs("StyleFlagBit"),":,else:"&Replacestr(split(Search_Rs("StyleFlagBit"),",")(5),"1: | 促销,else:")))
  668.   response.Write(Replacestr(Search_Rs("Click"),":,else: | ["&Search_Rs("Click")&"]"))
  669.   response.Write(Replacestr(Search_Rs("Stockpile"),":,else: | 库存"&Search_Rs("Stockpile")))
  670.   response.Write(Replacestr(Search_Rs("StockpileWarn"),"1:[<font color=red>库存不够</font>],else:"))
  671.   response.Write(Replacestr(Search_Rs("OldPrice"),"0:,else: | [市场价"&Search_Rs("OldPrice")))
  672.   response.Write(Replacestr(Search_Rs("NewPrice"),"0:0],else: | 商城价"&Search_Rs("NewPrice")&"]"))
  673.   response.Write(Replacestr(left(Search_Rs("IsWholesale"),1),"1: | 可批发,else:"))
  674.   response.Write(Replacestr(Search_Rs("MakeFactory"),":,else: | "&Search_Rs("MakeFactory")))
  675.   response.Write(Replacestr(Search_Rs("ProductsAddress"),":,else: | "&replace(Search_Rs("ProductsAddress"),","," ")))
  676.   response.Write(" | "&Replacestr(Search_Rs("SaleStyle"),"0:正常,1:竞拍,2:一口价,3:特价,4:降价"))
  677.   response.Write(Replacestr(Search_Rs("Discount"),":,else: | 折率["&Search_Rs("Discount")&"]"))
  678.   response.Write(Replacestr(Search_Rs("DiscountStartDate"),":,else:["&Search_Rs("DiscountStartDate")&"-"))
  679.   response.Write(Replacestr(Search_Rs("DiscountEndDate"),":,else:"&Search_Rs("DiscountEndDate")&"]"))
  680. end select
  681.   response.Write("</font>")
  682.   response.Write(Content)
  683. %>
  684. </div>
  685. <%
  687. ''+++++++++++++++++++++++++++++++++++++++
  688. Search_RS.MoveNext
  689. if Search_RS.eof or Search_RS.bof then exit for
  690.   NEXT
  691. %>
  692. <BR clear=all>
  693. <DIV class=n id=navbar> 
  694.   <TABLE cellSpacing=0 cellPadding=0 width="1%" align=center border=0>
  695.     <TBODY>
  696.       <TR style="TEXT-ALIGN: center" vAlign=top align=middle> 
  697.         <TD vAlign=bottom noWrap class=i><FONT size=-1>结果页码:&nbsp;</FONT> 
  698.         <TD noWrap class="i"><font size=-1>&nbsp; 
  699. <%response.Write( fPageCount(Search_RS,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf )%>
  700. </font></TR>
  701.     </TBODY>
  702.   </TABLE>
  703. </DIV> 
  704. <%
  705. END IF
  706. RsClose
  708. end select
  711. Sub RsClose()
  712. Search_RS.Close
  713. Set Search_RS = Nothing
  714. end Sub
  716. Set Old_News_Conn = Nothing
  717. Set Conn = Nothing
  718. response.End()
  719. %>