playbilladd.asp

超炫电台程序开发了两个版本了

<!--#include file="../Connections/dns.asp" -->
<%
playbill=request("playbill")
pbdate=request("pbdate")
njname=request("njname")
yg=request("yg")

if yg="星期日" then
pbtime=date()
end if 
if yg="星期一" then
pbtime=date() + 1
end if 
if yg="星期二" then
pbtime=date() + 2
end if
if yg="星期三" then
pbtime=date() + 3
end if
if yg="星期四" then
pbtime=date() + 4
end if
if yg="星期五" then
pbtime=date() + 5
end if
if yg="星期六" then
pbtime=date() + 6
end if

sql = "insert into playbill (pbdate, playbill , njname , yg , pbtime) values("
sql = sql & "'" & pbdate & "', "
sql = sql & "'" & playbill & "', "
sql = sql & "'" & njname & "', "
sql = sql & "'" & yg & "', "
sql = sql & "#" & pbtime & "#)"
rs.open sql,conn,1,3


Response.Redirect "playbill.asp"
%>