<% '检查用户权限 call checkuser("广告管理") %> <% '取指定ID的新闻出来编辑 if request.QueryString("id")<>"" then strSQL="select * From web_ad where id=" & Cint(request.QueryString("id")) set rs=server.CreateObject ("ADODB.Recordset") rs.open strSQL,conn,1,1 strTitle=trim(rs("a_name")) strContent=Server.HTMLEncode(trim(rs("a_content"))) rs.close else strTitle="" strContent="在此填写广告内容" end if HtmlEditContent = strContent EditorHeight = "90%" %> 广告编辑
::广告编辑
广告标题: (必填) ">