⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_yqlj.asp

📁 新世纪影院源码
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="xshjyy.asp"-->
<%'---------程序编写说明-------%> 
<%'本程序由junping96编写
'程序名称:新世纪影院VOD播放系统(商业版)
'FileName: Admin_adv.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:junping96@163.com
'QQ:       249112913 249114058
'请尊重本人劳动,禁止修改版权,有任何问题请和我联系。
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="”keywords”" content="”新世纪影院VOD影视播放程序出售”">
<meta name="”description”" content="”新世纪影院VOD影视(商业版)出售”">
<title>新世纪影院</title>
<link rel="stylesheet" type="text/css" href="../css/css.css">
</head>

<body bgcolor="#FF9900" text="#000000" topmargin="1" leftmargin="1">

<%
act=trim(request.querystring("act"))
if act="" then
%>
<center>
        <table width="453" border="0" cellspacing="1" cellpadding="0">
                    <tr align="center" valign="middle">
            <td bgcolor="#FFFFFF" height="22" align="center" width="422" colspan="5" valign="middle">有情连接</td>
          </tr>

          <tr align="center" valign="middle"> 
          <td bgcolor="#FFFFFF" height="22" align="center" width="118" valign="middle">显示、不显示</td>

            <td bgcolor="#FFFFFF" height="22" align="center" width="126" valign="middle">URL</td>

            <td bgcolor="#FFFFFF" height="22" align="center" width="153" valign="middle">加入时间</td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="90" valign="middle">修改</td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="64" valign="middle">删除</td>
          </tr>
          <%
      set rs=server.createobject("adodb.recordset")
      sql="select * from logo order by id desc"
      rs.open sql,conn,1,1
      if rs.eof or bof then
      response.write"没有友情连接"
      response.end
      end if
      do while not rs.eof or bof
      %>
     
          <form name="shh" method="post" action="admin_yqlj.asp?id=<%=rs("id")%>&act=xg">
         
          <tr align="center" valign="middle">
           <td bgcolor="#FFFFFF" height="22" align="center" width="118" valign="middle"><%
           showorno=rs("showorno")
           if showorno=1 then
           response.write"显"
           end if
           %><a href=yqljshoworno.asp?id=<%=rs("id")%>&yesorno=1>Yes</a>&nbsp;&nbsp;    
            <a href=yqljshoworno.asp?id=<%=rs("id")%>&yesorno=0>No</a></td>

            <td bgcolor="#FFFFFF" height="22" align="center" width="126" valign="middle"><input type="text" name="xgtypes" class="inputs" value="<%=rs("logo")%>" size="15"></td>

            <td bgcolor="#FFFFFF" height="22" align="center" width="153" valign="middle"><%=rs("dateandtime")%></td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="90" valign="middle"><input type=submit name="xgok" value="修改"></td>
            <td bgcolor="#FFFFFF" height="22" align="center" width="64" valign="middle"><a href=admin_yqlj.asp?types=<%=rs("id")%>&act=del>删除</a></td>
          </tr>
          </form>
          <%
          rs.movenext
          loop
          rs.close
          set rs=nothing
          %>
            <tr align="center" valign="middle">
            <td bgcolor="#FFFFFF" height="22" align="left" width="422" colspan="5" valign="middle">使用说明:</td>
            </tr>
            <tr>
              <td bgcolor="#FFFFFF" height="22" align="left" width="422" colspan="5" valign="middle">&nbsp;&nbsp;&nbsp;       
                1、URL只需填写所在网址即可</td>
          </tr>
		   <tr align="center" valign="middle">
            <td bgcolor="#FFFFFF" height="19" align="left" width="422" colspan="5">&nbsp;&nbsp;&nbsp;      
              2、格式:http://127.0.0.1</td>
          </tr>
          </table>
          <%
elseif act="xg" then
xgtypes=trim(request.form("xgtypes"))
if xgtypes="" then
response.write"<script language=javascript>alert('输入友情连接URL!');history.back(-1);</script>"
response.end
end if
id=trim(request.querystring("id"))
if id="" then
response.redirect request.servervariables("HTTP_REFERER")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from logo where id="&id
rs.open sql,conn,1,3
if rs.eof or bof then
response.redirect"../error.htm"
else
rs("logo")=xgtypes
rs.update
response.redirect request.servervariables("HTTP_REFERER")
end if
rs.close
set rs=nothing
else
types=trim(request.querystring("types"))
set rs=server.createobject("adodb.connection")
sql="delete from logo where id="&types
rs.open conn
rs.execute(sql)
response.write"<script language=javascript>alert('已经成功删除!');history.back(-1);</script>"
end if
%>
</body>
</html>
















⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -