admin_code_old.asp
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:2k
源码类别:

Email服务器

开发平台:

ASP/ASPX

  1. <!--#include file="isuser.asp"-->
  2. <style>
  3. <!--
  4. a:link       { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
  5. a:visited    { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
  6. a:hover      { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
  7. body         { font-family: 宋体; color: #000000; font-size: 9pt }
  8. p            { color: #000000; font-family: 宋体; font-size: 9pt }
  9. td           { font-size: 9pt; font-family: 宋体; color: #000000 }
  10. input        { font-size: 9pt; font-family: 宋体; color: #000000 }
  11. -->
  12. </style>
  13. <script language="JavaScript">
  14. <!--
  15. function FP_jumpMenu(el,frm,sel) {//v1.0
  16.  var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
  17.  if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
  18. }
  19. // -->
  20. </script>
  21. <!--#include file = admin_conn.asp -->
  22. <p align="center">
  23.  </p>
  24. <p align="center">
  25. <select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1">
  26. <option value>请选择栏目</option>
  27. <%
  28. sql = "select * from lm order by id desc"
  29. Set rs = Server.CreateObject("ADODB.RecordSet")
  30. rs.Open sql,conn,1,1
  31. while not rs.eof
  32.   response.write "<option value=admin_code.asp?id="&rs("id")&">"&rs("lm")&"</option>"
  33. rs.movenext
  34. wend
  35. %>
  36. </select></p>
  37. <%
  38. id=trim(request("id"))
  39. if id<>"" then
  40. %>
  41. <div align="center">
  42. <table border="1" width="600" id="table1" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#C0C0C0">
  43. <tr>
  44. <td bgcolor="#F5F5F5">&lt;iframe name=xuasnews<%=id%> src=/新闻系统路径/newscode.asp?lm=<%=id%>&lmname=0&n=20&list=10&amp;more=1&amp;open=1 marginwidth=1 marginheight=1 width=250&gt;&lt;/iframe&gt;</td>
  45. </tr>
  46. <tr>
  47. <td bgcolor="#FFFFFF"> </td>
  48. </tr>
  49. <tr>
  50. <td bgcolor="#F5F5F5">newscode.asp?lm=<%=id%>&lmname=0&n=20&list=10&amp;more=1  说明<p>
  51. lm    栏目的ID,一般不用改动它。<br>
  52. lmname=0 是否显示栏目名称 0不显示 1为显示<br>
  53. n=20   每个标题显示的字数。默认是20个字<br>
  54. list=10  显示多少条标题,默认是10条标题<br>
  55. more=1  是否显示“更多内容”,0不显示 1为显示<br>
  56. open=1  是否新开窗口浏览新闻内容,0不新开 1为新开</td>
  57. </tr>
  58. </table>
  59. </div>
  60. <%
  61. end if
  62. %>