|
|
<%
If Request.QueryString("step")="submit" Then
Set objUpload=Server.CreateObject("ChinaASP.Upload")
Set f=objUpload.Files("bannername")
fileext=getFileExtName(f.Filename)
If objUpload.Form("ihave")=0 Then
strmax="select Max(bannerid) as themax from banner"
set rsmax=Conn.Execute(strmax)
if isnull(rsmax("themax")) then max=1 else max=rsmax("themax")+1
strInsert1="insert into banner (bannerid,imagetype,displaytimeid,requirecount,userid,linkurl,orderdate,isconfirmed"
strInsert2="values ("&max
strInsert2=strInsert2 &",'"&fileext&"'"
strInsert2=strInsert2 &","&objUpload.Form("displaytimeid")
strInsert2=strInsert2 &","&objUpload.Form("requirecount")
strInsert2=strInsert2 &","&Session("userid")
strInsert2=strInsert2 &",'"&objUpload.Form("linkurl")&"'"
strInsert2=strInsert2 &",'"&Cstr(Formatdatetime(date,1))&"'"
strInsert2=strInsert2 &",0"
If objUpload.Form("description") <> "" Then
strInsert1=strInsert1 &",description"
strInsert2=strInsert2 &",'"&objUpload.Form("description")&"'"
End If
strInsert=strInsert1 &")" & strInsert2 &")"
objUpload.Files("bannername").SaveAs(ImgFolder() & "\" & max &"."&Fileext)
Else
strmax="select Max(adid) as themax from advertisement"
set rsmax=Conn.Execute(strmax)
if isnull(rsmax("themax")) then max=1 else max=rsmax("themax")+1
strInsert1="insert into advertisement (adid,displaytimeid,requirecount,userid,linkurl,requirement,orderdate,isconfirmed"
strInsert2=strInsert2 & "values ("&max
strInsert2=strInsert2 &","&objUpload.Form("displaytimeid")
strInsert2=strInsert2 &","&objUpload.Form("requirecount")
strInsert2=strInsert2 &","&Session("userid")
strInsert2=strInsert2 &",'"&objUpload.Form("linkurl")&"'"
strInsert2=strInsert2 &",'"&objUpload.Form("requirement")&"'"
strInsert2=strInsert2 &",'"&Cstr(Formatdatetime(date,1))&"'"
strInsert2=strInsert2 &",0"
If objUpload.Form("description") <> "" Then
strInsert1=strInsert1 &",description"
strInsert2=strInsert2 &",'"&objUpload.Form("description")&"'"
End If
strInsert=strInsert1 &")" & strInsert2 &")"
End If
Set rsInsert=Conn.Execute(strInsert)
strsql1="select userid from advertisement where userid="&session("userid")
set rssql1=Conn.Execute(strsql1)
strsql2="select userid from banner where userid="&session("userid")
set rssql2=Conn.Execute(strsql2)
if (rssql1.eof) and (rssql2.eof) then
strInsert="insert into userservice (userid,service) values ("&Session("userid")&",2)"
Conn.Execute(strInsert)
end if
%>广告定单提交成功！<%
End If
%>
<%
Conn.close
set Conn = nothing
%>
|
