<!--#include file="../head.asp"-->
 <!--#include file="../checkrole.asp"-->
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">


<%

adname=TRIM(Request.Form("adname"))
adtype=TRIM(Request.Form("ADType"))
which_page=Request.Form("which_page")
adalt=TRIM(Request.Form("ADAlt"))
ADDate=(Request.Form("ADStopDate"))
ADNote=TRIM(Request.Form("ADNote"))
adlink=TRIM(Request.Form("adlink"))

if  ADDate<>"" then
Response.Write "<script>alert('对不起请填写完全！');</script>"
end if
set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from [Websen_corporation] where user='"&request("user")&"'"
rs1.open sql1,conn,1,3
mark=rs1("mark")
 rs1.close
set rs1=nothing

Dim rs,sql
'加入数据
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Websen_advertisement]"
rs.Open sql,conn,1,3
rs.AddNew 
rs("adname")=request.form("adname")
rs("ADheight")=request.form("ADheight")
rs("ADwidth")=request.form("ADwidth")
rs("user")=Request.form("user")
rs("ADType")=TRIM(Request.Form("ADtype"))
rs("which_page")=Request.Form("which_page")
rs("ADAlt")=TRIM(Request.Form("ADAlt"))
rs("ADStopDate")=(Request.Form("ADStopDate"))
rs("ADSrc")=(Request.Form("ADSrc"))
rs("ADNote")=TRIM(Request.Form("ADNote"))
rs("adlink")=TRIM(Request.Form("ADlink"))

rs.Update
rs.Close
set rs=nothing
Response.Write "<script>alert('提交成功，审核通过后，我们将在第一时间为您发布广告！');location='modify_mark.asp';</script>"

%>