free_ad_save.asp

来自「一个完全仿照阿里巴巴的网站管理系统 本软件没有版权问题」· ASP 代码 · 共 57 行

<!--#include file="main.asp"-->
<%
scatitle=request("scatitle")
sca=request("sca")
scasort=request("scasort")
ypxxone_id=request("ypxxone_id")
ypxxtwo_id=request("ypxxtwo_id")
addone_id=request("addone_id")
addtwo_id=request("addtwo_id")

if addone_id="" then
addone_id=28
addtwo_id=31
else
if addtwo_id="" then
response.write"<script>alert('发布商机出错，下面是产生错误的可能原因：\n\n·如果您选择了发布省份，就必须选择地区');history.go(-1);</script>"
response.end
end if
end if


yp_id=0
key1=cityscafree
ldate=cint(cityscayx)
enrol=3

begindate=now()
lastdate=now()+ldate

set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_sca"
rs.open sql,conn,1,3
rs.addnew
rs("SMT_scatitle")=scatitle
rs("SMT_sca")=sca
rs("SMT_key1")=key1
rs("SMT_yp_id")=yp_id
rs("SMT_scasort")=scasort
rs("SMT_begindate")=begindate
rs("SMT_lastdate")=lastdate
rs("SMT_ypxxone_id")=ypxxone_id
rs("SMT_ypxxtwo_id")=ypxxtwo_id
rs("SMT_addone_id")=addone_id
rs("SMT_addtwo_id")=addtwo_id
rs("SMT_enrol")=enrol
rs.update
rs.close
set rs=nothing

if cityscafree=1 then
response.write"<script>alert('操作成功，谢谢您的参与');window.open('index.asp','_self')</script>"
response.end
elseif cityscafree=0 then
response.write"<script>alert('操作成功，请等待管理员的开通');window.open('index.asp','_self')</script>"
response.end
end if
%>