addads_place.asp

来自「新闻发布系统」· ASP 代码 · 共 109 行

ASP

109 行

 <%@ LANGUAGE="VBSCRIPT" %>
<!--#include file=config.asp -->
<!--#include file="check.asp"-->
<html><head>
<meta http-equiv=Content-Language content=zh-cn>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<meta http-equiv=Pragma content=no-cache>
<link href=../Fsmanage/css/css.css rel=STYLESHEET type=text/css>

<title>广告发布管理系统</title>
</script>
<base target=_top>
</head><body marginwidth=0 marginheight=0>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
      <!--#include file=menu.asp -->
    </td>
  </tr>
</table>
<table width="98%" border="0" cellspacing="1" cellpadding="0" bgcolor="#7ED3A7" align="center">
  <tr> 
    <td height="150" valign="top" bgcolor="#FFFFFF"> 
      <table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#FFFFFF">
        <tr> 
          <td bgcolor="#F7FFF4" valign="top" height="147"> 
            <div align="center"> 
              <table border="0" width="100%" cellspacing="0" cellpadding="0">
                <form method="POST" action="Addads.asp" target="_self">
                  <tr> 
                    <td width="100%" height="18" colspan=2 align=center bgcolor="#F7FFF4"><font color=red><b> 
                      <%if request.querystring("job")="finish" then%>
                      <br>
                      <br>
                      增 加 广 告 成 功 
                      <%else%>
                      <br>
                      <br>
                      增加广告——选择广告种类和位置 
                      <%end if%>
                      </b></font></td>
                  </tr>
                  <tr> 
                    <td height="34" align="center" bgcolor="#F7FFF4"> 
                      <p> 
                        <%
adsconn.open adsdata
set adsrs=server.createobject("adodb.recordset")
adssql="select * from price order by priceID"
adsrs.Open adssql,adsconn,1,1
%>
                        <select name="price" size="1" onChange="window.open('Addads_place.asp?price='+this.options[this.selectedIndex].value,'_self')">
                          <option value="" <%if request("price")="" then%> selected<%end if%>>选择大类</option>
                          <%					

while not adsrs.EOF
%>
                          <option<%if request("price")=adsrs("price") and request("price")<>"" then%> selected<%end if%> value="<%=adsrs("price")%>" name=price><%=adsrs("price")%></option>
                          <%
adsrs.MoveNext
wend
%>
                        </select>
                        <%
if request("price")<>"" then%>
                        <select name="placeID" size="1">
                          <option value="" <%if request("placeID")="" then%> selected<%end if%>>选择小类</option>
                          <%
set adsrs2=server.createobject("adodb.recordset")

adssql2="select * from place where price='"&request("price")&"' order by placeid"

adsrs2.open adssql2,adsconn,1,1
Do while not adsrs2.eof
%>
                          <option<%if cstr(request("placeID"))=cstr(adsrs2("placeID")) and request("placeID")<>"" then%> selected<%end if%> value="<%=CStr(adsrs2("place"))%>" name=placeID><%=adsrs2("place")%></option>
                          <%
adsrs2.MoveNext
Loop
adsrs2.close
%>
                          <%else%><select name="placeID" size="1">
                          <option value="" selected>选择小类</option>
                          <%end if%>
                        </select>
                      </p>
                      </td>
                  </tr>
                  <tr> 
                    <td height="25" align="center" bgcolor="#F7FFF4"> 
                      <%if request("price")="" then%>
                      <input type="button" value=" 确 定 " name="cmdok" onClick="window.alert('请先选择广告种类！')"> 
                      <%else%>
                      <input type="submit" value=" 确 定 " name="cmdok"> 
                      <%end if
adsrs.close
set adsrs2=nothing
set adsrs=nothing
%>
                    </td>
                  </tr>
                </form>
              </table>
            </div></td>
        </tr>
      </table></td>
  </tr>
</table>

addads_place.asp - 源码说明

本页面展示了「新闻发布系统」中的 addads_place.asp 源码文件，采用 ASP 编程语言编写，共 109 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与新闻发布系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?