guanggao.asp

创建和运行动态、交互的Web服务器应用程序

                           </tr>
                        <%
                          do while not rs.eof
                        %>
                        <form name="form1" method="post" action="guanggao.asp?action=save_b&gid=<%=rs("ggpicid")%>"">
                           <tr>
                             <td bgcolor="#ffffff" align=center><%=trim(rs("ggpicid"))%></td>
                             <td bgcolor="#ffffff" align=center>首页<%=trim(rs("ggpicposi"))%></td>
                             <td bgcolor="#ffffff" align=center><%=trim(rs("ggpicpath"))%></td>
                             <td bgcolor="#ffffff" align=center><a href=<%=trim(rs("ggpicurl"))%>><img src=../<%=trim(rs("ggpicpath"))%> width=100 height=30 border=0></a></td>
                             <td bgcolor="#ffffff" align=center>254*70</td>
                           </tr>
                           <tr height=35> 
                             <td colspan="5" bgcolor="#ece9d8" align=center>路径
                             <input name="ggpicpath" type="text" id="ggpicpath" size="28" value=<%=trim(rs("ggpicpath"))%>>
                             <img src="images/fangxiang.gif" border=0>链接
                             <input name="ggpicurl"  type="text" id="ggpicurl"  size="32" value=<%=trim(rs("ggpicurl"))%>>
                             <input name="Submit_B" type="submit"  value="修改"></td>
                           </tr>
                          </form>
                      <%
                        rs.movenext
                        loop
                      %>
                        </table> 
                        <br>
                     </tr>
                  </table>  
 
               </tr>
            </table>

       <%case "other"
     rs.open "select top 3 * from shop_ggpic where ggpicposi='C' order by picaddate desc",conn,1,1%>
       <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
          <tr><td>
                 <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0">
                    <tr><td>
                        <table width="100%" border="0"  align=center cellspacing="0" cellpadding="3" bgcolor="#ffffff">
                           <tr>
                             <td width="13%" bgcolor="#ece9d8" align=center><b>图片ID</b></td>
                             <td width="13%" bgcolor="#ece9d8" align=center><b>广告位置</b></td>
                             <td width="28%" bgcolor="#ece9d8" align=center><b>图片名称</b></td>
                             <td width="33%" bgcolor="#ece9d8" align=center><b>广告预览</b></td>
                             <td width="13%" bgcolor="#ece9d8" align=center><b>广告大小</b></td>
                           </tr>
                        <%
                          do while not rs.eof
                        %>
                        <form name="form1" method="post" action="guanggao.asp?action=save_c&gid=<%=rs("ggpicid")%>"">
                           <tr>
                             <td bgcolor="#ffffff" align=center><%=trim(rs("ggpicid"))%></td>
                             <td bgcolor="#ffffff" align=center>首页<%=trim(rs("ggpicposi"))%></td>
                             <td bgcolor="#ffffff" align=center><%=trim(rs("ggpicpath"))%></td>
                             <td bgcolor="#ffffff" align=center><a href=<%=trim(rs("ggpicurl"))%>><img src=../<%=trim(rs("ggpicpath"))%> width=100 height=30 border=0></a></td>
                             <td bgcolor="#ffffff" align=center>258*50</td>
                           </tr>
                           <tr height=35> 
                             <td colspan="5" bgcolor="#ece9d8" align=center>路径
                             <input name="ggpicpath" type="text" id="ggpicpath" size="28" value=<%=trim(rs("ggpicpath"))%>>
                             <img src="images/fangxiang.gif" border=0>链接
                             <input name="ggpicurl"  type="text" id="ggpicurl"  size="32" value=<%=trim(rs("ggpicurl"))%>>
                             <input name="Submit_C" type="submit"  value="修改"></td>
                           </tr>
                          </form>
                      <%
                        rs.movenext
                        loop
                      %>
                     </table> 
                     <br>
                  </tr>
               </table>  
 
            </tr>
        </table>
        <%case "uppic"%>
        <SCRIPT LANGUAGE="JavaScript">
           <!--
           function checkImage(sId)
               {
                if(( document.all[sId].value.indexOf(".gif") == -1) && (document.all[sId].value.indexOf(".jpg") == -1)) {
                  alert("请选择gif或jpg的图象文件");
                  event.returnValue = false;
                  }
               }
           //-->   
        </script>
        <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
           <tr><td>
               <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0">
                  <tr><td>
                      <table width="100%" border="0"  align=center cellspacing="0" cellpadding="3" bgcolor="#ffffff">
                         <form name="form1" method="post" action="upfile_gg.asp" enctype="multipart/form-data" onsubmit="checkImage('file1')">
                            <input type="hidden" name="act" value="upload">  
                            <tr bgcolor="#ece9d8" height=35>
                                <td width="15%" align=right><input type="hidden" name="filepath" value="../guanggao/">广告图片位置&nbsp;
                                <td><input type="file" name="file1" style="width:400" class="tx1" value="">&nbsp;&nbsp;&nbsp;&nbsp;
                                    <input type="submit" name="sbt_pic" value="上 传">
                                    <input type="button" name="btn_del" value="删 除" onClick="location.href='guanggao.asp?action=save_del'"></td>
                            </tr>
                         </form>
                      </table>
                      <br>
                      <table width="100%" align="center">
                         <tr>
                            <%
                              set rs=server.CreateObject("adodb.recordset")
                                  rs.Open "select top 12 * from shop_ggpic order by picaddate desc",conn,1,1
                                  
                                  do while not rs.eof
                                     i=i+1
                            %>

                             <td bgcolor="#ffffff">
                             <table width="100%" bgcolor="#666666" border="0"  cellspacing="0" cellpadding="0">
                                <tr>
                                    <td align="center"><img src=../guanggao/ggpic01/<%=trim(rs("ggpicname"))%> width=100 height=40 border=0></td>
                                </tr>
                                <tr>
                                    <td bgcolor="#ffffff" align="center"><%=trim(rs("ggpicname"))%></td>
                                </tr> 
                             </table>
                            <%
                              if (i mod 6=0) and i>=6 then
                            %>
                                 <tr>
                                    <td colspan=4 height=5 ></td>
                                 </tr>
                           <%
                             end if 
                             rs.movenext
                             if i>11 then exit do
                             loop
                           %>
                        </tr> 
                    </table> 
                    <br>   
                 </tr>
             </table> 
         
         </tr>
     </table>  

<%end select%>

           </tr>
       </table>  
 
   </tr>
</table>

</body>
</html>