writedatedo.asp

个人备忘系统一个不错的备忘软件.专供刚学ASP的人学习. 代码简单易懂 mymanage

<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
cmd="select * from riji"
rs.open cmd,conn,1,3
dim  title,neirong,password
title=request.Form("title")
neirong=request.Form("neirong")
password=request.Form("password")
times=now()
if title="" then
response.write("<script>alert('标题不能为空！');window.location.href('writedate.asp')</script>")
response.end
end if
if instr(title,"<br")>0 then
response.write("<script>alert('标题中有非法字符！');window.location.href('writedate.asp')</script>")
response.end
end if
if instr(title,"<image")>0 then
response.write("<script>alert('标题中有非法字符！');window.location.href('writedate.asp')</script>")
response.end
end if
if neirong="" then
response.write("<script>alert('内容不能为空！');window.location.href('writedate.asp')</script>")
response.end
end if
rs.addnew
rs("title")=title
rs("all")=neirong
rs("time")=times
if password<>"" then
rs("password")=password
end if
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("<script>alert('撰写日记成功！');window.location.href('writedate.asp')</script>")


%>