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

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

数据库编程

开发平台：

ASP/ASPX

cls_main.asp：源码内容
  1. <%'Copyright (c) 2006 Foosun Inc. Code by Simpwind.Xie
  2. Class Cls_News
  3. Private m_Obj_news_Rs
  4. Private m_sysID,m_siteName,m_keyWords,m_newsDir,m_isDomain,m_fileNameRule
  5. Private m_ReycleTF,m_fileDirRule,m_classSaveType,m_fileExtName,m_indexPage,m_newsCheck,m_InsideLink
  6. Private m_refreshFile,m_isOpen,m_indexTemplet,m_isPrintPic,m_picClassid,m_linkType,m_fileChar
  7. Private m_isCheck,m_isReviewCheck,m_isConstrCheck,m_addNewsType,m_allInfotitle
  8. Private m_RSSTF,m_rssNumber,m_rssdescript,m_RSSPIC,m_rssContentNumber
  9. '调用类的初始值
  10. Private Sub Class_Initialize() 
  11.   End Sub
  12. '释放初始值 
  13. Private Sub Class_Terminate()  
  14.   End Sub
  15. '得到多少位数的随机函数 
  16. Public Function GetRamCode(f_number)
  17. Randomize
  18. Dim f_Randchar,f_Randchararr,f_RandLen,f_Randomizecode,f_iR
  19. f_Randchar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
  20. f_Randchararr=split(f_Randchar,",") 
  21. f_RandLen=f_number '定义密码的长度或者是位数
  22. for f_iR=1 to f_RandLen
  23. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  24. next 
  25. GetRamCode = f_Randomizecode
  26. End Function
  28. '得到子类新闻类别分页
  29. Public Function GetChildClassList(f_classid)
  31. End Function
  33. Public Function GetSysParamDir()
  34. Dim f_Obj_sysparm,SysParmTF
  35. Set f_Obj_sysparm = server.CreateObject(G_FS_RS)
  36. f_Obj_sysparm.Open "select top 1 NewsDir from FS_NS_SysParam",Conn,1,1
  37. if  not (f_Obj_sysparm.eof or f_Obj_sysparm.bof) then
  38. GetSysParamDir = "/"& f_Obj_sysparm("NewsDir")
  39. Else
  40. GetSysParamDir = ""
  41. End if
  42. if isNull(Trim(f_Obj_sysparm("NewsDir")))  then
  43. GetSysParamDir = GetSysParamDir
  44. Else
  45. GetSysParamDir = GetSysParamDir & "/"
  46. End if
  47. End Function
  49. '得到栏目名称,返回值GetClassName
  50. Public Function GetClassName(f_classid)
  51. Dim f_obj_className_rs
  52. if f_classid<>"" then
  53. Set f_obj_className_rs = server.CreateObject(G_FS_RS)
  54. f_obj_className_rs.Open "select ClassID,ClassName,ParentID from FS_NS_NewsClass where ClassID='"& f_classid &"'",Conn,1,1
  55. if  not (f_obj_className_rs.eof or f_obj_className_rs.bof) then
  56. GetClassName =f_obj_className_rs("ClassName")
  57. Else
  58. GetClassName ="根栏目"
  59. End if
  60. Else
  61. GetClassName ="根栏目"
  62. End if
  63. set f_obj_className_rs = nothing
  64. End Function
  65. '添加新闻的时候，获得栏目中文名称
  66. Public Function GetAdd_ClassName(f_classid) 
  67. Dim f_obj_addclassName_rs
  68. Set f_obj_addclassName_rs = server.CreateObject(G_FS_RS)
  69. f_obj_addclassName_rs.Open "select ClassID,ClassName from FS_NS_NewsClass where ClassID='"& f_classid &"'",Conn,1,1 
  70. if  not (f_obj_addclassName_rs.eof or f_obj_addclassName_rs.bof) then 
  71. GetAdd_ClassName =f_obj_addclassName_rs("ClassName") 
  72. Else
  73. GetAdd_ClassName =""
  74. End if
  75. set f_obj_addclassName_rs = nothing
  76. End Function
  78. '得到自定义字段
  79. Public Function GetDefineClassId()
  80. Dim f_obj_Define_rs
  81. GetDefineClassId = ""
  82. Set f_obj_Define_rs = server.CreateObject(G_FS_RS)
  83. f_obj_Define_rs.Open "select DefineName,DefineID from FS_MF_DefineTableClass where ParentID=0 Order by DefineID desc",Conn,1,1
  84. if  not (f_obj_Define_rs.eof or f_obj_Define_rs.bof) then
  85. Do while Not f_obj_Define_rs.eof 
  86. if lng_DefineID = f_obj_Define_rs("DefineID")  then
  87. GetDefineClassId = GetDefineClassId & "<option value="""& f_obj_Define_rs("DefineID") &""" selected>---" & f_obj_Define_rs("DefineName") &"</option>"
  88. Else
  89. GetDefineClassId = GetDefineClassId & "<option value="""& f_obj_Define_rs("DefineID") &""" >---" & f_obj_Define_rs("DefineName") &"</option>"
  90. End if
  91. f_obj_Define_rs.movenext
  92. Loop
  93. Else
  94. GetDefineClassId = GetDefineClassId & "<option value="""">没有自定义分类</option>"
  95. End if
  96. End Function
  98. Public Function IsSelfRefer()
  99. Dim sHttp_Referer, sServer_Name
  100. sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
  101. sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
  102. If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
  103. IsSelfRefer = True
  104. Else
  105. IsSelfRefer = False
  106. End If
  107. End Function 
  108. '得到子类新闻栏目
  109. Public Function GetChildNewsList(TypeID,CompatStr)  
  110. Dim ChildNewsRs,ChildTypeListStr,TempStr,TmpStr,f_isUrlStr
  111. Set ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassEName,ClassID,IsUrl,isConstr,isShow,[Domain] from FS_NS_NewsClass where ParentID='" & TypeID & "'  and ReycleTF=0  order by Orderid desc,id desc" )
  112. TempStr =CompatStr & "<img src=""images/L.gif""></img>"
  113. do while Not ChildNewsRs.Eof
  114.   TmpStr = ""
  115.   if ChildNewsRs("IsUrl") = 1 then
  116. TmpStr = TmpStr & "<font color=red>外部</font>&nbsp;┆&nbsp;" 
  117.   Else
  118. TmpStr = TmpStr & "系统&nbsp;┆&nbsp;" 
  119.   End if
  120.   if ChildNewsRs("isConstr") = 1 then
  121. TmpStr = TmpStr & "<font color=red>稿</font>&nbsp;┆&nbsp;" 
  122.   Else
  123. TmpStr = TmpStr & "<strike>稿</strike>&nbsp;┆&nbsp;" 
  124.   End if
  125.   if ChildNewsRs("isShow") = 1 then
  126. TmpStr = TmpStr & "<font color=red>显示</font>&nbsp;┆&nbsp;" 
  127.   Else
  128. TmpStr = TmpStr & "隐藏&nbsp;┆&nbsp;" 
  129.   End if
  130.   if len(ChildNewsRs("Domain")) >5 then
  131. TmpStr = TmpStr & "<font color=red>域</font>&nbsp;┆&nbsp;"
  132.   Else
  133. TmpStr = TmpStr & "本&nbsp;┆&nbsp;"
  134.   End if
  135.    GetChildNewsList = GetChildNewsList & "<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>"&Chr(13) & Chr(10)
  136. GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center"">"& ChildNewsRs("id")&"</td>" & Chr(13) & Chr(10)
  137. if ChildNewsRs("IsUrl") = 1 then
  138. f_isUrlStr = ""
  139. Else
  140. f_isUrlStr = "["&ChildNewsRs("ClassEName")&"]"
  141. End if
  142. GetChildNewsList = GetChildNewsList & "<td class=""hback"">&nbsp;"& TempStr &"<Img src=""images/-.gif""></img><a href=""Class_add.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=edit"">" & ChildNewsRs("ClassName") & "</a>&nbsp;<font style=""font-size:11.5px;"">"& f_isUrlStr &"</font></td>" & Chr(13) & Chr(10) 
  143. GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center"">"&ChildNewsRs("OrderID")&"</td>" & Chr(13) & Chr(10)
  144. GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center""><div align=""center"">"& TmpStr &"</div></td>" & Chr(13) & Chr(10)
  145. GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center""><div align=""center""><a href=""NewClass_review.asp?id="&ChildNewsRs("ClassID")&""" target=""_blank"">预览</a>┆<a href=""Class_add.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=add"">添加子栏目</a>┆<a href=""Class_add.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=edit"">修改</a>┆<a href=""Class_Action.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=clear"" onClick=""{if(confirm('确定清空此栏目下信息吗?')){return true;}return false;}"">清空</a>┆<a href=""Class_Action.asp?ClassID="&ChildNewsRs("ClassID")&"&Action=del""   onClick=""{if(confirm('确定删除您所选择的栏目吗？nn此栏目下的子类也将被删除!!')){return true;}return false;}"">删除</a>┆<a href=""Class_makerss.asp?signxml=one&cid="&ChildNewsRs("Classid")&""" title=""生成此栏目Rss"">Rss</a>"&vbNewLine&"<input name=""Cid"" type=""checkbox"" id=""Cid"" value="""& ChildNewsRs("ClassID")&"""></div></td>" & Chr(13) & Chr(10)
  146. GetChildNewsList = GetChildNewsList & "</tr>" & Chr(13) & Chr(10)
  147. GetChildNewsList = GetChildNewsList &GetChildNewsList(ChildNewsRs("ClassID"),TempStr)
  148. ChildNewsRs.MoveNext
  149. loop
  150. ChildNewsRs.Close
  151. Set ChildNewsRs = Nothing
  152. End Function
  154. '获得排序号子类
  155. Public Function GetChildNewsList_order(TypeID,CompatStr)  
  156. Dim Order_ChildNewsRs,ChildTypeListStr,TempStr,TmpStr,f_isUrlStr,lng_GetCount
  157. Set Order_ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassEName,ClassID from FS_NS_NewsClass where ParentID='" & TypeID & "'  and ReycleTF=0  order by Orderid desc,id desc" )
  158. TempStr =CompatStr & "<img src=""images/L.gif""></img>"
  159. do while Not Order_ChildNewsRs.Eof
  160. GetChildNewsList_order = GetChildNewsList_order & "<form name=""ClassForm"" method=""post"" action=""Class_Action.asp""><tr>"&Chr(13) & Chr(10)
  161. GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback"">&nbsp;"& TempStr &"<Img src=""images/-.gif""></img>" & Order_ChildNewsRs("ClassName") & "</td>" & Chr(13) & Chr(10) 
  162. GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback"" align=""center"">"& Order_ChildNewsRs("ID")&"</td>" & Chr(13) & Chr(10)
  163. GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback"" align=""center"">" & Chr(13) & Chr(10)
  164. GetChildNewsList_order = GetChildNewsList_order & "<input name=""OrderID"" type=""text"" id=""OrderID"" value="& Order_ChildNewsRs("OrderID") &" size=""4"" maxlength=""3"">" & Chr(13) & Chr(10)
  165. GetChildNewsList_order = GetChildNewsList_order & "<input name=""ClassID"" type=""hidden"" id=""ClassID"" value="& Order_ChildNewsRs("ClassID") &">" & Chr(13) & Chr(10)
  166. GetChildNewsList_order = GetChildNewsList_order & "<input name=""Action"" type=""hidden"" id=""ClassID"" value=""Order_n"">" & Chr(13) & Chr(10)
  167. GetChildNewsList_order = GetChildNewsList_order & "<input type=""submit"" name=""Submit"" value=""更新权重(排列序号)"">" & Chr(13) & Chr(10)
  168. GetChildNewsList_order = GetChildNewsList_order & "</td>" & Chr(13) & Chr(10)
  169. GetChildNewsList_order = GetChildNewsList_order & "</tr></form>" & Chr(13) & Chr(10)
  170. GetChildNewsList_order = GetChildNewsList_order &GetChildNewsList_order(Order_ChildNewsRs("ClassID"),TempStr)
  171. Order_ChildNewsRs.MoveNext
  172. loop
  173. Order_ChildNewsRs.Close
  174. Set Order_ChildNewsRs = Nothing
  175. End Function
  176. '得到子类select列表,多选
  177. Public Function News_ChildNewsList(TypeID,f_CompatStr)  
  178. Dim f_ChildNewsRs_1,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
  179. Set f_ChildNewsRs_1 = Conn.Execute("Select id,orderid,ClassName,ClassID,ParentID from FS_NS_NewsClass where ParentID='" & TypeID & "' and ReycleTF=0 order by Orderid desc,id desc" )
  180. f_TempStr =f_CompatStr & "┄"
  181. do while Not f_ChildNewsRs_1.Eof
  182. News_ChildNewsList = News_ChildNewsList & "<option value="""& f_ChildNewsRs_1("ClassID") &""">"
  183. News_ChildNewsList = News_ChildNewsList & "├" & f_TempStr &  f_ChildNewsRs_1("ClassName") 
  184. News_ChildNewsList = News_ChildNewsList & "</option>" & Chr(13) & Chr(10)
  185. News_ChildNewsList = News_ChildNewsList &News_ChildNewsList(f_ChildNewsRs_1("ClassID"),f_TempStr)
  186. f_ChildNewsRs_1.MoveNext
  187. loop
  188. f_ChildNewsRs_1.Close
  189. Set f_ChildNewsRs_1 = Nothing
  190. End Function
  191. '得到子类select列表,单ID
  192. Public Function UniteChildNewsList(TypeID,f_CompatStr)  
  193. Dim f_ChildNewsRs,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
  194. Set f_ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassID,ParentID from FS_NS_NewsClass where ParentID='" & TypeID & "' and ReycleTF=0 order by Orderid desc,id desc" )
  195. f_TempStr =f_CompatStr & "┄"
  196. do while Not f_ChildNewsRs.Eof
  197. UniteChildNewsList = UniteChildNewsList & "<option value="""& f_ChildNewsRs("ClassID") &","& f_ChildNewsRs("ParentID") &""">"
  198. UniteChildNewsList = UniteChildNewsList & "├" &  f_TempStr & f_ChildNewsRs("ClassName") 
  199. UniteChildNewsList = UniteChildNewsList & "</option>" & Chr(13) & Chr(10)
  200. UniteChildNewsList = UniteChildNewsList &UniteChildNewsList(f_ChildNewsRs("ClassID"),f_TempStr)
  201. f_ChildNewsRs.MoveNext
  202. loop
  203. f_ChildNewsRs.Close
  204. Set f_ChildNewsRs = Nothing
  205. End Function
  207. '删除子类新闻栏目
  208. Public Function DelChildNewsList(TypeID,f_tmp_del_rcy)  
  209. Dim del_ChildNewsRs
  210. Set del_ChildNewsRs = Conn.Execute("Select id,ParentID,ClassID from FS_NS_NewsClass where ParentID='" & TypeID & "' order by id desc" )
  211. do while Not del_ChildNewsRs.Eof
  212. if f_tmp_del_rcy =0 then'彻底删除
  213. Conn.Execute("Delete From FS_NS_NewsClass Where ClassID ='"&  del_ChildNewsRs("ClassID") &"'")
  214. '删除新闻
  215. Conn.execute("Delete From FS_NS_News Where ClassID='"& del_ChildNewsRs("ClassID") &"'") 
  216. Else'删除到回收站
  217. Conn.Execute("Update FS_NS_NewsClass set ReycleTF=1 Where ClassID ='"&  del_ChildNewsRs("ClassID") &"'")
  218. '删除新闻 
  219. Conn.execute("Update FS_NS_News set isRecyle=1 Where ClassID='"& del_ChildNewsRs("ClassID") &"'") 
  220. End if
  221. '获得下级分类列表，并进行删除操作
  222. DelChildNewsList = DelChildNewsList &DelChildNewsList(del_ChildNewsRs("ClassID"),f_tmp_del_rcy)
  223. del_ChildNewsRs.MoveNext
  224. loop
  225. del_ChildNewsRs.Close
  226. Set del_ChildNewsRs = Nothing
  227. End Function
  228. '检查英文名称是否合法
  229.    Public Function chkinputchar(f_char)
  230. Dim f_name, i, c
  231. f_name = f_char
  232. chkinputchar = True
  233. If Len(f_name) <= 0 Then
  234. chkinputchar = False
  235. Exit Function
  236. End If
  237. For i = 1 To Len(f_name)
  238.    c = Mid(f_name, i, 1)
  239. If InStr("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ@,.0123456789|-_", c) <= 0  Then
  240.    chkinputchar = False
  241. Exit Function
  242.    End If
  243.    Next
  244. End Function
  246. Public Function GetSysParam()
  247. Dim f_Obj_sysparm,SysParmTF
  248. SysParmTF = True
  249. Set f_Obj_sysparm=server.CreateObject(G_FS_RS)
  250. f_Obj_sysparm.Open "select top 1 sysid,SiteName,Keywords,NewsDir,IsDomain,FileNameRule,FileDirRule,ClassSaveType,FileExtName,IndexPage,NewsCheck,isOpen,IndexTemplet,LinkType,isCheck,isReviewCheck,isConstrCheck,addNewsType,AllInfotitle,InsideLink,ReycleTF,RSSTF,rssNumber,rssdescript,RSSPIC,rssContentNumber from FS_NS_SysParam",Conn,1,1
  251. if  not (f_Obj_sysparm.eof or f_Obj_sysparm.bof) then
  252. m_sysID = f_Obj_sysparm("sysID")
  253. m_siteName = f_Obj_sysparm("siteName")
  254. m_keywords= f_Obj_sysparm("Keywords")
  255. m_newsDir= f_Obj_sysparm("NewsDir")
  256. m_isDomain= f_Obj_sysparm("IsDomain")
  257. m_fileNameRule= f_Obj_sysparm("FileNameRule")
  258. m_fileDirRule= f_Obj_sysparm("FileDirRule")
  259. m_classSaveType= f_Obj_sysparm("ClassSaveType")
  260. m_fileExtName= f_Obj_sysparm("FileExtName")
  261. m_indexPage= f_Obj_sysparm("IndexPage")
  262. m_newsCheck= f_Obj_sysparm("NewsCheck")
  263. m_isOpen= f_Obj_sysparm("isOpen")
  264. m_indexTemplet= f_Obj_sysparm("IndexTemplet")
  265. m_linkType= f_Obj_sysparm("LinkType")
  266. m_isCheck= f_Obj_sysparm("isCheck")
  267. m_isReviewCheck= f_Obj_sysparm("isReviewCheck")
  268. m_isConstrCheck= f_Obj_sysparm("isConstrCheck")
  269. m_addNewsType= f_Obj_sysparm("addNewsType")
  270. m_allInfotitle= f_Obj_sysparm("AllInfotitle")
  271. m_InsideLink=f_Obj_sysparm("InsideLink")
  272. m_reycleTF=f_Obj_sysparm("ReycleTF")
  273. 'RSS
  274. m_RSSTF= f_Obj_sysparm("RSSTF")
  275. m_rssNumber= f_Obj_sysparm("rssNumber")
  276. m_rssdescript= f_Obj_sysparm("rssdescript")
  277. m_RSSPIC= f_Obj_sysparm("RSSPIC")
  278. m_rssContentNumber=f_Obj_sysparm("rssContentNumber")
  279. SysParmTF = True
  280. Else
  281. m_sysID = ""
  282. m_siteName = ""
  283. m_keywords= ""
  284. m_newsDir= ""
  285. m_isDomain= ""
  286. m_fileNameRule= "$$$$$$"
  287. m_fileDirRule= 0
  288. m_classSaveType= 0
  289. m_fileExtName= 0
  290. m_indexPage= ""
  291. m_newsCheck= ""
  292. m_isOpen= 0
  293. m_indexTemplet= ""
  294. m_linkType= 0
  295. m_isCheck= 0
  296. m_isReviewCheck=0
  297. m_isConstrCheck= 0
  298. m_addNewsType= 0
  299. m_allInfotitle= ""
  300. m_InsideLink=0
  301. m_reycleTF=0
  302. 'RSS
  303. m_RSSTF= 0
  304. m_rssNumber= 0
  305. m_rssdescript= ""
  306. m_RSSPIC= ""
  307. m_rssContentNumber=0
  308. SysParmTF = false
  309. End if
  310. End Function
  311. '赋值
  312. Public Property Get sysID() '参数ID  
  313. sysID = m_sysID
  314. End Property 
  315. Public Property Get siteName() '新闻系统站点标题  
  316. siteName = m_siteName
  317. End Property 
  318. Public Property Get keyWords() '站点关键字  
  319. keyWords = m_keyWords
  320. End Property 
  321. Public Property Get newsDir() '新闻系统前台目录 
  322. newsDir = m_newsDir
  323. End Property 
  324. Public Property Get isDomain() '是否启用供求系统二级域名  
  325. isDomain = m_isDomain
  326. End Property 
  327. Public Property Get fileNameRule() '新闻文件静态文件生成规则
  328. fileNameRule = m_fileNameRule
  329. End Property 
  330. Public Property Get fileDirRule() '静态文件生成目录  
  331. fileDirRule = m_fileDirRule
  332. End Property 
  333. Public Property Get classSaveType() '新闻栏目目录生成首页格式  
  334. classSaveType = m_classSaveType
  335. End Property 
  336. Public Property Get fileExtName() '生成静态文件扩展名  
  337. fileExtName = m_fileExtName
  338. End Property 
  339. Public Property Get indexPage() '首页文件名
  340. indexPage = m_indexPage
  341. End Property 
  342. Public Property Get newsCheck() '发布的新闻是否需要审核 
  343. newsCheck = m_newsCheck
  344. End Property 
  345. Public Property Get isOpen() '是否开通新闻发布信息 
  346. isOpen = m_isOpen
  347. End Property 
  348. Public Property Get indexTemplet() '首页模板地址 
  349. indexTemplet = m_indexTemplet
  350. End Property 
  351. Public Property Get linkType() '采用绝对路径还是相对路径 
  352. linkType = m_linkType
  353. End Property 
  354. Public Property Get isCheck() '添加的新闻是否审核 
  355. isCheck = m_isCheck
  356. End Property 
  357. Public Property Get isReviewCheck() '发布的新闻的评论是否要审核  
  358. isReviewCheck = m_isReviewCheck
  359. End Property 
  360. Public Property Get isConstrCheck() '投稿是否需要审核后才能发布  
  361. isConstrCheck = m_isConstrCheck
  362. End Property 
  363. Public Property Get addNewsType() '添加新闻采用的方式  
  364. addNewsType = m_addNewsType
  365. End Property 
  366. Public Property Get allInfotitle() '所有新闻系统站点及全站
  367. allInfotitle = m_allInfotitle
  368. End Property 
  369. public Property get reycleTF()
  370. reycleTF = m_reycleTF
  371. End Property
  372. public Property get InsideLink()
  373. InsideLink = m_InsideLink
  374. End Property
  376. 'RSS调用参数
  377. public Property get RSSTF()
  378. RSSTF = m_RSSTF
  379. End Property
  380. public Property get rssNumber()
  381. rssNumber = m_rssNumber
  382. End Property
  383. public Property get rssdescript()
  384. rssdescript = m_rssdescript
  385. End Property
  386. public Property get RSSPIC()
  387. RSSPIC = m_RSSPIC
  388. End Property
  389. public Property get rssContentNumber()
  390. rssContentNumber = m_rssContentNumber
  391. End Property
  392. '获得今日新闻数量
  393. Public Function GetTodayNewsCount(f_classID) 
  394. Dim f_obj_cnews_rs
  395. Set f_obj_cnews_rs = server.CreateObject(G_FS_RS)
  396. If G_IS_SQL_DB=0 Then
  397. f_obj_cnews_rs.Open "Select ID from FS_NS_News where ClassID='"& f_classID &"' and datevalue(addtime)=#"&date()&"#",Conn,1,1
  398. Else
  399. f_obj_cnews_rs.Open "Select ID from FS_NS_News where ClassID='"& f_classID &"' and convert(varchar(10),addTime,120)='"&date()&"'",Conn,1,1
  400. End If
  401. GetTodayNewsCount = "<span class=""tx"">"&f_obj_cnews_rs.recordcount&"</span>)"
  402. f_obj_cnews_rs.close
  403. set f_obj_cnews_rs = nothing
  404. End Function 
  405. '获得用户文件名
  406. Public Function strFileNameRule(str,f_idTF,f_id)
  407. strFileNameRule = ""
  408. Dim f_strFileNamearr,f_str0,f_str1,f_str2,f_str3,f_str4,Getstr,f_str5,f_str6
  409. f_strFileNamearr = split(str,"$")
  410. f_str0 = f_strFileNamearr(0)
  411. f_str1 = f_strFileNamearr(1)
  412. f_str2 = f_strFileNamearr(2)
  413. f_str3 = f_strFileNamearr(3)
  414. f_str4 = f_strFileNamearr(4)
  415. f_str5 = f_strFileNamearr(5)
  416. f_str6 = f_strFileNamearr(6)
  417. strFileNameRule = strFileNameRule & f_strFileNamearr(0)
  418. If Instr(1,f_strFileNamearr(1),"Y",1)<>0 then
  419. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  420. strFileNameRule = strFileNameRule & right(year(now),2)&f_strFileNamearr(4)
  421. Else
  422. strFileNameRule = strFileNameRule & right(year(now),2)
  423. End if
  424. End if
  425. If Instr(1,f_strFileNamearr(1),"M",1)<>0 then
  426. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  427. strFileNameRule = strFileNameRule & month(now)&f_strFileNamearr(4)
  428. Else
  429. strFileNameRule = strFileNameRule& month(now)
  430. End if
  431. End if
  432. If Instr(1,f_strFileNamearr(1),"D",1)<>0 then
  433. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  434. strFileNameRule = strFileNameRule & day(now)&f_strFileNamearr(4)
  435. Else
  436. strFileNameRule = strFileNameRule& day(now)
  437. End if
  438. End if
  439. If Instr(1,f_strFileNamearr(1),"H",1)<>0 then
  440. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  441. strFileNameRule = strFileNameRule & hour(now)&f_strFileNamearr(4)
  442. Else
  443. strFileNameRule = strFileNameRule& hour(now)
  444. End if
  445. End if
  446. If Instr(1,f_strFileNamearr(1),"I",1)<>0 then
  447. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  448. strFileNameRule = strFileNameRule & minute(now)&f_strFileNamearr(4)
  449. Else
  450. strFileNameRule = strFileNameRule& minute(now)
  451. End if
  452. End if
  453. If Instr(1,f_strFileNamearr(1),"S",1)<>0 then
  454. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  455. strFileNameRule = strFileNameRule & second(now)&f_strFileNamearr(4)
  456. Else
  457. strFileNameRule = strFileNameRule& second(now)
  458. End if
  459. End if
  460. Randomize
  461. Dim f_Randchar,f_Randchararr,f_RandLen,f_iR,f_Randomizecode
  462. f_Randchar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
  463. f_Randchararr=split(f_Randchar,",") 
  464. If f_strFileNamearr(2)="2" then
  465. if f_strFileNamearr(3)="1" then
  466. f_RandLen=2 
  467. for f_iR=1 to f_RandLen
  468. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  469. next 
  470. strFileNameRule = strFileNameRule &  f_Randomizecode
  471. Else
  472. strFileNameRule = strFileNameRule &  CStr(Int((99 * Rnd) + 1))
  473. End if
  474. Elseif f_strFileNamearr(2)="3" then
  475. if f_strFileNamearr(3)="1" then
  476. f_RandLen=3 
  477. for f_iR=1 to f_RandLen
  478. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  479. next 
  480. strFileNameRule = strFileNameRule &  f_Randomizecode
  481. Else
  482. strFileNameRule = strFileNameRule &  CStr(Int((999* Rnd) + 1))
  483. End if
  484. Elseif f_strFileNamearr(2)="4" then
  485. if f_strFileNamearr(3)="1" then
  486. f_RandLen=4 
  487. for f_iR=1 to f_RandLen
  488. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  489. next 
  490. strFileNameRule = strFileNameRule &  f_Randomizecode
  491. Else
  492. strFileNameRule = strFileNameRule &  CStr(Int((9999* Rnd) + 1))
  493. End if
  494. Elseif f_strFileNamearr(2)="5" then
  495. if f_strFileNamearr(3)="1" then
  496. f_RandLen=5 
  497. for f_iR=1 to f_RandLen
  498. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  499. next 
  500. strFileNameRule = strFileNameRule &  f_Randomizecode
  501. Else
  502. strFileNameRule = strFileNameRule &  CStr(Int((99999* Rnd) + 1))
  503. End if
  504.    End if
  505.  if f_strFileNamearr(5) = "1" then
  506.  strFileNameRule = strFileNameRule&f_strFileNamearr(4)&"自动编号ID"
  507.  End if
  508.  if f_strFileNamearr(6) = "1" then
  509.  strFileNameRule = strFileNameRule&f_strFileNamearr(4)&"唯一NewsID"
  510.  End if
  511.  strFileNameRule = strFileNameRule
  512. End Function
  513. '得到新闻关键字下拉菜单
  514. Public Function GetKeywordslist(f_char,f_number)
  515. GetKeywordslist = ""
  516. dim f_obj_kw_Rs
  517. Set f_obj_kw_Rs = server.CreateObject(G_FS_RS)
  518. f_obj_kw_Rs.Open "Select top 5 GID,G_Name,G_Type,isLock from FS_NS_General where G_Type ="& f_number &" and isLock=0  order by GID desc",Conn,1,1
  519. do while Not f_obj_kw_Rs.eof 
  520. if f_char = f_obj_kw_Rs("G_Name") then
  521. GetKeywordslist = GetKeywordslist & "<option value="""& f_obj_kw_Rs("G_Name")&""" selected>"& f_obj_kw_Rs("G_Name")&"</option>"
  522. Else
  523. GetKeywordslist = GetKeywordslist & "<option value="""& f_obj_kw_Rs("G_Name")&""">"& f_obj_kw_Rs("G_Name")&"</option>"
  524. End if
  525. f_obj_kw_Rs.movenext
  526. Loop
  527. GetKeywordslist = GetKeywordslist
  528. f_obj_kw_Rs.close:set f_obj_kw_Rs = nothing
  529. End Function
  531. '得到栏目自定义ID
  532. Public Function GetCustClassID(f_custclassid)
  533. Dim obj_cust_rs
  534. set obj_cust_rs = Conn.execute("select DefineID from FS_NS_NewsClass where Classid='"& f_custclassid &"'")
  535. if not obj_cust_rs.eof then
  536. GetCustClassID = obj_cust_rs("DefineID")
  537. Else
  538. GetCustClassID = ""
  539. End if
  540. obj_cust_rs.close:set obj_cust_rs =nothing
  541. End Function
  542. '得到新闻保存路径
  543. Public Function SaveNewsPath(f_num)
  544. SaveNewsPath = ""
  545. Select Case f_num
  546. Case 0
  547. SaveNewsPath = "/" & year(now)&"-"&month(now)&"-"&day(now)
  548. Case 1
  549. SaveNewsPath = "/" & year(now)&"/"&month(now)&"/"&day(now)
  550. Case 2
  551. SaveNewsPath = "/" & year(now)&"/"&month(now)&"-"&day(now)
  552. Case 3
  553. SaveNewsPath = "/" & year(now)&"-"&month(now)&"/"&day(now)
  554. Case 4
  555. SaveNewsPath = ""
  556. Case 5
  557. SaveNewsPath = "/" & year(now)&"/"&month(now)
  558. Case 6
  559. SaveNewsPath = "/" & year(now)&"/"&month(now)&day(now)
  560. Case 7
  561. SaveNewsPath = "/" & year(now)&month(now)&day(now)
  562. End Select
  563. End Function
  564. '取得用户名
  565. Public Function GetUserName(f_strNumber)
  566. Dim RsGetUserName
  567. Set RsGetUserName = User_Conn.Execute("Select UserName From FS_ME_Users Where UserNumber = '"& f_strNumber &"'")
  568. If  Not RsGetUserName.eof  Then 
  569. GetUserName = RsGetUserName("UserName")
  570. Else
  571. GetUserName = 0
  572. End If 
  573. set RsGetUserName = nothing
  574. End Function 
  576. '取得用户编号
  577. Public Function GetUserNumber(f_strName)
  578. Dim RsGetUserNumber
  579. Set RsGetUserNumber = User_Conn.Execute("Select usernumber From FS_ME_Users Where UserName = '"& f_strName &"'")
  580. If  Not RsGetUserNumber.eof  Then 
  581. GetUserNumber = RsGetUserNumber("usernumber")
  582. Else
  583. GetUserNumber = ""
  584. End If 
  585. set RsGetUserNumber = nothing
  586. End Function 
  587. '转移新闻到其他目录
  588. Public Function MoveNewsToClass(SourceNewsArray,ObjectClassID)
  589. Dim i,j,RsNewsObj,CopyNewsObj,SqlNews,FiledObj
  590. Dim NewsFileNames,TempNewsID,ConfigInfo
  591. ConfigInfo = Conn.Execute("Select FileExtName from FS_NewsClass")(0)
  592. for i = LBound(SourceNewsArray) to UBound(SourceNewsArray)
  593. Set RsNewsObj = Conn.Execute("Select * from FS_News where NewsID='" & SourceNewsArray(i) & "'")
  594. SqlNews = "Select * from FS_News where 1=0"
  595. Set CopyNewsObj = Server.CreateObject(G_FS_RS)
  596. CopyNewsObj.Open SqlNews,Conn,1,3
  597. CopyNewsObj.AddNew
  598. For Each FiledObj In CopyNewsObj.Fields
  599. if LCase(FiledObj.name) <> "id" then
  600. if LCase(FiledObj.name) = "newsid" then
  601. TempNewsID = GetRandomID18()
  602. CopyNewsObj("newsid") = TempNewsID
  603. elseif LCase(FiledObj.name) = "classid" then
  604. CopyNewsObj("classid") = ObjectClassID
  605. else
  606. CopyNewsObj(FiledObj.name) = RsNewsObj(FiledObj.name)
  607. end if
  608. end if
  609. Next
  610. CopyNewsObj.UpDate
  611. 'NewsFileNames=NewsFileName(ConfigArray(19),ObjectClassID,TempNewsID,CopyNewsObj("ID"))
  612. CopyNewsObj.Close
  613. '============================
  614. '取ID，生成文件名称，然后写回！
  615. Conn.Execute("Update FS_News Set FileName='"&NewsFileNames&"' Where NewsID='"&TempNewsID&"'")
  616. '============================
  617. next
  618. Set RsNewsObj = Nothing
  619. Set CopyNewsObj = Nothing
  620. End Function
  622. '删除传入的新闻ID的相关信息
  623. Public Function DeleteC(str_Id,f_number)
  624. '更新会员相关
  625. '更新头条
  626. '更新静态文件
  627. '更新权限表
  628. '更新不规则表
  629. '
  630. str_Id = replace(str_Id," ","")
  631. End Function
  633. '统计投稿数量
  634. public Function newsStat(UserNumber,auditTF)
  635. Dim statRs
  636. if auditTF=1 then
  637. Set statRs=User_Conn.execute("select count(contID) from FS_ME_InfoContribution where usernumber='"&UserNumber&"' and AuditTF=1")
  638. Else
  639. Set statRs=User_Conn.execute("select count(contID) from FS_ME_InfoContribution where usernumber='"&UserNumber&"'")
  640. End if
  641. newsStat=statRs(0)
  642. End Function
  643. End Class
  644. %>