diary_insert.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

Function Html_Encode(str) '将字符串中的str中的HTML代码进行过滤
  If Trim(Str)="" Or IsNull(str) then 
   Html_Encode="" 
  else 
   'str=Replace(str,">","&gt;") 
   'str=Replace(str,"<","&lt;") 
   str=replace(str,"'","""")
   'str=Replace(str,Chr(32),"&nbsp;") 
   'str=Replace(str,Chr(9),"&nbsp;") 
   'str=Replace(str,Chr(34),"&quot;") 
   'str=Replace(str,Chr(39),"&#39;") 
   'str=Replace(str,Chr(13),"") 
   'str=Replace(str,Chr(10) & Chr(10), "</p><p>") 
   'str=Replace(str,Chr(10),"<br> ") 
   Html_Encode=str 
  end if
End Function 

HYname=Request("HYname")
title=trim(Request("title"))
body=Html_Encode(Request("body"))'将字符串中的str中的HTML代码进行过滤
date_book=Request("date_book")
week=Request("week")
weather=Request("weather")
ifPassword=Request("ifPassword")
ip=Request.ServerVariables("REMOTE_ADDR")
bg_sound=Request("bg_sound")

set rs=server.CreateObject("ADODB.Recordset")
  SQL="select * from diary"
  rs.open SQL,conn,3,3
  rs.addnew
    rs("HYname")=HYname
	rs("title")=title
	rs("body")=body
	rs("date_book")=date_book
	rs("week")=week
	rs("weather")=weather
	rs("ifPassword")=ifPassword
	rs("ip")=ip
	rs("bg_sound")=bg_sound
	rs.update
    Response.Write("insert_diary=1")
	rs.close
    set rs=Nothing
    CloseDataConn()

    'conn.execute "INSERT INTO diary (HYname, title, body, date_book, week, weather, ifPassword, ip, type_book) VALUES ('"&HYname&"','"&title&"','"&body&"','"&date_book&"','"&week&"','"&weather&"','"&ifPassword&"','"&IP&"','"&type_book&"')"
    'Response.Write("insert_diary=1")
    'CloseDataConn()
%>