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

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

数据库编程

开发平台：

ASP/ASPX

cls_main.asp：源码内容
  1. <%'Copyright (c) 2006 Foosun Inc. Code by awen
  2. Class Cls_News
  3. Private m_Obj_news_Rs
  4. Private m_sysID,m_Lock,m_IPType,m_IPList,m_OverDueMode,m_DownDir,m_LinkType,m_IsDomain,m_FileNameRule,m_fileDirRule,m_classSaveType,m_fileExtName,m_indexPage,m_newsCheck
  5. Private m_ReycleTF,m_InsideLink
  6. Private m_refreshFile,m_isOpen,m_indexTemplet,m_isPrintPic,m_picClassid,m_fileChar
  7. Private m_isCheck,m_isReviewCheck,m_reviewFiltChar,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. GetSysParamDir = ""
  35. End Function
  37. '得到栏目名称,返回值GetClassName
  38. Public Function GetClassName(f_classid)
  39. Dim f_obj_className_rs
  40. if f_classid<>"" then
  41. Set f_obj_className_rs = server.CreateObject(G_FS_RS)
  42. f_obj_className_rs.Open "select ClassID,ClassName,ParentID from FS_DS_Class where ClassID='"& f_classid &"'",Conn,1,1
  43. if  not (f_obj_className_rs.eof or f_obj_className_rs.bof) then
  44. GetClassName =f_obj_className_rs("ClassName")
  45. Else
  46. GetClassName ="根栏目"
  47. End if
  48. Else
  49. GetClassName ="根栏目"
  50. End if
  51. set f_obj_className_rs = nothing
  52. End Function
  53. '添加下载的时候，获得栏目中文名称
  54. Public Function GetAdd_ClassName(f_classid) 
  55. Dim f_obj_addclassName_rs
  56. Set f_obj_addclassName_rs = server.CreateObject(G_FS_RS)
  57. f_obj_addclassName_rs.Open "select ClassID,ClassName from FS_DS_Class where ClassID='"& f_classid &"'",Conn,1,1 
  58. if  not (f_obj_addclassName_rs.eof or f_obj_addclassName_rs.bof) then 
  59. GetAdd_ClassName =f_obj_addclassName_rs("ClassName") 
  60. Else
  61. GetAdd_ClassName =""
  62. End if
  63. set f_obj_addclassName_rs = nothing
  64. End Function
  66. '得到自定义字段
  67. Public Function GetDefineClassId()
  68. Dim f_obj_Define_rs
  69. GetDefineClassId = ""
  70. Set f_obj_Define_rs = server.CreateObject(G_FS_RS)
  71. f_obj_Define_rs.Open "select DefineName,DefineID from FS_MF_DefineTableClass where ParentID=0 Order by DefineID desc",Conn,1,1
  72. if  not (f_obj_Define_rs.eof or f_obj_Define_rs.bof) then
  73. Do while Not f_obj_Define_rs.eof 
  74. if lng_DefineID = f_obj_Define_rs("DefineID")  then
  75. GetDefineClassId = GetDefineClassId & "<option value="""& f_obj_Define_rs("DefineID") &""" selected>---" & f_obj_Define_rs("DefineName") &"</option>"
  76. Else
  77. GetDefineClassId = GetDefineClassId & "<option value="""& f_obj_Define_rs("DefineID") &""" >---" & f_obj_Define_rs("DefineName") &"</option>"
  78. End if
  79. f_obj_Define_rs.movenext
  80. Loop
  81. Else
  82. GetDefineClassId = GetDefineClassId & "<option value="""">没有自定义分类</option>"
  83. End if
  84. End Function
  86. Public Function IsSelfRefer()
  87. Dim sHttp_Referer, sServer_Name
  88. sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
  89. sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
  90. If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
  91. IsSelfRefer = True
  92. Else
  93. IsSelfRefer = False
  94. End If
  95. End Function 
  96. '得到子类下载栏目
  97. Public Function GetChildNewsList(TypeID,CompatStr)  
  98. Dim ChildNewsRs,ChildTypeListStr,TempStr,TmpStr,f_isUrlStr
  99. Set ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassEName,ClassID,IsUrl,isConstr,isShow,[Domain] from FS_DS_Class where ParentID='" & TypeID & "'  and ReycleTF=0  order by Orderid desc,id desc" )
  100. TempStr =CompatStr & "<img src=""images/L.gif""></img>"
  101. do while Not ChildNewsRs.Eof
  102.   TmpStr = ""
  103.   if ChildNewsRs("IsUrl") = 1 then
  104.   TmpStr = TmpStr & "<font color=red>外部</font>&nbsp;┆&nbsp;" 
  105.   Else
  106.  TmpStr = TmpStr & "系统&nbsp;┆&nbsp;" 
  107.   End if
  108.   if ChildNewsRs("isConstr") = 1 then
  109.   TmpStr = TmpStr & "<font color=red>稿</font>&nbsp;┆&nbsp;" 
  110.   Else
  111.   TmpStr = TmpStr & "<strike>稿</strike>&nbsp;┆&nbsp;" 
  112.   End if
  113.   if ChildNewsRs("isShow") = 1 then
  114.   TmpStr = TmpStr & "<font color=red>显示</font>&nbsp;┆&nbsp;" 
  115.   Else
  116.   TmpStr = TmpStr & "隐藏&nbsp;┆&nbsp;" 
  117.   End if
  118.   if len(ChildNewsRs("Domain")) >5 then
  119.   TmpStr = TmpStr & "<font color=red>域</font>&nbsp;┆&nbsp;"
  120.   Else
  121.   TmpStr = TmpStr & "本&nbsp;┆&nbsp;"
  122.   End if
  123.    GetChildNewsList = GetChildNewsList & "<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>"&Chr(13) & Chr(10)
  124. GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center"">"& ChildNewsRs("id")&"</td>" & Chr(13) & Chr(10)
  125. if ChildNewsRs("IsUrl") = 1 then
  126. f_isUrlStr = ""
  127. Else
  128. f_isUrlStr = "["&ChildNewsRs("ClassEName")&"]"
  129. End if
  130. 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) 
  131. GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center"">"&ChildNewsRs("OrderID")&"</td>" & Chr(13) & Chr(10)
  132. GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center"">"& TmpStr &"</td>" & Chr(13) & Chr(10)
  133. GetChildNewsList = GetChildNewsList & "<td class=""hback"" align=""center""><a href=""DownClass_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><input name=""Cid"" type=""checkbox"" id=""Cid"" value="""& ChildNewsRs("ClassID")&"""></td>" & Chr(13) & Chr(10)
  134. GetChildNewsList = GetChildNewsList & "</tr>" & Chr(13) & Chr(10)
  135. GetChildNewsList = GetChildNewsList &GetChildNewsList(ChildNewsRs("ClassID"),TempStr)
  136. ChildNewsRs.MoveNext
  137. loop
  138. ChildNewsRs.Close
  139. Set ChildNewsRs = Nothing
  140. End Function
  142. '获得排序号子类
  143. Public Function GetChildNewsList_order(TypeID,CompatStr)  
  144. Dim Order_ChildNewsRs,ChildTypeListStr,TempStr,TmpStr,f_isUrlStr,lng_GetCount
  145. Set Order_ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassEName,ClassID from FS_DS_Class where ParentID='" & TypeID & "'  and ReycleTF=0  order by Orderid desc,id desc" )
  146. TempStr =CompatStr & "<img src=""images/L.gif""></img>"
  147. do while Not Order_ChildNewsRs.Eof
  148. GetChildNewsList_order = GetChildNewsList_order & "<form name=""ClassForm"" method=""post"" action=""Class_Action.asp""><tr>"&Chr(13) & Chr(10)
  149. GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback"">&nbsp;"& TempStr &"<Img src=""images/-.gif""></img>" & Order_ChildNewsRs("ClassName") & "</td>" & Chr(13) & Chr(10) 
  150. GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback"" align=""center"">"& Order_ChildNewsRs("ID")&"</td>" & Chr(13) & Chr(10)
  151. GetChildNewsList_order = GetChildNewsList_order & "<td class=""hback"" align=""center"">" & Chr(13) & Chr(10)
  152. GetChildNewsList_order = GetChildNewsList_order & "<input name=""OrderID"" type=""text"" id=""OrderID"" value="& Order_ChildNewsRs("OrderID") &" size=""4"" maxlength=""3"">" & Chr(13) & Chr(10)
  153. GetChildNewsList_order = GetChildNewsList_order & "<input name=""ClassID"" type=""hidden"" id=""ClassID"" value="& Order_ChildNewsRs("ClassID") &">" & Chr(13) & Chr(10)
  154. GetChildNewsList_order = GetChildNewsList_order & "<input name=""Action"" type=""hidden"" id=""ClassID"" value=""Order_n"">" & Chr(13) & Chr(10)
  155. GetChildNewsList_order = GetChildNewsList_order & "<input type=""submit"" name=""Submit"" value=""更新权重(排列序号)"">" & Chr(13) & Chr(10)
  156. GetChildNewsList_order = GetChildNewsList_order & "</td>" & Chr(13) & Chr(10)
  157. GetChildNewsList_order = GetChildNewsList_order & "</tr></form>" & Chr(13) & Chr(10)
  158. GetChildNewsList_order = GetChildNewsList_order &GetChildNewsList_order(Order_ChildNewsRs("ClassID"),TempStr)
  159. Order_ChildNewsRs.MoveNext
  160. loop
  161. Order_ChildNewsRs.Close
  162. Set Order_ChildNewsRs = Nothing
  163. End Function
  164. '得到子类select列表,多选
  165. Public Function News_ChildNewsList(TypeID,f_CompatStr)  
  166. Dim f_ChildNewsRs_1,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
  167. Set f_ChildNewsRs_1 = Conn.Execute("Select id,orderid,ClassName,ClassID,ParentID from FS_DS_Class where ParentID='" & TypeID & "' and ReycleTF=0 order by Orderid desc,id desc" )
  168. f_TempStr =f_CompatStr & "┄"
  169. do while Not f_ChildNewsRs_1.Eof
  170. News_ChildNewsList = News_ChildNewsList & "<option value="""& f_ChildNewsRs_1("ClassID") &""">"
  171. News_ChildNewsList = News_ChildNewsList & "├" & f_TempStr &  f_ChildNewsRs_1("ClassName") 
  172. News_ChildNewsList = News_ChildNewsList & "</option>" & Chr(13) & Chr(10)
  173. News_ChildNewsList = News_ChildNewsList &News_ChildNewsList(f_ChildNewsRs_1("ClassID"),f_TempStr)
  174. f_ChildNewsRs_1.MoveNext
  175. loop
  176. f_ChildNewsRs_1.Close
  177. Set f_ChildNewsRs_1 = Nothing
  178. End Function
  179. '得到子类select列表,单ID
  180. Public Function UniteChildNewsList(TypeID,f_CompatStr)  
  181. Dim f_ChildNewsRs,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
  182. Set f_ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassID,ParentID from FS_DS_Class where ParentID='" & TypeID & "' and ReycleTF=0 order by Orderid desc,id desc" )
  183. f_TempStr =f_CompatStr & "┄"
  184. do while Not f_ChildNewsRs.Eof
  185. UniteChildNewsList = UniteChildNewsList & "<option value="""& f_ChildNewsRs("ClassID") &","& f_ChildNewsRs("ParentID") &""">"
  186. UniteChildNewsList = UniteChildNewsList & "├" &  f_TempStr & f_ChildNewsRs("ClassName") 
  187. UniteChildNewsList = UniteChildNewsList & "</option>" & Chr(13) & Chr(10)
  188. UniteChildNewsList = UniteChildNewsList &UniteChildNewsList(f_ChildNewsRs("ClassID"),f_TempStr)
  189. f_ChildNewsRs.MoveNext
  190. loop
  191. f_ChildNewsRs.Close
  192. Set f_ChildNewsRs = Nothing
  193. End Function
  195. '删除子类下载栏目
  196. Public Function DelChildNewsList(TypeID,f_tmp_del_rcy)  
  197. Dim del_ChildNewsRs
  198. f_tmp_del_rcy = 0
  199. Set del_ChildNewsRs = Conn.Execute("Select id,ParentID,ClassID from FS_DS_Class where ParentID='" & TypeID & "' order by id desc" )
  200. do while Not del_ChildNewsRs.Eof
  201. if f_tmp_del_rcy =0 then'彻底删除
  202. Conn.Execute("Delete From FS_DS_Class Where ClassID ='"&  del_ChildNewsRs("ClassID") &"'")
  203. '删除下载
  204. Conn.execute("Delete From FS_DS_List Where ClassID='"& del_ChildNewsRs("ClassID") &"'") 
  205. End if
  206. '获得下级分类列表，并进行删除操作
  207. DelChildNewsList = DelChildNewsList &DelChildNewsList(del_ChildNewsRs("ClassID"),f_tmp_del_rcy)
  208. del_ChildNewsRs.MoveNext
  209. loop
  210. del_ChildNewsRs.Close
  211. Set del_ChildNewsRs = Nothing
  212. End Function
  213. '检查英文名称是否合法
  214.    Public Function chkinputchar(f_char)
  215. Dim f_name, i, c
  216. f_name = f_char
  217. chkinputchar = True
  218. If Len(f_name) <= 0 Then
  219. chkinputchar = False
  220. Exit Function
  221. End If
  222. For i = 1 To Len(f_name)
  223.    c = Mid(f_name, i, 1)
  224. If InStr("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ@,.0123456789|-_", c) <= 0  Then
  225.    chkinputchar = False
  226. Exit Function
  227.    End If
  228.    Next
  229. End Function
  231. Public Function GetSysParam()
  232. Dim f_Obj_sysparm,SysParmTF
  233. SysParmTF = True
  234. Set f_Obj_sysparm=server.CreateObject(G_FS_RS)
  235. f_Obj_sysparm.Open "select top 1 SysID,Lock,IPType,IPList,OverDueMode,DownDir,LinkType,IsDomain,FileNameRule,FileDirRule,ClassSaveType,FileExtName,IndexPage,NewsCheck from FS_DS_SysPara",Conn,1,1
  236. if  not (f_Obj_sysparm.eof or f_Obj_sysparm.bof) then
  237. m_sysID = f_Obj_sysparm("sysID")
  238. m_Lock = f_Obj_sysparm("Lock")
  239. m_IPType= f_Obj_sysparm("IPType")
  240. m_IPList= f_Obj_sysparm("IPList")
  241. m_OverDueMode= f_Obj_sysparm("OverDueMode")
  242. m_IsDomain= f_Obj_sysparm("IsDomain")
  243. m_FileNameRule= f_Obj_sysparm("FileNameRule")
  244. m_fileDirRule= f_Obj_sysparm("FileDirRule")
  245. m_classSaveType= f_Obj_sysparm("ClassSaveType")
  246. m_fileExtName= f_Obj_sysparm("FileExtName")
  247. m_indexPage= f_Obj_sysparm("IndexPage")
  248. m_newsCheck= f_Obj_sysparm("NewsCheck")
  250. m_DownDir = f_Obj_sysparm("DownDir")
  251. m_LinkType = f_Obj_sysparm("LinkType")
  252. SysParmTF = True
  253. Else
  254. SysParmTF = false
  255. End if
  256. End Function
  257. '赋值
  258. Public Property Get sysID() '参数ID  
  259. sysID = m_sysID
  260. End Property 
  261. Public Property Get Lock() '下载系统站点标题  
  262. Lock = m_Lock
  263. End Property 
  264. Public Property Get IPType() '站点关键字  
  265. IPType = m_IPType
  266. End Property 
  267. Public Property Get IPList() '下载系统前台目录 
  268. IPList = m_IPList
  269. End Property 
  270. Public Property Get OverDueMode()
  271. OverDueMode = m_OverDueMode
  272. End Property 
  274. Public Property Get DownDir()
  275. DownDir = m_DownDir
  276. End Property 
  278. Public Property Get LinkType()
  279. LinkType = m_LinkType
  280. End Property 
  282. Public Property Get isDomain() '是否启用供求系统二级域名  
  283. isDomain = m_isDomain
  284. End Property 
  285. Public Property Get fileNameRule() '下载文件静态文件生成规则
  286. fileNameRule = m_fileNameRule
  287. End Property 
  288. Public Property Get fileDirRule() '静态文件生成目录  
  289. fileDirRule = m_fileDirRule
  290. End Property 
  291. Public Property Get classSaveType() '下载栏目目录生成首页格式  
  292. classSaveType = m_classSaveType
  293. End Property 
  294. Public Property Get fileExtName() '生成静态文件扩展名  
  295. fileExtName = m_fileExtName
  296. End Property 
  297. Public Property Get indexPage() '首页文件名及扩展名  
  298. indexPage = m_indexPage
  299. End Property 
  300. Public Property Get newsCheck() '发布的下载是否需要审核 
  301. newsCheck = m_newsCheck
  302. End Property 
  304. '获得今日下载数量
  305. Public Function GetTodayNewsCount(f_classID) 
  306. Dim f_obj_cnews_rs
  307. Set f_obj_cnews_rs = server.CreateObject(G_FS_RS)
  308. If G_IS_SQL_DB=0 Then
  309. f_obj_cnews_rs.Open "Select ID from FS_DS_List where ClassID='"& f_classID &"' and datevalue(addtime)=#"&date()&"#",Conn,1,1
  310. Else
  311. f_obj_cnews_rs.Open "Select ID from FS_DS_List where ClassID='"& f_classID &"' and convert(varchar(10),addTime,120)='"&date()&"'",Conn,1,1
  312. End If
  313. GetTodayNewsCount = "<span class=""tx"">"&f_obj_cnews_rs.recordcount&"</span>)"
  314. f_obj_cnews_rs.close
  315. set f_obj_cnews_rs = nothing
  316. End Function 
  317. '获得用户文件名
  318. Public Function strFileNameRule(str,f_idTF,f_id)
  319. strFileNameRule = ""
  320. Dim f_strFileNamearr,f_str0,f_str1,f_str2,f_str3,f_str4,Getstr,f_str5,f_str6
  321. f_strFileNamearr = split(str,"$")
  322. f_str0 = f_strFileNamearr(0)
  323. f_str1 = f_strFileNamearr(1)
  324. f_str2 = f_strFileNamearr(2)
  325. f_str3 = f_strFileNamearr(3)
  326. f_str4 = f_strFileNamearr(4)
  327. f_str5 = f_strFileNamearr(5)
  328. f_str6 = f_strFileNamearr(6)
  329. strFileNameRule = strFileNameRule & f_strFileNamearr(0)
  330. If Instr(1,f_strFileNamearr(1),"Y",1)<>0 then
  331. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  332. strFileNameRule = strFileNameRule & right(year(now),2)&f_strFileNamearr(4)
  333. Else
  334. strFileNameRule = strFileNameRule & right(year(now),2)
  335. End if
  336. End if
  337. If Instr(1,f_strFileNamearr(1),"M",1)<>0 then
  338. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  339. strFileNameRule = strFileNameRule & month(now)&f_strFileNamearr(4)
  340. Else
  341. strFileNameRule = strFileNameRule& month(now)
  342. End if
  343. End if
  344. If Instr(1,f_strFileNamearr(1),"D",1)<>0 then
  345. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  346. strFileNameRule = strFileNameRule & day(now)&f_strFileNamearr(4)
  347. Else
  348. strFileNameRule = strFileNameRule& day(now)
  349. End if
  350. End if
  351. If Instr(1,f_strFileNamearr(1),"H",1)<>0 then
  352. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  353. strFileNameRule = strFileNameRule & hour(now)&f_strFileNamearr(4)
  354. Else
  355. strFileNameRule = strFileNameRule& hour(now)
  356. End if
  357. End if
  358. If Instr(1,f_strFileNamearr(1),"I",1)<>0 then
  359. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  360. strFileNameRule = strFileNameRule & minute(now)&f_strFileNamearr(4)
  361. Else
  362. strFileNameRule = strFileNameRule& minute(now)
  363. End if
  364. End if
  365. If Instr(1,f_strFileNamearr(1),"S",1)<>0 then
  366. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  367. strFileNameRule = strFileNameRule & second(now)&f_strFileNamearr(4)
  368. Else
  369. strFileNameRule = strFileNameRule& second(now)
  370. End if
  371. End if
  372. Randomize
  373. Dim f_Randchar,f_Randchararr,f_RandLen,f_iR,f_Randomizecode
  374. 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"
  375. f_Randchararr=split(f_Randchar,",") 
  376. If f_strFileNamearr(2)="2" then
  377. if f_strFileNamearr(3)="1" then
  378. f_RandLen=2 
  379. for f_iR=1 to f_RandLen
  380. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  381. next 
  382. strFileNameRule = strFileNameRule &  f_Randomizecode
  383. Else
  384. strFileNameRule = strFileNameRule &  CStr(Int((99 * Rnd) + 1))
  385. End if
  386. Elseif f_strFileNamearr(2)="3" then
  387. if f_strFileNamearr(3)="1" then
  388. f_RandLen=3 
  389. for f_iR=1 to f_RandLen
  390. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  391. next 
  392. strFileNameRule = strFileNameRule &  f_Randomizecode
  393. Else
  394. strFileNameRule = strFileNameRule &  CStr(Int((999* Rnd) + 1))
  395. End if
  396. Elseif f_strFileNamearr(2)="4" then
  397. if f_strFileNamearr(3)="1" then
  398. f_RandLen=4 
  399. for f_iR=1 to f_RandLen
  400. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  401. next 
  402. strFileNameRule = strFileNameRule &  f_Randomizecode
  403. Else
  404. strFileNameRule = strFileNameRule &  CStr(Int((9999* Rnd) + 1))
  405. End if
  406. Elseif f_strFileNamearr(2)="5" then
  407. if f_strFileNamearr(3)="1" then
  408. f_RandLen=5 
  409. for f_iR=1 to f_RandLen
  410. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  411. next 
  412. strFileNameRule = strFileNameRule &  f_Randomizecode
  413. Else
  414. strFileNameRule = strFileNameRule &  CStr(Int((99999* Rnd) + 1))
  415. End if
  416.    End if
  417.  if f_strFileNamearr(5) = "1" then
  418.  strFileNameRule = strFileNameRule&f_strFileNamearr(4)&"自动编号ID"
  419.  End if
  420.  if f_strFileNamearr(6) = "1" then
  421.  strFileNameRule = strFileNameRule&f_strFileNamearr(4)&"唯一NewsID"
  422.  End if
  423.  strFileNameRule = strFileNameRule
  424. End Function
  425. '得到下载关键字下拉菜单
  426. Public Function GetKeywordslist(f_char,f_number)
  427. GetKeywordslist = ""
  428. dim f_obj_kw_Rs
  429. Set f_obj_kw_Rs = server.CreateObject(G_FS_RS)
  430. 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
  431. do while Not f_obj_kw_Rs.eof 
  432. if f_char = f_obj_kw_Rs("G_Name") then
  433. GetKeywordslist = GetKeywordslist & "<option value="""& f_obj_kw_Rs("G_Name")&""" selected>"& f_obj_kw_Rs("G_Name")&"</option>"
  434. Else
  435. GetKeywordslist = GetKeywordslist & "<option value="""& f_obj_kw_Rs("G_Name")&""">"& f_obj_kw_Rs("G_Name")&"</option>"
  436. End if
  437. f_obj_kw_Rs.movenext
  438. Loop
  439. GetKeywordslist = GetKeywordslist
  440. f_obj_kw_Rs.close:set f_obj_kw_Rs = nothing
  441. End Function
  443. '得到栏目自定义ID
  444. Public Function GetCustClassID(f_custclassid)
  445. Dim obj_cust_rs
  446. set obj_cust_rs = Conn.execute("select DefineID from FS_DS_Class where Classid='"& f_custclassid &"'")
  447. if not obj_cust_rs.eof then
  448. GetCustClassID = obj_cust_rs("DefineID")
  449. Else
  450. GetCustClassID = ""
  451. End if
  452. obj_cust_rs.close:set obj_cust_rs =nothing
  453. End Function
  454. '得到下载保存路径
  455. Public Function SaveNewsPath(f_num)
  456. SaveNewsPath = ""
  457. Select Case f_num
  458. Case 0
  459. SaveNewsPath = "/" & year(now)&"-"&month(now)&"-"&day(now)
  460. Case 1
  461. SaveNewsPath = "/" & year(now)&"/"&month(now)&"/"&day(now)
  462. Case 2
  463. SaveNewsPath = "/" & year(now)&"/"&month(now)&"-"&day(now)
  464. Case 3
  465. SaveNewsPath = "/" & year(now)&"-"&month(now)&"/"&day(now)
  466. Case 4
  467. SaveNewsPath = "/"
  468. Case 5
  469. SaveNewsPath = "/" & year(now)&"/"&month(now)
  470. Case 6
  471. SaveNewsPath = "/" & year(now)&"/"&month(now)&day(now)
  472. Case 7
  473. SaveNewsPath = "/" & year(now)&month(now)&day(now)
  474. End Select
  475. End Function
  476. '取得用户名
  477. Public Function GetUserName(f_strNumber)
  478. Dim RsGetUserName
  479. Set RsGetUserName = User_Conn.Execute("Select UserName From FS_ME_Users Where UserNumber = '"& f_strNumber &"'")
  480. If  Not RsGetUserName.eof  Then 
  481. GetUserName = RsGetUserName("UserName")
  482. Else
  483. GetUserName = 0
  484. End If 
  485. set RsGetUserName = nothing
  486. End Function 
  487. '转移下载到其他目录
  488. Public Function MoveNewsToClass(SourceNewsArray,ObjectClassID)
  489. Dim i,j,RsNewsObj,CopyNewsObj,SqlNews,FiledObj
  490. Dim NewsFileNames,TempNewsID,ConfigInfo
  491. ConfigInfo = Conn.Execute("Select FileExtName from FS_DS_Class")(0)
  492. for i = LBound(SourceNewsArray) to UBound(SourceNewsArray)
  493. Set RsNewsObj = Conn.Execute("Select * from FS_News where NewsID='" & SourceNewsArray(i) & "'")
  494. SqlNews = "Select * from FS_News where 1=0"
  495. Set CopyNewsObj = Server.CreateObject(G_FS_RS)
  496. CopyNewsObj.Open SqlNews,Conn,1,3
  497. CopyNewsObj.AddNew
  498. For Each FiledObj In CopyNewsObj.Fields
  499. if LCase(FiledObj.name) <> "id" then
  500. if LCase(FiledObj.name) = "newsid" then
  501. TempNewsID = GetRandomID18()
  502. CopyNewsObj("newsid") = TempNewsID
  503. elseif LCase(FiledObj.name) = "classid" then
  504. CopyNewsObj("classid") = ObjectClassID
  505. else
  506. CopyNewsObj(FiledObj.name) = RsNewsObj(FiledObj.name)
  507. end if
  508. end if
  509. Next
  510. CopyNewsObj.UpDate
  511. 'NewsFileNames=NewsFileName(ConfigArray(19),ObjectClassID,TempNewsID,CopyNewsObj("ID"))
  512. CopyNewsObj.Close
  513. '============================
  514. '取ID，生成文件名称，然后写回！
  515. Conn.Execute("Update FS_News Set FileName='"&NewsFileNames&"' Where NewsID='"&TempNewsID&"'")
  516. '============================
  517. next
  518. Set RsNewsObj = Nothing
  519. Set CopyNewsObj = Nothing
  520. End Function
  521. End Class
  522. %>