|
<%
dim c_title,dcolor,dbgcolor1,dcu,dlei,c_content,dstop,dtop,sql,rs
c_title=HtmlEncode(trim(request.form("c_title")))
'dcolor=HtmlEncode(trim(request.form("dcolor")))
'dbgcolor1=HtmlEncode(trim(request.form("dbgcolor1")))
dcu=HtmlEncode(trim(request.form("dcu")))
dlei=HtmlEncode(trim(request.form("dlei")))
c_content=HtmlEncode2(request.form("c_content"))
dstop=dateadd("d",request.form("dstop"),date())
sql="select * from data"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if c_title<>"" then
rs.addnew
rs("title")=c_title
rs("color")=dcolor
rs("bgcolor1")=dbgcolor1
rs("cu")=dcu
rs("type")=dlei
rs("text")=c_content
rs("stop")=dstop
rs("mark")="yes"
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "regok.asp"
end if
%>
|