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

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

数据库编程

开发平台：

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