mydirly.asp

宁波娱乐在线城市,丰富的内容版块

     <legend>浏览 <%=rs("linkbox")%> 月日记|<a target="_self" href="mydirly.asp?menu=alladd">返回总列表</a></legend><br>          
<table width="600" border="0" cellspacing="0" cellpadding="0" height="22">
  <tr align="center"> 
    <td width="116" background="../images/tableheadbg.gif"><b><a href=?menu=addlink&id=<%=request("id")%>>添加日记</a></b></td>
    <td width="484" align=right valign="bottom" background="../images/tableheadbg.gif">
<%

 %>    
    日记的位置是>> <%=rs("intro")%> 年>> <%=rs("linkbox")%> 月
<%
rs.close
%>
<SCRIPT>

var mydate=new Date()

var year=mydate.getYear()

if (year < 1000)

year+=1900

var day=mydate.getDay()

var month=mydate.getMonth()+1

if (month<10)

month="0"+month

var daym=mydate.getDate()

if (daym<10)

daym="0"+daym

document.write("<font color='red' face='Arial'> （今天是 "+year+"年"+month+"月"+daym+"日）</font>")

        </SCRIPT></td>
  </tr>
</table>

<table width="600" border="0" cellspacing="0" cellpadding="0" height="21" style="FONT-SIZE: 9pt">
<td width="80" height="1" align="center" bgcolor="#000000"><font color="#FFFF00">日期</font></td>
        <td width="400" height="1" align="center" bgcolor="#000000"><font color="#FFFF00">标题</font></td>

    <td height="1" width="70" bgcolor="#000000" align="center"><font color="#FFFF00">相关操作</font></td>
  </tr>
</table>


<%


rs.Open "select * from mydirly where username='"&username&"' and fileboxid="&request("id")&"",Conn,1,3
if rs.eof then
Response.Write "您现在没有添加日记!"
end if
while not rs.eof
%>
<table width="600" border="1" cellspacing="0" cellpadding="0" height="20" bgcolor="#FFFFFF" style="FONT-SIZE: 9pt; border-collapse:collapse">
  <tr align="center"> 
    <td width="80" bgcolor="#cccccc"><%=rs("linkname")%>号</td>
    <td width="400" bgcolor="#cccccc" align="left">&nbsp;&nbsp;<a target="_blank" href=mydirlylook.asp?menu=looklinkadd&id=<%=rs("fileboxid")%>&dirlyid=<%=rs("id")%> alt="浏览日记"><%=rs("link")%></a></td>
    <td width="34" bgcolor="#cccccc"><a href="?menu=changelink&id=<%=rs("fileboxid")%>&linkid=<%=rs("id")%>">
    <font color="red">编辑</font></a></td>
    <td width="35" bgcolor="#cccccc"><a onclick=checkclick('您确定要删除?') href="?menu=dellink&id=<%=rs("fileboxid")%>&linkid=<%=rs("id")%>">
    <font color="red">删除</font></a></td>
  </tr>
</table>



<%
rs.movenext
wend
rs.close
%><br>

</fieldset><font color="#000000">
<%
end sub

sub addlink
boxid=Request("boxid")
rs.Open "select * from mydirlybox where id="&request("id")&"",Conn,1,3
 %>
 
     <fieldset style="WIDTH: 650">
     <legend>添加日记|<a target="_self" href="mydirly.asp?menu=alladd">返回总列表</a></legend><br>          

<table width="600" border="0" cellspacing="10" cellpadding="0" height="212">
  <tr>
    <td valign="top"> 
<font color=red>日记添加到 >> <%=rs("intro")%> 年 >> <%=rs("linkbox")%> 月
<%
rs.close
%> （请选择日记日期是本月几号）</font><br>

