www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/drumbeating/drumbeating_Update.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file="../web.config.asp"-->
<!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 name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>广告修改</title>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function form1_onsubmit()
{
if (document.form1.place.value=="")
{
window.alert("请输入广告位置");
return false;
}
}
// 修改编辑栏高度
function Textarea_Size(num,objname)
{
var obj=document.getElementById(objname)
if (parseInt(obj.rows)+num>=3) {
obj.rows = parseInt(obj.rows) + num;
}
if (num>0)
{
obj.width="90%";
}
}
</script>
</head>
<body id="bodyBg1">
<br />
<a href="drumbeating_Manage.asp">广告管理</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>广告管理</dt>
<dd>
<br />
<%
if (Request.Form("place") <> "") then
ID=Request.Form("ID")
AdvertName=Request.Form("AdvertName")
place=Request.Form("place")
ADType=Request.Form("ADType")
IsView=Request.Form("IsView")
ADCode=Request.Form("ADCode")
fwidth=Request.Form("width")
fheight=Request.Form("height")
fisSale=Request.Form("isSale")
fmoney=Request.Form("money")
fstartTime=Request.Form("startTime")
fendTime=Request.Form("endTime")
fuploadFiles=Request.Form("fuploadFiles")
forderID=Request.Form("forderID")
Set RsSiteADD=Server.CreateObject("Adodb.Recordset")
Sql="Select * from deep_Advertisement where fID=" & ID
RsSiteADD.open Sql,conn,3,2
RsSiteADD("fadvertName")=AdvertName
RsSiteADD("fplace")=place
RsSiteADD("fADType")=ADType
RsSiteADD("fisView")=IsView
RsSiteADD("fADCode")=ADCode
RsSiteADD("fwidth")=fwidth
RsSiteADD("fheight")=fheight
RsSiteADD("fisSale")=fisSale
RsSiteADD("fmoney")=fmoney
RsSiteADD("fstartTime")=fstartTime
RsSiteADD("fendTime")=fendTime
RsSiteADD("fuploadFiles")=fuploadFiles
RsSiteADD("forderID")=forderID
RsSiteADD.update
RsSiteADD.close
Set RsSiteADD=Nothing
Response.Write("<p align='center'>广告：["& AdvertName &"] 修改成功</p>")
else
ID = Request.QueryString("ID")
Set RsAdvertUpdate=Server.CreateObject("Adodb.Recordset")
Sql="Select * from deep_Advertisement where fID=" & ID
RsAdvertUpdate.open Sql,conn,0,1
%>
<form id="form1" name="form1" method="post" action="" onsubmit="return form1_onsubmit()">
<table width="95%" class="tableBoderForm">
<tr>
<td>广告位置：</td>
<td><input name="place" type="text" value="<%=RsAdvertUpdate("fplace")%>" size="50" /></td>
</tr>
<tr>
<td width="90">广告名称：</td>
<td><input name="AdvertName" type="text" value="<%=RsAdvertUpdate("fadvertName")%>" size="50" /></td>
</tr>
<tr>
<td>广告类型：</td>
<td><!--0程序代码 1图片 2flash 3弹窗 4浮动-->
<select name="ADType" id="ADType">
<option value="0" <%if RsAdvertUpdate("fADType")=0 then%>selected="selected"<%end if%> >程序代码</option>
<option value="1" <%if RsAdvertUpdate("fADType")=1 then%>selected="selected"<%end if%> >图片</option>
<option value="2" <%if RsAdvertUpdate("fADType")=2 then%>selected="selected"<%end if%> >flash</option>
<option value="3" <%if RsAdvertUpdate("fADType")=3 then%>selected="selected"<%end if%> >弹窗</option>
<option value="4" <%if RsAdvertUpdate("fADType")=4 then%>selected="selected"<%end if%> >浮动</option>
</select> </td>
</tr>
<tr>
<td>是否显示广告</td>
<td><input type="radio" name="IsView" id="IsView" value="1" <%if RsAdvertUpdate("fIsView")=1 then%>checked="checked"<%end if%> />显示
<input name="IsView" type="radio" id="IsView" value="0" <%if RsAdvertUpdate("fIsView")=0 then%>checked="checked"<%end if%> />未显示
</td>
</tr>
<tr>
<td>广告设置代码：</td>
<td>
<textarea name="ADCode" cols="80" rows="8" id="ADCode"><%=RsAdvertUpdate("fADCode")%></textarea><br />
<a href="javascript:Textarea_Size(-5,'ADCode')" title="减小编辑区" style="font-family:Wingdings;color:#00F; font-size:16px; text-decoration:none;">ñ</a>
<a href="javascript:Textarea_Size(5,'ADCode')" title="增高编辑区" style="font-family:Wingdings;color:#00F; font-size:16px; text-decoration:none;">ò</a></td>
</tr>
<tr>
<td>上传图片：</td>
<td><input name="fuploadFiles" type="text" value="<%=RsAdvertUpdate("fuploadFiles")%>" size="50" />
<iframe ID="UploadFiles" frameborder=0 scrolling=no width="600" height="25" src="../include/upload_form.asp?SavePath=<%=projectRootPath & site_upFilesDir%>drumbeating/&parentBackValue=form1.fuploadFiles&MaxSize=500&FileType=gif/jpg/png/bmp/swf&saveName=0"></iframe>
<!--
SavePath 上传文件的保存路径
parentBackValue 返回值所放入的form表单名
MaxSize 上传文件的最大尺寸
FileType 上传文件的文件类型 gif/jpg/png/bmp
'saveName 0：自动取无重复的服务器时间字符串为文件名 '1：自动取源文件名 '字符串：自定义的文件名，如"mypic.jpg"
-->
<br />
上传图片尺寸视网站效果自定，多个文件之间用“|”分隔 </td>
</tr>
<tr>
<td>尺寸：</td>
<td>宽：
<input type="text" name="width" id="width" value="<%=RsAdvertUpdate("fwidth")%>" />
高：
<input type="text" name="height" id="height" value="<%=RsAdvertUpdate("fheight")%>" /></td>
</tr>
<tr>
<td>是否已销售：</td>
<td><input type="radio" name="isSale" id="isSale" value="1" <%if RsAdvertUpdate("fisSale")=1 then%>checked="checked"<%end if%> />已销售
<input name="isSale" type="radio" id="isSale" value="0" <%if RsAdvertUpdate("fisSale")=0 then%>checked="checked"<%end if%> />
未销售 </td>
</tr>
<tr>
<td>广告价格：</td>
<td><input type="text" name="money" id="money" value="<%=RsAdvertUpdate("fmoney")%>" /></td>
</tr>
<tr>
<td>时间</td>
<td>开始时间
<input type="text" name="startTime" id="startTime" value="<%=RsAdvertUpdate("fstartTime")%>" />
结束时间
<input type="text" name="endTime" id="endTime" value="<%=RsAdvertUpdate("fendTime")%>" /></td>
</tr>
<tr>
<td>排序id：</td>
<td><input type="text" name="forderID" id="forderID" value="<%=RsAdvertUpdate("forderID")%>" /></td>
</tr>
<tr>
<td><input type="hidden" name="ID" value="<%=ID%>" /></td>
<td><input type="submit" name="Submit" value="提交" />
<input type="reset" name="Reset" value="重置" /></td>
</tr>
</table>
</form>
<%end if%>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%Call CloseConnDB()%>