家庭/个人应用

开发平台：
ASP/ASPX

sever.asp：源码内容
							
<!--#include file="../checkpost.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="zcm.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>3 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if
%>
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"skyucvod"))
Do While yzcv>99999999999
yzcv=yzcv-99999999999
loop
if yzcv<>zcv then
response.write "<script language=java-script>{window.alert('错误：程序尚未注册,此功能不能使用!');window.location='zcmayireg.asp?type=reg';}</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/Admin_STYLE.CSS" type="text/css">
<title>服务器路径管理</title>
<style type="text/css">
<!--
.样式2 {font-size: 9pt}
.样式4 {font-size: 9pt; font-weight: bold; }
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div align="center">
  <center>
    <!--#include file="top1.asp"-->
    <table width="100%" border="0" cellspacing="0" cellpadding="2">
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table>
    <table border="0" cellpadding="2" cellspacing="1" class="border" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#FFFFFF" height="94">
      <tr> 
        <td height="22" colspan="5" class=title> <div align="center"><font color="#FFFFFF"><b><span class="样式2"><font color="#FF0000">电影服务器列表</font></span><font color="#FF0000"></span></font></b></font></div></td>
      </tr>
      <tr bgcolor="#429AEF"> 
        <td height="10" > <div align="center" class="样式4 样式2"><font color="#FFFFFF">服务器</font></div></td>
        <td height="10" > <div align="center" class="样式4"><font color="#FFFFFF">在线</font></div></td>
        <td height="10" > <div align="center" class="样式4"><font color="#FFFFFF">FTP下载</font></div></td>
        
        <td height="10" > <div align="center" class="样式4"><font color="#FFFFFF">操作</font></div></td>
      </tr>
      <tr> 
        <%set rs=server.createobject("adodb.recordset")
    rs.open "select * from movie",conn,1,1
    if zcn="" or zcv="" then response.end
        dim i
    i=1
    do while not rs.eof
    %>
        <form method="POST" onsubmit action="changeadmin.asp?id=<%=rs("id")%>">
          <td width="14%" class="tdbg"><div align="center">第<%=i%>服务器</div></td>
          <td width="24%" class="tdbg"><input type="text" name="ipsipb" size="30" value="<%=rs("ipsip")%>"> 
            <span lang="en-us"> </span> <span lang="en-us"> </span> </td>
          <td width="20%" class="tdbg"><input type="text" name="moviev" size="30" value="<%=rs("movie")%>"></td>
          
          <td width="18%" class="tdbg"><input type="submit" value="修改" name="changemovie"> 
            <span lang="en-us"> </span><font size="2"> 
            <input type="submit" value="删除" name="deletserver">
            </font></td>
        </form>
      </tr>
     <% 
      i=i+1
      rs.movenext
      loop
      rs.close
      set rs=nothing
      conn.close
      set conn=nothing
      %>
      <tr> 
        <form method="POST" onsubmit action="changeadmin.asp">
          <td class="tdbg"><div align="center">新增服务器</div></td>
          <td class="tdbg"><input type="text" name="ipsipt" size="30"> </td>
          <td class="tdbg"><input type="text" name="moviet" size="30"></td>
          
          <td class="tdbg"><input type="submit" value="新增" name="addmovieip"></td>
        </form>
    </table>
  </center>
</div>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><div align="center"><span class="样式2">例如在线 
        </span>
        <font size="2">
        <input type="text" name="服务器" size="22" value="rstp://www.skyuc.com/">
        </font> FTP下载 
        <input type="text" name="目录" size="22" value="ftp://www.skyuc.com/">
        </div></td>
  </tr>
</table>
<div align="center"><br>
  <font color="#FF0000">注： 空白的服务器在增加电影时可直接使用其他服务器上影片的绝对地址！</font></div>
</body>
</html>

						