gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_code.asp
<!--#include file = admin_chk.asp --> <head> <STYLE type="text/css"> <!-- a:link {text-decoration: none; font-family: AdobeSm; color: #000000 } a:visited {text-decoration: none; color: #000000 } A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline} body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000} TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all} p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000} select {FONT-SIZE: 9PT;} option {FONT-SIZE: 9pt;} textarea {FONT-SIZE: 9pt;} --> </STYLE> <!--#include file = language.asp --> <script language="JavaScript"> <!-- function FP_jumpMenu(el,frm,sel) {//v1.0 var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0; if('_new'==frm) open(href); else eval(frm+".location='"+href+"'"); } // --> </script> <!--#include file = admin_conn.asp --> <!--#include file = titleb.asp --> </head> <body bgcolor="#ffffff"> <p align="center"> </p> <p align="center"> <select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1"> <option value>请选择栏目</option> <option value=?lm=0 <% if trim(request("lm"))="0" then Response.Write "selected"%>>全部栏目</option> <% lmid=trim(Request("lm")) if lmid="" then lmid=0 sql = "select * from lm where lm<>'' order by id asc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 while not rs.eof %> <option value='?lm=<%=rs("id")%>' <% if clng(lmid)=clng(rs("id")) then response.write " selected" %>>(编号:<%=rs("id")%>)<%=rs("lm")%></option> <% sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 while not rs2.eof %> <option value='<%=request.servervariables("URL")%>?lm=<%=rs2("id")%>' <% if clng(lmid)=clng(rs2("id")) then response.write " selected" %>> ├(编号:<%=rs2("id")%>)<%=rs2("lm2")%></option> <% Set rs33 = Server.CreateObject("ADODB.RecordSet") rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and lm3<>'' order by id asc",conn,1,1 while not rs33.eof %> <option value='<%=request.servervariables("URL")%>?lm=<%=rs33("id")%>' <% if clng(lmid)=clng(rs33("id")) then response.write " selected" %>> ├(编号:<%=rs33("id")%>)<%=rs33("lm3")%></option> <% rs33.movenext wend %> <% rs2.movenext wend rs.movenext wend rs.close set rs=nothing %> </select> <a href="admin_link_code.asp">友情链接调用</a></p> <% lm=trim(request("lm")) lm2=trim(request("lm2")) if lm="" then lm=lm2 if lm2="" then lm2=lm if lm<>"" and lm2<>"" then %> <div align="center"> <table border="1" width="800" id="table1" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr> <td bgcolor="#F5F5F5"><b>新闻列表调用代码:</b><br> 框架:<br> <font color="#FF0000"><iframe name=xuasnews<%=lm%> src=<%=finddir(request.servervariables("URL"))%>newscode.asp?lm2=<%=lm2%>&hot=0&tj=0&t=0&week=0&font=9&line=12&lmname=0&n=30&list=10&more=1&hit=0&open=1&icon=1&new=0&bg=ffffff marginwidth=1 marginheight=1 width=270 height="184" scrolling="no" border="0" frameborder="0"></iframe></font><br> <br> JS调用:<br> <font color="#FF0000"><script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>newscodejs.asp?lm2=<%=lm2%>&list=10&icon=1&tj=0&font=9&hot=0&new=1&line=2&lmname=0&open=1&n=20&more=1&t=0&week=0&zzly=0&hit=0&pls=0" charset='gb2312'></script><br> <br> </font>头条新闻调用<font color="#FF0000"><br> <script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>newscode-news.asp?id=0&font=9&nr=0&nrtop=150&nrcolor=999999&titleface=黑体&titlesize=16&titlen=30&titlebold=700&titlecolor=FF0000" charset='gb2312'></script></font></td> </tr> <tr> <td bgcolor="#FFFFFF"> </td> </tr> <tr> <td bgcolor="#F5F5F5">newscode.asp?lm=<%=lm%>&lm2=<%=lm2%>&lmname=0&n=20&list=10&more=1 说明<p> lm2 或 lm 栏目的ID,一般不用改动它。如果lm2=0,那么显示所有栏目的新闻。<br> hot=0 是否按新闻的点击数量排序,热点新闻。0为普通排序,1为按点击次数排序。<br> tj=0 显示推荐新闻,0不显示,1为显示推荐新闻。<br> t=0 是否在标题后面显示新闻的添加修改时间,如果等于0不显示,1/2/3/4种模式显示<br> week=0 是否在标题后面显示新闻的添加星期.0不显示,1显示。<br> font=9 设置标题的字号,默认是9,可以设置为10.5或者12。<br> line=12 设置标题的行间距,默认是12,可以自行设置,数字越大,行距越大。<br> lmname=0 是否显示栏目名称 0不显示 1为显示<br> n=30 每个标题显示的字数。默认是30个字符,(1个汉字是2个字符)<br> list=10 显示多少条标题,默认是10条标题<br> more=1 是否显示“更多内容”,0不显示 1为显示 2为在框内显示分页。<br> hit=0 是否在标题后显示点击数,0不显示 有hit=1和hit=2两种模式<br> open=1 是否新开窗口浏览新闻内容,0不新开 1为新开<br> icon=1 自定义在标题前显示图标,0不显示 1显示默认(<font face="Wingdings">1</font>) 可自定义图片(如:icon=/../images/123.gif)<br> new=0 当天的最新新闻是否显示一个动画图片 <img border="0" src="../images/new.gif" width="28" height="11"> 如果new=1 就显示。new=0就不显示。<br> bg=ffffff 新闻调用窗口的背景颜色,默认是白色(ffffff),切记不要加#。<br> zz=0 新闻标题后面不显示来源作者,zz=1显示。<br> hit=0 在新闻标题后面显示此条新闻的阅读数。hit=1时显示。<br> pls=0 在新闻标题后面显示此条新闻的评论数。pls=1时显示。<br> titleface 头条调用新闻有效,标题的字体,titleface=黑体<br> titlesize 头条调用新闻有效,标题的字型大小,titlesize=16,即16pt。<br> titlen 头条调用新闻有效,标题显示字数。<br> titlebold 头条调用新闻有效,标题是否加粗,titlebold=700加粗,titlebold=100不加粗。<br> titlecolor 头条调用新闻有效,标题的颜色。</td> </tr> <tr> <td bgcolor="#FFFFFF"> </td> </tr> <tr> <td bgcolor="#F5F5F5"><b>图片调用代码:<br> </b>框架:<br> <font color="#FF0000"><iframe name=xuaspic<%=lm%> src=<%=finddir(request.servervariables("URL"))%>piccode.asp?lm2=<%=lm2%>&n=20&open=1&w=150&h=150&nr=0&nrtop=100&pic=1&bg=ffffff marginwidth=1 marginheight=1 width=270 height="184" scrolling="no" border="0" frameborder="0"></iframe><br> </font><br> JS调用:<br> <font color="#FF0000"><script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>piccodejs.asp?lm2=<%=lm2%>&x=1&y=1&w=100&h=100&open=1&n=20" charset='gb2312'></script></font><p> 图片幻灯效果调用 (读取前六张图片,幻灯片只支持JPG格式图片)<font color="#FF0000"><br> <script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>js-pic2.asp?LM=<%=lm2%>&w=200&h=180" charset='gb2312'></script></font></p> <p> 你也可以直接打开,图片分页。 相关模版,在<a href="admin_set.asp#newspicxg">设置</a>中修改<font color="#FF0000"><br> <a href="../js-pic.asp?lm=<%=lm%>" target=_blank><font color="#FF0000">js-pic.asp?lm=<%=lm%></font></a></font></td> </tr> <tr> <td bgcolor="#FFFFFF"> </td> </tr> <tr> <td bgcolor="#F5F5F5">piccode.asp?lm=<%=lm%>&lm2=<%=lm2%>&n=20&open=1&w=150&h=150&nr=0&nrtop=100&pic=1&bg=ffffff 说明<br> <br> lm2 栏目的ID,一般不用改动它。如果lm2=0,就显示所有的栏目。(lm2=0只针对JS调用)<br> n=20 每个标题显示的字数。默认是20个字,如果n=0那么不显示标题<br> w=150 图片的宽度,默认是150。<br> h=150 图片的高度,默认是150。<br> open=1 是否新开窗口浏览新闻内容,0不新开 1为新开<br> nr=0 是否在图片的右边显示一部分新闻内容 0为不显示 1为显示。默认为0<br> nrtop=100 如果nr=1显示一部分的新闻内容,那么nrtop=100就是显示内容前多少字,默认是100。<br> pic=1 显示多少张图片,pic=1,就是显示1张。<br> bg=ffffff 新闻调用窗口的背景颜色,默认是白色(ffffff),切记不要加#。<br> <br> JS调用参数:<br> x=1 横排显示多少图片 默认是1<br> y=1 竖排显示多少图片 默认是1</td> </tr> <tr> <td bgcolor="#FFFFFF"> </td> </tr> <tr> <td bgcolor="#F5F5F5"><b>新闻搜索代码:(支持标题模糊搜索)</b><br> <table border="0" cellpadding="0" cellspacing="0" width="100%" id="table1"><br> <form method="post" action="so.asp"><tr><br> <td><input type="text" name="word" size="15"><input type="submit" value="搜索"></td><br> </tr></form></table></td> </tr> <tr> <td bgcolor="#FFFFFF"> </td> </tr> <tr> <td bgcolor="#F5F5F5"><b>栏目名称调用:</b><br> <font color="#FF0000"><script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>lmcode.asp?fs=1&lm=<%=lm2%>&ord=asc"></script></font><p> fs=1 竖排显示所有一级栏目和二级栏目<br> fs=2 那么将是显示所有横排二级栏目。<br> fs=3 横排显示所有有一级栏目<br> fs=4 竖排显示栏目下面的子栏目。(lm=必须有值)<br> lm=0 显示所有栏目,这里是指的一级栏目的编号。将显示一级栏目下面的所有二级栏目。(fs=2时有效)<br> ord=asc 排序,asc为正序,如果ord=desc,则是反序。</td> </tr> <tr> <td bgcolor="#F5F5F5"> </td> </tr> <tr> <td bgcolor="#F5F5F5"> </td> </tr> </table> </div> <%end if%> <% conn.close set conn=nothing %>