admin_flash.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="setup.asp" -->
<!--#include file="../WoLib/Function.asp"-->
<!-- #include file="CheckAdmin.asp" -->
<%
if RequestCookies("Userpass")="" or RequestCookies("Userpass")<>session("pass") then Response.Write ("<script>top.location.href='login.asp';</script>")
if UserRoleID <> 1 then Alert("您没有权限进入后台")
%>
<%
        Dim XML,Root,Fixedbn,Banner,URL,IMG,TITLE,i,n
        Dim IMG_Value,URL_Value,TITLE_Value,Idx,U_1,U_2
        On Error Resume Next
        Set XML = Server.CreateObject("Microsoft.XMLDOM")
        XML.Async = False
        XML.Load(Server.MapPath("../main_bn.xml"))
        
        Set Root = XML.documentElement
        Set Banner = Root.SelectNodes("//banner")
		        If LCase(Request("Action")) = "modify" Then
                IMG_Value = Request("img")
                URL_Value = Request("bnurl")
				TITLE_Value= Request("bntitle")
                Idx = Request("idx")
				Banner.Item(Idx).Attributes(0).Value = FixNull(IMG_Value)
                Banner.Item(Idx).Attributes(1).Value = FixNull(URL_Value)
				Banner.Item(Idx).Attributes(3).Value = FixNull(TITLE_Value)

                XML.Save(Server.MapPath("../main_bn.xml"))
                                Response.Redirect("?")
        End If
                
        Function FixNull(str)
                If IsNull(str) Then
                        FixNull = ""
                Else
                        FixNull = str
                End If
        End Function
%>
<style type="text/css">
body{font:12px/200% Geneva, Arial, Helvetica, sans-serif "新宋体";color:#000; padding-top:10px; text-align:left}
input{background-color:#fff;border:1px solid #ccc;padding:2px 4px;width:150px; margin:0 2px}
label{margin:0 5px; padding:0 3px;}
form{ margin:0 auto}
.button{cursor:pointer;background-color:#f4f3f3;border-color:#ccc;padding:0;width:auto}
p{margin:5px; padding:0}
div{margin:0;padding:0;padding-left:8px;}
h1,h2,h3{margin:0;padding:0;font-size:13px;color:red}
ol{padding:0; margin:0 15px}
li{margin:0; padding:0}
strong{padding:0 3px;color:#F00}
a{background-color:#F90;text-decoration:none;display:block;width:80px;line-height:20px;text-align:center;color:#fff; font-weight:700}
</style>
<h1>下面的第一条为播放器显示的右面图片控制</h1>
<form name="banner" method="post">
<%
        For i = 0 To Banner.Length-1                        

                If Banner.Item(i).hasChildNodes=True Then
%><p>
                <label>图片地址:<input type="text" name="img" value="<%=Banner.Item(i).Attributes(0).Value%>"/></label>
                <% 
                        For n = 0 To Banner.Item(i).ChildNodes.Length-1
                                
                %>
                <label>URL:<input type="text" name="url" value="<%=Banner.Item(i).ChildNodes.Item(n).Attributes(4).Value%>"/></label>
                <%
                        Next
                %><input type="button" class="button" name="modify" value="修 改" onclick="AlertNode(<%=i%>);"/>
                <%
                        Response.write("")
                Else
                %>
               <label> 图片地址:<input type="text" name="img" value="<%=Banner.Item(i).Attributes(0).Value%>"/></label>
               <label>连接地址:<input type="text" name="url" value="<%=Banner.Item(i).Attributes(1).Value%>"/></label>
			   <label>提示文字：<input type="text" name="bntitle" value="<%=Banner.Item(i).Attributes(3).Value%>"/></label>
                <input type="button" class="button" name="modify" value="修 改" onclick="AlertNode(<%=i%>);"/>
</p>
<%
        End If

        Next
        If Err Then
                Response.Write(Err.Description)
        End If
%>
</form>
<div>
<h1>*注意任何选项都不可以加入“#”字符，可以留空,连接地址为空的时候不是打开当前页，而是无连接</h1>
<h1>请大家仔细参考下面的重要修改提示，主要是针对插件包内不同的两个FLASH文件和XML文件的使用方法:（下拉详情）</h1>
<ol>
<li>调用main_bn.xml文件图片条数为11条,在这里修改只能修改属性而不能删除main_bn.xml文件的条目,要想删除条目请直接删除XML文件</li>
<li>插件包内有两FLASH文件，main_bn_swf.swf和main_bn.swf.这两个文件的使用方法是不一样的</li>
<li>如果您需要右面的小图片显示效果，请使用main_bn.xml配合main_bn.swf播放器（插件默认），管理条目的第一条就是右边小图片的控制，第二条才是显示的大图片的第一个，也就是按扭上的1。最多可写10个大图1张小图共11条。</li>
<li>如果您不需要小图片的话，那请使用main_bn.xml配合main_bn_swf.swf。这个配合使用的时候最多可加入10条数目。如果您就是要用10张大图片的话，则不需要更换FLASH文件，直接使用目前默认的，但是上面的第一项的空出来或者不用理会，从第二条起开始填写算起。</li>
<li>更换FLASH文件的时候请注FLASHPLAY.ASP文件的里面播放器文件名修改</li>
<li>如用10条以下，请直接修改XML文件的条目，只在后台删除数据，不能把条目删除，还会出现10个按扭和空白</li>
<li>修改播放器大小请修改flashplay.asp文件，另外，这里的尺寸不是您图片展示的尺寸，图片的尺寸请制作成您需要的尺寸</li>
<li>另外提供窗口打开页面插入的代码，在连接地址处粘贴<strong title="复制红色代码，粘贴到连接地址处">javascript:open_window('在这写入您要连接到的页面')<</strong>然后把里面的提示文字换为您的页面地址</li>
</ol>
</div>
<script type="text/javascript">
function AlertNode(idx){
var fm = document.banner;
var img = fm.img[idx].value;
var url = fm.url[idx].value;
var bntitle = fm.bntitle[idx].value;
alert("action=modify&idx="+idx+"&img="+img+"&bnurl="+url);
location.href="?action=modify&idx="+idx+"&img="+img+"&bnurl="+url+"&bntitle="+bntitle
}
</script>