admin_admodify.asp

庐江二中

<%PageName="admin_AdMana"%>
<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<%
id=request("id")

sql="select * from ad where id="&id
rs.open sql,conn,1,1
if rs.eof then
errmsg=errmsg+"<li>操作错误！请联系管理员"
call error()
Response.end
else
AdName=rs("AdName")
AdUrl=rs("AdUrl")
AdIntro=rs("AdIntro")
AdPic=rs("AdPic")
AdAdd=rs("AdAdd")
Adwidth=rs("Adwidth")
Adheight=rs("Adheight")
if AdAdd="" then AdAdd=null
IsFlash=rs("IsFlash")
end if
rs.close
%><br>
<table border="1" width="98%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
<tr>
<td align=center valign=top>
        <table border="1" width="100%" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
          <form method="POST" action="admin_AdSave.asp?id=<%=id%>">
            <tr> 
              <td width="100%" height="20" colspan=2 bgcolor="<%=MainTColor%>" align=center background="images/admin/b3.gif"><b>修 
                改 广 告</b></td>
            </tr>
            <tr> 
              <td width="15%" align="right">名称：</td>
              <td width="85%"> 
                <input type="text" name="AdName" value="<%=AdName%>" size="20">
              </td>
            </tr>
            <tr> 
              <td align="right">链接：</td>
              <td> 
                <input type="text" name="AdUrl" value="<%=AdUrl%>" size="50">
              </td>
            </tr>
            <tr> 
              <td align="right">图片地址：</td>
              <td> 
                <input type="text" name="AdPic" value="<%=AdPic%>" size="50">
              </td>
            </tr>
            <tr> 
              <td align="right">修改尺寸：</td>
              <td> &nbsp;宽： 
                <input type="text" name="Adwidth" value="<%=Adwidth%>" size="4" maxlength="4">
                高： 
                <input type="text" name="Adheight" value="<%=Adheight%>" size="4" maxlength="4">
                当都为0时则为原始大小，其中一个为0时则按比例大小 </td>
            </tr>
            <tr> 
              <td align="right">显示位置：</td>
              <td> 
                <input type="text" name="AdAdd" value="<%=AdAdd%>" size="20">
              </td>
            </tr>
            <tr> 
              <td align="right">是否为FLASH：</td>
              <td> 
                <input type="checkbox" name="IsFlash" <%if IsFlash=True then Response.Write "checked"%> value="<%=IsFlash%>">
              </td>
            </tr>
            <tr> 
              <td align="right">简介：</td>
              <td> 
                <TEXTAREA name="AdIntro" rows=5 cols="75"><%=AdIntro%></TEXTAREA>
              </td>
            </tr>
            <tr> 
              <td colspan=2 align=center> 
                <input type="hidden" value="edit" name="act">
                <input type="submit" value=" 修 改 " name="cmdok">
                &nbsp; 
                <input type="reset" value=" 清 除 "  name="cmdcancel">
              </td>
            </tr>
          </form>
        </table>
</td>
</tr>
</table>
<%set rs=nothing%>