www.gusucode.com > 梦想草根大联盟广告模块 build码程序 > dreamasp_unmaster/dreamasp_un_edit.asp

    <!--
梦想草跟大联盟 联盟模块
欢迎加入梦想草根大联盟 http://www.dreamasp.cn
我们将致力于为草根站长服务 给草根站长创收 让草根站长能够在这片空间中继续生存 发展
有你的加入 我们会更精彩 感谢您使用我们的程序
--><%
if not session("check")="checked" then
response.Redirect "login.asp"
else
%>
<!--#include file="dreamasp_conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from dreamasp_un where id="&request.QueryString("id")
rs.open sql,conn,1,3
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="images/css_body.css" type=text/css rel=stylesheet>
<title>黑闪网络管理系统</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style></head>

<body>
<DIV class=bodytitle>
<DIV class=bodytitleleft></DIV>
<DIV class=bodytitletxt><strong>修改广告</strong></DIV>
</DIV>
<TABLE class=tbtitle style="BACKGROUND: #cad9ea" cellSpacing=1 cellPadding=5 width="96%" align=center border=0>
  <TBODY><form id="form1" name="form1" method="post" action="?act=gm&id=<%=request.QueryString("id")%>">
  <TR>
    <TD vAlign=center width="7%" bgColor=#f5fafe>广告文字:</TD>
    <TD width="93%" valign="middle" bgColor=#ffffff><input name="webname" type="text" value="<%=rs("webname")%>" size="70" />
      </TD>
  </TR>
  <TR>
    <TD vAlign=center width="7%" bgColor=#f5fafe>广告连接:</TD>
    <TD width="93%" valign="middle" bgColor=#ffffff><input name="weburl" type="text" value="<%=rs("weburl")%>" size="70" />
      </TD>
  </TR>
  <TR>
    <TD vAlign=center width="7%" bgColor=#f5fafe>广告价格:</TD>
    <TD width="93%" valign="middle" bgColor=#ffffff><input name="money" type="text" value="<%=rs("money")%>" size="70" />
      元/月</TD>
  </TR>
  <TR>
    <TD vAlign=center width="7%" bgColor=#f5fafe>广告状态:</TD>
    <TD width="93%" valign="middle" bgColor=#ffffff><select name='zhuangtai' size='1'>
<option value='0'>投放中
<option value='1'>已结束
<option value='2'>投放失败
</select> 
    当前状态:<%	
tzhuangtai=rs("zhuangtai")		
if tzhuangtai="2" then
	%><a title="这个广告投放失败、可能是因为广告主测试投放但未付款终止了广告、测试时间不会超过1天."  style="COLOR: #FF0000">投放失败</a>
				  <%	
else
if tzhuangtai="0" then
	%><a title="这个广告正在会员网站正常投放">投放中</a><%	
else
	%><a title="广告款已转到您的会员帐户">已结束</a><%
end if
end if
	%>
      </TD>
  </TR>
    <TR>
    <TD vAlign=center width="7%" bgColor=#f5fafe>操作:</TD>
    <TD width="93%" valign="middle" bgColor=#ffffff><input type="submit" name="Submit" value="修改" />
  </TD>
  </TR>
</form></TBODY>
</TABLE>
<TABLE class=tbtitle style="BACKGROUND: #cad9ea" cellSpacing=1 cellPadding=5 width="96%" align=center border=0>
  <TR align="center" bgcolor="#f5fafe">
    <TD colspan="2">Copyright &copy; 2007-2009 All rights reserved.<A href="http://www.hscms.net.cn" target=_blank>成都黑闪网络科技有限公司</A></TD>
  </TR>
</TABLE>
<%
set rs1=server.createobject("adodb.recordset")
id=request.QueryString("id")
if request.QueryString("act")="gm" then
sql1="select * from dreamasp_un where id="&id
rs1.open sql1,conn,1,3
rs1("zhuangtai")=request.form("zhuangtai")
rs1("weburl")=request.form("weburl")
rs1("webname")=request.form("webname")
rs1("money")=request.form("money")
rs1.update
rs1.close
response.Redirect "dreamasp_un.asp"
end if
%>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
%>
<%
end if
%>