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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Admin_Admanage.Asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：30k
源码类别：

外挂编程

开发平台：

ASP/ASPX

Admin_Admanage.Asp：源码内容
  1. <!--#include file="setup.asp"-->
  2. <!--#include file="check.asp"-->
  3. <!--#include file="../inc/Cls_Admanage.asp"-->
  4. <%
  5. If Not CheckAdmin("Advertise") Then
  6. Server.Transfer("showerr.asp")
  7. Response.End
  8. End If
  9. '=====================================================================
  10. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  11. '=====================================================================
  12. ' 程序名称：蓝宇网络发布系统
  13. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  14. ' 文件名称：Admin_Admanage.Asp
  15. ' 更新日期：2007-6-5
  16. '=====================================================================
  17. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  18. ' 程序开发：蓝宇,╲、随心゛
  19. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  20. '=====================================================================
  21. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  22. '=====================================================================
  23. Dim isEdit,AdvertiseID
  24. Admin_header
  25. Response.Write "<table border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>" & vbNewLine
  26. Response.Write "  <tr>" & vbNewLine
  27. Response.Write "    <th>广告管理</th></tr>" & vbNewLine
  28. Response.Write "  <tr height=25>" & vbNewLine
  29. Response.Write "    <td " & LeftClass & "><B>操作说明：</B><br> " & vbNewLine 
  30. Response.Write "①、本系统所有广告代码都将生成JS文件，文件位于/adfile/目录下面，请在锁定删除操作后<font color=red>重新生成相关JS</font>文件；<br>" & vbNewLine
  31. Response.Write "②、你可以任意增加广告位,然后<span Class=style2>复制调用代码</span>在系统的相应位置调用此JS文件即可。" & vbNewLine
  32. Response.Write "    </td>" & vbNewLine
  33. Response.Write "  </tr>" & vbNewLine
  34. Response.Write "  <tr height=25>" & vbNewLine
  35. Response.Write "    <td " & LeftClass & "><B>广告导航：</B> <A HREF='admin_admanage.asp'>广告管理首页</A> |" & vbNewLine 
  36. Response.Write "    <a href='admin_admanage.asp?action=add' class=showmeun>添加广告</a> |" & vbNewLine
  37. Response.Write "    <a href='admin_admanage.asp?action=board' class=showmeun>广告位管理</a> |" & vbNewLine
  38. Response.Write "    <a href='admin_admanage.asp?action=create&stype=all&boardid=0'><span style=""color: red;"">生成所有广告的JS文件</span></a>" & vbNewLine
  39. Response.Write "    </td>" & vbNewLine
  40. Response.Write "  </tr>" & vbNewLine
  41. Response.Write "</table>" & vbNewLine
  42. Response.Write "<br>" & vbNewLine
  43. Dim tablestyle
  44. Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber
  45. maxperpage = 30
  46. totalrec = 0
  47. Pcount = 1
  48. CurrentPage = tee5.ChkNumeric(Request("page"))
  49. If CurrentPage = 0 Then CurrentPage = 1
  50. Response.Write "<script src=""/js/showpage.js"" type=""text/javascript""></script>" & vbCrLf
  51. Action = LCase(Request("action"))
  52. Select Case Trim(Action)
  53. Case "save"
  54. Call saveAdvertise
  55. Case "modify"
  56. Call modifyAdvertise
  57. Case "add"
  58. isEdit = False
  59. Call EditAdvertise(isEdit)
  60. Case "edit"
  61. isEdit = True
  62. Call EditAdvertise(isEdit)
  63. Case "del"
  64. Call DelAdvertise
  65. Case "board"
  66. Call boardlist
  67. Case "saveboard"
  68. Call saveboard
  69. Case "delboard"
  70. Call delboard
  71. Case "create"
  72. Call CreateBoardJs
  73. Case Else
  74. Call showmain
  75. End Select
  76. If FoundErr = True Then
  77. Gq_Admin.ReturnError(ErrMsg)
  78. End If
  79. Admin_footer
  80. CloseConn
  82. Sub showmain()
  83. If LCase(Request("act")) = "lock" Then
  84. Call isLock
  85. End If
  86. Dim intWidth,intHeight
  87. Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>" & vbNewLine
  88. Response.Write "<tr>" & vbNewLine
  89. Response.Write " <th width='20%' nowrap>网站名称</th>" & vbNewLine
  90. Response.Write " <th width='50%'>广告图片代码</th>" & vbNewLine
  91. Response.Write " <th width='10%' nowrap> 广告性质 </th>" & vbNewLine
  92. Response.Write " <th width='10%' nowrap> 操作选项 </th>" & vbNewLine
  93. Response.Write " <th width='10%' nowrap>状 态</th>" & vbNewLine
  94. Response.Write "</tr>" & vbNewLine
  95. SQL = "SELECT * FROM Gq_Adlist ORDER BY id DESC"
  96. Set Rs = Server.CreateObject("ADODB.Recordset")
  97. Rs.Open SQL,conn,1,1
  98. If Rs.bof And Rs.EOF Then
  99. Response.Write "<tr><td colspan=6 " & CenterClass & ">还没有找到任何广告！</td></tr>"
  100. Else
  101. totalrec = Rs.RecordCount
  102. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  103. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  104. If CurrentPage < 1 Then CurrentPage = 1
  105. If CurrentPage > Pcount Then CurrentPage = Pcount
  106. Rs.PageSize = maxperpage
  107. Rs.AbsolutePage = CurrentPage
  108. i = 0
  109. Do While Not Rs.EOF And i < maxperpage
  110. If Not Response.IsClientConnected Then ResponseEnd
  111. If Rs("width") > 468 Then
  112. intWidth = 486
  113. Else
  114. intWidth = Rs("width")
  115. End If
  116. If Rs("height") > 60 Then
  117. intHeight = 60
  118. Else
  119. intHeight = Rs("height")
  120. End If
  121. Response.Write "<tr>"
  122. Response.Write " <td " & CenterClass & "><a href='?action=edit&id="
  123. Response.Write Rs("id")
  124. Response.Write "' title='点击此处修改该广告'>"
  125. Response.Write Rs("title")
  126. Response.Write " </a></td>"
  127. Response.Write " <td " & CenterClass & ">"
  128. If Rs("flag") = 5 Then
  129. Response.Write Left(Server.HTMLEncode(Rs("AdCode")),200)
  130. Else
  131. If Rs("isFlash") = 1 Then
  132. Response.Write "<embed src=" & tee5.ReadFileUrl(Rs("picurl")) & " quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='" & intwidth & "' height='" & intHeight & "'></embed>"
  133. Else
  134. Response.Write "<a href='" & Rs("url") & "' target=_blank><img src='" & tee5.ReadFileUrl(Rs("picurl")) & "' width='" & intwidth & "' height='" & intHeight & "' border=0 alt='" & Rs("Readme") & "'></a>"
  135. End If
  136. End If
  137. Response.Write " </td>"
  138. Response.Write " <td nowrap " & CenterClass & "><a href='admin_admanage.asp?action=create&boardid=" & Rs("boardid") & "' title='点击生成广告JS文件'>"
  139. Response.Write ReadBoardName(Rs("boardid"))
  140. Response.Write "</a><br><br style=""OVERFLOW: hidden; LINE-HEIGHT: 5px""><font color=blue>"
  141. Select Case Cint(Rs("flag"))
  142. Case 1
  143. Response.Write "漂浮广告"
  144. Case 2
  145. Response.Write "左边固定广告"
  146. Case 3
  147. Response.Write "右边固定广告"
  148. Case 4
  149. Response.Write "弹出广告"
  150. Case 5
  151. Response.Write "代码广告"
  152. Case Else
  153. Response.Write "普通广告"
  154. End Select
  155. Response.Write " </font></td>" & vbNewLine
  156. Response.Write " <td " & CenterClass & "><a href='?action=edit&id=" & Rs("id") & "'>编辑广告</a><br><br style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">" & vbNewLine
  157. Response.Write " <a href='?action=del&id=" & Rs("id") & "' onclick=""{if(confirm('广告删除后将不能恢复，您确定要删除该广告吗?')){return true;}return false;}"">删除广告</a></td>" & vbNewLine
  158. Response.Write " <td " & CenterClass & ">"
  159. If Rs("IsLock") <> 0 Then
  160. Response.Write "<a href='?act=lock&isLock=0&id="& Rs("id") &"' title='点击此处解除锁定' onclick=""{if(confirm('您确定要解除锁定吗?')){return true;}return false;}""><font color=red>"
  161. Response.Write "锁定"
  162. Response.Write "</font></a>"
  163. Else
  164. Response.Write "<a href='?act=lock&isLock=1&id="& Rs("id") &"' title='点击此处锁定广告' onclick=""{if(confirm('您确定要锁定该广告吗?')){return true;}return false;}"">正常</a>"
  165. End If
  166. Response.Write " </td>" & vbNewLine
  167. Response.Write "</tr>" & vbNewLine
  168. Rs.movenext
  169. i = i + 1
  170. If i >= maxperpage Then Exit Do
  171. Loop
  172. End If
  173. Rs.Close:Set Rs = Nothing
  174. Response.Write "<tr height=20>" & vbNewLine
  175. Response.Write " <td colspan=6 " & RightClass & ">"
  176. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"","广告管理"
  177. Response.Write "</td>"
  178. Response.Write "</tr>" & vbNewLine
  179. Response.Write "</table>"
  180. End Sub
  182. Function ReadBoardName(Byval boardid)
  183. Dim rsBoard
  184. Set rsBoard = tee5.Execute("SELECT BoardName FROM Gq_AdBoard WHERE boardid="& boardid)
  185. If rsBoard.BOF And rsBoard.EOF Then
  186. Set rsBoard = Nothing
  187. ReadBoardName = ""
  188. Exit Function
  189. End If
  190. ReadBoardName = rsBoard("BoardName")
  191. Set rsBoard = Nothing
  192. End Function
  194. Public Sub CreateBoardJs()
  195. Dim rsBoard,sqlBoard,adTeGq
  196. If LCase(Request("stype")) = "all" Then
  197. sqlBoard = " ORDER BY boardid DESC"
  198. Else
  199. sqlBoard = " WHERE boardid=" & Request("boardid") & " ORDER BY boardid DESC"
  200. End If
  201. If Not IsNumeric(Request.Form("boardid")) Then
  202. FoundErr = True
  203. ErrMsg = ErrMsg + "<li>广告位ID请输入整数！</li>"
  204. Exit Sub
  205. End If
  206. Set rsBoard = tee5.Execute("SELECT boardid FROM Gq_AdBoard " & sqlBoard & "")
  207. If rsBoard.BOF And rsBoard.EOF Then
  208. Set rsBoard = Nothing
  209. Exit Sub
  210. End If
  211. Set adTeGq = New Admanage_Cls
  212. Do While Not rsBoard.EOF
  213. adTeGq.adboardid = rsBoard("boardid")
  214. adTeGq.CreateJsFile
  215. rsBoard.movenext
  216. Loop
  217. Set adTeGq = Nothing
  218. rsBoard.Close:Set rsBoard = Nothing
  219. Succeed("<li>恭喜您！生成广告JS文件完成。</li>")
  220. End Sub
  222. Sub boardlist()
  223. Dim newboardid
  224. Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>" & vbNewLine
  225. Response.Write "<tr>" & vbNewLine
  226. Response.Write " <th>广告位名称</th>" & vbNewLine
  227. Response.Write " <th>JS文件名</th>" & vbNewLine
  228. Response.Write " <th>最多广告数</th>" & vbNewLine
  229. Response.Write " <th>广告位价格</th>" & vbNewLine
  230. Response.Write " <th>管理操作</th>" & vbNewLine
  231. Response.Write "</tr>" & vbNewLine
  232. SQL = "SELECT boardid,BoardName,AdRate,FileName,Maxads FROM Gq_Adboard ORDER BY boardid ASC"
  233. Set Rs = Server.CreateObject("ADODB.Recordset")
  234. Rs.Open SQL,conn,1,1
  235. If Rs.bof And Rs.EOF Then
  236. Response.Write "<tr><td colspan=6 " & CenterClass & ">还没有找到任何广告位！</td></tr>"
  237. Else
  238. totalrec = Rs.RecordCount
  239. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  240. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  241. If CurrentPage < 1 Then CurrentPage = 1
  242. If CurrentPage > Pcount Then CurrentPage = Pcount
  243. Rs.PageSize = maxperpage
  244. Rs.AbsolutePage = CurrentPage
  245. i = 0
  246. Do While Not Rs.EOF And i < maxperpage
  247. If Not Response.IsClientConnected Then ResponseEnd
  248. Response.Write "<form name=form" & Rs("boardid") & " method=post action=admin_admanage.asp>" & vbNewLine
  249. Response.Write "<tr>" & vbNewLine
  250. Response.Write "<input type=hidden name=action value='saveboard'>" & vbNewLine
  251. Response.Write "<input type=hidden name=boardid value='" & Rs("boardid") & "'>" & vbNewLine
  252. Response.Write "<td " & CenterClass & "><input type=text name=BoardName size=30 value='" & Rs("BoardName") & "'></td>" & vbNewLine
  253. Response.Write "<td " & CenterClass & "><input type=text name=FileName size=15 value='" & Rs("FileName") & "'></td>" & vbNewLine
  254. Response.Write "<td " & CenterClass & "><input type=text name=Maxads size=5 value='" & Rs("Maxads") & "'> 条</td>" & vbNewLine
  255. Response.Write "<td " & CenterClass & "><input type=text name=AdRate size=8 value='" & Rs("AdRate") & "'> 元/月</td>" & vbNewLine
  256. Response.Write "<td " & CenterClass & "><input class=Button type=submit name=act value='修改'>"
  257. Response.Write "<input class=Button type=Button value='复制代码' title=""点击复制此广告JS调用代码"" onclick=""copyToClipBoard" & Rs("boardid") & "()"">"
  258. Response.Write "<input class=Button type=submit name=act value='生成广告JS' onclick=""document.form" & Rs("boardid") & ".action.value='create';"">"
  259. Response.Write "<input class=Button type=submit name=submit2 value='删除' "
  260. If Rs("boardid") < 3 Then Response.Write " disabled "
  261. Response.Write "onclick=""document.form" & Rs("boardid") & ".action.value='delboard';return confirm('本次操作将删除此广告位下所有的广告信息。nn确定要删除当前广告位吗？')""></td>" & vbNewLine
  262. Response.Write "</tr>" & vbNewLine
  263. Response.Write "</form>" & vbNewLine%>
  264. <script language="javascript">
  265. <!--
  266. function copyToClipBoard<%=Rs("boardid")%>(){
  267.     var clipBoardContent='<'; 
  268.     clipBoardContent+='script src=/adfile/<%=Rs("FileName")%>></script>';
  269.     window.clipboardData.setData("Text",clipBoardContent);
  270.     alert("代码复制成功喽！你可以粘贴在模板相应位置使用了！");
  271. }
  272. //-->
  273. </script>
  274. <%Rs.movenext
  275. i = i + 1
  276. If i >= maxperpage Then Exit Do
  277. Loop
  278. End If
  279. Rs.Close:Set Rs = Nothing
  280. Response.Write "<tr height=20>" & vbNewLine
  281. Response.Write " <td colspan=6 " & RightClass & ">"
  282. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"","广告管理"
  283. Response.Write "</td>"
  284. Response.Write "</tr>" & vbNewLine
  286. Set Rs = tee5.Execute("SELECT MAX(boardid) FROM Gq_Adboard")
  287. If Rs.BOF And Rs.EOF Then
  288. newboardid = 1
  289. Else
  290. newboardid = Rs(0) + 1
  291. End If
  292. If IsNull(newboardid) Then newboardid = 1
  293. Rs.close:Set Rs = nothing
  294. Response.Write "<form name=addform method=post action=admin_admanage.asp>" & vbNewLine
  295. Response.Write "<input type=hidden name=action value='saveboard'>" & vbNewLine
  296. Response.Write "<input type=hidden name=boardid value='" & newboardid & "'>" & vbNewLine
  297. Response.Write "<tr>" & vbNewLine
  298. Response.Write " <td " & CenterClass & "><input type=text name=BoardName size=30></td>" & vbNewLine
  299. Response.Write " <td " & CenterClass & "><input type=text name=FileName size=15></td>" & vbNewLine
  300. Response.Write " <td " & CenterClass & "><input type=text name=Maxads size=5> 条</td>" & vbNewLine
  301. Response.Write " <td " & CenterClass & "><input type=text name=AdRate size=8> 元/月</td>" & vbNewLine
  302. Response.Write " <td " & CenterClass & "><input type=submit name=act value='添加广告位'  class=Button></td>" & vbNewLine
  303. Response.Write "</tr>" & vbNewLine
  304. Response.Write "</form>" & vbNewLine
  305. Response.Write " <tr height=20>" & vbNewLine
  306. Response.Write " <td colspan=6 " & LeftClass & ">"
  307. Response.Write "<b>说明：</b><br>①、广告位名称任意填写；<br>②、JS文件名的扩展名一定要是*.js,文件路径相对于站点根目录下在adfile目录；<br>"
  308. Response.Write "③、最多广告数，是指在此广告位显示多少条广告；<br>④、广告位价格，供做广告者参考；<br>"
  309. Response.Write "⑤、JS文件的调用方法：&lt;script src=/adfile/ad.js&gt;&lt;/script&gt;"
  310. Response.Write "</td>" & vbNewLine
  311. Response.Write " </tr>" & vbNewLine
  312. Response.Write "</table>" & vbNewLine
  313. End Sub
  315. Sub saveboard()
  316. If Trim(Request.Form("BoardName")) = "" Then
  317. FoundErr = True
  318. ErrMsg = ErrMsg + "<li>广告位名称不能为空！</li>"
  319. End If
  320. If Not IsNumeric(Request.Form("boardid")) Then
  321. FoundErr = True
  322. ErrMsg = ErrMsg + "<li>广告位ID请输入整数！</li>"
  323. End If
  324. If Not IsNumeric(Request.Form("AdRate")) Then
  325. FoundErr = True
  326. ErrMsg = ErrMsg + "<li>广告位价格请输入整数！</li>"
  327. End If
  328. If Not IsNumeric(Request.Form("Maxads")) Then
  329. FoundErr = True
  330. ErrMsg = ErrMsg + "<li>显示最多广告数请输入整数！</li>"
  331. End If
  332. If Trim(Request.Form("FileName")) = "" Then
  333. FoundErr = True
  334. ErrMsg = ErrMsg + "<li>JS文件名不能为空！</li>"
  335. End If
  336. If LCase(Right(Trim(Request.Form("FileName")),3)) <> ".js" Then
  337. FoundErr = True
  338. ErrMsg = ErrMsg + "<li>请输入正确的JS文件名，扩展名一定要是*.js！</li>"
  339. End If
  341. If Founderr = True Then Exit Sub
  342. If Trim(Request.Form("act")) = "修改" Then
  343. tee5.Execute ("update Gq_Adboard set BoardName='"& Request.Form("BoardName") & "',FileName='"& Request.Form("FileName") & "',Maxads="& Request.Form("Maxads") & ",AdRate="& Request.Form("AdRate") & " where boardid="& CLng(Request.Form("boardid")))
  344. Succeed("<li>恭喜您！修改广告位成功</li>")
  345. Else
  346. SQL = "Insert into Gq_Adboard (boardid,BoardName,Readme,AdRate,FileName,Maxads,useup) values (" &_
  347. ""& Request.Form("boardid") & "," &_
  348. "'"& Request.Form("BoardName") & "'," &_
  349. "''," &_
  350. Request.Form("AdRate") & "," &_
  351. "'"& Request.Form("FileName") & "'," &_
  352. Request.Form("Maxads") & "," &_
  353. "0)"
  354. tee5.Execute(SQL)
  355. Succeed("<li>恭喜您！添加新的广告位成功</li>")
  356. End If
  357. End Sub
  359. Sub delboard()
  360. If Not IsNumeric(Request.Form("boardid")) Then
  361. FoundErr = True
  362. ErrMsg = ErrMsg + "<li>广告位ID请输入整数！</li>"
  363. Exit Sub
  364. End If
  365. On Error Resume Next
  366. Set Rs = tee5.Execute("SELECT FileName FROM Gq_AdBoard WHERE boardid=" & CLng(Request("boardid")))
  367. If Not (Rs.BOF And Rs.EOF) Then
  368. tee5.FileDelete("../adfile/" & Rs("FileName"))
  369. End If
  370. Set Rs = Nothing
  371. tee5.Execute("DELETE FROM Gq_Adboard WHERE boardid="& CLng(Request.Form("boardid")))
  372. tee5.Execute("DELETE FROM Gq_Adlist WHERE boardid="& CLng(Request.Form("boardid")))
  373. Response.Redirect  Request.ServerVariables("HTTP_REFERER")
  374. End Sub
  376. Sub isLock()
  377. If Trim(Request("id")) = "" Or Trim(Request("isLock")) = "" Then
  378. FoundErr = True
  379. ErrMsg = ErrMsg + "<li>Sorry！您选择了错误的系统参数。</li>"
  380. Exit Sub
  381. End If
  382. tee5.Execute ("update Gq_Adlist set isLock = "& CInt(Request("isLock")) &" where id=" & CLng(Request("id")))
  383. Response.redirect (Request.ServerVariables("HTTP_REFERER"))
  384. End Sub
  386. Sub DelAdvertise()
  387. If Not IsNumeric(Request("id")) Then
  388. FoundErr = True
  389. ErrMsg = ErrMsg + "<li>ID请输入整数！</li>"
  390. Exit Sub
  391. End If
  392. tee5.Execute("DELETE FROM Gq_Adlist WHERE id="& CLng(Request("id")))
  393. Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
  394. End Sub
  396. Function FrontAdvertise(id)
  397. Dim Rss, SQL
  398. SQL = "SELECT TOP 1 id,title FROM Gq_Adlist WHERE id < " & id & " ORDER BY id DESC"
  399. Set Rss = tee5.Execute(SQL)
  400. If Rss.EOF And Rss.bof Then
  401. FrontAdvertise = "已经没有了"
  402. Else
  403. FrontAdvertise = "<a href=?action=view&id=" & Rss("id") & ">" & Rss("title") & "</a>"
  404. End If
  405. Rss.Close
  406. Set Rss = Nothing
  407. End Function
  409. Function NextAdvertise(id)
  410. Dim Rss, SQL
  411. SQL = "SELECT TOP 1 id,title FROM Gq_Adlist WHERE id > " & id & " ORDER BY id ASC"
  412. Set Rss = tee5.Execute(SQL)
  413. If Rss.EOF And Rss.bof Then
  414. NextAdvertise = "已经没有了"
  415. Else
  416. NextAdvertise = "<a href=?action=view&id=" & Rss("id") & ">" & Rss("title") & "</a>"
  417. End If
  418. Rss.Close
  419. Set Rss = Nothing
  420. End Function
  421. Private Sub EditAdvertise(isEdit)
  422. Dim EditTitle
  423. If isEdit Then
  424. SQL = "select * from Gq_Adlist where id=" & Request("id")
  425. Set Rs = tee5.Execute(SQL)
  426. EditTitle = "编辑广告"
  427. Else
  428. EditTitle = "添加新的广告"
  429. End If
  430. %>
  431. <script language = JavaScript>
  432. function showsetting(myform){
  433. var tab = myform.flag.selectedIndex;
  434. if(tab==5)  {
  435. flagsetting1.style.display='none';
  436. flagsetting2.style.display='none';
  437. flagsetting3.style.display='none';
  438. flagsetting4.style.display='none';
  439. flagsetting5.style.display='none';
  440. flagsetting6.style.display='';
  441. }
  442. if(tab==1||tab==2||tab==3||tab==4)    {
  443. flagsetting1.style.display='';
  444. flagsetting2.style.display = '';
  445. flagsetting3.style.display='';
  446. flagsetting4.style.display='';
  447. flagsetting5.style.display='';
  448. flagsetting6.style.display='none';
  449. }
  450. if(tab==0){
  451. flagsetting1.style.display='none';
  452. flagsetting2.style.display = '';
  453. flagsetting3.style.display='';
  454. flagsetting4.style.display='';
  455. flagsetting5.style.display='';
  456. flagsetting6.style.display='none';
  457. }
  458. }
  460. function flagsetting(n){
  461. if (n == 1){
  462. flagsetting3.style.display='';
  463. flagsetting4.style.display='';
  464. flagsetting5.style.display='';
  465. flagsetting6.style.display='none';
  466. }
  467. if (n == 2){
  468. flagsetting3.style.display='none';
  469. flagsetting4.style.display='none';
  470. flagsetting5.style.display='';
  471. flagsetting6.style.display='none';
  472. }
  474. }
  475. </script>
  476. <%
  477. Response.Write "<table border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>"
  478. Response.Write "<tr>"
  479. Response.Write " <th colspan=2>" & EditTitle & "</th>"
  480. Response.Write "</tr>"
  481. Response.Write "<form name=myform method=post action='admin_admanage.asp'>"
  482. If isEdit Then
  483. Response.Write "<input type=""Hidden"" name=""action"" value=""modify"">"
  484. Response.Write "<input type=""Hidden"" name=""id"" value="""& Request("id") &""">"
  485. Else
  486. Response.Write "<input type=""Hidden"" name=""action"" value=""save"">"
  487. End If
  488. Response.Write "<tr>"
  489. Response.Write " <td width='20%' " & RightClass & "><strong>广告位置：</strong></td>"
  490. Response.Write " <td width='80%' " & LeftClass & "><select name='boardid' id='boardid'>"
  491. Dim oRs
  492. Set oRs = tee5.Execute("SELECT boardid,BoardName FROM Gq_Adboard")
  493. Do While Not oRs.EOF
  494. Response.Write "<option value="""& oRs("boardid") &""""
  495. If isEdit Then
  496. If oRs("boardid") = Rs("boardid") Then Response.Write " selected"
  497. End If
  498. Response.Write ">"
  499. Response.Write oRs("BoardName")
  500. Response.Write "</option>"
  501. oRs.movenext
  502. Loop
  503. oRs.Close:Set oRs = Nothing
  504. Response.Write "</select> </td>"
  505. Response.Write "</tr>"
  506. Response.Write "<tr>"
  507. Response.Write "<td " & RightClass & "><strong>广告类型：</strong></td>"
  508. Response.Write "<td " & LeftClass & "><select name='flag' id='flag' onchange=showsetting(this.form)>"
  509. Response.Write "<option value='0'"
  510. If isEdit Then
  511. If Rs("flag") = 0 Then
  512. Response.Write " selected"
  513. End If
  514. End If
  515. Response.Write ">普通广告</option>"
  516. Response.Write "<option value='1'"
  517. If isEdit Then
  518. If Rs("flag") = 1 Then
  519. Response.Write " selected"
  520. End If
  521. End If
  522. Response.Write ">漂浮广告</option>"
  523. Response.Write "<option value='2'"
  524. If isEdit Then
  525. If Rs("flag") = 2 Then
  526. Response.Write " selected"
  527. End If
  528. End If
  529. Response.Write ">左边固定广告</option>"
  530. Response.Write "<option value='3'"
  531. If isEdit Then
  532. If Rs("flag") = 3 Then
  533. Response.Write " selected"
  534. End If
  535. End If
  536. Response.Write ">右边固定广告</option>"
  537. Response.Write "<option value='4'"
  538. If isEdit Then
  539. If Rs("flag") = 4 Then
  540. Response.Write " selected"
  541. End If
  542. End If
  543. Response.Write ">弹出广告</option>"
  544. Response.Write "<option value='5'"
  545. If isEdit Then
  546. If Rs("flag") = 5 Then
  547. Response.Write " selected"
  548. End If
  549. End If
  550. Response.Write ">代码广告</option>"
  551. Response.Write "</select></td>"
  552. Response.Write "</tr>"
  553. Response.Write "<tr id='flagsetting1'"
  554. If isEdit Then
  555. If Rs("flag")<>5 And Rs("flag")<>0 Then
  556. Response.Write " style=""display:''"""
  557. Else
  558. Response.Write " style=""display:'none'"""
  559. End If
  560. End If
  561. Response.Write ">"
  562. Response.Write " <td " & RightClass & "><strong>广告设置：</strong></td>"
  563. Response.Write " <td " & LeftClass & ">左边距：<input name='sidemargin' type='text' id='sidemargin' value='"
  564. If isEdit Then Response.Write Rs("sidemargin") Else Response.Write "10" End If
  565. Response.Write "' size='6' maxlength='5'>"
  566. Response.Write " 上边距：<input name='topmargin' type='text' id='topmargin' value='"
  567. If isEdit Then Response.Write Rs("topmargin") Else Response.Write "100" End If
  568. Response.Write "' size='6' maxlength='5'></td>"
  569. Response.Write "</tr>"
  570. Response.Write "<tr id=flagsetting2"
  571. If isEdit Then If Rs("flag")=5 Then Response.Write " style=""display:none"""
  572. Response.Write ">"
  573. Response.Write "<td " & RightClass & "><strong>图片或FLASH：</strong></td>"
  574. Response.Write " <td " & LeftClass & "><input type='radio' name='isFlash' value='0' onClick=""flagsetting(1)"""
  575. If isEdit Then If Rs("isFlash") = 0 Then Response.Write " checked" End If:Else Response.Write " checked" End If
  576. Response.Write ">图片&nbsp;&nbsp;"
  577. Response.Write " <input type='radio' name='isFlash' value='1' onClick=""flagsetting(2)"""
  578. If isEdit Then If Rs("isFlash") = 1 Then Response.Write " checked"
  579. Response.Write ">FLASH&nbsp;&nbsp;"
  580. If isEdit Then
  581. Response.Write "<input type=checkbox name=UpdateTime value='yes'> 更新成最新广告"
  582. End If
  583. Response.Write "</td>"
  584. Response.Write "</tr>"
  585. Response.Write "<tr>"
  586. Response.Write " <td " & RightClass & "><strong>网站名称：</strong></td>"
  587. Response.Write " <td " & LeftClass & "><input name='title' type='text' id='title' size=30 value='"
  588. If isEdit Then Response.Write Rs("title")
  589. Response.Write "'></td>"
  590. Response.Write "</tr>"
  591. Response.Write "<tr id=flagsetting3"
  592. If isEdit Then If Rs("isFlash")=1 Or Rs("flag")=5 Then Response.Write " style=""display:none"""
  593. Response.Write ">"
  594. Response.Write " <td " & RightClass & "><strong>网站连接URL：</strong></td>"
  595. Response.Write " <td " & LeftClass & "><input name='url' type='text' id='url' size=60 value='"
  596. If isEdit Then Response.Write Rs("url") Else Response.Write "http://" End If
  597. Response.Write "'></td>"
  598. Response.Write "</tr>"
  599. Response.Write "<tr id=flagsetting4"
  600. If isEdit Then If Rs("isFlash")=1 Or Rs("flag")=5 Then Response.Write " style=""display:none"""
  601. Response.Write ">"
  602. Response.Write " <td " & RightClass & "><strong>连接注释：</strong></td>"
  603. Response.Write " <td " & LeftClass & "><input name='Readme' type='text' id='Readme' size=60 value='"
  604. If isEdit Then Response.Write Rs("Readme")
  605. Response.Write "'></td>"
  606. Response.Write "</tr>"
  607. Response.Write "<tr id=flagsetting5"
  608. If isEdit Then If Rs("flag")=5  Then Response.Write " style=""display:none"""
  609. Response.Write ">"
  610. Response.Write " <td width='20%' " & RightClass & "><strong>图片或FLASH URL：</strong></td>"
  611. Response.Write " <td width='80%' " & LeftClass & "><input name='picurl' id=ImageUrl type='text' size=60 value='"
  612. If isEdit Then Response.Write Rs("picurl")
  613. Response.Write "'></td>"
  614. Response.Write "</tr>"
  615. Response.Write "<tr id=flagsetting6"
  616. If isEdit Then If Rs("flag") <> 5 Then Response.Write " style=""display:none""" End If:Else Response.Write " style=""display:none""" End If
  617. Response.Write ">"
  618. Response.Write " <td " & RightClass & "><strong>广告代码：</strong><br>支持HTML方法</td>"
  619. Response.Write " <td " & LeftClass & "><textarea name=AdCode rows=10 cols=102>"
  620. If isEdit Then Response.Write Server.HTMLEncode(Rs("AdCode"))
  621. Response.Write "</textarea></td>"
  622. Response.Write "</tr>"
  623. Response.Write "<tr>"
  624. Response.Write " <td " & RightClass & "><strong>文件尺寸：</strong></td>"
  625. Response.Write " <td " & LeftClass & ">宽度：<input name='width' type='text' id='width' size='6' maxlength='5' value='"
  626. If isEdit Then Response.Write Rs("width") Else Response.Write 100
  627. Response.Write "'> 像素 * "
  628. Response.Write "  高度：<input name='height' type='text' id='height' size='6' maxlength='5' value='"
  629. If isEdit Then Response.Write Rs("height") Else Response.Write 100
  630. Response.Write "'> 像素&nbsp;&nbsp;"
  631. Response.Write " <font color=blue>* 设置图片、FLASH、弹出窗口的大小</font></td>"
  632. Response.Write "</tr>"
  633. Response.Write "<tr>"
  634. Response.Write " <td " & RightClass & "><strong>是否锁定广告：</strong></td>"
  635. Response.Write " <td " & LeftClass & "><input type='radio' name='isLock' value='0' "
  636. If isEdit Then : If Rs("isLock") = 0 Then Response.Write " checked" End If:Else Response.Write " checked" End If
  637. Response.Write "> 否&nbsp;&nbsp;"
  638. Response.Write " <input type='radio' name='isLock' value='1'"
  639. If isEdit Then
  640. If Rs("isLock") = 1 Then : Response.Write " checked" : End If
  641. End If
  642. Response.Write "> 是&nbsp;&nbsp;"
  643. Response.Write " </td>"
  644. Response.Write "</tr>"
  645. Response.Write "<tr>"
  646. Response.Write " <td colspan=2 " & CenterClass & ">"
  647. Response.Write " <input type='button' name='Submit1' onclick='javascript:history.go(-1)' value='返回上一页' class=button>&nbsp;&nbsp;&nbsp;&nbsp;"
  648. Response.Write " <input type='submit' name='Submit' value='保存广告' class=button>"
  649. Response.Write "</td>"
  650. Response.Write "</tr></form>"
  651. Response.Write "</table>"
  652. End Sub
  653. Sub CheckSave()
  654. If Trim(Request.Form("title")) = "" Then
  655. FoundErr = True
  656. ErrMsg = ErrMsg + "<li>网站名称不能为空！</li>"
  657. End If
  658. If Trim(Request.Form("flag")) = 5 Then
  659. If Trim(Request.Form("AdCode")) = "" Then
  660. FoundErr = True
  661. ErrMsg = ErrMsg + "<li>请输入广告代码！</li>"
  662. End If
  663. Else
  664. If Trim(Request.Form("picurl")) = "" Then
  665. FoundErr = True
  666. ErrMsg = ErrMsg + "<li>URL不能为空！</li>"
  667. End If
  668. End IF
  669. If Trim(Request.Form("height")) = "" Or Trim(Request.Form("width")) = ""  Then
  670. FoundErr = True
  671. ErrMsg = ErrMsg + "<li>文件尺寸不能为空！</li>"
  672. End If
  673. If Trim(Request.Form("sidemargin")) = "" Or Trim(Request.Form("topmargin")) = ""  Then
  674. FoundErr = True
  675. ErrMsg = ErrMsg + "<li>请设置边距！</li>"
  676. End If
  677. If Trim(Request.Form("flag")) = "" Then
  678. FoundErr = True
  679. ErrMsg = ErrMsg + "<li>请设置广告类型！</li>"
  680. End If
  681. End Sub
  683. Sub SaveAdvertise()
  684. CheckSave
  685. If Founderr = True Then Exit Sub
  686. Set Rs = Server.CreateObject("ADODB.Recordset")
  687. SQL = "select * from Gq_Adlist where (id is null)"
  688. Rs.Open SQL,Conn,1,3
  689. Rs.Addnew
  690. Rs("boardid") = Trim(Request.Form("boardid"))
  691. Rs("title") = tee5.ChkFormStr(Request.Form("title"))
  692. Rs("url") = Trim(Request.Form("url"))
  693. Rs("picurl") = Trim(Request.Form("picurl"))
  694. Rs("Readme") = tee5.ChkFormStr(Request.Form("Readme"))
  695. Rs("AdCode") = Request.Form("AdCode")
  696. Rs("height") = Trim(Request.Form("height"))
  697. Rs("width") = Trim(Request.Form("width"))
  698. Rs("topmargin") = Trim(Request.Form("topmargin"))
  699. Rs("sidemargin") = Trim(Request.Form("sidemargin"))
  700. Rs("startime") = Now()
  701. Rs("flag") = Trim(Request.Form("flag"))
  702. Rs("isFlash") = Trim(Request.Form("isFlash"))
  703. Rs("IsLock") = CInt(Request.Form("IsLock"))
  704. Rs.update
  705. Rs.Close:Set Rs = Nothing
  706. Dim adTeGq
  707. Set adTeGq = New Admanage_Cls
  708. adTeGq.adboardid = CLng(Request.Form("boardid"))
  709. adTeGq.CreateJsFile
  710. Set adTeGq = Nothing
  711. Succeed("<li>恭喜您！添加新的广告成功。</li>")
  712. End Sub
  714. Sub ModifyAdvertise()
  715. CheckSave
  716. If Founderr = True Then Exit Sub
  717. Set Rs = Server.CreateObject("ADODB.Recordset")
  718. SQL = "SELECT * FROM Gq_Adlist WHERE id = " &CLng( Request("id"))
  719. Rs.Open SQL,Conn,1,3
  720. Rs("boardid") = Trim(Request.Form("boardid"))
  721. Rs("title") = tee5.ChkFormStr(Request.Form("title"))
  722. Rs("url") = Trim(Request.Form("url"))
  723. Rs("picurl") = Trim(Request.Form("picurl"))
  724. Rs("Readme") = tee5.ChkFormStr(Request.Form("Readme"))
  725. Rs("AdCode") = Request.Form("AdCode")
  726. Rs("height") = Trim(Request.Form("height"))
  727. Rs("width") = Trim(Request.Form("width"))
  728. Rs("topmargin") = Trim(Request.Form("topmargin"))
  729. Rs("sidemargin") = Trim(Request.Form("sidemargin"))
  730. If LCase(Request.Form("UpdateTime")) = "yes" Then Rs("startime") = Now()
  731. Rs("flag") = Trim(Request.Form("flag"))
  732. Rs("isFlash") = Trim(Request.Form("isFlash"))
  733. Rs("IsLock") = CInt(Request.Form("IsLock"))
  734. Rs.update
  735. AdvertiseID = Rs("id")
  736. Rs.Close:Set Rs = Nothing
  737. Dim adTeGq
  738. Set adTeGq = New Admanage_Cls
  739. adTeGq.adboardid = CLng(Request.Form("boardid"))
  740. adTeGq.CreateJsFile
  741. Set adTeGq = Nothing
  742. Succeed("<li>恭喜您！修改广告成功。</li>")
  743. End Sub
  744. %>