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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 多媒体编程 > 查看源码
affiche.asp
资源名称：1.rar　[点击查看]
上传用户：ziqing_518
上传日期：2022-08-09
资源大小：446k
文件大小：10k
源码类别：

多媒体编程

开发平台：

ASP/ASPX

affiche.asp：源码内容
  1. <!--#include file="db/user.asp" -->
  2. <!--#include file="config.asp" -->
  3. <!--#include file="ubb.asp" -->
  4. <!--#include file="md5.asp" -->
  5. <!--#include file="function.asp" -->
  6. <!--#include file="top.asp" -->
  7. <!--#include file="admin/js.asp" -->
  8. <%
  9. if request.QueryString("post")<>"" then
  11. if request.cookies("nicedown")("admin")<>"" then
  12. set rs=conn.execute("select * from admin where admin='"& request.cookies("nicedown")("admin") &"'")
  13. strsQx=rs("qx")
  14. set rs=conn.execute("select * from config where id="&int(strsQx))
  16. if rs("boolAff")=False then
  17. response.write("<table width=""40%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#000000""><tr><td align=""center"" bgcolor=""#B3D464"">对不起你没有权限进行操作<br>2秒钟后返回</td></tr></table>"&_
  18. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=affiche.asp'>")
  19. response.end
  20. end if
  21. select case request.QueryString("post")
  22. case "del"
  23. sql="delete from affiche where id="&request.QueryString("id")
  24. conn.execute sql
  25. response.write("<table width=""40%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#000000""><tr><td align=""center"" bgcolor=""#B3D464"">您的操作已经完成<br>2秒钟后返回</td></tr></table>"&_
  26. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=affiche.asp'>")
  27. response.end
  28. case else
  29. if request.QueryString("save")="ready" then
  30. if request.QueryString("id")<>"" then
  31. sql="select affiche.title,affiche.show from affiche where id="&request.QueryString("id")
  32. rs=conn.execute(sql)
  33. strRtitle=rs("title")
  34. strRshow=rs("show")
  35. strSumber="修改公告"
  36. strForm="affiche.asp?id="&request.QueryString("id")&"&post=edit&save=ok"
  37. else
  38. strRtitle=""
  39. strRshow=""
  40. strSumber="添加公告"
  41. strForm="affiche.asp?post=add&save=ok"
  42. end if%>
  43. <table width="90%" border="0" cellspacing="0" cellpadding="0">
  44. <form name="frmAnnounce" method="post" action="<%=strForm%>">
  45.   <tr> 
  46.     <td width="232"><img src="images/a_01.gif" width="232" height="40"></td>
  47.     <td width="322" valign="baseline" background="images/a-02.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  48.         <tr>
  49.           <td align="center" class="shadow1">&nbsp;</td>
  50.         </tr>
  51.       </table></td>
  52.     <td width="232"><img src="images/a_02.gif" width="231" height="40"></td>
  53.   </tr>
  54.   <tr> 
  55.     <td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  56.           <tr> 
  57.             <td width="20" rowspan="3" background="images/a04.gif">&nbsp;</td>
  58.             <td width="200" align="center" bgcolor="#B3D464">标题: </td>
  59.             <td width="545" bgcolor="#B3D464">
  60. <input name="title" type="text" size="62" value="<%=strRtitle%>"></td>
  61.             <td width="22" rowspan="3" background="images/a8.gif">&nbsp;</td>
  62.           </tr>
  63.           <tr> 
  64.             <td width="200" align="center" bgcolor="#B3D464">内容: </td>
  65.             <td width="545" bgcolor="#B3D464">
  66. <img border="0" onclick=bold() src="./images/btg/bold.gif" alt="粗体" width="23" height="22">
  67. <img border="0" onclick=italicize() src="./images/btg/italicize.gif" alt="斜体" width="23" height="22">
  68. <img border="0" onclick=underline() src="./images/btg/underline.gif" alt="下划线" width="23" height="22">
  69. <img border="0" onclick=showcode() src="./images/btg/code.gif" alt="插入代码" width="23" height="22">
  70. <img border="0" onclick=quote() src="./images/btg/quote.gif" alt="引用" width="23" height="22">
  71. <img border="0" onclick=setfly() src="./images/btg/fly.gif" alt="飞行字" width="23" height="22">
  72. <img border="0" onclick=glow() src="./images/btg/glow.gif" alt="发光字" width="23" height="22">
  73. <img border="0" onclick=move() src="./images/btg/move.gif" alt="移动字" width="23" height="22">
  74. <img border="0" onclick=shadow() src="./images/btg/shadow.gif" alt="阴影字" width="23" height="22">
  75. <img border="0" onclick=list() src="./images/btg/list.gif" alt="列表" width="23" height="22">
  76. <img border="0" onclick=center() src="./images/btg/center.gif" alt="居中" width="23" height="22">
  77. <br>
  78. <img border="0" onclick=showsize() src="./images/btg/font.gif" alt="改变字体大小" width="23" height="22">
  79. <img border="0" onclick=hyperlink() src="./images/btg/url.gif" alt="插入连接" width="23" height="22">
  80. <img border="0" onclick=image() src="./images/btg/image.gif" alt="插入图片" width="23" height="22">
  81. <img border="0" onclick=flash() src="./images/btg/swf.gif" alt="插入FLASH" width="23" height="22">
  82. <img border="0" onclick=email() src="./images/btg/email.gif" alt="插入E-mail" width="23" height="22">
  83. <img border="0" onclick=showface() src="./images/btg/smilie.gif" alt="心情图标" width="23" height="22">
  84. <img border="0" onclick=mp() src="./images/btg/media.gif" alt="Media Player视频文件" width="23" height="22">
  85. <img border="0" onclick=rm() src="./images/btg/real.gif" alt="realplay视频文件" width="23" height="22">
  86. <img border="0" onclick=qt() src="./images/btg/qs.gif" alt="QuickTime视频文件" width="23" height="22">
  87. <img border="0" onclick=sk() src="./images/btg/shockwave.gif" alt="Shockwave文件" width="23" height="22">
  88. <img border="0" src="./images/btg/help.gif" alt="在线帮助" width="23" height="22"><br>
  89. <textarea name="brief" cols="60" rows="8"><%=strRshow%></textarea></td>
  90.           </tr>
  91.           <tr> 
  92.             <td colspan="2" align="center" bgcolor="#B3D464"><input type="submit" name="Submit" value="<%=strSumber%>">
  93.               <input type="reset" name="Submit2" value="重新填写"></td>
  94.           </tr>
  95.         </table></td>
  96.   </tr>
  97.   <tr> 
  98.     <td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  99.         <tr>
  100.           <td width="20"><img src="images/index_019.gif" width="20" height="17"></td>
  101.           <td width="746" background="images/index_020.gif">&nbsp;</td>
  102.           <td width="20"><img src="images/a11.gif" width="20" height="17"></td>
  103.         </tr>
  104.       </table></td>
  105.   </tr>
  106.  </form>
  107. </table>
  108. <%
  109. response.end
  110. elseif request.QueryString("save")="ok" then
  111. if request.form("title")<>"" and request.form("brief")<>"" then
  112. strTitle=request.form("title")
  113. strShow=request.form("brief")
  114. dateTime=now()
  115. strAdmin=request.cookies("nicedown")("admin")
  116. else
  117. response.write("请填写完整公告内容再提交……")
  118. response.end
  119. end if
  120. if request.QueryString("post")="add" then
  121. sql="insert into affiche(title,show,times,name) values('"&strTitle&"','"&strShow&"','"&dateTime&"','"&strAdmin&"')"
  122. else
  123. strId=request.QueryString("id")
  124. sql="update affiche set title='"&strTitle&"',show='"&strShow&"',times='"&dateTime&"',name='"&strAdmin&"' where id="&strId
  125. end if
  126. conn.execute sql
  127. response.write("<table width=""40%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#000000""><tr><td align=""center"" bgcolor=""#B3D464"">您的操作已经完成<br>2秒钟后返回</td></tr></table>"&_
  128. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=affiche.asp'>")
  129. response.end
  130. end if
  131. end select
  133. end if
  135. end if
  137. Set rs4 = Server.CreateObject("ADODB.Recordset")
  138. sql4="select * from affiche order by times desc"
  139. rs4.open sql4,conn,1,1
  140. if rs4.eof then
  141. boolAfor=True
  142. numAfor=1
  143. else
  144. boolAfor=False
  145. numAfor=rs4.recordcount
  146. end if
  147. for i= 1 to numAfor
  148. if boolAfor=True then
  149. strAtitle="还没有公告"
  150. strAshow="请进管理区来发布一个公告(必须是管理员)。<BR>当你发布一次公告后，本公告就会自动消失，无需你手动删除！"
  151. dateAtime=now()
  152. strAname="本站的默认公告"
  153. else
  154. strAid=rs4("id")
  155. strAtitle=rs4("title")
  156. if boolUbb_1=True then
  157. strAshow=UBBCode(rs4("show"))
  158. else
  159. strAshow=rs4("show")
  160. end if
  161. dateAtime=rs4("times")
  162. strAname=rs4("name")
  163. end if
  164. %>
  165. <table width="90%" border="0" cellspacing="0" cellpadding="0">
  166.   <tr> 
  167.     <td width="232"><img src="images/a_01.gif" width="232" height="40"></td>
  168.     <td width="322" valign="baseline" background="images/a-02.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  169.         <tr>
  170.           <td align="center" class="shadow1"><strong><%=strAtitle%></strong></td>
  171.         </tr>
  172.       </table></td>
  173.     <td width="232"><img src="images/a_02.gif" width="231" height="40"></td>
  174.   </tr>
  175.   <tr> 
  176.     <td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  177.         <tr> 
  178.           <td width="20" rowspan="5" background="images/a04.gif">&nbsp;</td>
  179.           <td colspan="2" bgcolor="#B3D464"><hr width="90%" size="1" noshade></td>
  180.           <td width="20" rowspan="5" background="images/a8.gif">&nbsp;</td>
  181.         </tr>
  182.         <tr> 
  183.           <td colspan="2" bgcolor="#B3D464">&nbsp;</td>
  184.         </tr>
  185.         <tr> 
  186.           <td colspan="2" bgcolor="#B3D464"><blockquote><%=strAshow%></blockquote></td>
  187.         </tr>
  188.         <tr> 
  189.           <td colspan="2" bgcolor="#B3D464"><hr width="90%" size="1" noshade></td>
  190.         </tr>
  191.         <tr> 
  192.           <td width="450" align="left" bgcolor="#B3D464"> <blockquote> 
  193.               <p><strong>发布人</strong>:<%=strAname%>&nbsp;<%
  194. if request.cookies("nicedown")("admin")<>"" then
  195. set rs=conn.execute("select * from admin where admin='"& request.cookies("nicedown")("admin") &"'")
  196. strsQx=rs("qx")
  197. set rs=conn.execute("select * from config where id="&int(strsQx))
  198. if rs("boolAff")=True then
  199. response.write("<a href=affiche.asp?post=add&save=ready><img border='0' src='images/a_add.gif' width='52' height='16'></a>"& vbCRLF & _ 
  200. "<a href='affiche.asp?id="&strAid&"&post=del' onclick=""{if(confirm('您确定执行的操作吗?')){return true;}return false;}""><img border='0' src='images/a_delete.gif' width='52' height='16'></a>"& vbCRLF & _ 
  201. "<a href='affiche.asp?id="&strAid&"&post=edit&save=ready'><img border='0' src='images/a_edit.gif' width='52' height='16'></a>")
  202. end if
  203. end if%><br>
  204.               </p>
  205.             </blockquote></td>
  206.           <td width="278" align="right" bgcolor="#B3D464"><blockquote> 
  207.               <p><strong>发布时间</strong>:<%=dateAtime%></p>
  208.             </blockquote></td>
  209.         </tr>
  210.       </table></td>
  211.   </tr>
  212.   <tr> 
  213.     <td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  214.         <tr>
  215.           <td width="20"><img src="images/index_019.gif" width="20" height="17"></td>
  216.           <td width="746" background="images/index_020.gif">&nbsp;</td>
  217.           <td width="20"><img src="images/a11.gif" width="20" height="17"></td>
  218.         </tr>
  219.       </table></td>
  220.   </tr>
  221. </table>
  222. <%
  223. if boolAfor=False then
  224. rs4.movenext
  225. end if
  226. if rs4.eof then
  227. exit for
  228. end if
  229. next
  231. rs4.close
  232. set rs4=nothing
  233. %>
  234. </body>
  236. </html>