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

📄 ads_edit.asp

📁 使用Asp+Access+FSO+Jmail+Servu开发
💻 ASP
字号:
<!--#include file="admin.asp"-->

<%chk_admin_login(2)%>
<%
id=request("id")
sql="select * from ads where id="&id
rs.open sql,conn,1,1
if request("action")="save" then
set rs1=server.createobject("ADODB.Recordset")
sql1="select * from ads where id="&id
rs1.open sql1,conn,1,3
rs1("type")=request.Form("adstype")
rs1("picurl")=request.Form("picurl")
rs1("link")=request.Form("link")
rs1("intro")=request.Form("intro")
rs1("page")=request.Form("page")
rs1("height")=request.Form("height")
rs1("width")=request.Form("width")
rs1.update

rs1.close
set rs1=nothing
response.write"<script>alert('广告修改成功!');location.href='ads_admin.asp'</script>"
end if
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/admin.css">
</head>
<body>
<table width="460" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
  <form name="form1" method="post" action="ads_edit.asp?action=save">
    <tr align="center">
      <td colspan="2" class="td-title-color"><table  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td class="shadow">修改广告</td>
        </tr>
      </table>      </td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="81">广告类型:</td>
      <td width="362"> <select name="adstype">
          <option value="pic" <%if rs("type")="pic" then%>selected<%end if%>>图片</option>
          <option value="flash" <%if rs("type")="flash" then%>selected<%end if%>>Flash</option>
      </select> </td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="81">图片网址:</td>
      <td width="362"> <font color="#ff6600"> 
        <input name="picurl" type="text" size="40" value="<%=rs("picurl")%>">
      (gif包括jpg格式)</font></td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="81">链接URL:</td>
      <td width="362"> <input  name="link" type=text size="40" value="<%=rs("link")%>">      </td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="81">简要说明:</td>
      <td width="362"> <input type=text name="intro" size="40" value="<%=rs("intro")%>"> 
      <font color="ff6600">(可不填)</font></td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td>广告位置:</td>
      <td><select name="page">
        <option>选择广告位置</option>
        <option value="1" <%if rs("page")="1" then%>selected<%end if%>>首页顶部Banner</option>
        <option value="2" <%if rs("page")="2" then%>selected<%end if%>>首页通栏Banner</option>
        <option value="3" <%if rs("page")="3" then%>selected<%end if%>>首页中间Banner</option>
        <option value="4" <%if rs("page")="4" then%>selected<%end if%>>首页左侧LOGO</option>
        <option value="5" <%if rs("page")="5" then%>selected<%end if%>>用户WEB管理页</option>
        <option value="6" <%if rs("page")="6" then%>selected<%end if%>>首页右侧LOGO</option>
      </select></td>
    </tr>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="81">广告尺寸:</td>
      <td> 高:
         <input name="height" type=text size="10" value="<%=rs("height")%>">
宽:
<input name="width" type=text size="10" value="<%=rs("width")%>">
单位:像素,只需填写数字 </td>
    </tr>
    <tr> 
      <td colspan="2" align="center"> 
        <input name="id" value="<%=id%>" type="hidden"> 
        <input name="submit" type="submit" value="修改">
          
        <input name="button" type="button" onclick="history.back()" value="返回"> 
      </td>
    </tr>
  </form>
</table>
</body>
</html>

⌨️ 快捷键说明

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