<!--#include file="../include/conn.asp"-->
<!--#include file="seeion.asp" -->
<%
'website:http://www.angelasp.com
' Angel工作室技术开发团队:QQ:815657032、QQ：709047174
' Copyright (C) Angel工作室 (http://www.angelasp.com).  All rights reserved
If request.QueryString("id") = "" Or Not IsNumeric(request.QueryString("id")) Then
    response.Write "<script language=javascript>alert(""非法操作！"");window.history.back();</script>"
    response.End
End If
If request.Form("submit") = "确认修改" Then
    If request.Form("banner_pic") = "" Then
        response.Write "<script language=javascript>alert(""请输入图片地址或上传图片！"");window.history.back();</script>"
        response.End
    End If
    If request.Form("banner_url") = "" Then
        response.Write "<script language=javascript>alert(""链接地址不能为空！"");window.history.back();</script>"
        response.End
    End If
    If request.Form("banner_order") = "" Or Not IsNumeric(request.Form("Angel_banner_order")) Then
        response.Write "<script language=javascript>alert(""排序数字不能为空！而且必须为数字！"");window.history.back();</script>"
        response.End
    End If
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from banner where id = "&request.QueryString("id")&""
    rs.Open sql, conn, 1, 3
    rs("banner_name") = request.Form("banner_name")
    rs("banner_pic") = request.Form("banner_pic")
    rs("banner_url") = request.Form("banner_url")
    rs("banner_order") = request.Form("banner_order")
    rs.update
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
    response.Write "<script language=javascript>alert(""幻灯修改成功！"");window.location.href=""banner.asp""</script>"
    response.End
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Angel工作室留言板系统V1.0</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="留言板系统V1.0-Powered By angelasp.com" />
<meta name="description" content="留言板系统V1.0-Powered By angelasp.com" />
<link type="text/css" href="css/css.css" rel="stylesheet"/>
<script type="text/javascript" src="../js/jquery-1.js"></script>
<script type="text/javascript" src="../js/js.js"></script>
</head>
<body>
<div class="bodycontent">
<!--#include file="head.asp"-->
<!--修改密码-->
<div id="login_password">
  <h1>===修改密码===</h1>
  <form method="post" action="?action=ok">
  <dd>新 密 码：<input type="password" size="10" name="news_password"  class="word" /></dd>
  <dd><input type="submit" value="登陆" class="button" />&nbsp;&nbsp;<input type="button" value="关闭" id="close" class="button" /></dd>
  </form>
</div>
<!--修改密码结束-->
<div class="msg_content">
<div class="left_menu">
<div class="leftmenutext"><a href="../index.asp">前台首页</a> <a href="index.asp">后台首页</a></div>
<div class="leftmenutext_top">留言板管理</div>
<div class="leftmenulistnav">
<!--#include file="left_menu.asp"-->
</div>
</div>

<div class="right_messagelist">
<div class="leftmenutext">当前操作：留言板设置</div>
<div class="admin_sitecontent">
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from banner where id = "&request.QueryString("id")&""
rs.Open sql, conn, 1, 1
If rs.EOF Then
    response.Write "<script language=javascript>alert(""不存在此数据！"");window.history.back();</script>"
    response.End
End If
%>
<form name="myform" class="myform" method="post">
<div class="sitesetlist" style="height:30px">
<div class="bfont">文字说明：</div>
 <div style="width:120px;float:left;"><input class="txtbox" type="text" name="banner_name" value="<%=rs("banner_name")%>"/></div>
</div>
<div class="sitesetlist" style="height:30px">
<div class="bfont">动画图片：</div>
<div style="width:250px;float:left;"><input class="txtbox" style="width:250px" type="text" name="banner_pic" value="<%=rs("banner_pic")%>"/></div>
<iframe ID="UploadFiles" src="upload_Photo.asp?PhotoUrlID=6" frameborder=0 scrolling=no width="190" height="25"></iframe>
</div>
<div class="sitesetlist" style="height:30px">
<div class="bfont">链接地址：</div>
<div style="width:200px;float:left;"><input class="txtbox"  type="text" name="banner_url" value="<%=rs("banner_url")%>"/></div>




</div>
<div class="sitesetlist" style="height:30px">
<div class="bfont">排序：</div>
<div style="width:120px;float:left;"><input class="txtbox" type="text" name="banner_order"  value="<%=rs("banner_order")%>"/></div>
</div>
<div class="sitesetlist" style="height:30px">
<input name="submit" type="submit" class="submit_button" value="确认修改" />
</div>
</form>
</div>
</div>
 <!--#include file="foot.asp"-->
</div>
<%
'如果不在操做数据库，使用下面语句关闭数据库链接
conn.close
set conn=nothing 
%>
</body>
</html>









