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

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

数据库编程

开发平台：

ASP/ASPX

MF_Public.asp：源码内容
  1. <%
  2. Class cls_MF
  3. '定义参数
  4. Private m_Rs,m_FSO,m_Dict
  5. Private m_PathDir,m_Path_UserDir,m_Path_User,m_Path_adminDir,m_Path_UserPageDir,m_Path_Templet
  6. Private m_Err_Info,m_Err_NO
  7. Private Sub Class_initialize()
  8. Set m_Rs = Server.CreateObject(G_FS_RS)
  9. Set m_FSO = Server.CreateObject(G_FS_FSO)
  10. Set m_Dict = Server.CreateObject(G_FS_DICT)
  11. m_PathDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/","//","/")
  12. m_Path_UserDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_USER_DIR&"/","//","/")
  13. m_Path_UserPageDir = replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_USERFILES_DIR&"/","//","/")
  14. m_Path_Templet  = replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_TEMPLETS_DIR&"/","//","/")
  15. End Sub 
  17. Private Sub Class_Terminate() 
  18. Set m_Rs = Nothing
  19. Set m_FSO = Nothing
  20. Set m_Dict = Nothing
  21. End Sub
  22. '获得参数
  23. Public Function get_LableChar(f_Lablechar,f_Id,f_position)
  24. Dim f_array
  25. f_array= split(f_Lablechar,"┆")
  26. if ubound(f_array)=0 and not isarray(f_array) then
  27. get_LableChar=""
  28. exit Function
  29. else
  30. select case LCase(f_array(0))
  31. Case "postionnavi"
  32. if ubound(f_array)<>4   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=PostionNavi(f_Lablechar,"postionnavi",f_id,f_position):end if
  33. Case "pagetitle"
  34. if ubound(f_array)<>3   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=PageTitle(f_Lablechar,"pagetitle",f_id,f_position):end if
  35. Case "sitemap"
  36. if ubound(f_array)<>3   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=SiteMap(f_Lablechar,"sitemap",f_id,f_position):end if
  37. Case "search"
  38. if ubound(f_array)<>2   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=Search(f_Lablechar,"search",f_id,f_position):end if
  39. Case "infostat"
  40. if ubound(f_array)<>1   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=InfoStat(f_Lablechar,"infostat",f_id,f_position):end if
  41. Case "userlogin"
  42. if ubound(f_array)<>1   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=UserLogin(f_Lablechar,"userlogin",f_id,f_position):end if
  43. Case "copyright"
  44. if ubound(f_array)<>1   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=CopyRight(f_Lablechar,"copyright",f_id,f_position):end if
  45. Case "sublist"
  46. if ubound(f_array)<>2   then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=SubList(f_Lablechar,"sublist",f_id,f_position):end if
  47. end select
  48. end if
  49. End Function
  50. '位置导航
  51. Public Function PostionNavi(f_Lablechar,f_type,f_id,f_position)
  52. if trim(f_position)="" then
  53. PostionNavi = ""
  54. else
  55. dim fg_str,char_str,positCss,linkCss,mf_domain,mf_sitename,mf_filename,ns_dir,ns_domain,ns_sitename,ns_path,mf_linkpath
  56. dim ms_domain,ms_dir,ms_path,ds_domain,ds_dir,ds_path
  57. fg_str = split(split(f_Lablechar,"┆")(1),"$")(1)
  58. char_str = split(split(f_Lablechar,"┆")(2),"$")(1)
  59. positCss = split(split(f_Lablechar,"┆")(3),"$")(1)
  60. if positCss<>"" then:positCss = " class="""& positCss &"""":else:positCss = "":end if
  61. linkCss = split(split(f_Lablechar,"┆")(4),"$")(1)
  62. if linkCss<>"" then:linkCss = " class="""& linkCss &"""":else:linkCss = "":end if
  63. if request.Cookies("FoosunMFCookies")("FoosunMFDomain") = "" or Request.Cookies("FoosunMFCookies")=empty then
  64. MFConfig_Cookies:NSConfig_Cookies:DSConfig_Cookies
  65. end if
  66. mf_domain = request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  67. mf_sitename = request.Cookies("FoosunMFCookies")("FoosunMFsiteName")
  68. mf_filename = request.Cookies("FoosunMFCookies")("FoosunMFIndexFileName")
  69. ns_dir = request.Cookies("FoosunNSCookies")("FoosunNSNewsDir")
  70. ns_domain = request.Cookies("FoosunNSCookies")("FoosunNSDomain")
  71. ns_sitename = request.Cookies("FoosunNSCookies")("FoosunNSSiteName")
  72. if trim(ns_domain)<>"" then
  73. ns_path = fg_str & ""
  74. else
  75. ns_path = fg_str & "<a href=""http://"&mf_domain&"/"&ns_dir&"/"&mf_filename&""""&linkCss&">"&ns_sitename&"</a>"
  76. end if
  77. mf_linkpath = "http://"& mf_domain &"/"& mf_filename
  78. If IsExist_SubSys("MS") Then
  79. if request.Cookies("FoosunMSCookies")("FoosunMSDomain")="" or Request.Cookies("FoosunMSCookies")=empty then
  80. MSConfig_Cookies
  81. end if
  82. ms_domain = request.Cookies("FoosunMSCookies")("FoosunMSDomain")
  83. ms_dir = request.Cookies("FoosunMSCookies")("FoosunMSDir")
  84. if trim(ms_domain)<>"" then
  85. ms_path = fg_str & "<a href=""http://" & ms_domain & """"&linkCss&">商城首页</a>"
  86. else
  87. ms_path = fg_str & "<a href=""http://" & mf_domain & "/" & ms_dir & """"&linkCss&">商城首页</a>"
  88. end If
  89. End If
  90. if IsExist_SubSys("DS") then
  91. if request.Cookies("FoosunDSCookies")("FoosunDSDomain")="" or Request.Cookies("FoosunDSCookies")=empty then
  92. DSConfig_Cookies
  93. end if
  94. ds_domain = request.Cookies("FoosunDSCookies")("FoosunDSDomain")
  95. ds_dir = request.Cookies("FoosunDSCookies")("FoosunDSDownDir")
  96. if trim(ds_domain)<>"" then
  97. ds_path = fg_str & "<a href=""http://"& ds_domain &""""&linkCss&">下载中心</a>"
  98. else
  99. ds_path = fg_str & "<a href=""http://"& mf_domain & "/" & ds_dir &""""&linkCss&">下载中心</a>"
  100. end If
  101. End If
  102. if IsExist_SubSys("SD") then
  103. dim sd_rs,sd_path
  104. set  sd_rs =Conn.execute("select top 1 Domain,SavePath From FS_SD_Config")
  105. if sd_rs.eof then
  106. sd_path = "http://"& mf_domain & "/supply"
  107. sd_rs.close:set sd_rs = nothing
  108. else
  109. If sd_rs("Domain")<>"" then
  110. sd_path = "http://"& sd_rs("Domain")
  111. else
  112. sd_path = "http://"& mf_domain & "/"&sd_rs("SavePath")
  113. end if
  114. sd_rs.close:set sd_rs = nothing
  115. end if
  116. end If
  117. Select Case Lcase(f_position)
  118. Case "mf"
  119. PostionNavi =  "<span"&positCss&">首页</span>"
  120. Case "ns"
  121. PostionNavi = "<a href=""http://"& mf_domain & """ class="""&positCss&""">首页</a>" & ns_path
  122. Case "ns_news"
  123. PostionNavi = GetNewsLocationStr(mf_sitename,mf_linkpath,ns_path,f_id,fg_str,char_str,positCss,linkCss)
  124. Case "ns_class"
  125. PostionNavi = GetClassLocationStr(mf_sitename,mf_linkpath,ns_path,f_id,fg_str,char_str,positCss,linkCss)&fg_str&" <span"&positCss&">列表</span>"
  126. Case "ns_special"
  127. PostionNavi = GetSpecialLocationStr(mf_sitename,mf_linkpath,ns_path,f_id,fg_str,char_str,positCss,linkCss)&fg_str&" <span"&positCss&">列表</span>"
  128. Case "ms"
  129. PostionNavi = "<a href=""http://"& mf_domain & """ class="""&positCss&""">首页</a>"& ms_path
  130. Case "ms_news"
  131. PostionNavi = GetmsNewsLocationStr(mf_sitename,mf_linkpath,ms_path,f_id,fg_str,char_str,positCss,linkCss)
  132. Case "ms_class"
  133. PostionNavi = GetmsClassLocationStr(mf_sitename,mf_linkpath,ms_path,f_id,fg_str,char_str,positCss,linkCss)&fg_str&" <span"&positCss&">列表</span>"
  134. Case "ms_special"
  135. PostionNavi = GetmsSpecialLocationStr(mf_sitename,mf_linkpath,ms_path,f_id,fg_str,char_str,positCss,linkCss)&fg_str&" <span"&positCss&">列表</span>"
  136. Case "ds"
  137. PostionNavi = "<a href=""http://"& mf_domain & """ class="""&positCss&""">首页</a>"& ds_path
  138. Case "ds_news"
  139. PostionNavi = GetdsNewsLocationStr(mf_sitename,mf_linkpath,ds_path,f_id,fg_str,char_str,positCss,linkCss)
  140. Case "ds_class"
  141. PostionNavi = GetdsClassLocationStr(mf_sitename,mf_linkpath,ds_path,f_id,fg_str,char_str,positCss,linkCss)&fg_str&" <span"&positCss&">列表</span>"
  142. Case "me_photonews"
  143. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">相册</span>"&fg_str&"浏览"
  144. Case "me_photoclass"
  145. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">相册</span>"
  146. Case "me_news"
  147. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">日志/网摘</span>"
  148. Case "me_class"
  149. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">日志/网摘</span>"& fg_str &"<span"& positCss &">"&GetFriendNumber(f_id)&"的列表</span>"
  150. Case "ap_jobnews"
  151. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">人才中心</span>"& fg_str &"<span"& positCss &">个人求职浏览</span>"
  152. Case "ap_hrnews"
  153. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">人才中心</span>"& fg_str &"<span"& positCss &">招聘浏览</span>"
  154. Case "ap_jobclass"
  155. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">人才中心</span>"& fg_str &"<span"& positCss &">个人求职列表</span>"
  156. Case "ap_hrclass"
  157. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">人才中心</span>"& fg_str &"<span"& positCss &">招聘列表</span>"
  158. Case "me_"
  159. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">日志/网摘主页</span>"
  160. Case "hs_hrnews"
  161. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <span"& positCss &">房产</span>"
  162. Case "sd_news"
  163. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &" <a href="""& sd_path &""""&linkcss&">供求信息</a>"& fg_str &"<span"& positCss &">供求浏览</span>"
  164. Case "sd_class"
  165. PostionNavi = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>"& fg_str &"<a href="""& sd_path &""""&linkcss&">供求信息</a>"& fg_str &"<span"& positCss &">供求列表</span>"
  166. End Select
  167. end if
  168. End Function
  169. '标题位置
  170. Public Function PageTitle(f_Lablechar,f_type,f_id,f_position)
  171. '{FS:MF=PageTitle┆附属文字$风讯__Foosun.CN┆附属文字位置$1┆分割字符$__}
  172. '{FS:MF=PageTitle┆附属文字$风讯__Foosun.CN┆附属文字位置$0┆分割字符$__}
  173. dim char_conc,char_post,fg_char
  174. dim mf_sitename,ns_sitename,rs
  175. char_conc = split(split(f_Lablechar,"┆")(1),"$")(1)
  176. char_post = split(split(f_Lablechar,"┆")(2),"$")(1)
  177. if char_post = "1" then:char_post=1:else:char_post=0:end if
  178. fg_char = split(split(f_Lablechar,"┆")(3),"$")(1)
  179. if request.Cookies("FoosunMFCookies")("FoosunMFDomain") = "" or Request.Cookies("FoosunMFCookies")=empty then
  180. MFConfig_Cookies:NSConfig_Cookies:DSConfig_Cookies
  181. end if
  182. mf_sitename = request.Cookies("FoosunMFCookies")("FoosunMFsiteName")
  183. ns_sitename = request.Cookies("FoosunNSCookies")("FoosunNSSiteName")
  184. Select Case Lcase(f_position)
  185. Case "mf"
  186. if char_post = 1 then
  187. PageTitle =  mf_sitename&fg_char&"首页"&fg_char&char_conc
  188. else
  189. PageTitle =  char_conc&fg_char&mf_sitename&fg_char&"首页"
  190. end if
  191. Case "ns_news"
  192.  dim ns_news
  193.  set rs = Conn.execute("select NewsTitle From FS_NS_News where NewsId='"& f_id &"'")
  194.  if rs.eof then
  195.   ns_news = ns_sitename
  196.   rs.close:set rs = nothing
  197.  else
  198.   ns_news = rs(0)
  199.   rs.close:set rs = nothing
  200.  end if
  201. if char_post = 1 then
  202. PageTitle = ns_news&fg_char&char_conc
  203. else
  204. PageTitle = char_conc&fg_char&ns_news
  205. end if
  206. Case "ns_class"
  207. dim ns_class
  208. set rs = Conn.execute("select ClassName From FS_NS_NewsClass Where ClassId='"&f_id&"'")
  209.  if rs.eof then
  210.   ns_class = ns_sitename
  211.   rs.close:set rs = nothing
  212.  else
  213.   ns_class = rs(0)
  214.   rs.close:set rs = nothing
  215.  end if
  216. if char_post = 1 then
  217. PageTitle = ns_class&fg_char&char_conc
  218. else
  219. PageTitle = char_conc&fg_char&ns_class
  220. end if
  221. Case "ns_special"
  222. dim ns_special
  223. if not isnumeric(f_id) then
  224. PageTitle = ns_sitename
  225. else
  226. set rs = Conn.execute("select SpecialCName From FS_NS_Special Where SpecialID="&f_id&"")
  227.  if rs.eof then
  228. ns_special = ns_sitename
  229. rs.close:set rs = nothing
  230.  else
  231. ns_special = rs(0)
  232. rs.close:set rs = nothing
  233.  end if
  234. if char_post = 1 then
  235. PageTitle = ns_special&fg_char&char_conc
  236. else
  237. PageTitle = char_conc&fg_char&ns_special
  238. end if
  239. end if
  240. Case "ms_news"
  241. dim ms_news
  242. if not isnumeric(f_id) then
  243. PageTitle = mf_sitename
  244. else
  245. set rs = Conn.execute("select ProductTitle From FS_MS_Products Where ID="&f_id&"")
  246.  if rs.eof then
  247. ms_news = mf_sitename
  248. rs.close:set rs = nothing
  249.  else
  250. ms_news = rs(0)
  251. rs.close:set rs = nothing
  252.  end if
  253. if char_post = 1 then
  254. PageTitle = ms_news&fg_char&char_conc
  255. else
  256. PageTitle = char_conc&fg_char&ms_news
  257. end if
  258. end if
  260. Case "ms_class"
  261. if IsExist_SubSys("MS") then
  262. dim ms_class
  263. if f_id = "" then
  264. PageTitle = mf_sitename
  265. else
  266. set rs = Conn.execute("select ClassCName From FS_MS_ProductsClass Where ClassID='"&f_id&"'")
  267.  if rs.eof then
  268. ms_class = mf_sitename
  269. rs.close:set rs = nothing
  270.  else
  271. ms_class = rs(0)
  272. rs.close:set rs = nothing
  273.  end if
  274. if char_post = 1 then
  275. PageTitle = ms_class&fg_char&char_conc
  276. else
  277. PageTitle = char_conc&fg_char&ms_class
  278. end if
  279. end if
  280. end if
  281. Case "ms_special"
  282. if IsExist_SubSys("MS") then
  283. dim ms_special
  284. if not isnumeric(f_id) then
  285. PageTitle = mf_sitename
  286. else
  287. set rs = Conn.execute("select SpecialCName From FS_MS_Special Where specialID="&f_id&"")
  288.  if rs.eof then
  289. ms_special = mf_sitename
  290. rs.close:set rs = nothing
  291.  else
  292. ms_special = rs(0)
  293. rs.close:set rs = nothing
  294.  end if
  295. if char_post = 1 then
  296. PageTitle = ms_special&fg_char&char_conc
  297. else
  298. PageTitle = char_conc&fg_char&ms_special
  299. end if
  300. end if
  301. end if
  302. Case "ds_news"
  303. dim ds_news
  304. if f_id = "" then
  305. PageTitle = mf_sitename
  306. else
  307. set rs = Conn.execute("select Name From FS_DS_List Where DownLoadID='"&f_id&"'")
  308.  if rs.eof then
  309. ds_news = mf_sitename
  310. rs.close:set rs = nothing
  311.  else
  312. ds_news = rs(0)
  313. rs.close:set rs = nothing
  314.  end if
  315. if char_post = 1 then
  316. PageTitle = ds_news&fg_char&char_conc
  317. else
  318. PageTitle = char_conc&fg_char&ds_news
  319. end if
  320. end if
  321. Case "ds_class"
  322. dim ds_class
  323. if f_id = "" then
  324. PageTitle = mf_sitename
  325. else
  326. set rs = Conn.execute("select ClassName From FS_DS_Class Where ClassID='"&f_id&"'")
  327.  if rs.eof then
  328. ds_class = mf_sitename
  329. rs.close:set rs = nothing
  330.  else
  331. ds_class = rs(0)
  332. rs.close:set rs = nothing
  333.  end if
  334. if char_post = 1 then
  335. PageTitle = ds_class&fg_char&char_conc
  336. else
  337. PageTitle = char_conc&fg_char&ds_class
  338. end if
  339. end if
  340. Case "me_photonews"
  341. dim me_photonews
  342. if not isnumeric(f_id) then
  343. PageTitle = mf_sitename
  344. else
  345. set rs = User_Conn.execute("select title From FS_ME_Photo Where id="&f_id&"")
  346.  if rs.eof then
  347. me_photonews = mf_sitename
  348. rs.close:set rs = nothing
  349.  else
  350. me_photonews = rs(0)
  351. rs.close:set rs = nothing
  352.  end if
  353. if char_post = 1 then
  354. PageTitle = me_photonews&fg_char&char_conc
  355. else
  356. PageTitle = char_conc&fg_char&me_photonews
  357. end if
  358. end if
  359. Case "me_photoclass"
  360. dim me_photoclass
  361. if not isnumeric(f_id) then
  362. PageTitle = mf_sitename
  363. else
  364. set rs = User_Conn.execute("select title From FS_ME_PhotoClass Where id="&f_id&"")
  365.  if rs.eof then
  366. me_photoclass = mf_sitename
  367. rs.close:set rs = nothing
  368.  else
  369. me_photoclass = rs(0)
  370. rs.close:set rs = nothing
  371.  end if
  372. if char_post = 1 then
  373. PageTitle = me_photoclass&fg_char&char_conc
  374. else
  375. PageTitle = char_conc&fg_char&me_photoclass
  376. end if
  377. end if
  378. Case "me_news"
  379. dim me_news
  380. if not isnumeric(f_id) then
  381. PageTitle = mf_sitename
  382. else
  383. set rs = User_Conn.execute("select Title From FS_ME_Infoilog Where iLogID="&f_id&"")
  384.  if rs.eof then
  385. me_news = mf_sitename
  386. rs.close:set rs = nothing
  387.  else
  388. me_news = rs(0)
  389. rs.close:set rs = nothing
  390.  end if
  391. if char_post = 1 then
  392. PageTitle = me_news&fg_char&char_conc
  393. else
  394. PageTitle = char_conc&fg_char&me_news
  395. end if
  396. end if
  397. Case "me_class"
  398. dim me_class
  399. if not isnumeric(f_id) then
  400. PageTitle = mf_sitename
  401. else
  402. set rs = Conn.execute("select ClassCName From FS_ME_InfoClass Where ClassID="&f_id&"")
  403.  if rs.eof then
  404. me_class = mf_sitename
  405. rs.close:set rs = nothing
  406.  else
  407. me_class = rs(0)
  408. rs.close:set rs = nothing
  409.  end if
  410. if char_post = 1 then
  411. PageTitle = me_class&fg_char&char_conc
  412. else
  413. PageTitle = char_conc&fg_char&me_class
  414. end if
  415. end if
  417. Case "ap_jobnews"
  418. if IsExist_SubSys("AP") then
  420. end if
  421. Case "ap_hrnews"
  422. if IsExist_SubSys("AP") then
  424. end if
  425. Case "ap_jobclass"
  426. if IsExist_SubSys("AP") then
  428. end if
  429. Case "ap_hrclass"
  430. if IsExist_SubSys("AP") then
  432. end if
  433. Case "me_"
  434. if char_post = 1 then
  435. PageTitle = "日志/网摘"&fg_char&char_conc
  436. else
  437. PageTitle = char_conc&fg_char&"日志/网摘"
  438. end if
  439. Case "hs_news"
  440. if IsExist_SubSys("HS") then
  442. end if
  443. Case "sd_news"
  444. if IsExist_SubSys("SD") then
  445. dim sd_news
  446. if not isnumeric(f_id) then
  447. PageTitle = mf_sitename
  448. else
  449. set rs = Conn.execute("select PubTitle From FS_SD_News Where ID="&f_id&"")
  450.  if rs.eof then
  451. sd_news = mf_sitename
  452. rs.close:set rs = nothing
  453.  else
  454. sd_news = rs(0)
  455. rs.close:set rs = nothing
  456.  end if
  457. if char_post = 1 then
  458. PageTitle = sd_news&fg_char&char_conc
  459. else
  460. PageTitle = char_conc&fg_char&sd_news
  461. end if
  462. end if
  463. end if
  464. Case "sd_class"
  465. if IsExist_SubSys("SD") then
  466. dim sd_class
  467. if not isnumeric(f_id) then
  468. PageTitle = mf_sitename
  469. else
  470. set rs = Conn.execute("select GQ_ClassName From FS_SD_Class Where ID="&f_id&"")
  471.  if rs.eof then
  472. sd_class = mf_sitename
  473. rs.close:set rs = nothing
  474.  else
  475. sd_class = rs(0)
  476. rs.close:set rs = nothing
  477.  end if
  478. if char_post = 1 then
  479. PageTitle = sd_class&fg_char&char_conc
  480. else
  481. PageTitle = char_conc&fg_char&sd_class
  482. end if
  483. end if
  484.  End if
  485. End Select
  486. End Function
  489. '搜索
  490. Public Function Search(f_Lablechar,f_type,f_id,f_position)
  491. 'Search┆日期搜索$0┆模糊搜索$0
  492. dim DateTF,SearchType,datestr,searchetypestr,Searchstr,MF_Domain,subsyslist,subsys
  493. DateTF = split(split(f_Lablechar,"┆")(1),"$")(1)
  494. SearchType = split(split(f_Lablechar,"┆")(2),"$")(1)
  495. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  496. if DateTF = "1" then
  497. datestr = "开始日期:<input name=""s_date"" type=""text"" value="""&date()-1&""" size=""10"" />结束日期：<input name=""e_date"" type=""text"" value="""&date()&""" size=""10"" />"
  498. else
  499. datestr = ""
  500. end if
  501. if SearchType = "1" then
  502. searchetypestr = " 模糊搜索:<input name=""SearchType"" type=""checkbox"" id=""SearchType"" value=""1"" />"
  503. else
  504. searchetypestr = ""
  505. end if
  506. subsyslist = "<select name=""Subsys"" id=""Subsys"">"
  507. set subsys=Conn.execute("select Sub_Sys_ID,Sub_Sys_Name From FS_MF_Sub_Sys where Sub_Sys_Installed=1 and Sub_Sys_ID<>'ME' and  Sub_Sys_ID<>'CS' and  Sub_Sys_ID<>'SS' and  Sub_Sys_ID<>'VS' and  Sub_Sys_ID<>'AS' and  Sub_Sys_ID<>'FL' order by ID")
  508. if not subsys.eof then
  509. do while not subsys.eof
  510. if Request.Cookies("FoosunSUBCookie")("FoosunSUB"&subsys("Sub_Sys_ID")&"")="1" then
  511. subsyslist = subsyslist &"<option value="""& subsys("Sub_Sys_ID") &""">"& subsys("Sub_Sys_Name")&"</option>"
  512. end if
  513. subsys.movenext
  514. loop
  515. subsys.close:set subsys=nothing
  516. end if
  517. subsyslist = subsyslist &"</select>"
  518. Searchstr = Searchstr & "<table width=""100%""><form action=""http://"& MF_Domain & "/Search.html"" id=""SearchForm"" name=""SearchForm"" method=""get""><tr><td>关键字:<input name=""Keyword"" type=""text"" id=""Keyword"" size=""15"" /> "&datestr&subsyslist&searchetypestr&"<input name=""SearchSubmit_Foosun"" type=""submit"" id=""SearchSubmit"" value=""全站搜索"" /></td></tr></form></table>"
  519. Search = Searchstr
  520. End Function
  522. '统计信息
  523. Public Function InfoStat(f_Lablechar,f_type,f_id,f_position)
  525. End Function
  527. '用户登陆
  528. Public Function UserLogin(f_Lablechar,f_type,f_id,f_position)
  529. if instr(f_Lablechar,"ajax")>0 then
  530. UserLogin = "<span id=""User_Login_Foosun_Cn"">用户登录加载中...</span>"&VbCrLf
  531. UserLogin = UserLogin & "<script language=""JavaScript"" src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/FS_Inc/Get_Domain.asp""></script>"&chr(10)
  532. UserLogin = UserLogin & "<script language=""JavaScript"" src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"& G_USER_DIR &"/m_UserLogin.asp?type=ajax&spanid=User_Login_Foosun_Cn""></script>"&chr(10)
  534. else
  535. UserLogin = "<iframe src=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"& G_USER_DIR &"/m_UserLogin.asp?type=i_rame&spanid=User_Login_Foosun_Cn"" frameborder=""0"" scrolling=""no"" width=""99%"" align=""middle"" height=""99%"" name=""User_Login_Frame"" />"
  536. end if
  537. UserLogin = UserLogin
  538. End Function
  540. '版权信息
  541. Public Function CopyRight(f_Lablechar,f_type,f_id,f_position)
  542. if request.Cookies("FoosunMFCookies")("FoosunMFCopyright") = "" then
  543. CopyRight = "风讯__Foosun.CN提醒，你没设置版权信息.请在参数设置中设置。"
  544. else
  545. CopyRight = request.Cookies("FoosunMFCookies")("FoosunMFCopyright")
  546. end if
  547. End Function
  550. Public Function SubList(f_Lablechar,f_type,f_id,f_position)
  551. 'SubList┆分割符-可以使用html语法$┆CSS$
  552. dim fg_char,linkcss,sublists,mf_domain,ns_dir,ns_domain
  553. fg_char = split(split(f_Lablechar,"┆")(1),"$")(1)
  554. linkcss = split(split(f_Lablechar,"┆")(2),"$")(1)
  555. if request.Cookies("FoosunMFCookies")("FoosunMFDomain") = "" or Request.Cookies("FoosunMFCookies")=empty then
  556. MFConfig_Cookies:NSConfig_Cookies:DSConfig_Cookies
  557. end if
  558. mf_domain = request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  559. ns_dir = request.Cookies("FoosunNSCookies")("FoosunNSNewsDir")
  560. ns_domain = request.Cookies("FoosunNSCookies")("FoosunNSDomain")
  561. SubList = "<a href=""http://"&mf_domain&""""&linkcss&">首页</a>"
  562. set sublists=Conn.execute("select Sub_Sys_ID,Sub_Sys_Name,Sub_Sys_Link From FS_MF_Sub_Sys where Sub_Sys_Installed=1 and Sub_Sys_ID<>'ME' and  Sub_Sys_ID<>'CS' and  Sub_Sys_ID<>'SS' order by ID")
  563. if sublists.eof then
  564. SubList = ""
  565. sublists.close:set sublists = nothing
  566. else
  567. do while not sublists.eof
  568. SubList = SubList & fg_char & "<a href=""http://"&sublists("Sub_Sys_Link")&""""&linkcss&">"&sublists("Sub_Sys_Name")&"</a>"
  569. sublists.movenext
  570. loop
  571. sublists.close:set sublists = nothing
  572. end if
  573. End Function
  574. '得到新闻当前路径
  575. Public Function GetNewsLocationStr(mf_sitename,mf_linkpath,ns_path,f_id,fg_str,char_str,positCss,linkCss)
  576. Dim RsNewsObj
  577. Set RsNewsObj = Conn.Execute("Select ClassID from FS_NS_News where NewsID='" & f_id & "'")
  578. if Not RsNewsObj.Eof then
  579. GetNewsLocationStr = GetClassLocationStr(mf_sitename,mf_linkpath,ns_path,RsNewsObj("ClassID"),fg_str,char_str,positCss,linkCss) & fg_str & char_str
  580. else
  581. GetNewsLocationStr = ""
  582. end if
  583. Set RsNewsObj = Nothing
  584. End Function
  585. '栏目当前位置
  586. Public Function GetClassLocationStr(mf_sitename,mf_linkpath,ns_path,f_id,fg_str,char_str,positCss,linkCss)
  587. Dim SqlClass,RsClassObj
  588. if f_id = "" then Exit Function
  589. Set RsClassObj = Conn.Execute("Select ParentID,ClassID,ClassName from FS_NS_NewsClass where ClassID='" & f_id & "'")
  590. if Not RsClassObj.Eof then
  591. GetClassLocationStr = GetClassLocationStr & "<a  href=""" & get_ClassLink(RsClassObj("ClassID")) & """"&linkCss&">" & RsClassObj("ClassName") & "</a>"
  592. do while RsClassObj("ParentID") <> "0"
  593. Set RsClassObj = Conn.Execute("Select ParentID,ClassID,ClassName from FS_NS_NewsClass where ClassID='" & RsClassObj("ParentID") & "'")
  594. if RsClassObj.Eof then Exit do
  595. 'GetClassLocationStr = "<a href=""" & get_ClassLink(RsClassObj("ClassID"))""""&linkCss&">" & RsClassObj("ClassCName") & "</a>"& fg_str &"<span"&positCss&">"& fg_str &"</span>"& GetClassLocationStr
  596. GetClassLocationStr = "<a href="""& get_ClassLink(RsClassObj("ClassID")) &""""&linkCss&">"& RsClassObj("ClassName") &"</a>"& fg_str & GetClassLocationStr
  597. loop
  598. end if
  599. GetClassLocationStr = "<a href="""& mf_linkpath &""""&linkCss&">" &"首页</a>" & ns_path & fg_str & GetClassLocationStr
  600. RsClassObj.Close
  601. Set RsClassObj = Nothing
  602. End Function
  603. '专题当前位置
  604. Function GetSpecialLocationStr(mf_sitename,mf_linkpath,ns_path,f_id,fg_str,char_str,positCss,linkCss)
  605. Dim SpecialSql,RsSpecialObj
  606. if not isnumeric(f_id) then
  607. GetSpecialLocationStr = ""
  608. else
  609. SpecialSql = "Select SpecialID,SpecialCName from FS_NS_Special where SpecialID=" & f_id & ""
  610. Set RsSpecialObj = Conn.Execute(SpecialSql)
  611. if RsSpecialObj.Eof then
  612. GetSpecialLocationStr = ""
  613. else
  614. GetSpecialLocationStr = "<a href="""& mf_linkpath&""""&linkCss&">首页</a>"& ns_path & fg_str &"<span"&positCss&">" & RsSpecialObj("SpecialCName") & "专题</span>"
  615. end if
  616. Set RsSpecialObj = Nothing
  617. end if
  618. End Function
  620. '得到商品当前路径
  621. 'Function GetNewsLocationStr(NewsID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
  622. Public Function GetmsNewsLocationStr(mf_sitename,mf_linkpath,ms_path,f_id,fg_str,char_str,positCss,linkCss)
  623. Dim RsNewsObj
  624. Set RsNewsObj = Conn.Execute("Select ClassID from FS_MS_Products where ID=" & f_id & "")
  625. if Not RsNewsObj.Eof then
  626. GetmsNewsLocationStr = GetmsClassLocationStr(mf_sitename,mf_linkpath,ms_path,RsNewsObj("ClassID"),fg_str,char_str,positCss,linkCss) & fg_str & char_str
  627. else
  628. GetmsNewsLocationStr = ""
  629. end if
  630. Set RsNewsObj = Nothing
  631. End Function
  632. '商品栏目当前位置
  633. Public Function GetmsClassLocationStr(mf_sitename,mf_linkpath,ms_path,f_id,fg_str,char_str,positCss,linkCss)
  634. Dim SqlClass,RsClassObj
  635. if f_id = "" then Exit Function
  636. Set RsClassObj = Conn.Execute("Select ParentID,ClassID,ClassCName from FS_MS_ProductsClass where ClassID='" & f_id & "'")
  637. if Not RsClassObj.Eof then
  638. GetmsClassLocationStr = GetmsClassLocationStr & "<a  href=""" & get_msClassLink(RsClassObj("ClassID")) & """"&linkCss&">" & RsClassObj("ClassCName") & "</a>"
  639. do while RsClassObj("ParentID") <> "0"
  640. Set RsClassObj = Conn.Execute("Select ParentID,ClassID,ClassCName from FS_MS_ProductsClass where ClassID='" & RsClassObj("ParentID") & "'")
  641. if RsClassObj.Eof then Exit do
  642. 'GetClassLocationStr = "<a href=""" & get_ClassLink(RsClassObj("ClassID"))""""&linkCss&">" & RsClassObj("ClassCName") & "</a>"& fg_str &"<span"&positCss&">"& fg_str &"</span>"& GetClassLocationStr
  643. GetmsClassLocationStr = "<a href="""& get_msClassLink(RsClassObj("ClassID")) &""""&linkCss&">"& RsClassObj("ClassCName") &"</a>"& fg_str & GetmsClassLocationStr
  644. loop
  645. end if
  646. GetmsClassLocationStr = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>" & ms_path & fg_str & GetmsClassLocationStr
  647. RsClassObj.Close
  648. Set RsClassObj = Nothing
  649. End Function
  650. '商品专题当前位置
  651. Function GetmsSpecialLocationStr(mf_sitename,mf_linkpath,ms_path,f_id,fg_str,char_str,positCss,linkCss)
  652. Dim SpecialSql,RsSpecialObj
  653. if f_id = "" then
  654. GetSpecialLocationStr = ""
  655. else
  656. SpecialSql = "Select SpecialID,SpecialCName from FS_MS_Special where specialID=" & f_id & ""
  657. Set RsSpecialObj = Conn.Execute(SpecialSql)
  658. if RsSpecialObj.Eof then
  659. GetmsSpecialLocationStr = ""
  660. else
  661. GetmsSpecialLocationStr = "<a href="""& mf_linkpath&""""&linkCss&">首页</a>"& ms_path & fg_str &"<span"&positCss&">" & RsSpecialObj("SpecialCName") & "专题</span>"
  662. end if
  663. Set RsSpecialObj = Nothing
  664. end if
  665. End Function
  667. '得到ds当前路径
  668. Public Function GetdsNewsLocationStr(mf_sitename,mf_linkpath,ds_path,f_id,fg_str,char_str,positCss,linkCss)
  669. Dim RsNewsObj
  670. Set RsNewsObj = Conn.Execute("Select ClassID from FS_DS_List where DownLoadID='" & f_id & "'")
  672. if Not RsNewsObj.Eof then
  673. GetdsNewsLocationStr = GetdsClassLocationStr(mf_sitename,mf_linkpath,ds_path,RsNewsObj("ClassID"),fg_str,char_str,positCss,linkCss) & fg_str & char_str
  674. else
  675. GetdsNewsLocationStr = ""
  676. end If
  678. Set RsNewsObj = Nothing
  679. End Function
  680. 'ds栏目当前位置
  681. Public Function GetdsClassLocationStr(mf_sitename,mf_linkpath,ds_path,f_id,fg_str,char_str,positCss,linkCss)
  682. Dim SqlClass,RsClassObj
  683. if f_id = "" then Exit Function
  684. Set RsClassObj = Conn.Execute("Select ParentID,ClassID,ClassName from FS_DS_Class where ClassID='" & f_id & "'")
  685. if Not RsClassObj.Eof then
  686. GetdsClassLocationStr = GetdsClassLocationStr & "<a  href=""" & get_dsClassLink(RsClassObj("ClassID")) & """"&linkCss&">" & RsClassObj("ClassName") & "</a>"
  687. do while RsClassObj("ParentID") <> "0"
  688. Set RsClassObj = Conn.Execute("Select ParentID,ClassID,ClassName from FS_DS_Class where ClassID='" & RsClassObj("ParentID") & "'")
  689. if RsClassObj.Eof then Exit do
  690. GetdsClassLocationStr = "<a href="""& get_dsClassLink(RsClassObj("ClassID")) &""""&linkCss&">"& RsClassObj("ClassName") &"</a>"& fg_str & GetdsClassLocationStr
  691. loop
  692. end if
  693. GetdsClassLocationStr = "<a href="""& mf_linkpath &""""&linkCss&">首页</a>" & ds_path & fg_str & GetdsClassLocationStr
  694. RsClassObj.Close
  695. Set RsClassObj = Nothing
  696. End Function
  699. '得到新闻单个地址____________________________________________________________
  700. Public Function get_NewsLink(f_id)
  701. get_NewsLink = ""
  702. dim rs,config_rs,config_mf_rs,class_rs
  703. dim SaveNewsPath,FileName,FileExtName,ClassId,LinkType,MF_Domain,Url_Domain,ClassEName,c_Domain,c_SavePath,IsDomain
  704. set rs = Conn.execute("select ID,IsURL,URLAddress,ClassId,NewsId,SaveNewsPath,FileName,FileExtName From FS_NS_News where NewsId='"&f_id&"'")
  705. SaveNewsPath = rs("SaveNewsPath")
  706. FileName = rs("FileName")
  707. FileExtName = rs("FileExtName")
  708. ClassId = rs("ClassId")
  709. LinkType = Request.Cookies("FoosunNSCookies")("FoosunNSLinkType")
  710. IsDomain = Request.Cookies("FoosunNSCookies")("FoosunNSDomain")
  711. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  712. set class_rs = Conn.execute("select ClassEName,IsURL,URLAddress,[Domain],SavePath From FS_NS_NewsClass where ClassId='"&ClassId&"'")
  713. if not class_rs.eof then
  714. ClassEName = class_rs("ClassEName")
  715. c_Domain = class_rs("Domain")
  716. c_SavePath = class_rs("SavePath")
  717. class_rs.close:set class_rs=nothing
  718. else
  719. ClassEName = ""
  720. class_rs.close:set class_rs=nothing
  721. end if
  722. if not rs.eof then
  723. if rs("IsURL")=0 then
  724. if LinkType = 1 then
  725. if trim(c_Domain)<>"" then
  726. Url_Domain = "http://"&c_Domain
  727. else
  728. if trim(IsDomain)<>"" then
  729. Url_Domain = "http://"&IsDomain
  730. else
  731. Url_Domain = "http://"&MF_Domain
  732. end if
  733. end if
  734. else
  735. if trim(c_Domain)<>"" then
  736. Url_Domain = "http://"&c_Domain
  737. else
  738. if trim(IsDomain)<>"" then
  739. Url_Domain = "http://"&IsDomain
  740. else
  741. Url_Domain = ""
  742. end if
  743. end if
  744. end if
  745. if trim(c_Domain)<>"" then
  746. get_NewsLink = Url_Domain & SaveNewsPath &"/"&FileName&"."&FileExtName
  747. else
  748. get_NewsLink = Url_Domain & c_SavePath& "/" & ClassEName &SaveNewsPath &"/"&FileName&"."&FileExtName
  749. end if
  750. else
  751. get_NewsLink = rs("URLAddress")
  752. end if
  753. rs.close:set rs=nothing
  754.   else
  755. get_NewsLink = ""
  756. rs.close:set rs=nothing
  757.   end if
  758.   get_NewsLink = get_NewsLink
  759. End Function
  761. '得到栏目地址________________________________________________________________
  762. Public function get_ClassLink(f_id)
  763. dim IsDomain,LinkType,MF_Domain,c_rs,ClassEName,c_Domain,Url_Domain,ClassSaveType,class_savepath,FileExtName,c_SavePath
  764. LinkType = Request.Cookies("FoosunNSCookies")("FoosunNSLinkType")
  765. IsDomain = Request.Cookies("FoosunNSCookies")("FoosunNSDomain")
  766. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  767. set c_rs=conn.execute("select id,IsURL,UrlAddress,ClassId,ClassEName,[Domain],FileSaveType,FileExtName,SavePath From FS_NS_NewsClass where ClassId='"&f_id&"'")
  768. if not c_rs.eof then
  769. if c_rs("IsURL")=0 then
  770. ClassEName = c_rs("ClassEName")
  771. c_Domain = c_rs("Domain")
  772. FileExtName = c_rs("FileExtName")
  773. ClassSaveType = c_rs("FileSaveType")
  774. c_SavePath= c_rs("SavePath")
  775. if trim(c_Domain)<>"" then
  776. if ClassSaveType=0 then
  777. class_savepath = "Index."&FileExtName
  778. elseif ClassSaveType=1 then
  779. class_savepath =ClassEName &"."&FileExtName
  780. else
  781. class_savepath = ClassEName &"."&FileExtName
  782. end if
  783. else
  784. if ClassSaveType=0 then
  785. class_savepath = ClassEName&"/Index."&FileExtName
  786. elseif ClassSaveType=1 then
  787. class_savepath = ClassEName&"/"& ClassEName &"."&FileExtName
  788. else
  789. class_savepath = ClassEName &"."&FileExtName
  790. end if
  791. end if
  792. if LinkType = 1 then
  793. if trim(c_Domain)<>"" then
  794. Url_Domain = "http://"&c_Domain
  795. else
  796. if trim(IsDomain)<>"" then
  797. Url_Domain = "http://"&IsDomain
  798. else
  799. Url_Domain = "http://"&MF_Domain
  800. end if
  801. end if
  802. else
  803. if trim(c_Domain)<>"" then
  804. Url_Domain = "http://"&c_Domain
  805. else
  806. if trim(IsDomain)<>"" then
  807. Url_Domain = "http://"&IsDomain
  808. else
  809. Url_Domain = ""
  810. end if
  811. end if
  812. end if
  813. if trim(c_Domain)<>"" then
  814. get_ClassLink = Url_Domain&"/"&class_savepath
  815. else
  816. get_ClassLink = Url_Domain&c_SavePath&"/"&class_savepath
  817. end if
  818. else
  819. get_ClassLink = c_rs("UrlAddress")
  820. end if
  821. c_rs.close:set c_rs=nothing
  822. else
  823. c_rs.close:set c_rs=nothing
  824. get_ClassLink = ""
  825. end if
  826. get_ClassLink = get_ClassLink
  827. End function
  829. '得到专题地址________________________________________________________________
  830. Public function get_specialLink(f_id)
  831. dim IsDomain,LinkType,MF_Domain,c_rs,SpecialEName,ExtName,c_SavePath,Url_Domain
  832. LinkType = Request.Cookies("FoosunNSCookies")("FoosunNSLinkType")
  833. IsDomain = Request.Cookies("FoosunNSCookies")("FoosunNSDomain")
  834. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  835. set c_rs=conn.execute("select SpecialID,SpecialCName,SpecialEName,SavePath,ExtName,isLock From FS_NS_Special where SpecialEName='"&f_id&"'")
  836. if not c_rs.eof then
  837. SpecialEName = c_rs("SpecialEName")
  838. ExtName = c_rs("ExtName")
  839. c_SavePath= c_rs("SavePath")
  840. if LinkType = 1 then
  841. if trim(IsDomain)<>"" then
  842. Url_Domain = "http://"&IsDomain
  843. else
  844. Url_Domain = "http://"&MF_Domain
  845. end if
  846. else
  847. if trim(IsDomain)<>"" then
  848. Url_Domain = "http://"&IsDomain
  849. else
  850. Url_Domain = ""
  851. end if
  852. end if
  853. get_specialLink = Url_Domain&c_SavePath&"/special_"&SpecialEName&"."&ExtName
  854. c_rs.close:set c_rs=nothing
  855. else
  856. c_rs.close:set c_rs=nothing
  857. get_specialLink = ""
  858. end if
  859. get_specialLink = get_specialLink
  860. End function
  862. '得到商品单个地址
  863. Public function get_productsLink(f_id)
  864. get_productsLink = ""
  865. dim rs,config_rs,config_mf_rs,class_rs
  866. dim SaveproductsPath,fileName,FileExtName,ClassId,IsDomain,LinkType,Mf_Domain,Url_Domain,ClassEName,c_Domain,c_SavePath
  867. set rs = Conn.execute("select ID,ClassId,SavePath,fileName,fileExtName from fS_MS_products where Id="&f_id)
  868. SaveproductsPath = rs("SavePath")
  869. fileName = rs("fileName")
  870. fileExtName = rs("fileExtName")
  871. ClassId = rs("ClassId")
  872. set config_rs = Conn.execute("select top 1 IsDomain from fS_MS_SysPara")
  873. IsDomain = config_rs("IsDomain")
  874. LinkType = "1"
  875. config_rs.close:set config_rs=nothing
  876. Mf_Domain = Request.Cookies("foosunMfCookies")("foosunMfDomain")
  877. set class_rs = Conn.execute("select ClassEName,IsURL,URLAddress,[Domain],SavePath from fS_MS_productsClass where ClassId='"&ClassId&"'")
  878. if not class_rs.eof then
  879. ClassEName = class_rs("ClassEName")
  880. c_Domain = class_rs("Domain")
  881. c_SavePath = class_rs("SavePath")
  882. class_rs.close:set class_rs=nothing
  883. else
  884. ClassEName = ""
  885. class_rs.close:set class_rs=nothing
  886. end if
  887. if not rs.eof then
  888. if trim(c_Domain)<>"" then
  889. Url_Domain = "http://"&c_Domain
  890. else
  891. Url_Domain = ""
  892. end if
  893. get_productsLink = Url_Domain & c_SavePath& "/" & ClassEName &SaveproductsPath &"/"&fileName&"."&fileExtName
  894. rs.close:set rs=nothing
  895.   else
  896. get_productsLink = ""
  897. rs.close:set rs=nothing
  898.   end if
  899.   get_productsLink = get_productsLink
  900. End function
  901. '得到商品栏目地址
  902. Public function get_msClassLink(f_id)
  903. dim config_rs,IsDomain,LinkType,Mf_Domain,c_rs,ClassEName,c_Domain,Url_Domain,ClassSaveType,class_savepath,fileExtName,c_SavePath
  904. set config_rs = Conn.execute("select top 1 IsDomain from fS_MS_SysPara")
  905. IsDomain = config_rs("IsDomain")
  906. LinkType ="1"
  907. config_rs.close:set config_rs=nothing
  908. Mf_Domain = Request.Cookies("foosunMfCookies")("foosunMfDomain")
  909. set c_rs=conn.execute("select id,IsURL,UrlAddress,ClassId,ClassEName,[Domain],fileSaveType,fileExtName,SavePath from fS_MS_productsClass where ClassId='"&f_id&"'")
  910. if not c_rs.eof then
  911. if c_rs("IsURL")=0 then
  912. ClassEName = c_rs("ClassEName")
  913. c_Domain = c_rs("Domain")
  914. fileExtName = c_rs("fileExtName")
  915. ClassSaveType = c_rs("fileSaveType")
  916. c_SavePath= c_rs("SavePath")
  917. if ClassSaveType=0 then
  918. class_savepath = ClassEName&"/Index."&fileExtName
  919. elseif ClassSaveType=1 then
  920. class_savepath = ClassEName&"/"& ClassEName &"."&fileExtName
  921. else
  922. class_savepath = ClassEName &"."&fileExtName
  923. end if
  924. if LinkType = 1 then
  925. if trim(c_Domain)<>"" then
  926. Url_Domain = "http://"&c_Domain
  927. else
  928. if trim(IsDomain)<>"" then
  929. Url_Domain = "http://"&IsDomain
  930. else
  931. Url_Domain = "http://"&Mf_Domain
  932. end if
  933. end if
  934. else
  935. if trim(c_Domain)<>"" then
  936. Url_Domain = "http://"&c_Domain
  937. else
  938. if trim(IsDomain)<>"" then
  939. Url_Domain = "http://"&IsDomain
  940. else
  941. Url_Domain = ""
  942. end if
  943. end if
  944. end if
  945. get_msClassLink = Url_Domain&c_SavePath&"/"&class_savepath
  946. else
  947. get_msClassLink = c_rs("UrlAddress")
  948. end if
  949. c_rs.close:set c_rs=nothing
  950. else
  951. c_rs.close:set c_rs=nothing
  952. get_msClassLink = ""
  953. end if
  954. get_msClassLink = get_msClassLink
  955. End function
  956. '得到商品专题地址
  957. Public function get_msspecialLink(f_id)
  958. dim config_rs,IsDomain,LinkType,Mf_Domain,c_rs,SpecialEName,ExtName,c_SavePath,Url_Domain
  959. set config_rs = Conn.execute("select top 1 IsDomain from fS_MS_SysPara")
  960. IsDomain = config_rs("IsDomain")
  961. config_rs.close:set config_rs=nothing
  962. Mf_Domain = Request.Cookies("foosunMfCookies")("foosunMfDomain")
  963. set c_rs=conn.execute("select SpecialID,SpecialCName,SpecialEName,SavePath,fileExtName,isLock from fS_MS_Special where SpecialEName='"&f_id&"'")
  964. if not c_rs.eof then
  965. SpecialEName = c_rs("SpecialEName")
  966. ExtName = c_rs("fileExtName")
  968. c_SavePath= c_rs("SavePath")
  969. if trim(IsDomain)<>"" then
  970. Url_Domain = "http://"&IsDomain
  971. else
  972. Url_Domain = ""
  973. end if
  974. get_msspecialLink = Url_Domain&c_SavePath&"/special_"&SpecialEName&"."&ExtName
  975. c_rs.close:set c_rs=nothing
  976. else
  977. c_rs.close:set c_rs=nothing
  978. get_msspecialLink = ""
  979. end if
  980. get_msspecialLink = get_msspecialLink
  981. End function
  982. 'down开始
  983. Public Function get_dsLink(f_id)
  984. get_ProductsLink = ""
  985. dim rs,config_rs,config_mf_rs,class_rs
  986. dim SaveProductsPath,FileName,FileExtName,ClassId,IsDomain,LinkType,MF_Domain,Url_Domain,ClassEName,c_Domain,c_SavePath
  987. set rs = Conn.execute("select ID,ClassId,SavePath,FileName,FileExtName From FS_MS_Products where Id="&f_id)
  988. SaveProductsPath = rs("SavePath")
  989. FileName = rs("FileName")
  990. FileExtName = rs("FileExtName")
  991. ClassId = rs("ClassId")
  992. set config_rs = Conn.execute("select top 1 IsDomain From FS_MS_SysPara")
  993. IsDomain = config_rs("IsDomain")
  994. LinkType = "1"
  995. config_rs.close:set config_rs=nothing
  996. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  997. set class_rs = Conn.execute("select ClassEName,IsURL,URLAddress,[Domain],SavePath From FS_MS_ProductsClass where ClassId='"&ClassId&"'")
  998. if not class_rs.eof then
  999. ClassEName = class_rs("ClassEName")
  1000. c_Domain = class_rs("Domain")
  1001. c_SavePath = class_rs("SavePath")
  1002. class_rs.close:set class_rs=nothing
  1003. else
  1004. ClassEName = ""
  1005. class_rs.close:set class_rs=nothing
  1006. end if
  1007. if not rs.eof then
  1008. if trim(c_Domain)<>"" then
  1009. Url_Domain = "http://"&c_Domain
  1010. else
  1011. Url_Domain = ""
  1012. end if
  1013. get_dsLink = Url_Domain & c_SavePath& "/" & ClassEName &SaveProductsPath &"/"&FileName&"."&FileExtName
  1014. rs.close:set rs=nothing
  1015.   else
  1016. get_dsLink = ""
  1017. rs.close:set rs=nothing
  1018.   end if
  1019.   get_dsLink = get_dsLink
  1020. End Function
  1021. '得到栏目地址________________________________________________________________
  1022. Public function get_dsClassLink(f_id)
  1023. dim IsDomain,LinkType,MF_Domain,c_rs,ClassEName,c_Domain,Url_Domain,ClassSaveType,class_savepath,FileExtName,c_SavePath
  1024. LinkType = Request.Cookies("FoosunDSCookies")("FoosunDSLinkType")
  1025. IsDomain = Request.Cookies("FoosunDSCookies")("FoosunDSDomain")
  1026. MF_Domain = Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  1027. set c_rs=conn.execute("select id,IsURL,UrlAddress,ClassId,ClassEName,[Domain],FileSaveType,FileExtName,SavePath From FS_DS_Class where ClassId='"&f_id&"'")
  1028. if not c_rs.eof then
  1029. if c_rs("IsURL")=0 then
  1030. ClassEName = c_rs("ClassEName")
  1031. c_Domain = c_rs("Domain")
  1032. FileExtName = c_rs("FileExtName")
  1033. ClassSaveType = c_rs("FileSaveType")
  1034. c_SavePath= c_rs("SavePath")
  1035. if ClassSaveType=0 then
  1036. class_savepath = ClassEName&"/Index."&FileExtName
  1037. elseif ClassSaveType=1 then
  1038. class_savepath = ClassEName&"/"& ClassEName &"."&FileExtName
  1039. else
  1040. class_savepath = ClassEName &"."&FileExtName
  1041. end if
  1042. if LinkType = 1 then
  1043. if trim(c_Domain)<>"" then
  1044. Url_Domain = "http://"&c_Domain
  1045. else
  1046. if trim(IsDomain)<>"" then
  1047. Url_Domain = "http://"&IsDomain
  1048. else
  1049. Url_Domain = "http://"&MF_Domain
  1050. end if
  1051. end if
  1052. else
  1053. if trim(c_Domain)<>"" then
  1054. Url_Domain = "http://"&c_Domain
  1055. else
  1056. if trim(IsDomain)<>"" then
  1057. Url_Domain = "http://"&IsDomain
  1058. else
  1059. Url_Domain = ""
  1060. end if
  1061. end if
  1062. end if
  1063. get_dsClassLink = Url_Domain&c_SavePath&"/"&class_savepath
  1064. else
  1065. get_dsClassLink = c_rs("UrlAddress")
  1066. end if
  1067. c_rs.close:set c_rs=nothing
  1068. else
  1069. c_rs.close:set c_rs=nothing
  1070. get_dsClassLink = ""
  1071. end if
  1072. get_dsClassLink = get_dsClassLink
  1073. End function
  1075. Public Function GetFriendNumber(f_strNumber)
  1076. Dim RsGetFriendNumber
  1077. Set RsGetFriendNumber = User_Conn.Execute("Select UserNumber From FS_ME_Users Where UserName = '"& f_strNumber &"'")
  1078. If  Not RsGetFriendNumber.eof  Then 
  1079. GetFriendNumber = RsGetFriendNumber("UserNumber")
  1080. Else
  1081. GetFriendNumber = "用户已经被删除"
  1082. End If 
  1083. set RsGetFriendNumber = nothing
  1084. End Function 
  1085. End Class
  1086. %>