📄 diary.asp
字号:
if drword="" or isnull(drword) then
found_err=found_err & "+日记的 <font class=red>内容</font> 是必需要的！请输入。<br>"
end if
if found_err<>"" then
response.write "<table class=table><tr><td align=center class=bg_td height=300>"&found_error(found_err,260)&"</td></tr></table>"
exit sub
end if
rs("weather")=drweather
rs("icon")=dricon
rs("topic")=drtopic
rs("word")=drword
rs("sampname")=drsampname
rs("diaryname")=diaryname
if drhidden="yes" then
rs("hidden")=true
else
rs("hidden")=false
end if
rs.update
rs.close
%>
<table class=table><tr class=bg_td><td align=center height=300>
！！<font class=red>你的日记已经成功保存</font>！！！<br><br>
<a href='diary.asp?action=mydiary'>返回我的日记本</a><br><br>
（系统将在<font class=red><%=dim_num(21)%></font>秒钟后自动返回）
<meta http-equiv='refresh' content='<%=dim_num(21)%>; url=diary.asp?action=mydiary'>
</td></tr></table>
</table>
<%
call val_chk_end(index_url)
exit sub
'-------保存日记--------------------------------------
end if
%>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr><td height=1 class=bg_frame colspan=3></td></tr>
<tr><td width=1 class=bg_frame></td><td>
<table border=0 cellspacing=1 cellpadding=2 width='100%' id=samp background=images/diary/image/back/<%response.write rs("sampname")%>.gif>
<form name=write_frm action='?action=edit&id=<%response.write rs("id")%>' method=post onsubmit="frm_submitonce(this)">
<input type=hidden name=chk value='yes'>
<%response.write val_code_num(index_url,1)%>
<tr height=30>
<td>今日天气：</td>
<td>
<img src=images/diary/image/1.gif border=0><input type=radio name=weather value=1 <%if rs("weather")=1 then%>checked<%end if%>>
<img src=images/diary/image/2.gif border=0><input type=radio name=weather value=2 <%if rs("weather")=2 then%>checked<%end if%>>
<img src=images/diary/image/3.gif border=0><input type=radio name=weather value=3 <%if rs("weather")=3 then%>checked<%end if%>>
<img src=images/diary/image/4.gif border=0><input type=radio name=weather value=4 <%if rs("weather")=4 then%>checked<%end if%>>
<img src=images/diary/image/5.gif border=0><input type=radio name=weather value=5 <%if rs("weather")=5 then%>checked<%end if%>>
</td>
</tr>
<tr height=30>
<td>日记主题：</td>
<td><input type=text name=wrtopic value="<%response.write rs("topic")%>" size=65 maxlength=50></td>
</tr>
<tr height=30>
<td>表情图标： </td>
<td colspan=2><%response.write jk_icon(rs("icon"))%></td>
</tr>
<tr height=100>
<td valign=top><br>日记内容：<br><br></td>
<td><textarea rows=6 name=wrword cols=65 maxlength=1000 title='按 Ctrl+Enter 可直接发送' onkeydown="javascript:frm_quicksubmit();"><%response.write rs("word")%></textarea></td>
</tr>
<tr height=25>
<td>日记作者：</td>
<td><input type=text name=diaryname value='<%response.write rs("diaryname")%>' size=20 maxlength=20></td>
</tr>
<tr height=25>
<td>签写日期：</td><td><%response.write joekoe_cms.time_type(rs("tim"),5)%></td>
</tr>
<tr height=30>
<td>日记背景：</td><td>
<input name="issamp" type="radio" id="issamp" onclick="set_showsamp()" value="1">零
<input name="sampname" type="radio" onclick="setsamp(this.value)" value="1" <%if rs("sampname")=1 then%>checked<%end if%>>一
<input name="sampname" type="radio" value="2" onclick="setsamp(this.value)" <%if rs("sampname")=2 then%>checked<%end if%>>二
<input name="sampname" type="radio" value="3" onclick="setsamp(this.value)" <%if rs("sampname")=3 then%>checked<%end if%>>三
<input name="sampname" type="radio" value="4" onclick="setsamp(this.value)" <%if rs("sampname")=4 then%>checked<%end if%>>四
<input name="sampname" type="radio" value="5" onclick="setsamp(this.value)" <%if rs("sampname")=5 then%>checked<%end if%>>五
<input name="sampname" type="radio" value="6" onclick="setsamp(this.value)" <%if rs("sampname")=6 then%>checked<%end if%>>六
<input name="sampname" type="radio" value="7" onclick="setsamp(this.value)" <%if rs("sampname")=7 then%>checked<%end if%>>七
<input name="sampname" type="radio" value="8" onclick="setsamp(this.value)" <%if rs("sampname")=8 then%>checked<%end if%>>八
</td></tr>
<tr height=30>
<td>是否公开：</td>
<td><input type=radio name=wrhidden value='no' <%if rs("hidden")=false then%>checked<%end if%> class=bg_td>私人<input type=radio name=wrhidden <%if rs("hidden")=true then%>checked<%end if%> value='yes' class=bg_td>公开<script language=javascript>document.write(redx);</script>选择公开后，此日记所有人可见，否则不可见。</td>
</tr>
<tr height=30><td colspan=3 align=center><input type=submit name=wsubmit value=' 可 以 发 送 啦 '> <input type=reset value=' 重 新 再 来 ' onclick="return reset()"></td></tr>
</table>
</td><td width=1 class=bg_frame></td></tr>
<tr><td height=1 class=bg_frame colspan=3></td></tr>
</table>
</td></tr>
</form>
<%
end sub
sub diary_mydiary()
if login_mode="" then call my_login() '未登陆不可申请
dim id,nname,topic,hidden,tim,weather
sql="select count(id) from diary where nname='"&login_username&"'"
set rs=joekoe_cms.exec(sql,1)
rssum=rs(0)
rs.close
if int(rssum)<1 then
call diary_write()
exit sub
end if
call format_pagecute()
sql="select top "&nummer*viewpage&" * from diary where nname='"&login_username&"' order by id desc"
call joekoe_cms.exec("",-1)
rs.open sql,conn,1,1
if int(viewpage)>1 then rs.move (viewpage-1)*nummer
if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
%>
<form name=sel_form action='?action=handle' method=post>
<tr align=center><td class=td>No.</td><td class=td>主题</td><td class=td>作者</td><td class=td>时间</td><td class=td>天气</td><td class=td>公开</td><td class=td colspan=2>操作</td></tr>
<%
for i=1 to nums
id=rs("id")
topic=rs("topic")
tim=rs("tim")
weather=rs("weather")
dim d_name
if rs("diaryname")<>"" then
d_name=rs("diaryname")
else
d_name=rs("nname")
end if
%>
<tr class=bg_td align=center><td><%response.write rssum-(i+(viewpage-1)*nummer)+1%></td>
<td align=left><a href=?action=show&id=<%response.write id%>><font alt='<%response.write joekoe_cms.code_html(topic,1,0)%>'><%response.write joekoe_cms.code_html(topic,1,8)%></font></a></td>
<td><%response.write d_name%></td>
<td><%response.write tim%></td>
<td><img src=images/diary/image/<%response.write weather%>.gif border=0></td>
<td><%if rs("hidden")=true then%><font color=blue><b alt=公开>√</b></font><%else%><font color=red><b alt=不公开>×</b></font><%end if%></td>
<td><a href=?action=edit&id=<%response.write id%> title=编缉此日记><img src=images/admin/edit.gif border=0></a></td><td><input type=checkbox name=sel_id value=<%response.write id%>></td>
</tr>
<%
rs.movenext
next
rs.close
%>
<tr class=bg_tds height=30><td colspan=4> 共有<font class=red><%response.write rssum%></font>条日记 页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font> 分页：<% response.write jk_pagecute(nummer,thepages,viewpage,"?action=mydiary&",5,"#ff0000") %></td>
<td colspan=3 align=center>
执行
<select name=sel_type size=1>
<option value='公开日记'>公开日记</option>
<option value='取消公开'>取消公开</option>
<option value='删除日记'>删除日记</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);">
</td><td align=center><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
</tr></form>
<%
call dowrite()
end sub
sub diary_main()
dim id,nname,topic,hidden,tim,weather
sql="select count(id) from diary where hidden=1"
set rs=joekoe_cms.exec(sql,1)
rssum=rs(0)
rs.close
if int(rssum)<1 then
call diary_write()
exit sub
end if
call format_pagecute()
sql="select top "&nummer*viewpage&" * from diary where hidden=1 order by id desc"
call joekoe_cms.exec("",-1)
rs.open sql,conn,1,1
if int(viewpage)>1 then rs.move (viewpage-1)*nummer
if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
%>
<tr align=center><td class=td>No.</td><td class=td>主题</td><td class=td>作者</td><td class=td>时间</td><td class=td>人气</td><td class=td>天气</td></tr>
<%
for i=1 to nums
id=rs("id")
topic=rs("topic")
tim=rs("tim")
weather=rs("weather")
dim d_name
if rs("diaryname")<>"" then
d_name=rs("diaryname")
else
d_name=rs("nname")
end if
%>
<tr class=bg_td align=center><td><%response.write rssum-(i+(viewpage-1)*nummer)+1%></td>
<td align=left><a href=?action=show&id=<%response.write id%>><font alt='<%response.write joekoe_cms.code_html(topic,1,0)%>'><%response.write joekoe_cms.code_html(topic,1,12)%></font></a></td>
<td><%response.write d_name%></td>
<td><%response.write tim%></td>
<td><%response.write rs("count")%></td>
<td><img src=images/diary/image/<%response.write weather%>.gif border=0></td></tr>
<%
rs.movenext
next
rs.close
%>
<tr class=bg_tds height=30><td colspan=6> 共有<font class=red><%response.write rssum%></font>条日记 页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font> 分页：<% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %></td></tr>
<%
end sub
sub diary_show()
dim e_id,a_id
e_id=clasky_string(request("e_id"))
if e_id<>"" then e_id=dateadd("d",e_id,"2003-1-1")
a_id=clasky_string(request("id"))
if a_id="" then
sql="select * from diary where tim like '%"&e_id&"%' and nname='"&login_username&"'"
else
sql="select * from diary where id="&a_id&""
end if
call joekoe_cms.exec("",-1)
rs.open sql,conn,1,1
if rs.eof then
%>
<tr><td class=td> 出错了！</td></tr>
<tr class=bg_tds><td align=center height=50><br><br>对不起，内容不存在！<br><br><a href=<%response.write trim(request.servervariables("http_referer"))%>>返回</a><br><br></td></tr>
<%
else
call joekoe_cms.exec("update diary set count=count+1 where id="&rs("id")&"",0)
dim d_name
if rs("diaryname")<>"" then
d_name=rs("diaryname")
else
d_name=rs("nname")
end if
%>
<tr><td class=td> <img border=0 src=images/small/m_.gif align=absmiddle> <%response.write tit%></td></tr>
<tr><td class=bg_tds>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr><td height=1 class=bg_frame colspan=3></td></tr>
<tr><td width=1 class=bg_frame></td><td>
<table border=0 valign=top cellspacing=1 cellpadding=2 width='100%' height=330 background=images/diary/image/back/<%response.write rs("sampname")%>.gif>
<tr height=30><td> <%= doweather(rs("weather")) %> <font color=#222222><%=joekoe_cms.time_type(rs("tim"),5)%> 星期<%= weeks(datepart("w",rs("tim"))) %></font><td></tr>
<tr height=30><td> <img src=images/icon/<%=rs("icon")%>.gif border=0> <b><%response.write rs("topic")%></b><td></tr>
<tr><td valign=top><hr height=1 width='90%' align=left><%response.write code_jk(rs("word"))%></td></tr>
<tr><td height=30><hr align=left height=1 width='90%'> 作者：<%response.write d_name%> 浏览：<%response.write rs("count")%></td></tr>
</table>
</td><td width=1 class=bg_frame></td>
<tr><td height=1 class=bg_frame colspan=3></td></tr></table>
</td></tr>
<tr><td align=right class=td>
<a class=h_td href='javascript:history.back(1)'>返回上页</a>
<a class=h_td href=?>日记首页</a> </td></tr>
<%
end if
rs.close
if login_mode<>"" then call dowrite()
end sub
sub dowrite()
'--------是否写过日记---------------------------------------
dim mydiary
mydiary=","
sql="select id,tim from diary where nname='"&login_username&"'"
call joekoe_cms.exec("",-1)
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
mydiary=mydiary&datediff("d","2003-1-1",rs("tim"))&","
rs.movenext
loop
end if
rs.close
Response.Write("<script language=""VBScript"">")
Response.Write("dodiary("""&mydiary&""")")
Response.Write("</script>")
'--------是否写过日记---------------------------------------
end sub
function weeks(w)
select case w
case 1 weeks="日"
case 2 weeks="一"
case 3 weeks="二"
case 4 weeks="三"
case 5 weeks="四"
case 6 weeks="五"
case 7 weeks="六"
end select
end function
function doweather(w)
select case w
case "1" doweather="<img src=images/diary/image/1.gif border=0> 多云"
case "2" doweather="<img src=images/diary/image/2.gif border=0> 阴天"
case "3" doweather="<img src=images/diary/image/3.gif border=0> 晴天"
case "4" doweather="<img src=images/diary/image/4.gif border=0> 雾"
case "5" doweather="<img src=images/diary/image/5.gif border=0> 雪"
end select
end function
sub huzhu_chk_handle()
dim sel_type,seltype
sel_type=trim(request.form("sel_type"))
select case sel_type
case "公开日记"
seltype="gkdiary"
case "取消公开"
seltype="qxdiary"
case "删除日记"
seltype="delete"
case else
sel_type=""
seltype=""
end select
if sel_type="" or seltype="" then
Response.Write "<script>"
Response.Write "alert('您在提交用户操作时出现非法的数据');"
Response.Write "</script>"
exit sub
end if
dim sel_id,hdim,hnum,id
sel_id=trim(request.form("sel_id"))
sel_id=replace(sel_id," ","")
hdim=split(sel_id,",")
hnum=ubound(hdim)
for i=0 to hnum
id=hdim(i)
if isnumeric(id) then
select case seltype
case "delete"
call joekoe_cms.exec("delete from diary where id="&id&"",0)
case "gkdiary"
sql="update diary set hidden=1 where id="&id
conn.execute(sql)
case "qxdiary"
sql="update diary set hidden=0 where id="&id
conn.execute(sql)
case else
end select
end if
next
erase hdim
Response.Write ("<tr><td align=left class=td> 成功信息</td></tr>")
Response.Write ("<tr><td align=center class=bg_td height=180>")
Response.Write ("已成功（"&sel_type&"）操作了"&(hnum+1)&"条"&tit_fir&"记录！<br><br>")
Response.Write ("<a href='"&trim(request.servervariables("http_referer"))&"'>返回上页</a>")
Response.Write (" <a href=?>日记首页</a></td></tr>")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -