添加广告

<% Dim rs,sql,ShowErr ConnectionDatabase if Request.Form("AddAD")<> "" then Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from [ads] where ADID='"&DangerEncode(Request.Form("ADID"))&"'" rs.Open sql,conn,1,3 If not rs.eof Then Response.Write ("
") Response.end End iF rs.AddNew rs("ADID")=DangerEncode(Request.Form("ADID")) rs("ADType")=TRIM(Request.Form("ADType")) rs("ADSrc")=DangerEncode(Request.Form("ADSrc")) rs("ADCode")=DangerEncode(Request.Form("ADCode")) rs("ADHeight")=TRIM(Request.Form("ADHeight")) rs("ADWidth")=TRIM(Request.Form("ADWidth")) rs("ADLink")=DangerEncode(Request.Form("ADLink")) rs("ADAlt")=DangerEncode(Request.Form("ADAlt")) rs("ADStopViews")=TRIM(Request.Form("ADStopViews")) rs("ADStopHits")=TRIM(Request.Form("ADStopHits")) rs("ADStopDate")=TRIM(Request.Form("ADStopDate")) rs("ADNote")=TRIM(Request.Form("ADNote")) rs.Update rs.Close Call Actcms.ActErr("操作成功! 点击这里返回管理首页","") Response.end set rs=nothing conn.Close set conn=nothing end if Rem 过滤可能出错误的符号 Function DangerEncode(fString) If not isnull(fString) Then fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10), "") fString = replace(fString, "'", """") fString = Trim(fString) DangerEncode = fString End If End Function %>

广告管理----广告管理首页
首页 ┆ 广告列表 ┆添加广告 ┆

您现在的位置：广告设置 >> 添加广告
广告名称： | *不能重名
广告类型： |
广告地址： | 图片或FLASH地址？
广告地址： | script代码
广告规格： | ×
链接地址： |
提示文字： |
投放限制： | · · 显示·点击·日期？默认是半个月有效期
简单注释： | 备注不显示