📄 js_ad_make.asp
字号:
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
founderr=true
errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
call diserror()
response.end
end if
if session("flag")>1 then
errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
call diserror()
response.end
end if%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>
</head>
<body LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0"><script>if(top==self)top.location="index.asp" </script>
<TABLE WIDTH="100%" BORDER="0"
ALIGN="center" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#FFFFFF" CLASS="HeaderTdStyle" >
<TR> <TD HEIGHT="22"
COLSPAN="2" ALIGN="center"><B>文字广告连接JS文件编译管理</B></TD></TR> <TR BGCOLOR="#FFF2E6">
<TD WIDTH="70" HEIGHT="30" BGCOLOR=""#0099CF""><B>管理导航：</B></TD><TD
HEIGHT="30" BGCOLOR="#ffffff"> <A HREF="Js_ad_Make.asp?action=makejs">生成此榜JS文件</A></TD></TR>
</TABLE><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD HEIGHT="28"> </TD></TR></TABLE><TABLE WIDTH="99%" BORDER="0" CELLSPACING="1" CELLPADDING="3" ALIGN="CENTER" BGCOLOR="#0099CF"><FORM NAME="form1" METHOD="post" ACTION="?action=makejs">
<TR BGCOLOR="#0099CF"> <TD HEIGHT="20" COLSPAN="2"><B>文字广告连接JS文件编译</B></TD></TR><TR BGCOLOR=""#0099CF"">
<TD colspan="2" VALIGN="MIDDLE" BGCOLOR=""#0099CF"">点击将生成所有广告Js文件，速度可能会比较慢，请稍候！！</TD>
</TR>
<!--<TR BGCOLOR="#ffffff"><TD>排列方式</TD><TD>行:<INPUT TYPE="text" NAME="textfield" SIZE="5" VALUE="1"> 列:<INPUT TYPE="text" NAME="textfield2" SIZE="5" VALUE="1"></TD></TR>-->
<TR BGCOLOR="#ffffff"> <TD COLSPAN="2"><INPUT TYPE="submit" NAME="Submit" VALUE="生成JS文件"></TD></TR>
</FORM></TABLE>
<BR>
</body>
</html>
<%if request("action")="makejs" then
set rsn=server.createobject("adodb.recordset")
sql="select * from happywz_ADS"
rsn.open sql,conn,1,1
while not rsn.eof
adsurl=rsn("url")
adsads=rsn("ads")
adsjs=rsn("js")
adsclass=rsn("class")
adsx=rsn("x")
adsy=rsn("y")
n=rsn("space")
adsopen=rsn("open")
str=" "
if adsopen=true then
Select case adsclass
case 1
str=str&"document.write('<a href="&adsurl&" target=_blank><img src="&adsads&" width="&adsx&" height="&adsy&" border=0></a>')"
case 2
str=str&"document.write('<object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 width="&adsx&" height="&adsy&"><param name=movie value="&adsads&"><param name=quality value=high>"
str=str&"<embed src="&adsads&" quality=high pluginspage=http://www.macromedia.com/go/getflashplayer type=application/x-shockwave-flash width="&adsx&" height="&adsy&"></embed></object>')"
case 3
str=str&"document.write('<marquee><a href="&adsurl&" target=_blank>"&adsads&"</a></mrquee>')"
case 4
str=str&"document.write('"&adsjs&"')"
End Select
end if
Set fso= Server.CreateObject(""&fsoset&"")
set fd=fso.createtextfile(server.MapPath("..\js\adurl"&n&".js"),true)
fd.writeline str
fd.close
rsn.movenext
wend
rsn.close
set rsn=nothing
%>
<table cellspacing="1" cellpadding="3" width="99%" class="table1" bgcolor="#0099CF" align='center' >
<tr bgcolor="#0099CF">
<td height="25" class="title"><div align="center"><b><span class="style1">广告js更新完成</span> </b></div></td>
</tr>
<td><div align="center"><font color="#0000FF">广告js更新完成</font></td>
</tr>
</table>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -