www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/ads_edit.asp
<!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
dim id,modify,title,url,se,time,top,weizhi
id=request("id")
if id="" then
response.write "参数丢失!"
Response.End
end if
modify=request("modify")
title=request("title")
url=request("url")
se=request("se")
time=request("time")
top=request("top")
weizhi=request("weizhi")
if modify="yes" then
if title="" or url="" then
response.write "<font color='red'>表单不完整!</font><br>"
else
set r=server.createobject("adodb.recordset")
r.open "select * from hymm_ads where id="&id,conn,1,3
if not r.eof then
r("id")=id
r("title")=title
r("url")=url
r("se")=se
r("time")=time
r("top")=top
r("weizhi")=weizhi
r.update
Response.Write "<script language=javascript>alert('广告信息修改成功！');this.location.href='admin_detail_ads.asp';</script>"
end if
r.close
set r=nothing
end if
end if
%>
<HTML>
<HEAD>
<TITLE>网站信息编辑</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</HEAD>
<BODY>
<form action="ads_edit.asp" method="get">
<%
set r=server.createobject("adodb.recordset")
r.open "select * from hymm_ads where id="&id,conn,1,3
if not r.eof then
%>
<table border="0" cellpadding="4" cellspacing="1" bgcolor="eeeeee">
<tr>
<td bgcolor="#FFFFFF">网站编号：</td>
<td bgcolor="#FFFFFF"><input name="x" value='<%=r("id")%>' disabled>
<input name="id" value='<%=r("id")%>' type='hidden'>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">广告名称：</td>
<td bgcolor="#FFFFFF"><input name="title" value='<%=r("title")%>'></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">广告URL：</td>
<td bgcolor="#FFFFFF"><input name="url" value='<%=r("url")%>'></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">广告套色：</td>
<td bgcolor="#FFFFFF"><input name="se" value='<%=r("se")%>'> 0=原色 1=蓝色 2=红色</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">广告位置：</td>
<td bgcolor="#FFFFFF"><input name="weizhi" value='<%=r("weizhi")%>'> 0=首页 1=内页</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">到期时间：</td>
<td bgcolor="#FFFFFF"><input name="time" value='<%=r("time")%>'> 设定广告时间(只能大于当前时间)，到期自动隐藏，格式：2010-2-12 23:59:59</td>
</tr>
<td bgcolor="#FFFFFF">广告排位：</td>
<td bgcolor="#FFFFFF"><input name="top" value='<%=r("top")%>'> 0-99,数字越大，排名越靠前</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF">
<input type="submit"> </td>
</tr>
</table>
<%
end if
r.close
set r=nothing
%>
<input name="modify" value="yes" type="hidden">
</form>
</BODY>
</HTML>