diary_insert_newliuyan.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本

function encodestr(str)
 dim i
 if IsNull(str) then exit function
 str=replace(str,"'","""")
 encodestr=replace(str,"  "," ")
end function

diary_HYname=Request("diary_HYname")
diary_liuYan_name=Request("diary_liuYan_name")
diary_liuYan_title=trim(Request("diary_liuYan_title"))
diary_liuYan_add=Request("diary_liuYan_add")
diary_liuYan_QQ=Request("diary_liuYan_QQ")
diary_liuYan_home=Request("diary_liuYan_home")
diary_liuYan_email=Request("diary_liuYan_email")
diary_liuYan_img=Request("diary_liuYan_img")
diary_liuYan_body=encodestr(Request("diary_liuYan_body"))
diary_liuYan_IP = Request.ServerVariables("REMOTE_ADDR")
diary_liuYan_guest=Request("diary_liuYan_guest")
diary_liuYan_hide=Request("diary_liuYan_hide")

set rs=server.CreateObject("ADODB.Recordset")
  SQL="select * from diary_liuYan"
  rs.open SQL,conn,3,3
  rs.addnew
    rs("diary_HYname")=diary_HYname
	rs("diary_liuYan_name")=diary_liuYan_name
	rs("diary_liuYan_title")=diary_liuYan_title
	rs("diary_liuYan_add")=diary_liuYan_add
	rs("diary_liuYan_QQ")=diary_liuYan_QQ
	rs("diary_liuYan_home")=diary_liuYan_home
	rs("diary_liuYan_email")=diary_liuYan_email
	rs("diary_liuYan_img")=diary_liuYan_img
	rs("diary_liuYan_body")=diary_liuYan_body
	rs("diary_liuYan_IP")=diary_liuYan_IP
	rs("diary_liuYan_guest")=diary_liuYan_guest
	rs("diary_liuYan_hide")=diary_liuYan_hide
	rs.update
    Response.Write("insert_diary=1")
	rs.close
    set rs=Nothing
    CloseDataConn()
%>