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

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

数据库编程

开发平台：

ASP/ASPX

Site.asp：源码内容
  1. <!--#include file="../../FS_Inc/Const.asp" -->
  2. <!--#include file="../../FS_Inc/Function.asp"-->
  3. <!--#include file="inc/Function.asp"-->
  4. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  5. <%
  6. Dim Conn,CollectConn
  7. MF_Default_Conn
  8. MF_Collect_Conn
  9. MF_Session_TF
  11. Dim Rs
  12. if Request("Action") = "Del" then
  13. if Request("id") <> "" then
  14. CollectConn.Execute("delete from FS_Site where ID in (" & Replace(Request("id"),"***",",") & ")")
  15. end If
  16. if Request("SiteFolderID") <> "" then
  17. CollectConn.Execute("delete from FS_SiteFolder where ID in (" & Replace(Request("SiteFolderID"),"***",",") & ")")
  18. end if
  19. Response.Redirect("site.asp")
  20. Response.End
  21. elseif Request("Action") = "Lock" then
  22. if Request("LockID") <> "" then
  23. CollectConn.Execute("Update FS_Site Set IsLock=1 where ID in (" & Replace(Request("LockID"),"***",",") & ")")
  24. Response.Redirect("site.asp")
  25. Response.End
  26. end if
  27. elseif Request("Action") = "UNLock" then
  28. if Request("LockID") <> "" then
  29. CollectConn.Execute("Update FS_Site Set IsLock=0 where ID in (" & Replace(Request("LockID"),"***",",") & ")")
  30. Response.Redirect("site.asp")
  31. Response.End
  32. end if
  33. end if
  34. if Request.Form("vs")="add" then
  35.     if Request.Form("SiteName")="" or Request.Form("objURL")="" then
  36. Response.write"<script>alert(""请填写完整！"");location.href=""javascript:history.back()"";</script>"
  37. Response.end
  38. end if
  39.     Dim Sql
  40. Set Rs = Server.CreateObject ("ADODB.RecordSet")
  41. Sql = "Select * from FS_Site where 1=0"
  42. Rs.Open Sql,CollectConn,1,3
  43. Rs.AddNew
  44. Rs("SiteName") = Request.Form("SiteName")
  45. Rs("objURL") = Request.Form("objURL")
  46. Rs("folder") = Request.Form("SiteFolder")
  47. if Request.Form("IsIFrame") = "1" then
  48. Rs("IsIFrame") = True
  49. else
  50. Rs("IsIFrame") = False
  51. end if
  52. if Request.Form("IsReverse") = "1" then
  53. Rs("IsReverse") = 1
  54. else
  55. Rs("IsReverse") = 0
  56. end if
  57. if Request.Form("IsScript") = "1" then
  58. Rs("IsScript") = True
  59. else
  60. Rs("IsScript") = False
  61. end if
  62. if Request.Form("IsClass") = "1" then
  63. Rs("IsClass") = True
  64. else
  65. Rs("IsClass") = False
  66. end if
  67. if Request.Form("IsFont") = "1" then
  68. Rs("IsFont") = True
  69. else
  70. Rs("IsFont") = False
  71. end if
  72. if Request.Form("IsSpan") = "1" then
  73. Rs("IsSpan") = True
  74. else
  75. Rs("IsSpan") = False
  76. end if
  77. if Request.Form("IsObject") = "1" then
  78. Rs("IsObject") = True
  79. else
  80. Rs("IsObject") = False
  81. end if
  82. if Request.Form("IsStyle") = "1" then
  83. Rs("IsStyle") = True
  84. else
  85. Rs("IsStyle") = False
  86. end if
  87. if Request.Form("IsDiv") = "1" then
  88. Rs("IsDiv") = True
  89. else
  90. Rs("IsDiv") = False
  91. end if
  92. if Request.Form("IsA") = "1" then
  93. Rs("IsA") = True
  94. else
  95. Rs("IsA") = False
  96. end if
  97. if Request.Form("Audit") = "1" then
  98. Rs("Audit") = True
  99. else
  100. Rs("Audit") = False
  101. end if
  102. if Request.Form("TextTF") = "1" then
  103. Rs("TextTF") = True
  104. else
  105. Rs("TextTF") = False
  106. end if
  107. if Request.Form("SaveRemotePic") = "1" then
  108. Rs("SaveRemotePic") = True
  109. else
  110. Rs("SaveRemotePic") = False
  111. end if
  112. if Request.Form("Islock") <> "" then
  113. Rs("Islock") = True
  114. else
  115. Rs("Islock") = False
  116. end if
  117. Rs.UpDate
  118. Rs.Close
  119. Set Rs = Nothing
  120. Set CollectConn = Nothing
  121. Response.Redirect("Site.asp")
  122. Response.End
  123. elseif Request("vs")="addfolder" then
  124. Dim SiteFolder,SiteFolderDetail,SqlStr
  125. SiteFolder = Request.Form("SiteFolder")
  126. SiteFolderDetail = Request.Form("SiteFolderDetail")
  127. If SiteFolder = "" or SiteFolderDetail = "" Then
  128. Response.write"<script>alert(""请填写完整！"");location.href=""javascript:history.back()"";</script>"
  129. Response.end
  130. End If
  131. Set Rs = Server.CreateObject ("ADODB.RecordSet")
  132. if Request("SiteFolderID") <> "" then
  133. SqlStr = "Select * from FS_SiteFolder where ID=" & Request("SiteFolderID")
  134. else
  135. SqlStr = "Select * from FS_SiteFolder where 1=0"
  137. end if
  138. Rs.Open SqlStr,CollectConn,1,3
  139. Rs.AddNew
  140. Rs("SiteFolder") = SiteFolder
  141. Rs("SiteFolderDetail") = SiteFolderDetail
  142. Rs.UpDate
  143. Rs.Close
  144. Set Rs = Nothing
  145. Set Conn = Nothing
  146. Set CollectConn = Nothing
  147. Response.Redirect("Site.asp")
  148. Response.end
  149. elseif Request("vs")="Copy" then
  150. Dim SiteID,SiteFolderID,RsCopySourceObj,RsCopyObjectObj,FiledObj
  151. SiteID = Request("SiteID")
  152. SiteFolderID = Request("SiteFolderID")
  153. if SiteID <> "" then
  154. Set RsCopySourceObj = CollectConn.Execute("Select * from FS_Site where ID in (" & Replace(SiteID,"***",",") & ")")
  155. do while Not RsCopySourceObj.Eof
  156. Set RsCopyObjectObj = Server.CreateObject("ADODB.RecordSet")
  157. RsCopyObjectObj.Open "Select * from FS_Site where 1=0",CollectConn,3,3
  158. RsCopyObjectObj.AddNew
  159. For Each FiledObj In RsCopyObjectObj.Fields
  160. if LCase(FiledObj.name) <> "id" then
  161. RsCopyObjectObj(FiledObj.name) = RsCopySourceObj(FiledObj.name)
  162. end if
  163. Next
  164. RsCopyObjectObj.Update
  165. RsCopySourceObj.MoveNext
  166. Loop
  167. Set RsCopySourceObj = Nothing
  168. Set RsCopyObjectObj = Nothing
  169. end If
  170. if SiteFolderID <> "" then
  171. Set RsCopySourceObj = CollectConn.Execute("Select * from FS_SiteFolder where ID in (" & Replace(SiteFolderID,"***",",") & ")")
  172. do while Not RsCopySourceObj.Eof
  173. Set RsCopyObjectObj = Server.CreateObject("ADODB.RecordSet")
  174. RsCopyObjectObj.Open "Select * from FS_SiteFolder where 1=0",CollectConn,3,3
  175. RsCopyObjectObj.AddNew
  176. For Each FiledObj In RsCopyObjectObj.Fields
  177. if LCase(FiledObj.name) <> "id" then
  178. RsCopyObjectObj(FiledObj.name) = RsCopySourceObj(FiledObj.name)
  179. end if
  180. Next
  181. RsCopyObjectObj.Update
  182. RsCopySourceObj.MoveNext
  183. Loop
  184. Set RsCopySourceObj = Nothing
  185. Set RsCopyObjectObj = Nothing
  186. end if
  187. Set CollectConn = Nothing
  188. Response.Redirect("Site.asp")
  189. Response.end
  190. end if
  191. %>
  192. <html>
  193. <head>
  194. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  195. <title>修改新闻</title>
  196. </head>
  197. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  198. <script language="JavaScript" src="js/PublicJS.js"></script>
  199. <body leftmargin="2" topmargin="2">
  200. <%
  201. if Request("Action") = "Addsite" then
  202. Call Add()
  203. ElseIf Request("Action") = "Addsitefolder" Then
  204. Call AddFolder()
  205. ElseIf Request("Action") = "SubFolder" Then
  206. Call Main(Request("FolderID"))
  207. Else
  208. Call Main("0")
  209. end if
  210. Sub Main(f_FolderID)
  211. if f_FolderID = "" then f_FolderID = "0"
  212. Session("SessionReturnValue") = ""
  213. %>
  214. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  215. <tr class="hback">
  216. <td height="26" colspan="5" valign="middle">
  217. <table width="100%" height="20" border="0" cellpadding="5" cellspacing="1">
  218. <tr>
  219. <td width=55 align="center" alt="添加采集栏目" style="cursor:hand" onClick="location='?Action=Addsitefolder';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">新建栏目</td>
  220. <td width=2 class="Gray">|</td>
  221. <td width=55 align="center" alt="添加采集站点" style="cursor:hand" onClick="location='?Action=Addsite';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">新建站点</td>
  222. <td width=2 class="Gray">|</td>
  223. <td width=35 align="center" alt="后退" style="cursor:hand" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
  224. <td>&nbsp;</td>
  225. </tr>
  226.   </table>
  227. </td>
  228. </tr>
  229. </table>
  230. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  231.   <tr class="xingmu"> 
  232.     <td width="50%" height="26" nowrap bgcolor="#FFFFFF" class="xingmu"> 
  233.       <div align="center">名称</div></td>
  234.     <td width="6%" height="26" nowrap bgcolor="#FFFFFF" class="xingmu"> 
  235.       <div align="center">状态</div></td>
  236.     <td width="10%" height="26" bgcolor="#FFFFFF" class="xingmu" nowrap> 
  237.       <div align="center">采集对象页</div></td>
  238.     <td height="26" nowrap class="xingmu">
  239. <div align="center">操作</div></td>
  240.   </tr>
  241.   <%
  242. if f_FolderID = "0" then
  243. Dim RsSite,SiteSql,CheckInfo
  244. Dim RsSiteFolder
  245. Set RsSiteFolder = CollectConn.Execute("select * from FS_SiteFolder where 1=1 order by id DESC")
  246. Do While not RsSiteFolder.EOF
  247. %>
  248.   <tr class="hback"> 
  249.     <td height="26" nowrap><table border="0" cellspacing="0" cellpadding="0">
  250.         <tr> 
  251.           <td><img src="images/folder.gif" width="16" height="16"></td>
  252.           <td nowrap><%= RsSiteFolder("SiteFolder")%></td>
  253.         </tr>
  254.       </table></td>
  255.     <td nowrap><div align="center"> &nbsp; </div></td>
  256.     <td nowrap><div align="center"> &nbsp; </div></td>
  257.     <td nowrap><div align="center"><span style="cursor:hand;" onClick="if (confirm('确定要复制吗?')){location='Site.asp?vs=Copy&SiteFolderID=<% = RsSiteFolder("ID") %>';}">复制</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="if (confirm('确定要修改吗?')){location='?Action=Addsitefolder&SiteFolderID=<% = RsSiteFolder("ID") %>';}">属性</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="if (confirm('确定要删除吗?')){location='?action=Del&SiteFolderID=<% = RsSiteFolder("ID") %>';}">删除</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="location='site.asp?Action=SubFolder&FolderID=<% =RsSiteFolder("ID") %>'">进入</span></div></td>
  258.   </tr>
  259.   <%
  260. RsSiteFolder.MoveNext
  261. Loop
  262. Set RsSiteFolder = Nothing
  263. else
  264. %>
  265.   <tr class="hback"> 
  266.     <td height="26" colspan="4" nowrap><img src="images/folder.gif" width="16" height="16"> 
  267.       <a href="Site.asp">返回上一级</a> </td>
  268.   </tr>
  269. <%
  270. end if
  272. Dim IsCollect,RsTempObj,CollectPromptInfo
  273. Set RsSite = Server.CreateObject ("ADODB.RecordSet")
  274. SiteSql="Select * from FS_Site where folder=" & f_FolderID & " order by id desc"
  275. RsSite.Open SiteSql,CollectConn,1,1
  276. Do While not RsSite.eof
  277. if  RsSite("LinkHeadSetting") <> "" And  RsSite("LinkFootSetting") <> "" And RsSite("PagebodyHeadSetting") <> "" And  RsSite("PagebodyFootSetting") <> "" And  RsSite("PageTitleHeadSetting") <> "" And  RsSite("PageTitleFootSetting") <> "" then
  278. if RsSite("IsLock") = True then
  279. IsCollect = False
  280. CollectPromptInfo = "站点已经被锁定,不能采集"
  281. else
  282. IsCollect = True
  283. CollectPromptInfo = "可以采集,请检查是否设置正确，否则不能进行采集"
  284. end if
  285. else
  286. IsCollect = False
  287. CollectPromptInfo = "不能采集,请把匹配规则设置完整"
  288. end if
  289. %>
  290.   <tr title="<% = CollectPromptInfo %>" class="hback"> 
  291.     <td height="26" nowrap><table border="0" cellspacing="0" cellpadding="0">
  292.         <tr> 
  293.           <td><img src="images/SiteSet.gif" width="23" height="22"></td>
  294.           <td nowrap><% = RsSite("SiteName") %></td>
  295.         </tr>
  296.       </table></td>
  297.     <td nowrap><div align="center"> 
  298.         <%
  299. if RsSite("IsLock") = True then
  300. Response.Write("锁定")
  301. ElseIf IsCollect = False Then
  302. Response.Write("无效")
  303. else
  304. Response.Write("有效")
  305. end if
  306. %>
  307.       </div></td>
  308.     <td nowrap><div align="center"><a href="<% = RsSite("objURL") %>" target="_blank"><img src="Images/objpage.gif" alt="点击访问" width="20" height="20" border="0"></a></div></td>
  309.     <td nowrap><div align="center"><span style="cursor:hand;" onClick="if (confirm('确定要复制吗?')){location='Site.asp?vs=Copy&SiteID=<% = RsSite("ID") %>';}">复制</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="location='Sitemodify.asp?SiteID=<% = RsSite("ID") %>'">属性</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="if (confirm('确定要删除吗?')){location='?action=Del&Id=<% = RsSite("ID") %>';}">删除</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="if (confirm('确定要修改吗？')){location='SitemodifyOne.asp?SiteID=<% = RsSite("ID") %>';}">向导</span><% if IsCollect = true then %>&nbsp;&nbsp;<span onClick="StartOneSiteCollect('<% = RsSite("Id") %>');" style="cursor:hand;">采集</span><% end if %></div></td>
  310.   </tr>
  311.   <%
  312. RsSite.MoveNext
  313. loop
  314. %>
  315. </table>
  316. <%
  317. RsSite.close
  318. Set RsSite = Nothing
  319. end Sub
  321. Sub Add()
  322. %>
  323. <form name="AddSiteForm" method="post" action="">
  324. <table width="98%" height="20" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  325. <tr>
  326. <td width=35 align="center" alt="保存"  style="cursor:hand" onClick="document.AddSiteForm.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
  327. <td width=35 align="center" alt="后退"  style="cursor:hand" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
  328. <td>&nbsp;
  329. <input name="vs" type="hidden" id="vs2" value="add"> </td>
  330. </tr>
  331.   </table>
  332. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1">
  333. <tr class="hback">
  334. <td width="100" height="26"><div align="center">采集站点名称</div></td>
  335. <td><input name="SiteName" style="width:100%;" type="text" id="SiteName2"></td>
  336. </tr>
  337. <tr class="hback">
  338. <td height="26"><div align="center">采集站点分类</div></td>
  339. <td><select name="SiteFolder" style="width:100%;" id="SiteFolder">
  340. <option value="0">根栏目</option>
  341. <% = FolderList() %>
  342. </select></td>
  343. </tr>
  344. <tr class="hback">
  345. <td height="26"><div align="center">采集对象页</div></td>
  346. <td><input style="width:100%;" name="objURL" type="text" id="objURL" value="http://"></td>
  347. </tr>
  348. <tr class="hback">
  349. <td height="26"><div align="center">采集参数</div></td>
  350. <td>锁定
  351. <input name="islock" type="checkbox" id="islock" value="1">
  352. 保存远程图片
  353. <input type="checkbox" name="SaveRemotePic" value="1">
  354. 新闻是否已经审核
  355. <input name="Audit" type="checkbox" value="1" checked>
  356. 是否倒序采集
  357. <input name="IsReverse" type="checkbox" id="IsReverse" value="1"></td>
  358. </tr>
  359. <tr class="hback">
  360. <td height="26"><div align="center">过滤选项</div></td>
  361. <td>HTML
  362. <input type="checkbox" name="TextTF" value="1">
  363. STYLE
  364. <input type="checkbox" name="IsStyle" value="1">
  365. DIV
  366. <input type="checkbox" name="IsDiv" value="1">
  367. A
  368. <input type="checkbox" name="IsA" value="1">
  369. CLASS
  370. <input type="checkbox" name="IsClass" value="1">
  371. FONT
  372. <input type="checkbox" name="IsFont" value="1">
  373. SPAN
  374. <input type="checkbox" name="IsSpan" value="1">
  375. OBJECT
  376. <input type="checkbox" name="IsObject" value="1">
  377. IFRAME
  378. <input type="checkbox" name="IsIFrame" value="1">
  379. SCRIPT
  380. <input type="checkbox" name="IsScript" value="1">
  381. </td>
  382. </tr>
  383.   </table>
  384. </form>
  385. <% End Sub
  387. Sub AddFolder()
  388. %>
  389. <form name="AddSiteFolderForm" method="post" action="">
  390. <table width="98%" height="20" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  391. <tr class="hback">
  392. <td width=35 style="cursor:hand" align="center" alt="保存" onClick="document.AddSiteFolderForm.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
  393. <td width=35 style="cursor:hand" align="center" alt="后退" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
  394. <td>&nbsp;
  395. <input name="vs" type="hidden" id="vs2" value="addfolder">
  396.               <input type="hidden" name="SiteFolderID" value="<% = SiteFolderID %>"> </td>
  397. </tr>
  398.   </table>
  399. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  400. <%
  401. Dim SiteFolderID,RsSiteFolder
  402. SiteFolderID = Request("SiteFolderID")
  403. If SiteFolderID<>"" Then
  404. Set RsSiteFolder = CollectConn.Execute("select * from FS_SiteFolder where ID=" & SiteFolderID)
  405. If RsSiteFolder.EOF Then
  406. Response.write "<script>alert('该栏目不存在！');history.back();</script>"
  407. Response.End
  408. End If
  409. %>
  410. <tr class="hback">
  411. <td width="100" height="26"><div align="center">栏目名称:</div></td>
  412. <td><input style="width:100%" type="text" name="SiteFolder" value="<%=RsSiteFolder("SiteFolder")%>"></td>
  413. </tr>
  414. <tr class="hback">
  415. <td width="100" height="26"><div align="center">栏目说明:</div></td>
  416. <td><textarea style="width:100%" name="SiteFolderDetail" rows="10"><%=RsSiteFolder("SiteFolderDetail")%></textarea></td>
  417. </tr>
  418. <%
  419. Else
  420. %>
  421. <tr class="hback">
  422. <td width="100" height="26"><div align="center">栏目名称:</div></td>
  423. <td><input style="width:100%" type="text" name="SiteFolder"></td>
  424. </tr>
  425. <tr class="hback">
  426. <td width="100" height="26"><div align="center">栏目说明:</div></td>
  427. <td><textarea style="width:100%" name="SiteFolderDetail" rows="10"></textarea></td>
  428. </tr>
  429. <%
  430. End If
  431. %>
  432.   </table>
  433. </form>
  434. <% End Sub %>
  435. </body>
  436. </html>
  437. <%
  438. Function FolderList()
  439. Dim FolderListObj,StrSelected
  440. Set FolderListObj = Collectconn.Execute("Select * from FS_SiteFolder where 1=1 order by ID desc")
  441. do while Not FolderListObj.Eof
  442. If CInt(Request("FolderID"))=FolderListObj("ID") Then
  443. StrSelected="selected"
  444. Else
  445. StrSelected=""
  446. End If
  447. FolderList = FolderList & "<option value="&FolderListObj("ID")&" " & StrSelected & ">&nbsp;&nbsp;|--" & FolderListObj("SiteFolder") & "</option><br>"
  448. FolderListObj.MoveNext
  449. loop
  450. FolderListObj.Close
  451. Set FolderListObj = Nothing
  452. End Function
  453. Set CollectConn = Nothing
  454. %>
  455. <script language="JavaScript">
  456. function InsertScript()
  457. {
  458. var ReturnValue='';
  459. ReturnValue=showModalDialog("NewsNum.asp",window,'dialogWidth:260pt;dialogHeight:120pt;status:no;help:no;scroll:no;');
  460. return ReturnValue;
  461. }
  462. function StartOneSiteCollect(ID)
  463. {
  464. Num = InsertScript();
  465. if (Num!='back'&& Num!='0')
  466. {
  467. if (Num==""||Num==null) Num="allNews"
  468. location='Collecting.asp?SiteID='+ID+'&Num='+Num;
  469. }
  470. }
  471. </script>