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

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

数据库编程

开发平台：

ASP/ASPX

Public_Refresh.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp" -->
  5. <!--#include file="../../FS_Inc/Func_page.asp" -->
  6. <!--#include file="../../FS_InterFace/NS_Public.asp" -->
  7. <!--#include file="../../FS_InterFace/MS_Public.asp" -->
  8. <!--#include file="../../FS_InterFace/DS_Public.asp" -->
  9. <!--#include file="../../FS_InterFace/ME_Public.asp" -->
  10. <!--#include file="../../FS_InterFace/MF_Public.asp" -->
  11. <!--#include file="../../FS_InterFace/SD_Public.asp" -->
  12. <!--#include file="../../FS_InterFace/HS_Public.asp" -->
  13. <!--#include file="../../FS_InterFace/AP_Public.asp" -->
  14. <!--#include file="../../FS_InterFace/Other_Public.asp" -->
  15. <!--#include file="Public_Function.asp" -->
  16. <%
  17. 'Copyright (c) 2006 Foosun Inc. Code by Simpwind.Xie Time:2006.6
  18. Response.Buffer = True
  19. Response.Expires = -1
  20. Response.ExpiresAbsolute = Now() - 1
  21. Response.Expires = 0
  22. Response.CacheControl = "no-cache"
  23. Response.Charset="GB2312"
  25. Dim Conn,User_Conn,StrSql
  26. Dim p_Sys_ID,p_Sql,p_SYS_ROOT_DIR,p_Index,p_Count,f_Array,f_Action,f_type
  27. Dim p_Refresh_OK_TF
  28. MF_Default_Conn
  29. MF_User_Conn
  30. MF_Session_TF
  31. 'On Error Resume Next
  32. If G_VIRTUAL_ROOT_DIR = "" Then 
  33. p_SYS_ROOT_DIR = ""
  34. Else 
  35. p_SYS_ROOT_DIR = "/" & G_VIRTUAL_ROOT_DIR
  36. End If
  37. f_Action = Request("Action")
  39. If f_Action <> "" Then
  40. f_Array = Split(f_Action,"$")
  41. p_Sys_ID = f_Array(0)
  42. f_Type = f_Array(2)
  43. If Err Then
  44. Err.Clear
  45. Response.Write "No$$"
  46. Response.End()
  47. End If
  48. End If
  49. If f_Type = "index" Then 
  50. Response.Write Refresh_index(p_Sys_ID)
  51. Else
  52. p_Sql = Get_Sql
  54. if p_Sql <> "" then
  55. p_Refresh_OK_TF = Refresh_One_Record(p_Sql,True)
  56. If p_Refresh_OK_TF=True then
  57. If Err Then
  58. Response.Write "Err$"&p_Refresh_OK_TF(1)&"$"&Err.Description
  59. Response.End()
  60. Else
  61. Response.Write "Next$"&P_Count&"$"&p_Index+1
  62. End If
  63. ElseIf p_Refresh_OK_TF=False then
  64. If Err Then
  65. Response.Write "Err$"&Request.Cookies("COOKIES_REFRESH_FirstID")&"$"&Err.Description
  66. Response.End()
  67. Else
  68. Response.Write "End$"&P_Count&"$"&p_Index+1
  69. End If
  70. Else
  71. Response.Write "Err$"&Request.Cookies("COOKIES_REFRESH_FirstID")&"$"&Err.Description
  72. End If
  73. else
  74. If Err Then
  75. Response.Write "Err$"&p_Index&"$"&Err.Description
  76. Response.End()
  77. Else
  78. Response.Write "No$$"
  79. End If
  80. end if
  81. end if
  82. 'stat$P_Count$P_Index
  83. 'stat;MF,Next,End,No
  85. User_Conn.Close
  86. Set User_Conn = Nothing
  87. Conn.Close
  88. Set Conn = Nothing
  90. Function Refresh_index(Sys_flag)
  91. Dim patrn(1),strng,f_PLACE_OBJ,p_HTML_File_Save_Path_Str,p_HTML_File_Save_Phy_Path_Str
  92. Dim p_FSO_OBJ,p_FILE_OBJ,p_FILE_STREAM_OBJ,p_File_Content,p_INDEX_DIC_OBJ,p_Templet,p_Phy_Templet,p_FileName
  93. patrn(0)="</head>"
  94. patrn(1)="<body"
  95. strng=Get_JS_CopyRight("NewsId")
  96. if Request.Cookies("FoosunSUBCookie")("FoosunSUB" & Sys_flag) = "1" then
  97. Select Case Sys_flag
  98. Case "NS"
  99. If Request.Cookies("FoosunNSCookies")("FoosunNSNewsDir")="" Then
  100. NSConfig_Cookies
  101. End If
  102. p_Templet = p_SYS_ROOT_DIR & Request.Cookies("FoosunNSCookies")("FoosunNSIndexTemplet")
  103. p_HTML_File_Save_Path_Str = p_SYS_ROOT_DIR & "/" & Request.Cookies("FoosunNSCookies")("FoosunNSNewsDir") 
  104. p_FileName=Request.Cookies("FoosunNSCookies")("FoosunNSIndexPage")
  105. Case "DS"
  106. If Request.Cookies("FoosunDSCookies")("FoosunDSDownDir")="" Then
  107. DSConfig_Cookies
  108. End If
  109. p_Templet = p_SYS_ROOT_DIR & Request.Cookies("FoosunDSCookies")("FoosunDSIndexTemplet")
  110. p_HTML_File_Save_Path_Str = p_SYS_ROOT_DIR & "/"& Request.Cookies("FoosunDSCookies")("FoosunDSDownDir")
  111. p_FileName=Request.Cookies("FoosunDSCookies")("FoosunDSIndexPage")
  112. Case "MS"
  113. If Request.Cookies("FoosunMSCookies")("FoosunMSDir")="" Then
  114. MSConfig_Cookies
  115. End If
  116. p_Templet = p_SYS_ROOT_DIR & Request.Cookies("FoosunMSCookies")("FoosunMSIndexTemplet")
  117. p_HTML_File_Save_Path_Str = p_SYS_ROOT_DIR & "/"& Request.Cookies("FoosunMSCookies")("FoosunMSDir")
  118. p_FileName="index.htm"
  119. Case "MF"
  120. If Request.Cookies("FoosunMFCookies")("FoosunMFIndexTemplet")="" Then
  121. MFConfig_Cookies
  122. End If
  123. p_Templet = p_SYS_ROOT_DIR & Request.Cookies("FoosunMFCookies")("FoosunMFIndexTemplet")
  124. p_HTML_File_Save_Path_Str = p_SYS_ROOT_DIR
  125. p_FileName=Request.Cookies("FoosunMFCookies")("FoosunMFIndexFileName")
  126. Case Else
  127. Refresh_index="No$$"
  128. Exit Function
  129. End Select
  130. Else
  131. Refresh_index="No$$"
  132. Exit Function
  133. End If
  134. If p_Templet="" Then
  135. p_Phy_Templet=""
  136. ELse
  137. p_Phy_Templet = Server.MapPath(p_Templet)
  138. End If
  139. Set p_FSO_OBJ = Server.CreateObject(G_FS_FSO)
  140. If p_FSO_OBJ.FileExists(p_Phy_Templet) = False Then 
  141. p_File_Content = "模板不存在，请添加模板后再生成！"
  142. Else 
  143. Set p_FILE_OBJ = p_FSO_OBJ.GetFile(p_Phy_Templet)
  144. Set p_FILE_STREAM_OBJ = p_FILE_OBJ.OpenAsTextStream(1)
  145. If Not p_FILE_STREAM_OBJ.AtEndOfStream Then 
  146. p_File_Content = p_FILE_STREAM_OBJ.ReadAll
  147. Else 
  148. p_File_Content = "模板内容为空"
  149. End If 
  150. End If 
  151. Set p_FILE_STREAM_OBJ = Nothing
  152. Set p_FILE_OBJ = Nothing
  153. Set p_FSO_OBJ = Nothing
  154. Set p_INDEX_DIC_OBJ = Replace_All_Flag(p_File_Content,"",Sys_flag)
  155. p_File_Content = p_INDEX_DIC_OBJ.Item("-3")
  156. Set p_INDEX_DIC_OBJ = Nothing
  157. If p_HTML_File_Save_Path_Str<>"" Then
  158. p_HTML_File_Save_Phy_Path_Str = Server.MapPath(p_HTML_File_Save_Path_Str)
  159. CreatePath p_HTML_File_Save_Phy_Path_Str,Server.MapPath("/")
  160. End If
  161. Rem 建立正则对象
  162. Set f_PLACE_OBJ = New RegExp
  163. Rem ============
  164. Rem 加入版权信息和关键JS文件（正则搜索）
  165. f_PLACE_OBJ.Pattern = patrn(0)
  166. f_PLACE_OBJ.IgnoreCase = True
  167. f_PLACE_OBJ.Global = False
  168. f_PLACE_OBJ.Multiline = True
  169. If f_PLACE_OBJ.Test(p_File_Content) Then
  170. p_File_Content=f_PLACE_OBJ.Replace(p_File_Content,patrn(0)&vbNewLine&strng)
  171. Else
  172. f_PLACE_OBJ.Pattern = patrn(1)
  173. If f_PLACE_OBJ.Test(p_File_Content) Then
  174. p_File_Content=f_PLACE_OBJ.Replace(p_File_Content,patrn(1)&vbNewLine&strng)
  175. Else
  176. p_File_Content=strng&vbNewLine&p_File_Content
  177. End If
  178. End If
  179. Rem ===================================
  180. AllSaveFile p_File_Content,p_HTML_File_Save_Path_Str&"/"&p_FileName
  181. If Err Then
  182. Response.Write "Err$1$"&Err.Description
  183. Response.End()
  184. ElseIf Sys_flag="MF" Then
  185. Response.write Sys_flag&"$1$2"
  186. Else
  187. Response.write "End$1$2"
  188. End If
  189. End Function
  191. Function Get_Sql()
  192. Dim f_startId,f_endId,f_LastNews,f_startTime,f_endTime,f_ClassID,f_First_ID,f_Record_Count
  193. Dim f_Operating_ClassID,f_Index,f_Public_Sql_Head,f_Sql,f_Count_Sql,f_Last_Type_Record_Count
  194. Dim f_Table,f_Para_Cont_In_Action,f_Where,f_Paras_Array,f_ID,f_Temp_Array_1,f_Temp_Array_2
  195. Dim Rs_Temp,Str_ID
  196. Str_ID="ID"
  197. If f_Action<>"" Then
  198. f_Table = f_Array(1)
  199. f_Para_Cont_In_Action = f_Array(3)
  200. f_Paras_Array = Split(f_Para_Cont_In_Action,";")
  201. Select Case p_Sys_ID
  202. Case "NS"
  203. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"news")
  204. Select Case f_Type
  205. Case "nsallnews"
  206. f_Where = ""
  207. f_Where = f_Where+" and A.isURL=0 and isdraft=0 and isRecyle=0 and isLock=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
  208. Case "nsidnews"
  209. if UBound(f_Paras_Array) = 1 then
  210. f_Temp_Array_1 = Split(f_Paras_Array(0),":")
  211. f_Temp_Array_2 = Split(f_Paras_Array(1),":")
  212. if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
  213. f_Where = " And A.ID Between " & f_Temp_Array_1(1) & " And " & f_Temp_Array_2(1)
  214. else
  215. f_Where = " And 1=0 "
  216. end if
  217. else
  218. f_Where = " And 1=0 "
  219. end if
  220. f_Where = f_Where+" and A.isURL=0 and isdraft=0 and isRecyle=0 and isLock=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
  221. Case "nslastnews"
  222. f_Where = ""
  223. f_Where = f_Where+" and A.isURL=0 and isdraft=0 and isRecyle=0 and isLock=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
  224. Case "nsdatenews"
  225. if UBound(f_Paras_Array) = 1 then
  226. f_Temp_Array_1 = Split(f_Paras_Array(0),":")
  227. f_Temp_Array_2 = Split(f_Paras_Array(1),":")
  228. if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
  229. If G_IS_SQL_DB=0 Then
  230. f_Where = " And A.addtime Between #" & f_Temp_Array_1(1) & "# And #" & f_Temp_Array_2(1) & "#"
  231. Else
  232. f_Where = " And A.addtime Between '" & f_Temp_Array_1(1) & "' And '" & f_Temp_Array_2(1) & "'"
  233. End If
  234. else
  235. f_Where = " And 1=0 "
  236. end if
  237. else
  238. f_Where = " And 1=0 "
  239. end if
  240. f_Where = f_Where+" and A.isURL=0 and isdraft=0 and isRecyle=0 and isLock=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
  241. Case "nsclassnews"
  242. f_ID = Split(f_Paras_Array(0),":")(1)
  243. f_ID = "'" & Replace(f_ID,"*","','") & "'"
  244. f_Where = " And A.ClassID in (" & f_ID & ")"
  245. f_Where = f_Where+" and A.isURL=0 and isdraft=0 and isRecyle=0 and isLock=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
  246. Case "nsallclass"
  247. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
  248. f_Where = ""
  249. f_Where = f_Where+" and A.isURL=0 and ReycleTF=0 and A.ClassID in (Select ClassID From FS_NS_NewsClass)"
  250. Case "nsclass"
  251. f_ID = Split(f_Paras_Array(0),":")(1)
  252. f_ID = "'" & Replace(f_ID,"*","','") & "'"
  253. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
  254. f_Where = " And A.ClassID in (" & f_ID & ")"
  255. f_Where = f_Where+" and A.isURL=0 and ReycleTF=0"
  256. Case "nsspecial"
  257. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"special")
  258. f_ID = Split(f_Paras_Array(0),":")(1)
  259. if f_ID <> "" then
  260. f_ID = Replace(f_ID,"*",",")
  261. f_Where = " And A.specialID in (" & f_ID & ")"
  262. else
  263. f_Where = " and 1=0"
  264. End If
  265. Str_ID="specialID"
  266. f_Where = f_Where+" and isLock=0"
  267. Case Else
  268. f_Where = " And 1=0"
  269. End Select
  270. Case "MS"
  271. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"product")
  272. Select Case f_Type
  273. Case "msallproduct"
  274. f_Where = ""
  275. Case "msidproduct"
  276. if UBound(f_Paras_Array) = 1 then
  277. f_Temp_Array_1 = Split(f_Paras_Array(0),":")
  278. f_Temp_Array_2 = Split(f_Paras_Array(1),":")
  279. if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
  280. f_Where = " And A.ID Between " & Split(f_Paras_Array(0),":")(1) & " And " & Split(f_Paras_Array(1),":")(1)
  281. else
  282. f_Where = " And 1=0 "
  283. end if
  284. else
  285. f_Where = " And 1=0 "
  286. end if
  287. Case "mslastproduct"
  288. f_Where = ""
  289. Case "msdateproduct"
  290. if UBound(f_Paras_Array) = 1 then
  291. f_Temp_Array_1 = Split(f_Paras_Array(0),":")
  292. f_Temp_Array_2 = Split(f_Paras_Array(1),":")
  293. if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
  294. If G_IS_SQL_DB=0 Then
  295. f_Where = " And A.addtime Between #" & Split(f_Paras_Array(0),":")(1) & "# And #" & Split(f_Paras_Array(1),":")(1)&"#"
  296. Else
  297. f_Where = " And A.addtime Between '" & Split(f_Paras_Array(0),":")(1) & "' And '" & Split(f_Paras_Array(1),":")(1)&"'"
  298. End if
  299. else
  300. f_Where = " And 1=0 "
  301. end if
  302. else
  303. f_Where = " And 1=0 "
  304. end if
  305. Case "msclassproduct"
  306. f_ID = Split(f_Paras_Array(0),":")(1)
  307. f_ID = "'" & Replace(f_ID,"*","','") & "'"
  308. f_Where = " And A.ClassID in (" & f_ID & ")"
  309. Case "msallclass"
  310. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
  311. f_Where = ""
  312. Case "msclass"
  313. f_ID = Split(f_Paras_Array(0),":")(1)
  314. f_ID = "'" & Replace(f_ID,"*","','") & "'"
  315. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
  316. f_Where = " And A.ClassID in (" & f_ID & ")"
  317. Case "msspecial"
  318. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"special")
  319. f_ID = Split(f_Paras_Array(0),":")(1)
  320. if f_ID <> "" then
  321. f_ID = Replace(f_ID,"*",",")
  322. f_Where = " And A.specialID in (" & f_ID & ")"
  323. else
  324. f_Where = " And 1=0"
  325. end If
  326. Str_ID="specialID"
  327. Case Else
  328. f_Where = " And 1=0"
  329. End Select
  331. Case "DS"
  332. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"download")
  333. Select Case f_Type
  334. Case "dsalldownload"
  335. f_Where = ""
  336. Case "dsiddownload"
  337. if UBound(f_Paras_Array) = 1 then
  338. f_Temp_Array_1 = Split(f_Paras_Array(0),":")
  339. f_Temp_Array_2 = Split(f_Paras_Array(1),":")
  340. if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
  341. f_Where = " And A.ID Between " & Split(f_Paras_Array(0),":")(1) & " And " & Split(f_Paras_Array(1),":")(1)
  342. else
  343. f_Where = " And 1=0 "
  344. end if
  345. else
  346. f_Where = " And 1=0 "
  347. end if
  348. Case "dslastdownload"
  349. f_Where = ""
  350. Case "dsdatedownload"
  351. if UBound(f_Paras_Array) = 1 then
  352. f_Temp_Array_1 = Split(f_Paras_Array(0),":")
  353. f_Temp_Array_2 = Split(f_Paras_Array(1),":")
  354. if UBound(f_Temp_Array_1) = 1 And UBound(f_Temp_Array_2) = 1 then
  355. If G_IS_SQL_DB=0 Then
  356. f_Where = " And A.addtime Between #" & Split(f_Paras_Array(0),":")(1) & "# And #" & Split(f_Paras_Array(1),":")(1)&"#"
  357. Else
  358. f_Where = " And A.addtime Between '" & Split(f_Paras_Array(0),":")(1) & "' And '" & Split(f_Paras_Array(1),":")(1)&"'"
  359. End If
  361. else
  362. f_Where = " And 1=0 "
  363. end if
  364. else
  365. f_Where = " And 1=0 "
  366. end if
  367. Case "dsclassdownload"
  368. f_ID = Split(f_Paras_Array(0),":")(1)
  369. f_ID = "'" & Replace(f_ID,"*","','") & "'"
  370. f_Where = " And A.ClassID in (" & f_ID & ")"
  371. Case "dsallclass"
  372. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
  373. f_Where = ""
  374. Case "dsclass"
  375. f_ID = Split(f_Paras_Array(0),":")(1)
  376. f_ID = "'" & Replace(f_ID,"*","','") & "'"
  377. f_Public_Sql_Head = Get_Search_Sql_Head(p_Sys_ID,"class")
  378. f_Where = " And A.ClassID in (" & f_ID & ")"
  379. Case Else
  380. f_Where = " And 1=0"
  381. End Select
  382. Case Else
  383. f_Public_Sql_Head = ""
  384. f_Where = " And 1=0"
  385. End Select
  387. StrSql="Select Count(*),max("&Str_ID&") from " & f_Table & " as A where 1=1" & f_Where
  388. 'Response.Write StrSql
  389. Set Rs_Temp = Conn.Execute(StrSql)
  390. f_Record_Count = Rs_Temp(0)
  391. If f_Record_Count=0 Then
  392. f_Record_Count=0
  393. Else
  394. f_First_ID = Rs_Temp(1)+1
  395. End If
  396. 'Response.Write f_Record_Count
  397. if Instr(f_Type,"last") <> 0 then
  398. f_Last_Type_Record_Count = Split(f_Paras_Array(0),":")(1)
  399. if f_Last_Type_Record_Count = "" then 
  400. f_Record_Count = 0
  401. else
  402. If Not IsNumeric(f_Last_Type_Record_Count) Then
  403. f_Record_Count = 10
  404. ElseIf f_Record_Count>CLng(f_Last_Type_Record_Count) Then
  405. f_Record_Count = CLng(f_Last_Type_Record_Count)
  406. End If
  407. end if
  408. end If
  409. Response.Cookies("COOKIES_REFRESH_NewsCount") = f_Record_Count
  410. Response.Cookies("COOKIES_REFRESH_Index") = 0
  411. Response.Cookies("COOKIES_REFRESH_FirstID") = f_First_ID
  412. Response.Cookies("COOKIES_REFRESH_Where") = f_Where
  413. Response.Cookies("COOKIES_REFRESH_IDFlag") = Str_ID
  414. Response.Cookies("COOKIES_REFRESH_SqlHead") = f_Public_Sql_Head
  415. End If
  416. f_Record_Count = Request.Cookies("COOKIES_REFRESH_NewsCount")
  417. f_Index = Request.Cookies("COOKIES_REFRESH_Index")
  418. f_First_ID = Request.Cookies("COOKIES_REFRESH_FirstID")
  419. f_Where = Request.Cookies("COOKIES_REFRESH_Where")
  420. Str_ID = Request.Cookies("COOKIES_REFRESH_IDFlag")
  421. f_Public_Sql_Head = Request.Cookies("COOKIES_REFRESH_SqlHead")
  422. If f_Record_Count="" Then
  423. f_Record_Count="0"
  424. End If
  425. If CLng(f_Record_Count)=0 Then
  426. Get_Sql=""
  427. Response.Cookies("COOKIES_REFRESH_NewsCount") = ""
  428. Response.Cookies("COOKIES_REFRESH_Index") = ""
  429. Response.Cookies("COOKIES_REFRESH_FirstID") = ""
  430. Response.Cookies("COOKIES_REFRESH_Where") = ""
  431. Else
  432. If CLng(f_Index)+1 <= CLng(f_Record_Count) then
  433. Get_Sql = f_Public_Sql_Head & f_Where & " And A."&Str_ID&"<" & f_First_ID & " Order by A."&Str_ID&" Desc"
  434. Response.Cookies("COOKIES_REFRESH_Index") = f_Index + 1
  435. else
  436. Get_Sql = f_Public_Sql_Head & f_Where & " And 1=0"
  437. Response.Cookies("COOKIES_REFRESH_NewsCount") = ""
  438. Response.Cookies("COOKIES_REFRESH_Index") = ""
  439. Response.Cookies("COOKIES_REFRESH_FirstID") = ""
  440. Response.Cookies("COOKIES_REFRESH_Where") = ""
  441. end if
  442. End If
  444. p_Index = f_Index
  445. p_Count = f_Record_Count
  446. End Function
  447. %>