<% startime=timer() set conn=server.CreateObject("adodb.connection") DBPath = Server.MapPath("admin.mdb") conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath function CloseDB Conn.Close set Conn=Nothing End Function const ProgramCName="封在瓶子里的心情日记" const ProgramEName="JR Diary" const ProgramVer="020201" %> <% USRName= "十月" '用户名称 LogName= "十月" '用于登陆和管理的 用户名称 LogPWD= "798324" '用于登陆和管理的 用户密码 ProgramOpen= "True" '设置程序是否对外开放 | True 为开放 ; False其他为不开放 | POPWrite= "False" '无需登陆就可以签写日记 | True 为开放 ; False其他为不开放 | ShowTopic="10" '每页显示数目 %> <% IF POPWrite<>"True" Then IF Session("PROADMIN")<>True Then Response.Redirect "Login.asp" Response.End End IF End IF IF Request("POST")<>"" Then Call WriteData End IF function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") HTMLcode = fString end if end function Function WriteData IF Request("content")="" or Request("content")="请填写日记内容" Then Response.Write "请填写日记内容" Else Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "Select * From diary" Rs.Open Sql,conn,1,3 Rs.AddNew Rs("title")=Request("title") Rs("content")=HTMLcode(Request("content")) Rs("weather")=Request("weather") Rs("date")=year(now)&"-"&month(now)&"-"&day(now) Rs.Update Rs.Close Set Rs=Nothing Call CloseDB Response.Redirect "Default.asp" End IF End Function %> 签写日记 --> .:::..心情日记..::....::::


签写日记 [返回首页 <%=USRName%> 的心情日记]
□标题: | 今日天气:  <%=year(now)&"-"&month(now)&"-"&day(now)%>
 

.::.::: 封在瓶子里的的心情日记 :::.::.