<form  method="post" name=form action="?menu=addlinkok&id=<%=request("id")%>">
日期：<select  name=linkname size="1">  
<option value=1>必选</option> 
<option value=1>1</option> 
<option value=2>2</option> 
<option value=3>3</option> 
<option value=4>4</option> 
<option value=5>5</option> 
<option value=6>6</option> 
<option value=7>7</option> 
<option value=8>8</option> 
<option value=9>9</option> 
<option value=10>10</option> 
<option value=11>11</option> 
<option value=12>12</option> 
<option value=13>13</option> 
<option value=14>14</option> 
<option value=15>15</option> 
<option value=16>16</option> 
<option value=17>17</option> 
<option value=18>18</option> 
<option value=19>19</option> 
<option value=20>20</option> 
<option value=21>21</option> 
<option value=22>22</option> 
<option value=23>23</option> 
<option value=24>24</option> 
<option value=25>25</option> 
<option value=26>26</option> 
<option value=27>27</option> 
<option value=28>28</option> 
<option value=29>29</option> 
<option value=30>30</option> 
<option value=31>31</option> 
</select><font color="#FF0000">*</font> </font><SCRIPT>

var mydate=new Date()

var year=mydate.getYear()

if (year < 1000)

year+=1900

var day=mydate.getDay()

var month=mydate.getMonth()+1

if (month<10)

month="0"+month

var daym=mydate.getDate()

if (daym<10)

daym="0"+daym

document.write("<font color='red' face='Arial'>今天是 "+year+"年"+month+"月"+daym+"日（您这台电脑上的时间）</font>")

        </SCRIPT>

                <br>
        标题：<input type="text" name="link" size="71"><font color="#FF0000">*</font>
        <br></font><br><br>
       内容：(不超过<font color="red">10000</font>字，马上<A
href="javascript:CheckLength();"><font color="red">查看内容长度</font></A>)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <INPUT title="空格: [Alt] + S" accessKey=s onclick="javascript:emoticon('&nbsp;')" type=button value="我要空格 [Alt]+S " name=spl><INPUT title="换行: [Alt] + E" accessKey=e onclick="javascript:emoticon('<br>')" type=button value="回车换行 [Alt]+E" name=ent2><INPUT title="回车换行且空两格: [Alt] + R" accessKey=r onclick="javascript:emoticon('<br>&nbsp;&nbsp;')" type=button value=" 回车换行且空两格 " name=ent><br>
        &#63733;&#63733;&#63733;<textarea onkeydown=presskey();  name=beizu cols="70" rows="15"></textarea>
        <br>        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;        <input title="添加这篇日记: [Alt] + Q" accessKey=q type="submit" name="Submit" value="            添加这篇好不容易写好的日记 [Alt]+Q    ">
      </td>
  </tr>
</table>

</fieldset>
<%
end sub
sub changelink
rs.Open "select * from mydirlybox where id="&request("id")&"",Conn,1,3 
 %>
     <fieldset style="WIDTH: 650">
     <legend>修改日记|<a target="_self" href="mydirly.asp?menu=alladd">返回总列表</a></legend><br>          

<table width="600" border="0" cellspacing="10" cellpadding="0" height="212">
  <tr>
    <td valign="top"> 
您的位置是 >> <%=rs("intro")%> 年 >> <%=rs("linkbox")%> 月
<%
rs.close
%> <font color="red">（日记日期不选则不变）</font><br>       
 <%
 rs.Open "select * from mydirly where fileboxid="&request("id")&" and id="&request("linkid")&"",Conn,1,3
 %>
 
 
<form  method="post" name=form action="?menu=changelinkok&id=<%=rs("fileboxid")%>&linkid=<%=rs("id")%>"">
 日期：<select class=sy name=linkname> 
<option value="<%=rs("linkname")%>" selected><%=rs("linkname")%></option> 
<option value=1>1</option> 
<option value=2>2</option> 
<option value=3>3</option> 
<option value=4>4</option> 
<option value=5>5</option> 
<option value=6>6</option> 
<option value=7>7</option> 
<option value=8>8</option> 
<option value=9>9</option> 
<option value=10>10</option> 
<option value=11>11</option> 
<option value=12>12</option> 
<option value=13>13</option> 
<option value=14>14</option> 
<option value=15>15</option> 
<option value=16>16</option> 
<option value=17>17</option> 
<option value=18>18</option> 
<option value=19>19</option> 
<option value=20>20</option> 
<option value=21>21</option> 
<option value=22>22</option> 
<option value=23>23</option> 
<option value=24>24</option> 
<option value=25>25</option> 
<option value=26>26</option> 
<option value=27>27</option> 
<option value=28>28</option> 
<option value=29>29</option> 
<option value=30>30</option> 
<option value=31>31</option> 
</select><font color="#000000"><font color="#FF0000">*</font> </font>
当前日记日期是： <%=rs("linkname")%> 日，<SCRIPT>

var mydate=new Date()

var year=mydate.getYear()

if (year < 1000)

year+=1900

var day=mydate.getDay()

var month=mydate.getMonth()+1

if (month<10)

month="0"+month

var daym=mydate.getDate()

if (daym<10)

daym="0"+daym

document.write("<font color='red' face='Arial'>今天是 "+year+"年"+month+"月"+daym+"日（您这台电脑上的时间）</font>")

        </SCRIPT><br>
        标题：<input type="text" name="link" size="71" value="<%=rs("link")%>" ><font color="#FF0000">*</font>
        <br><br>
    
        内容：(不超过<font color="red">10000</font>字，马上<A
href="javascript:CheckLength();"><font color="red">查看内容长度</font></A>)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <INPUT title="空格: [Alt] + S" accessKey=s onclick="javascript:emoticon('&nbsp;')" type=button value="我要空格 [Alt]+S " name=spl><INPUT title="换行: [Alt] + E" accessKey=e onclick="javascript:emoticon('<br>')" type=button value="回车换行 [Alt]+E" name=ent2><INPUT title="回车换行且空两格: [Alt] + R" accessKey=r onclick="javascript:emoticon('<br>&nbsp;&nbsp;')" type=button value=" 回车换行且空两格 " name=ent><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
       <TEXTAREA onkeydown=presskey(); name="beizu" cols="70" rows="22"><%=rs("beizu")%></TEXTAREA>
        <br>        
        
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;        
        
        <input title="添加这篇日记: [Alt] + Q" accessKey=q type="submit" name="Submit" value="                  我要修改 [Alt]+Q               ">
      </td>
  </tr>
</table>


</fieldset>









<%
end sub

sub addboxok
rs.Open "select * from mydirlybox",Conn,1,3
rs.addnew
rs("username")=username
rs("linkbox")=request("linkbox")
rs("intro")=request("intro")
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub

sub addlinkok

if len(request("beizu"))>10000 then
error2("日记每篇不能超过10000字！")
end if
if request("link")="" then
error2("请您填写日记标题！")
end if
if request("linkname")="" then
error2("请您选择日期！")
end if
rs.Open "select * from mydirly",Conn,1,3
rs.addnew
rs("username")=username
rs("linkname")=request("linkname")
rs("link")=request("link")
rs("beizu")=request("beizu")
rs("fileboxid")=request("id")
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub



sub changeboxok
if request("intro")="" then
error2("请您选择年份！")
end if
if request("linkbox")="" then
error2("请您选择月份！")
end if
rs.Open "select * from mydirlybox where id="&request("id")&"",Conn,1,3

rs("linkbox")=request("linkbox")
rs("intro")=request("intro")
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub

sub changelinkok
if len(request("beizu"))>10000 then
error2("日记的字数不能大于10000！")
end if
if request("beizu")="" then
error2("您忘记写日记内容了！")
end if

if request("link")="" then
error2("请您填写标题！")
end if
rs.Open "select * from mydirly where fileboxid="&request("id")&" and id="&request("linkid")&"",Conn,1,3

rs("linkname")=request("linkname")
rs("link")=request("link")
rs("beizu")=request("beizu")
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub

sub delbox
rs1.Open "select * from mydirly where fileboxid="&request("id")&"",Conn,1,3
if not rs1.eof then
error2("在您删除该月份日记前，请先删除该月份里的日记！")
end if
rs1.close
 
rs.Open "select * from mydirlybox where id="&request("id")&"",Conn,1,3
rs.delete
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub
sub dellink

rs.Open "select * from mydirly where fileboxid="&request("id")&" and id="&request("linkid")&"",Conn,1,3
rs.delete
rs.update
rs.close
Response.Redirect "?menu=alladd"
end sub
%>
<br><br>

    </font>

</td>
</tr>
</table>
<%

htmlend

%>