📄 admin_getjs.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<body bgcolor="#FFFFFF" leftmargin="3" topmargin="10">
<form name="form" method="POST" action="">
<table width="99%" border="0" cellpadding="2" align="center" cellspacing="1" bgcolor="#7ED3A7">
<tr bgcolor="#F7FFF4">
<td height="20" valign="middle"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="0">大类栏目代码</font></b>
</div></td>
</tr>
</table></td>
<td valign="middle"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#000000">小类栏目代码</font></b>
</div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="490" height="20" valign="middle">
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
%>
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from Newsclass where child<>0 order by id desc "
rs.open rs.source,conn,1,1
if not rs.eof then
ClassEN=rs("ClassEN")
big="<script src=ClassJs/"&rs("ClassEN")&"_1.js></script>"
%>
<select onchange=GoBigClass(this.options[this.selectedIndex].value)>
<%
while not rs.eof
%>
<option value="<script src=<%="Classjs/"&rs("ClassEN")&"_1.js"%>></script>"><%=rs("ClassCN")%></option>
<%
rs.movenext
wend
rs.close
end if
%>
</select> <br> <input name="BigClassCode" type="text" value="<%=big%>" size="50">
</td>
<td width="490" valign="middle">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from NewsClass where child=0 order by id desc "
rs.open rs.source,conn,1,1
if not rs.eof then
small="<script src=Classjs/"&rs("ClassEN")&"01.js></script>"
%>
<select name="select" onChange=GoSmallClass(this.options[this.selectedIndex].value)>
<%
while not rs.eof
set rs1=Server.CreateObject("adodb.recordset")
sql1="select * from NewsClass where ClassCN='"&rs("ClassCN")&"'"
rs1.open sql1,conn,1,1
i=i+1
%>
<option value="<script src=<%="Classjs/"&rs("ClassEN")&"01.js"%>></script>"><%=rs("ClassCN")%></option>
<%
rs.movenext
wend
rs.close
end if
%>
</select> <br> <input name="SmallClassCode" type="text" value="<%=small%>" size="50"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="25" valign="middle"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>热点新闻</strong></div></td>
</tr>
</table>
<strong><b></b></strong></td>
<td valign="middle"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>推荐新闻</strong></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="490" height="25" valign="middle"> <input name="HotNews" type="text" value="<script src=<%="Codejs/"&"Hots_News.js"%>></script>" size="50">
</td>
<td width="490" valign="middle"> <input name="RecommendNews2" type="text" value="<script src=Codejs/Tj_News.js></script>"></script>" size="50"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="490" height="25" valign="middle"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>最新新闻</strong></div></td>
</tr>
</table></td>
<td width="490" valign="middle"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>JS调用</strong></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="490" height="25" valign="middle"> <input name="RecommendNews" type="text" value="<script src=<%="Codejs/"&"new_News.js"%>></script>" size="50"></td>
<td width="490" valign="middle">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select JSNameEN,JSNameCN from JS order by id desc "
rs.open rs.source,conn,1,1
if not rs.eof then
js="<script src=Otherjs/"&rs("JSNameEN")&".js></script>"
%>
<select name="select2" onChange=GoJSCode(this.options[this.selectedIndex].value)>
<%
while not rs.eof
%>
<option value="<script src=<%="Otherjs/"&rs("JSNameEN")&".js"%>></script>"><%=rs("JSNameCN")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
end if
%>
</select> <input name="JSCode" type="text" value="<%=js%>" size="40"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="25" valign="middle"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>TOP排行榜新闻调用 </strong></div></td>
</tr>
</table></td>
<td valign="middle"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>调查代码</strong></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="25" valign="middle"> <input name="RecommendNews2" type="text" value="<script src=Codejs/TopNewsjs.js></script>"></script>" size="50">
</td>
<td valign="middle">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from class order by id asc "
rs.open rs.source,conn,1,1
if not rs.eof then
vote="<script src=votedy.asp?id="&rs("id")&"></script>"
%>
<select name="select3" onChange=Govote(this.options[this.selectedIndex].value)>
<%
while not rs.eof
%>
<option value="<script src=votedy.asp?id=<%=rs("id")%>></script>"><%=rs("title")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
end if
%>
</select> <input name="vote" type="text" id="vote" value="<%=vote%>" size="50"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="25" valign="middle"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>广告代码</strong></div></td>
</tr>
</table></td>
<td valign="middle"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>专题代码</strong></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="25" valign="top" bgcolor="#F7FFF4"> <input name="RecommendNews" type="text" value="<script src=<%="ads/"&"ads.asp?priceid=?&place=?"%>></script>" size="50">
<br>
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from price order by id asc "
rs.open rs.source,conn,1,1
if not rs.eof then
ads1=""&rs("id")&""
%>
<select name="select" onChange=Goads1(this.options[this.selectedIndex].value)>
<%
while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("price")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
end if
%>
</select>
Place为：
<input name="ads1" type="text" id="ads1" value="<%=ads1%>" size="5">
其中priceid为数字<br>
其中place代表广告位置，如首页，新闻频道等，priceid代表位置，<br>
比如首页顶部黄金位置等等....</td>
<td valign="top">总代码：
<input name="jss" type="text" value="<script src=special/special.js></script>" size="45">
<br>
分类专题代码<strong>：</strong><br>
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from speical order by id desc "
rs.open rs.source,conn,1,1
if not rs.eof then
spjs="<script src="&"special/"&rs("speicalen")&"_1.js></script>"
%>
<select name="select2" onChange=GospJSCode(this.options[this.selectedIndex].value)>
<%
while not rs.eof
%>
<option value="<script src=<%=""&"special/"&rs("speicalen")&"_1.js"%>></script>"><%=rs("speicalcn")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
end if
%>
</select> <input name="spJSCode" type="text" value="<%=spjs%>" size="45">
</td>
</tr>
<tr bgcolor="#F7FFF4">
<td height="25" colspan="2" valign="middle"><font color="#FF0000">注意：如果你要远程异地调用，请输入绝对路径:
<input name="HotNews" type="text" value="<script src=<%="http://www.cooin.com/it/codejs/"&"Hots_News.js"%>></script>" size="62">
</font></td>
</tr>
</table>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -