addgg.asp
资源名称:qnmov30.rar [点击查看]
上传用户:qyswxdl
上传日期:2013-06-01
资源大小:1373k
文件大小:8k
源码类别:
家庭/个人应用
开发平台:
ASP/ASPX
- <!--#include file="security.asp"-->
- <%if session("flag")>1 then
- response.write "<script>alert('您的操作权限不够!');history.back();</script>"
- response.end
- end if
- %>
- <!--#include file="../checkpost.asp"-->
- <html>
- <head>
- <title></title>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <link rel="stylesheet" type="text/css" href="inc/Admin_STYLE.CSS">
- <style type="text/css">
- <!--
- body {
- background-color: #FFFFFF;
- }
- .样式1 {
- color: #000000;
- font-weight: bold;
- }
- -->
- </style></head>
- <body>
- <!--#include file="conn1.asp"-->
- <%
- if trim(request("ccc22"))="add" then %>
- <%
- set rs=server.createobject("adodb.recordset")
- sql="SELECT * from gg where ggid="&nnoo(request("ggid"))&""
- rs.open sql,conn,1,3
- rs("gjie")=nnoo(request("gjie"))
- rs("gw")=nnoo(request("gw"))
- rs("gh")=nnoo(request("gh"))
- rs("gglei")=nnoo(request("gglei"))
- rs("ggri")=nnoo(request("ggri"))
- rs("ggok")=request("ggok")
- rs("ggjia")=request("ggjia")
- rs("ggimg")=request("ggimg")
- rs("ggurl")=request("ggurl")
- if request("timeok")=1 then
- rs("ggtime")=date()
- end if
- rs.update
- rs.close
- Response.Write "<script Language=Javascript>alert('添加完毕');location.href = 'addguuang.asp';</script>"
- response.end
- end if %>
- <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
- <tr>
- <td colspan="3"> </td>
- </tr>
- <tr>
- <td width="18" background="img/admin4.gif"> </td>
- <td>
- <table width="100%" cellspacing="0" cellpadding="0" align="center">
- <tr>
- <td>
- <table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td background="../images/back_3.gif" rowspan="2">
- <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
- <tr>
- <td class="12v" >
- <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="308" width="100%">
- <tr>
- <td height="308">
- <table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
- <tr class="title">
- <td height="22" bgcolor="#FFFFFF" class="title">
- <div align="center" class="样式1">广告修改</div></td>
- </tr>
- <tr>
- <td height="284" valign="top" class="tdbg">
- <% set rs=server.createobject("adodb.recordset")
- sql="SELECT * from gg where ggid="&nnoo(request("id"))&""
- rs.open sql,conn,1,3 %>
- <br>
- <form name="form1" method="post" action="?ccc22=add">
- <table width="100%" border="0" cellspacing="0" cellpadding="0" height="237">
- <tr>
- <td width="27%" rowspan="2">
- <div align="center">广告说明</div></td><td width="73%" height="37"> <input name="gjie" type="text" id="gjie" value="<%=rs("gjie")%>" size="50"> </td>
- </tr>
- <tr> </tr>
- <tr>
- <td width="27%" height="52"> </td>
- <td width="73%" height="52">长度
- <input name="gw" type="text" id="gw" value="<%=rs("gw")%>" size="7">
- 宽度
- <input name="gh" type="text" id="gh" value="<%=rs("gh")%>" size="7">
- <br>
- 广告位置:
- <select name="gglei" id="gglei">
- <option value="<%=rs("gglei")%>">默认位置</option>
- <option value="0">首页广告</option>
- <option value="1">分类内广告</option>
- <option value="2">点播页广告</option>
- <option value="3">广告版点播页1</option>
- <option value="4">广告版点播页2</option>
- <option value="5">广告版点播页3</option>
- <option value="6">其他位置</option>
- </select>
- <font color="#FF0000">(
- <%select case rs("gglei")
- case 0
- Response.Write("首页广告")
- case 1
- Response.Write("分类内广告")
- case 2
- Response.Write("商品详细内")
- case 3
- Response.Write("产品详细底")
- case 4
- Response.Write("首页广告底部")
- case else
- Response.Write("其他位置")
- end select %>
- )</font></td>
- </tr>
- <tr>
- <td height="120"> </td>
- <td height="120">
- <input name="ggri" type="text" id="ggri" value="<%=rs("ggri")%>" size="10">
- 租用日期/天
- <select name="ggok" id="ggok">
- <option value="<%=rs("ggok")%>">默认设置</option>
- <option value="1">暂未使用</option>
- <option value="0">已被租用</option>
- </select>
- <% if rs("ggok")=1 then
- Response.Write("<font color=#FF0000><b>X没有租出</b></font>")
- else
- Response.Write("<b>√已经租出</b>")
- end if %>
- <br>
- <strong>到期时间:
- <%if rs("ggtime")+rs("ggri")<=date() then
- Response.Write("-------NO------")
- else
- Response.Write(""&rs("ggtime")+rs("ggri")&"")
- end if %>
- </strong><br>
- <font color="#000099">开始时间:<%=rs("ggtime")%></font><br>
- 重新计时:
- <input type="radio" name="timeok" value="1">
- (广告到期或换广告请选择,更新开始时间)<br>
- <input name="ggjia" type="text" id="ggjia" value="<%=rs("ggjia")%>" size="10">
- 价格/元
- <input name="ggid" type="hidden" id="ggid" value="<%=rs("ggid")%>" size="10"></td>
- </tr>
- <tr>
- <td height="26"> </td>
- <td height="26"><input type="Submit" name="Submit" value="确定" width="75" height="22"></td>
- </tr>
- </table>
- </form> </td>
- </tr>
- <tr>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table></td>
- <td width="18" background="img/admin5.gif"> </td>
- </tr>
- </table>
- <br>
- </body>
- </html>