admin_djhtm.asp
来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 260 行
ASP
260 行
<!--#include file="mdb.asp"-->
<%Admin="System"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<%
'****************************************************
' Hxcms Ver7.5 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if%>
<html>
<head>
<title>Hxcms管理系统——音乐滚动生成HTML管理</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="hx66Id" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="inc/admin.css">
</head>
<body>
<%
dim sql
dim rs
dim rs1
set rs=server.createobject("adodb.recordset")
rs.open "select * from djSpecial order by Specialid desc",conn,1,1
%>
</body>
</html>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td>将音乐专集生成首页滚动HTML管理</td></tr>
<tr class=Hxcmsqs align="center"><td>
<%if request.form("s1")="" then%>
<form method="POST">
<p align="center"><textarea rows="25" name="s1" cols="105">
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="hx66Id" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language=javascript><!--
if (window == top)top.location.href = "index.asp";// --></SCRIPT>
<title>花香盈路音乐滚动</title>
<style type="text/css">
body {
color: #000000;
font-family: "宋体";
font-size: 12px;
margin-left: 2px;
margin-top: 0px;
margin-right: 2px;
margin-bottom: 0px;
}
img {
border:0px;
}
td,tr,table{
font-size:12px;
}
a{text-decoration: none;} /* 链接无下划线,有为underline */
a:link {color: #333333;} /* 未访问的链接 */
a:visited {color: #333333;} /* 已访问的链接 */
a:hover{color: #2593D1;} /* 鼠标在链接上 */
a:active {color: #2593D1;} /* 点击激活链接 */
</style>
<base target="_blank">
</head>
<BODY oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
<TABLE style="DISPLAY: none" height=118 cellSpacing=0 cellPadding=0 width=560 border=0>
<TBODY>
<TR>
<TD id=News0>
<TABLE height=118 cellSpacing=0 cellPadding=0 width=560 border=0>
<TBODY>
<TR>
<%
b=0
do while not rs.eof
b=b+1%>
<TD width=140 align="center"><table width=50 border=0 cellpadding=0 cellspacing=1 bgcolor=#d7d7d7><tr><td bgcolor=#ffffff><table width=50 border=0 cellspacing=2 cellpadding=0><tr><td><a target="_blank" href="Showdj_Special.asp?Specialid=<%=rs("SpecialID")%>" title="<%=rs("name")%>"><img border="0" src="<%=rs("pic")%>" width="85" height="85"></a></td></tr></table></td></tr></table>
<div style="padding-top:5px;"><a target="_blank" href="Showdj_Special.asp?Specialid=<%=rs("SpecialID")%>" title="<%=rs("name")%>"><%=gotTopic(rs("name"),14)%></a></div>
</td>
<%
if b>=4 then exit do
rs.movenext
loop
%>
</TR></TBODY></TABLE>
</TD>
</TR>
<TR>
<TD id=News1>
<TABLE height=118 cellSpacing=0 cellPadding=0 width=560 border=0>
<TBODY>
<TR>
<%
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from djSpecial order by Specialid desc",conn,1,1
rs1.move 4
g=0
do while not rs1.eof
g=g+1%>
<TD width=140 align="center"><table width=50 border=0 cellpadding=0 cellspacing=1 bgcolor=#d7d7d7><tr><td bgcolor=#ffffff><table width=50 border=0 cellspacing=2 cellpadding=0><tr><td><a target="_blank" href="Showdj_Special.asp?Specialid=<%=rs1("SpecialID")%>" title="<%=rs1("name")%>"><img border="0" src="<%=rs1("pic")%>" width="85" height="85"></a></td></tr></table></td></tr></table>
<div style="padding-top:5px;"><a target="_blank" href="Showdj_Special.asp?Specialid=<%=rs1("SpecialID")%>" title="<%=rs1("name")%>"><%=gotTopic(rs1("name"),14)%></a></div>
</td>
<%
if g>=4 then exit do
rs1.movenext
loop
%>
</TR></TBODY></TABLE>
</TD>
</TR>
<TR>
<TD id=News2>
<TABLE height=118 cellSpacing=0 cellPadding=0 width=560 border=0>
<TBODY>
<TR>
<%
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from djSpecial order by Specialid desc",conn,1,1
rs1.move 8
g=0
do while not rs1.eof
g=g+1%>
<TD width=140 align="center"><table width=50 border=0 cellpadding=0 cellspacing=1 bgcolor=#d7d7d7><tr><td bgcolor=#ffffff><table width=50 border=0 cellspacing=2 cellpadding=0><tr><td><a target="_blank" href="Showdj_Special.asp?Specialid=<%=rs1("SpecialID")%>" title="<%=rs1("name")%>"><img border="0" src="<%=rs1("pic")%>" width="85" height="85"></a></td></tr></table></td></tr></table>
<div style="padding-top:5px;"><a target="_blank" href="Showdj_Special.asp?Specialid=<%=rs1("SpecialID")%>" title="<%=rs1("name")%>"><%=gotTopic(rs1("name"),14)%></a></div>
</td>
<%
if g>=4 then exit do
rs1.movenext
loop
%>
</TR></TBODY></TABLE>
</TD>
</TR>
</TBODY>
</table>
<!-- MultNewsEnd -->
<table width="550" border="0" height="120" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<script language="javascript">
//花香盈路发布 2005/11/25,仅仅支持IE，不支持NS
var intWidth = 550; //宽度
var intHeight = 120; //高度
var intAmount = 2;//每间隔滚动距离，可调节速度
var intArray=2;//滚动内容数组下标
var intDelayMS=36; //滚动时间间隔，豪秒12-36豪秒之间，太大的话滚动看起来不平滑
var intPauseMS=1000 * 10; //滚动暂停间隔，豪秒，即多长时间滚动一次
var scrollArray=new Array();//滚动内容数组
scrollArray[0]=News0.innerHTML;
scrollArray[1]=News1.innerHTML;
scrollArray[2]=News2.innerHTML;
function scroll_1(objDiv){
thisObjDiv=eval(objDiv);
if ((thisObjDiv.style.pixelTop>0)&&(thisObjDiv.style.pixelTop<=intAmount)){
thisObjDiv.style.pixelTop=0;
setTimeout("scroll_1(thisObjDiv)",intPauseMS);
setTimeout("scroll_2(scrollDiv_2)",intPauseMS);
return;
}
if (thisObjDiv.style.pixelTop>=thisObjDiv.offsetHeight*-1){
thisObjDiv.style.pixelTop-=intAmount;
setTimeout("scroll_1(thisObjDiv)",intDelayMS);
}
else{
thisObjDiv.style.pixelTop=intHeight;
thisObjDiv.innerHTML=scrollArray[intArray];
if (intArray==scrollArray.length-1){
intArray=0;
}
else{
intArray++;
}
}
}
function scroll_2(objDiv){
thisObjDiv2=eval(objDiv);
if ((thisObjDiv2.style.pixelTop>0)&&(thisObjDiv2.style.pixelTop<=intAmount)){
thisObjDiv2.style.pixelTop=0;
setTimeout("scroll_2(thisObjDiv2)",intPauseMS);
setTimeout("scroll_1(scrollDiv_1)",intPauseMS);
return;
}
if (thisObjDiv2.style.pixelTop>=thisObjDiv2.offsetHeight*-1){
thisObjDiv2.style.pixelTop-=intAmount;
setTimeout("scroll_2(scrollDiv_2)",intDelayMS);
}
else{
thisObjDiv2.style.pixelTop=intHeight;
thisObjDiv2.innerHTML=scrollArray[intArray];
if (intArray==scrollArray.length-1){
intArray=0;
}
else{
intArray++;
}
}
}
function Event_MOver(){
intAmount=0;
}
function Event_MOut(){
intAmount=2;
}
if (document.all){ //Only For IE
document.writeln("<span id=\"scrollContainer\" style=\"position:relative;width:"+intWidth+";height:"+intHeight+";overflow:hiden;background-color:#ffffff\">");
document.writeln("<div onMouseOver=\"Event_MOver();\" onMouseOut=\"Event_MOut();\" style=\"position:absolute;width:"+intWidth+";height:"+intHeight+";clip:rect(0 "+intWidth+" "+intHeight+" 0);left:0;top:0\">");
document.writeln("<div id=\"scrollDiv_1\" style=\"position:absolute;width:"+intWidth+";left:0;top:1;\">");
document.write(scrollArray[0]);
document.writeln("</div>");
document.writeln("<div id=\"scrollDiv_2\" style=\"position:absolute;width:"+intWidth+";left:0;top:0\">");
document.write(scrollArray[1]);
document.writeln("</div>");
document.writeln("</div>");
document.writeln("</span>");
scroll_1(scrollDiv_1);
scrollDiv_2.style.top=intHeight;
}
</script>
</td>
</tr>
</table>
</body>
</html>
</textarea><br><br>
<input type="submit" value="生成HTML" name="B1"></p>
</form>
<p align="center">新添加专集完成后都必须重新生成一下HTML</p>
<p align="center">至少要有<font color="#FF0000">12</font>张专集滚动才能完整显示</p>
<p align="center"><a href="javascript:history.back()">[返回]</a></p>
<%
else
conter=request.form("s1")
set fs=server.CreateObject("Scripting.FileSystemObject")
FilePath=server.MapPath("dj_Special.html")
set htm=fs.opentextfile(filepath,2,true)
htm.write conter
response.write"<script>alert('HTML生成成功！');history.back();</Script>"
end if
'****************************************************
' Hxcms Ver7.5 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>
</body>
</html>
</td></tr>
</table>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?