<!--#include file="chklogin.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim ad,show_ad
ad=request.QueryString("ad")
show_ad="document.write('<img src="""&request.Form("ad_image")&""">');"&vbcrlf
show_ad=show_ad&"document.write('"&request.Form("ad_text")&"');"
if ad=1 then
Call BuildFile(Server.MapPath("../ad.js"),show_ad)
response.write "<script language=javascript>alert('修改广告成功!');history.go(-1);</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站广告设定</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FF9999"><br>
<br>
<br><br>
<br>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="1" class="tablebg">
  <tr align="center" bgcolor="#ff6666">
    <td height="26" colspan="2"><font color="#FFFFFF"><b>问题页面简单广告管理</b></font></td>
  </tr>
  <form action="ad.asp?ad=1" method="post">
  <tr bgcolor="#ff6666">
    <td width="100" height="40" align="center">图片广告地址：</td>
    <td>&nbsp;&nbsp;
      <input name="ad_image" type="text" id="ad_image" size="30">
    &nbsp;*&nbsp;请使用绝对路径</td>
  </tr>
  <tr bgcolor="#ff6666">
    <td height="97" align="center">文字广告内容：</td>
    <td>&nbsp;&nbsp;
      <textarea name="ad_text" cols="30" rows="5" id="ad_text"></textarea>
    &nbsp;*&nbsp;支持HTML标签</td>
  </tr>
  <tr align="center" bgcolor="#ff6666">
    <td height="28" colspan="2"><input type="submit" name="Submit" value="提交"></td>
  </tr>
  </form>
</table>
</body>
</html>
