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

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

数据库编程

开发平台：

ASP/ASPX

Sys_Public.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. <%'Copyright (c) 2006 Foosun Inc. Code by Simpwind.Xie Time:2006.6
  7. Response.Buffer = True
  8. Response.Expires = -1
  9. Response.ExpiresAbsolute = Now() - 1
  10. Response.Expires = 0
  11. Response.CacheControl = "no-cache"
  12. Dim Conn
  13. MF_Default_Conn
  14. MF_Session_TF
  15. if not MF_Check_Pop_TF("MF_Public") then Err_Show
  16. %>
  17. <html xmlns="http://www.w3.org/1999/xhtml">
  18. <HEAD>
  19. <TITLE>FoosunCMS</TITLE>
  20. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  21. </HEAD>
  22. <script language="JavaScript" src="../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  23. <script language="JavaScript" src="../FS_Inc/Prototype.js" type="text/JavaScript"></script>
  24. <script language="JavaScript" src="../FS_Inc/common.js" type="text/JavaScript"></script>
  25. <script language="JavaScript" src="../FS_Inc/coolWindowsCalendar.js" type="text/JavaScript"></script>
  26. <link href="images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  27. <style>
  28. .RefreshLen{
  29. height: 20px;
  30. width: 400px;
  31. border: 1px solid #104a7b;
  32. text-align: left;
  33. MARGIN-top:50px;
  34. margin-bottom: 5px;
  35. }
  36. </style>
  37. <BODY oncontextmenu="return false;">
  38. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  39. <tr class="xingmu">
  40. <td class="xingmu">
  41. <p>发布管理</p>
  42. </td>
  43. </tr>
  44. <tr class="hback">
  45. <td><a href="Sys_Public.asp?Type=MF">站点主页</a>┆<a href="Sys_Public.asp?Type=NS">新闻</a>┆
  46. <%if Request.Cookies("FoosunSUBCookie")("FoosunSUBMS")=1 then%>
  47. <a href="Sys_Public.asp?Type=MS">商城</a>┆
  48. <%end if%>
  49. <a href="Sys_Public.asp?Type=DS">下载</a>┆<a href="SysRefreshset.asp">自动刷新配置文件</a></td>
  50. </tr>
  51. </table>
  52. <div id="RefreshMain">
  53. <%
  54. Dim str_type
  55. str_type = trim(Request.QueryString("Type"))
  56. select  case str_type
  57. case "MF"
  58. Call MF_Refresh()
  59. case "NS"
  60. Call NS_Refresh()
  61. case "MS"
  62. Call MS_Refresh()
  63. case "IB"
  65. case "DS"
  66. Call DS_Refresh()
  67. case "Log"
  68. call pub_log()
  69. case else
  70. Call MF_Refresh()
  71. end select
  72. sub pub_log()
  73. Dim Path,FileName,EditFile,FileContent,Result,strShowErr
  74. Result = Request.Form("Action")
  75. Path = "../FS_InterFace/Public_Log"
  76. FileName = "Refresh.ini"
  77. EditFile = Server.MapPath(Path) & "" & FileName
  78. Dim FsoObj,FileObj,FileStreamObj
  79. Set FsoObj = Server.CreateObject(G_FS_FSO)
  80. Set FileObj = FsoObj.GetFile(EditFile)
  81. if Result = "" then
  82. Set FileStreamObj = FileObj.OpenAsTextStream(1)
  83. if Not FileStreamObj.AtEndOfStream then
  84. FileContent = FileStreamObj.ReadAll
  85. else
  86. FileContent = ""
  87. end if
  88. else
  89. Set FileStreamObj = FileObj.OpenAsTextStream(2)
  90. FileContent = Request.Form("ConstContent")
  91. FileStreamObj.Write FileContent
  92. if Err.Number <> 0 then
  93. strShowErr = "<li>保存失败</li><li>"& Err.Description &"</li>"
  94. Response.Redirect("Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  95. Response.end
  96. else
  97. strShowErr = "<li>全局变量保存成功</li>"
  98. Response.Redirect("Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  99. Response.end
  100. end if
  101. end if
  102. Response.Write  "<table class=""table"" width=""98%"" align=""center""><tr class=""hback""><td class=""hback"" align=""center""><textarea name=""FileFresh"" style=""width:100%"" rows=""20"">"& FileContent &"</textarea></td></tr></table>"
  103. %>
  104. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  105. <tr height="1" class="hback">
  106. <td height="25">发布任务：
  107. <%
  108. if Request.QueryString("Type")="Log" then
  109. Response.Write("任务日志查看。<span class=""tx"">注意：如果您的是虚拟主机空间或者没有安装任务执行软件，将无法使用此功能，需要手工生成</span>")
  110. elseif Request.QueryString("Type")="All" then
  111. Response.Write("发布所有")
  112. else
  113. response.Write Request.QueryString("Type")
  114. End if
  115. %>
  116. </td>
  117. </tr>
  118. <tr height="1" class="hback">
  119. <td height="25">
  120. <p>说明：<br>
  121. <strong>MF=Index</strong><br>
  122. 站点主页<br>
  123. 新闻系统 <br>
  124. <strong>NS=Index</strong><br>
  125. 新闻首页<br>
  126. <strong>NS=Class(0)[1,2,3,6,7]</strong><br>
  127. Class为刷新新闻栏目，(0)表示刷新指定ID，(1)表示刷新的ID开始和ID的结束<br>
  128. <strong>NS=Class(1)[1,7]</strong><br>
  129. Class为刷新新闻栏目，(0)表示刷新指定ID，(1)表示刷新的ID开始和ID的结束<br>
  130. <strong>NS=News(0)[1,4,5,6,8]</strong><br>
  131. News为刷新新闻浏览页面，(0)表示刷新指定ID，(1)表示刷新的ID开始和ID的结束,(2)表示开始时间和结束时间<br>
  132. <strong>NS=News(1)[1,8]</strong><br>
  133. News为刷新新闻浏览页面，(0)表示刷新指定ID，(1)表示刷新的ID开始和ID的结束,(2)表示开始时间和结束时间 <br>
  134. <strong>NS=News(2)[2005-6-7,2006-6-8]</strong><br>
  135. News为刷新新闻浏览页面，(0)表示刷新指定ID，(1)表示刷新的ID开始和ID的结束,(2)表示开始时间和结束时间 <br>
  136. <strong>NS=Special(0)[1,5,6,7,8]</strong><br>
  137. Special为刷新专题，(0)表示刷新指定ID，(1)表示刷新的ID开始和ID的结束<br>
  138. <strong>NS=Special(1)[1,8]</strong><br>
  139. Special为刷新专题，(0)表示刷新指定ID，(1)表示刷新的ID开始和ID的结束 <br>
  140. <br>
  141. ......<br>
  142. <br>
  143. 其他类似
  144. <%
  145. end sub
  146. %>
  147. </td>
  148. </tr>
  149. </table>
  150. <%Sub MF_Refresh()%>
  151. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  152. <tr>
  153. <td colspan="3" class="xingmu">发布新闻</td>
  154. </tr>
  155. <tr >
  156. <td width="13%" class="hback">
  157. <div align="right">发布所有</div>
  158. </td>
  159. <td width="87%" colspan="2" class="hback">
  160. <input type="button" onClick="Submit_Data_To_Refresh('MF','','index','');" name="Submit4" value="开始发布站点主页">
  161. </td>
  162. </tr>
  163. </table>
  164. <%End sub%>
  165. <%
  166. Sub NS_Refresh()
  167. Dim rs,str_ClassList
  168. str_ClassList =""
  169. set rs=Conn.execute("select ClassId,ClassName From FS_NS_NewsClass where ParentId = '0' and ReycleTF=0 order by OrderId desc,id desc")
  170. do while not rs.eof
  171. str_ClassList = str_ClassList & "<option value="""&rs("ClassId")&""">"&rs("ClassName")&"</option>"
  172. str_ClassList = str_ClassList & get_ChildClassList(rs("ClassId"),"┝")
  173. rs.movenext
  174. loop
  175. rs.close:set rs=nothing
  176. %>
  177. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  178. <tr>
  179. <td colspan="3" class="xingmu">发布新闻主页</td>
  180. </tr>
  181. <tr>
  182. <td width="13%" class="hback">
  183. <div align="right">发布新闻主页</div>
  184. </td>
  185. <td colspan="2" class="hback">
  186. <input type="button" onClick="Submit_Data_To_Refresh('NS','','index','');" name="Submit" value="开始发布">
  187. </td>
  188. </tr>
  189. <tr>
  190. <td colspan="3" class="xingmu">发布新闻</td>
  191. </tr>
  192. <tr>
  193. <td width="13%" class="hback">
  194. <div align="right">发布所有</div>
  195. </td>
  196. <td colspan="2" class="hback">
  197. <input type="button" onClick="Submit_Data_To_Refresh('NS','FS_NS_News','nsallnews','');" name="Submit" value="开始发布">
  198. </td>
  199. </tr>
  200. <form name="Public_form_NS_ID_News" method="post" action="">
  201. <tr >
  202. <td class="hback">
  203. <div align="right">按照ID发布</div>
  204. </td>
  205. <td colspan="2" class="hback">
  206. <input name="startId" type="text" id="startId" value="1" size="10" maxlength="8">
  207. <input name="endId" type="text" id="endId" value="100" size="10" maxlength="10">
  208. <input type="button" onClick="Submit_Data_To_Refresh('NS','FS_NS_News','nsidnews',this.form);" name="Submit5" value="开始发布">
  209. </td>
  210. </tr>
  211. </form>
  212. <form name="Public_form_NS_Last_News" method="post" action="">
  213. <tr >
  214. <td class="hback">
  215. <div align="right">发布最新</div>
  216. </td>
  217. <td colspan="2" class="hback">
  218. <input name="LastNews" type="text" id="LastNews" value="10" size="10" maxlength="5">
  219. <input type="button" onClick="Submit_Data_To_Refresh('NS','FS_NS_News','nslastnews',this.form);" name="Submit6" value="开始发布">
  220. </td>
  221. </tr>
  222. </form>
  223. <form name="Public_form_NS_Date_News" method="post" action="">
  224. <tr >
  225. <td class="hback">
  226. <div align="right">按照日期发布</div>
  227. </td>
  228. <td colspan="2" class="hback">
  229. <input name="startTime" type="text" id="startTime" value="<%=date()-1%>" size="20" maxlength="30" readonly>
  230. <img src="../sys_images/calendar.gif" width="34" onClick="OpenWindowAndSetValue('CommPages/SelectDate.asp',280,150,window,document.Public_form_NS_Date_News.startTime);document.Public_form_NS_Date_News.startTime.focus();" style="cursor:hand;">
  231. <input name="endTime" type="text" id="endTime" value="<%=date()%>" size="20" maxlength="30" readonly>
  232. <img src="../sys_images/calendar.gif" width="34" onClick="OpenWindowAndSetValue('CommPages/SelectDate.asp',280,150,window,document.Public_form_NS_Date_News.endTime);document.Public_form_NS_Date_News.endTime.focus();" style="cursor:hand;">
  233. <input type="button" onClick="Submit_Data_To_Refresh('NS','FS_NS_News','nsdatenews',this.form);" name="Submit7" value="开始发布">
  234. </td>
  235. </tr>
  236. </form>
  237. <form name="Public_form_NS_Class_News" method="post" action="">
  238. <tr >
  239. <td class="hback">
  240. <div align="right">按照栏目发布</div>
  241. </td>
  242. <td width="29%" class="hback">
  243. <div align="center">
  244. <select name="ClassID" size="12" multiple id="ClassID" style="width:98%">
  245. <%=str_ClassList%>
  246. </select>
  247. </div>
  248. </td>
  249. <td width="58%" class="hback">
  250. <input type="button" onClick="Submit_Data_To_Refresh('NS','FS_NS_News','nsclassnews',this.form);" name="Submit8" value="开始发布">
  251. </td>
  252. </tr>
  253. <tr >
  254. <td colspan="3" class="xingmu">发布栏目</td>
  255. </tr>
  256. </form>
  257. <tr >
  258. <td class="hback">
  259. <div align="right">发布栏目</div>
  260. </td>
  261. <td colspan="2" class="hback">
  262. <input type="button" onClick="Submit_Data_To_Refresh('NS','FS_NS_NewsClass','nsallclass','');" name="Submit222" value="发布所有栏目">
  263. </td>
  264. </tr>
  265. <form name="Public_form_NS_Class" method="post" action="">
  266. <tr >
  267. <td class="hback">
  268. <div align="right">选择栏目</div>
  269. </td>
  270. <td width="29%" class="hback">
  271. <div align="center">
  272. <select name="ClassID" size="10" multiple id="ClassID" style="width:98%">
  273. <%=str_ClassList%>
  274. </select>
  275. </div>
  276. </td>
  277. <td width="58%" class="hback">
  278. <input type="button" onClick="Submit_Data_To_Refresh('NS','FS_NS_NewsClass','nsclass',this.form);" name="Submit222" value="开始发布">
  279. </td>
  280. </tr>
  281. <tr >
  282. <td colspan="3" class="xingmu">发布专题</td>
  283. </tr>
  284. </form>
  285. <form name="Public_form_NS_Special" method="post" action="">
  286. <tr >
  287. <td class="hback">
  288. <div align="right">选择专题</div>
  289. </td>
  290. <td width="29%" class="hback">
  291. <div align="center">
  292. <select name="SpecialID" size="10" multiple id="SpecialID" style="width:98%">
  293. <%
  294.  set rs = Conn.execute("select SpecialID,SpecialCName From FS_NS_Special Where isLock=0 Order by SpecialID desc")
  295.  do while not rs.eof
  296.  response.Write"<option value="""&rs("SpecialID")&""">"&rs("SpecialCName")&"</option>"
  297.  rs.movenext
  298.  loop
  299.  rs.close:set rs=nothing
  300.   %>
  301. </select>
  302. </div>
  303. </td>
  304. <td width="58%" class="hback">
  305. <input type="button" onClick="Submit_Data_To_Refresh('NS','FS_NS_Special','nsspecial',this.form);" name="Submit222" value="开始发布">
  306. </td>
  307. </tr>
  308. <tr >
  309. <td class="hback">&nbsp;</td>
  310. <td class="hback">&nbsp;</td>
  311. <td class="hback">&nbsp;</td>
  312. </tr>
  313. </form>
  314. </table>
  315. <%
  316. End sub
  317. If str_type="NS" Then
  318. Function get_ChildClassList(TypeID,CompatStr)
  319. Dim ChildTypeListRs,ChildTypeListStr,TempStr
  320. Set ChildTypeListRs = Conn.execute("Select ParentID,ClassID,ClassName from FS_NS_NewsClass where ParentID='" & TypeID & "' and ReycleTF=0 order by OrderID desc,id desc")
  321. TempStr = CompatStr & "┉"
  322. do while Not ChildTypeListRs.Eof
  323. get_ChildClassList = get_ChildClassList &"<option value="""&ChildTypeListRs("ClassId")&""">"& TempStr
  324. get_ChildClassList = get_ChildClassList & "┉"&ChildTypeListRs("ClassName")&"</option>"
  325. get_ChildClassList = get_ChildClassList & get_ChildClassList(ChildTypeListRs("ClassID"),TempStr)
  326. ChildTypeListRs.MoveNext
  327. loop
  328. ChildTypeListRs.Close:Set ChildTypeListRs = Nothing
  329. End Function
  330. end if
  331. If str_type="MS" Then
  332. Function get_Child_S_ClassList(TypeID,CompatStr)
  333. Dim ChildTypeListRs,ChildTypeListStr,TempStr
  334. Set ChildTypeListRs = Conn.execute("Select ParentID,ClassID,ClassCName from FS_MS_ProductsClass where ParentID='" & TypeID & "' and ReycleTF=0 order by OrderID desc,id desc")
  335. TempStr = CompatStr & "┉"
  336. do while Not ChildTypeListRs.Eof
  337. get_Child_S_ClassList = get_Child_S_ClassList &"<option value="""&ChildTypeListRs("ClassId")&""">"& TempStr
  338. get_Child_S_ClassList = get_Child_S_ClassList & "┉"&ChildTypeListRs("ClassCName")&"</option>"
  339. get_Child_S_ClassList = get_Child_S_ClassList & get_Child_S_ClassList(ChildTypeListRs("ClassID"),TempStr)
  340. ChildTypeListRs.MoveNext
  341. loop
  342. ChildTypeListRs.Close:Set ChildTypeListRs = Nothing
  343. End Function
  344. end if
  345. If str_type="DS" Then
  346. Function get_Child_S_ClassList(TypeID,CompatStr)
  347. Dim ChildTypeListRs,ChildTypeListStr,TempStr
  348. Set ChildTypeListRs = Conn.execute("Select ParentID,ClassID,ClassName from FS_DS_Class where ParentID='" & TypeID & "' and ReycleTF=0 order by OrderID desc,id desc")
  349. TempStr = CompatStr & "┉"
  350. do while Not ChildTypeListRs.Eof
  351. get_Child_S_ClassList = get_Child_S_ClassList &"<option value="""&ChildTypeListRs("ClassId")&""">"& TempStr
  352. get_Child_S_ClassList = get_Child_S_ClassList & "┉"&ChildTypeListRs("ClassName")&"</option>"
  353. get_Child_S_ClassList = get_Child_S_ClassList & get_Child_S_ClassList(ChildTypeListRs("ClassID"),TempStr)
  354. ChildTypeListRs.MoveNext
  355. loop
  356. ChildTypeListRs.Close:Set ChildTypeListRs = Nothing
  357. End Function
  358. end if
  359. Sub MS_Refresh()
  360. DIM str_ClassList,Rs
  361. str_ClassList =""
  362. set rs=Conn.execute("select ClassId,ClassCName From FS_MS_ProductsClass where ParentId = '0' and ReycleTF=0 order by OrderId desc,id desc")
  363. do while not rs.eof
  364. str_ClassList = str_ClassList & "<option value="""&rs("ClassId")&""">"&rs("ClassCName")&"</option>"
  365. str_ClassList = str_ClassList & get_Child_S_ClassList(rs("ClassId"),"┝")
  366. rs.movenext
  367. loop
  368. %>
  369. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  370. <tr>
  371. <td colspan="3" class="xingmu">发布商城主页</td>
  372. </tr>
  373. <tr>
  374. <td width="13%" class="hback">
  375. <div align="right">发布商城主页</div>
  376. </td>
  377. <td colspan="2" class="hback">
  378. <input type="button" onClick="Submit_Data_To_Refresh('MS','','index','');" name="Submit" value="开始发布">
  379. </td>
  380. </tr>
  381. <tr>
  382. <td colspan="3" class="xingmu">发布商品</td>
  383. </tr>
  384. <tr >
  385. <td width="13%" class="hback">
  386. <div align="right">发布所有</div>
  387. </td>
  388. <td colspan="2" class="hback">
  389. <input type="button" onClick="Submit_Data_To_Refresh('MS','FS_MS_Products','msallproduct','');" name="Submit" value="开始发布">
  390. </td>
  391. </tr>
  392. <form name="Public_form_MS_ID_Product" method="post" action="">
  393. <tr >
  394. <td class="hback">
  395. <div align="right">按照ID发布</div>
  396. </td>
  397. <td colspan="2" class="hback">
  398. <input name="startId" type="text" id="startId" value="1" size="10" maxlength="8">
  399. <input name="endId" type="text" id="endId" value="100" size="10" maxlength="10">
  400. <input type="button" onClick="Submit_Data_To_Refresh('MS','FS_MS_Products','msidproduct',this.form);" name="Submit2" value="开始发布">
  401. </td>
  402. </tr>
  403. </form>
  404. <form name="Public_form_MS_Last_Product" method="post" action="">
  405. <tr >
  406. <td class="hback">
  407. <div align="right">发布最新</div>
  408. </td>
  409. <td colspan="2" class="hback">
  410. <input name="LastNews" type="text" id="LastNews" value="10" size="10" maxlength="5">
  411. <input type="button" onClick="Submit_Data_To_Refresh('MS','FS_MS_Products','mslastproduct',this.form);" name="Submit10" value="开始发布">
  412. </td>
  413. </tr>
  414. </form>
  415. <form name="Public_form_MS_Date_Product" method="post" action="">
  416. <tr >
  417. <td class="hback">
  418. <div align="right">按照日期发布</div>
  419. </td>
  420. <td colspan="2" class="hback">
  421. <input name="startTime" type="text" id="startTime" value="<%=date()-1%>" size="20" maxlength="30" readonly>
  422. <img src="../sys_images/calendar.gif" width="34" onClick="OpenWindowAndSetValue('CommPages/SelectDate.asp',280,150,window,document.Public_form_MS_Date_Product.startTime);document.Public_form_MS_Date_Product.startTime.focus();" style="cursor:hand;">
  423. <input name="endTime" type="text" id="endTime" value="<%=date()%>" size="20" maxlength="30" readonly>
  424. <img src="../sys_images/calendar.gif" width="34" onClick="OpenWindowAndSetValue('CommPages/SelectDate.asp',280,150,window,document.Public_form_MS_Date_Product.endTime);document.Public_form_MS_Date_Product.endTime.focus();" style="cursor:hand;">
  425. <input type="button" onClick="Submit_Data_To_Refresh('MS','FS_MS_Products','msdateproduct',this.form);" name="Submit11" value="开始发布">
  426. </td>
  427. </tr>
  428. </form>
  429. <form name="Public_form_MS_Class_Product" method="post" action="">
  430. <tr >
  431. <td class="hback">
  432. <div align="right">按照栏目发布</div>
  433. </td>
  434. <td width="29%" class="hback">
  435. <div align="center">
  436. <select name="ClassID" size="12" multiple id="ClassID" style="width:98%">
  437. <%=str_ClassList%>
  438. </select>
  439. </div>
  440. </td>
  441. <td width="58%" class="hback">
  442. <input type="button" onClick="Submit_Data_To_Refresh('MS','FS_MS_Products','msclassproduct',this.form);" name="Submit12" value="开始发布">
  443. </td>
  444. </tr>
  445. <tr >
  446. <td colspan="3" class="xingmu">发布商品栏目</td>
  447. </tr>
  448. </form>
  449. <tr >
  450. <td class="hback">
  451. <div align="right">发布商品栏目</div>
  452. </td>
  453. <td colspan="2" class="hback">
  454. <input type="button" onClick="Submit_Data_To_Refresh('MS','FS_MS_ProductsClass','msallclass','');" name="Submit222" value="发布所有栏目">
  455. </td>
  456. </tr>
  457. <form name="Public_form_MS_Class" method="post" action="">
  458. <tr >
  459. <td class="hback">
  460. <div align="right">选择栏目</div>
  461. </td>
  462. <td width="29%" class="hback">
  463. <div align="center">
  464. <select name="ClassID" size="10" multiple id="ClassID" style="width:98%">
  465. <%=str_ClassList%>
  466. </select>
  467. </div>
  468. </td>
  469. <td width="58%" class="hback">
  470. <input type="button" onClick="Submit_Data_To_Refresh('MS','FS_MS_ProductsClass','msclass',this.form);" name="Submit13" value="开始发布">
  471. </td>
  472. </tr>
  473. <tr >
  474. <td colspan="3" class="xingmu">发布专区</td>
  475. </tr>
  476. </form>
  477. <form name="Public_form_MS_Special" method="post" action="">
  478. <tr >
  479. <td class="hback">
  480. <div align="right">选择专题</div>
  481. </td>
  482. <td width="29%" class="hback">
  483. <div align="center">
  484. <select name="SpecialID" size="10" multiple id="SpecialID" style="width:98%">
  485. <%
  486.  set rs = Conn.execute("select SpecialID,SpecialCName From FS_MS_Special Where isLock=0 Order by SpecialID desc")
  487.  do while not rs.eof
  488.  response.Write"<option value="""&rs("SpecialID")&""">"&rs("SpecialCName")&"</option>"
  489.  rs.movenext
  490.  loop
  491.  rs.close:set rs=nothing
  492.   %>
  493. </select>
  494. </div>
  495. </td>
  496. <td width="58%" class="hback">
  497. <input type="button" onClick="Submit_Data_To_Refresh('MS','FS_MS_Special','msspecial',this.form);" name="Submit14" value="开始发布">
  498. </td>
  499. </tr>
  500. <tr >
  501. <td class="hback">&nbsp;</td>
  502. <td class="hback">&nbsp;</td>
  503. <td class="hback">&nbsp;</td>
  504. </tr>
  505. </form>
  506. </table>
  507. <%
  508. End Sub
  509. Sub DS_Refresh()
  510. Dim rs,str_ClassList
  511. str_ClassList =""
  512. set rs=Conn.execute("select ClassId,ClassName From FS_DS_Class where ParentId = '0' and ReycleTF=0 order by OrderId desc,id desc")
  513. do while not rs.eof
  514. str_ClassList = str_ClassList & "<option value="""&rs("ClassId")&""">"&rs("ClassName")&"</option>"
  515. str_ClassList = str_ClassList & get_Child_S_ClassList(rs("ClassId"),"┝")
  516. rs.movenext
  517. loop
  518. rs.close:set rs=nothing
  519. %>
  520. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  521. <tr>
  522. <td colspan="3" class="xingmu">发布下载首页</td>
  523. </tr>
  524. <tr >
  525. <td width="13%" class="hback">
  526. <div align="right">发布下载首页</div>
  527. </td>
  528. <td colspan="2" class="hback">
  529. <input type="button" onClick="Submit_Data_To_Refresh('DS','','index','');" name="Submit9" value="开始发布">
  530. </td>
  531. </tr>
  532. <tr>
  533. <td colspan="3" class="xingmu">发布下载</td>
  534. </tr>
  535. <tr >
  536. <td width="13%" class="hback">
  537. <div align="right">发布所有</div>
  538. </td>
  539. <td colspan="2" class="hback">
  540. <input type="button" onClick="Submit_Data_To_Refresh('DS','FS_DS_List','dsalldownload','');" name="Submit9" value="开始发布">
  541. </td>
  542. </tr>
  543. <form name="Public_form_DS_ID_Download" method="post" action="">
  544. <tr >
  545. <td class="hback">
  546. <div align="right">按照ID发布</div>
  547. </td>
  548. <td colspan="2" class="hback">
  549. <input name="startId" type="text" id="startId" value="1" size="10" maxlength="8">
  550. <input name="endId" type="text" id="endId" value="100" size="10" maxlength="10">
  551. <input type="button" onClick="Submit_Data_To_Refresh('DS','FS_DS_List','dsiddownload',this.form);" name="Submit5" value="开始发布">
  552. </td>
  553. </tr>
  554. </form>
  555. <form name="Public_form_DS_Last_Download" method="post" action="">
  556. <tr >
  557. <td class="hback">
  558. <div align="right">发布最新</div>
  559. </td>
  560. <td colspan="2" class="hback">
  561. <input name="LastNews" type="text" id="LastNews" value="10" size="10" maxlength="5">
  562. <input type="button" onClick="Submit_Data_To_Refresh('DS','FS_DS_List','dslastdownload',this.form);" name="Submit6" value="开始发布">
  563. </td>
  564. </tr>
  565. </form>
  566. <form name="Public_form_DS_Date_Download" method="post" action="">
  567. <tr >
  568. <td class="hback">
  569. <div align="right">按照日期发布</div>
  570. </td>
  571. <td colspan="2" class="hback">
  572. <input name="startTime" type="text" id="startTime" value="<%=date()-1%>" size="20" maxlength="30" readonly>
  573. <img src="../sys_images/calendar.gif" width="34" onClick="OpenWindowAndSetValue('CommPages/SelectDate.asp',280,150,window,document.Public_form_DS_Date_Download.startTime);document.Public_form_DS_Date_Download.startTime.focus();" style="cursor:hand;">
  574. <input name="endTime" type="text" id="endTime" value="<%=date()%>" size="20" maxlength="30" readonly>
  575. <img src="../sys_images/calendar.gif" width="34" onClick="OpenWindowAndSetValue('CommPages/SelectDate.asp',280,150,window,document.Public_form_DS_Date_Download.endTime);document.Public_form_DS_Date_Download.endTime.focus();" style="cursor:hand;">
  576. <input type="button" onClick="Submit_Data_To_Refresh('DS','FS_DS_List','dsdatedownload',this.form);" name="Submit7" value="开始发布">
  577. </td>
  578. </tr>
  579. </form>
  580. <form name="Public_form_DS_Class_Download" method="post" action="">
  581. <tr >
  582. <td class="hback">
  583. <div align="right">按照栏目发布</div>
  584. </td>
  585. <td width="29%" class="hback">
  586. <div align="center">
  587. <select name="ClassID" size="12" multiple id="ClassID" style="width:98%">
  588. <%=str_ClassList%>
  589. </select>
  590. </div>
  591. </td>
  592. <td width="58%" class="hback">
  593. <input type="button" onClick="Submit_Data_To_Refresh('DS','FS_DS_List','dsclassdownload',this.form);" name="Submit8" value="开始发布">
  594. </td>
  595. </tr>
  596. <tr >
  597. <td colspan="3" class="xingmu">发布栏目</td>
  598. </tr>
  599. </form>
  600. <tr >
  601. <td class="hback">
  602. <div align="right">发布栏目</div>
  603. </td>
  604. <td colspan="2" class="hback">
  605. <input type="button" onClick="Submit_Data_To_Refresh('DS','FS_DS_Class','dsallclass','');" name="Submit222" value="发布所有栏目">
  606. </td>
  607. </tr>
  608. <form name="Public_form_DS_Class" method="post" action="">
  609. <tr >
  610. <td class="hback">
  611. <div align="right">选择栏目</div>
  612. </td>
  613. <td width="29%" class="hback">
  614. <div align="center">
  615. <select name="select" size="10" multiple id="select" style="width:98%">
  616. <%=str_ClassList%>
  617. </select>
  618. </div>
  619. </td>
  620. <td width="58%" class="hback">
  621. <input type="button" onClick="Submit_Data_To_Refresh('DS','FS_DS_Class','dsclass',this.form);" name="Submit222" value="开始发布">
  622. </td>
  623. </tr>
  624. </form>
  625. </table>
  626. <%
  627. End sub
  628. %>
  629. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  630. <tr class="hback">
  631. <td><span class="tx">注意：如果您是虚拟主机用户或者您的服务器不能注册(及没注册)"发布任务"控件，将不能使用自动任务发布功能　<a href="../help?Lable=MF_PublicSite_Dll" target="_blank" style="cursor:help;"><img src="Images/_help.gif" width="50" height="17" border="0"></a></span></td>
  632. </tr>
  633. </table>
  634. </div>
  635. <div id="RefreshSchedule" style="display:none;" align="center"></div>
  636. </body>
  637. </html>
  638. <script language="JavaScript" type="text/JavaScript">
  639. var G_REFRESH_NUM_TIME=<%= G_REFRESH_NUM_TIME %>;
  640. countnum=1;
  641. function opencat(cat)
  642. {
  643.   if(cat.style.display=="none") cat.style.display="";
  644.   else cat.style.display="none"; 
  645. }
  647. function Submit_Data_To_Refresh(Sys,Table,Type,FormObj)
  648. {
  649. var Action='',Str='',Obj=null;
  650. if (typeof(FormObj)=="object"){
  651. for(var i=0;i<FormObj.length;i++)
  652. {
  653. Obj = FormObj[i];
  654. if ((Obj.tagName=='INPUT')&&(Obj.type=='text')) Str=Obj.name+':'+Obj.value;
  655. if (Obj.tagName=='SELECT') {Str=Obj.name+':'+GetSelectID(Obj);}
  656. if (Str!='')
  657. {
  658. if (Action=='') Action=Str;
  659. else Action=Action+';'+Str;
  660. }
  661. Str='';
  662. }
  663. }else{
  664. Action="";
  665. }
  666. Action=Sys+'$'+Table+'$'+Type+'$'+Action;
  667. Action="Action="+Action;
  668. $('RefreshMain').style.display="none";
  669. $('RefreshSchedule').style.display="";
  670. $('RefreshSchedule').innerHTML="<div class="RefreshLen"><div class="xingmu" id="RefreshLen"></div></div>
  671. <span id="result_str"></span><br><br>";
  672. $("RefreshLen").style.width ="0%";
  673. $("RefreshLen").innerHTML="&nbsp;<span class="xingmu">0%</span>";
  674. $('result_str').innerHTML="正在准备...&nbsp;&nbsp;";
  675. Start_Refresh('PublicSite/Public_Refresh.asp',Action);
  676. }
  678. function Start_Refresh(url,Action){
  679. var myAjax = new Ajax.Request(
  680. url,
  681. {method:'get',
  682. parameters:Action,
  683. onComplete:Refresh_Receive
  684. }
  685. );
  686. }
  687. function Refresh_Receive(OriginalRequest){
  688. var check,goback;
  689. var percent=0;
  690. //goback="<a href="返回" onclick="location.reload();return false;">返回</a>";
  691. goback="<a href="返回" onclick="$('RefreshMain').style.display='';$('RefreshSchedule').style.display='none';return false;">返回</a>";
  692. if (OriginalRequest.responseText.indexOf("$")>-1){
  693. check=OriginalRequest.responseText.split("$");
  694. switch (check[0]) {
  695. case "MF" :
  696. $("RefreshLen").style.width ="100%";
  697. $("RefreshLen").innerHTML="&nbsp;<span class="xingmu">100%</span>";
  698. $('result_str').innerHTML="首页发布结束&nbsp;&nbsp;<a href="http://<%= Request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"&Request.Cookies("FoosunMFCookies")("FoosunMFIndexFileName") %>" target="_blank">浏览首页</a>&nbsp;&nbsp;"+goback;
  699. countnum=1;
  700. break;
  701. case "Next" :
  702. percent=(parseInt(check[2])/parseInt(check[1]))*100;
  703. percent=Math.round(percent);
  704. $("RefreshLen").style.width =percent+"%";
  705. $("RefreshLen").innerHTML="&nbsp;<span class="xingmu">"+percent+"%</span>";
  706. $('result_str').innerHTML="总共要发布" + check[1] + "条内容,已经发布" + check[2] + "条内容...";
  707. //Start_Refresh("PublicSite/Public_Refresh.asp","");
  709. if ((countnum % G_REFRESH_NUM_TIME)==0){
  710. window.setTimeout("Start_Refresh("PublicSite/Public_Refresh.asp","")",1000);
  711. }else{
  712. Start_Refresh("PublicSite/Public_Refresh.asp","");
  713. }
  714. countnum++;
  715. break;
  716. case "End" :
  717. $("RefreshLen").style.width ="100%";
  718. $("RefreshLen").innerHTML="&nbsp;<span class="xingmu">100%</span>";
  719. $('result_str').innerHTML="总共要发布" + check[1] + "条内容,已经发布" + (check[2]-1) + "条内容...";
  720. $('result_str').innerHTML=$('result_str').innerHTML+"<br />发布结束&nbsp;&nbsp;"+goback;
  721. countnum=1;
  722. break;
  723. case "No" :
  724. $('result_str').innerHTML="没有要发布的内容&nbsp;&nbsp;"+goback;
  725. countnum=1;
  726. break;
  727. default :
  728. //alert(OriginalRequest.responseText);
  729. //$('result_str').innerHTML=OriginalRequest.responseText;
  730. //Start_Refresh("PublicSite/Public_Refresh.asp","");
  731. $('result_str').innerHTML="发布失败，请与管理员联系。&nbsp;&nbsp;"+goback+"<br>错误描述如下：ID：<span class="tx">"+check[1]+"</span>，<span class="tx">"+check[2]+"</span>";
  732. //Start_Refresh("PublicSite/Public_Refresh.asp","");
  733. } 
  734. }
  735. else{
  736. $('result_str').innerHTML="发布失败，请与管理员联系。&nbsp;&nbsp;"+goback+"<br>错误描述如下："+OriginalRequest.responseText;
  737. }
  738. }
  740. function GetSelectID(Obj)
  741. {
  742. var SelectObj=null,Str='';
  743. for(var i=0;i<Obj.options.length;i++)
  744. {
  745. SelectObj=Obj.options[i];
  746. if(SelectObj.selected)
  747. {
  748. if(Str=='') Str=SelectObj.value;
  749. else Str=Str+'*'+SelectObj.value;
  750. }
  751. }
  752. return Str;
  753. }
  754. </script>
  755. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->