lotterynew2.asp

来自「宁波娱乐在线城市,丰富的内容版块」· ASP 代码 · 共 40 行

<!--#include file="lotteryconn.asp"-->
<%
response.buffer=true

if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Response.Write("对不起，您不是管理员！")
        Response.End
end if

lotteryname=replace(trim(request.form("lotteryname")),"'","''")
lotterymoney=trim(request.form("lotterymoney"))
lotterycontent=replace(trim(request.form("lotterycontent")),"'","''")

if lotteryname="" then
  response.write "彩票名称非法！"
  response.end
end if

if lotterymoney="" then
  response.write "彩票金额非法！"
  response.end
end if

if IsNumeric(lotterymoney)=false then
  response.write "彩票金额非法！不是数字"
  response.end
end if

if lotterycontent="" then
  response.write "彩票简介空"
  response.end
end if

strsql="insert into lottery(lotteryname,lotterycontent,lotterymoney,lotteryclose,lotterystartdate) values('" & lotteryname & "','" & lotterycontent & "'," & clng(lotterymoney) & ",'0',#" & date & "#)"
response.write strsql
ltconn.execute strsql
ltconn.close
set ltconn=nothing
response.redirect "lotterymanage.asp"
%>