get_ad_setting_schedule.asp

来自「动力商业广告Sql版本全方位的WEB开发学习应用交流共享服务」· ASP 代码 · 共 32 行

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="../../inc/verify_user.inc" -->
<!--#include file="../../inc/conn.inc" -->

<%

Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText="get_ad_setting_schedule"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@userid",3)
cmd.Parameters.Append cmd.CreateParameter("@ad_id",3)
cmd.Parameters.Append cmd.CreateParameter("@schedule_type",16)
cmd.Parameters.Append cmd.CreateParameter("@schedule_date",135)


cmd("@userid")=session("userid")
cmd("@ad_id")=clng(request("ad_id"))
cmd("@schedule_type")=cint(request("schedule_type"))
cmd("@schedule_date")=cdate(request("start_year") + "-" + request("start_month") + "-" + request("start_day") + " " + request("start_hour") + ":00")

cmd.execute


set cmd=nothing
conn.close
set conn=nothing


response.redirect "ad_setting_summary.asp?group_id=" & request("group_id")
%>