📄 mydirly.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<Script language="javascript">
window.resizeTo(screen.availWidth,screen.availHeight); 
</script>
<% 
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
		Response.Write("对不起，您不是社区用户，请先注册！")
        Response.End
end if%>

<!-- #include file="mydirdlysetup.asp" --> 
<%
username=Request.Cookies("NC")
%>
<script>function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}</script>
</head>
<body background="../images/bg.gif">

<title>我的日记本</title>
<SCRIPT>function HighlightAll(theField) {
var tempval=eval("document."+theField)
tempval.focus()
tempval.select()
therange=tempval.createTextRange()
therange.execCommand("Copy")}
function DoTitle(addTitle) {
var currentTitle = document.form.topic.value;
revisedTitle = currentTitle+addTitle;
document.form.topic.value=revisedTitle;
return; }
var MessageMax="10000";
var Override="";
function CheckLength(){
MessageLength=document.form.beizu.value.length;
message="";
if(MessageMax !=0) {
message="最大字符为 10000 字节";
}else{
messag ="";
}
alert(message+"\n您的内容已有 "+MessageLength+" 字节");
}function ValidateForm(){
usernameLength=document.form.username.value.length;
if(usernameLength<1){alert("请输入用户名称!");return false;}
userpassLength=document.form.userpass.value.length;
if(userpassLength<1){alert("请输入用户密码!");return false;}
topicLength=document.form.topic.value.length;
if(topicLength<2){alert("文章标题不能小于2个字符！");return false;}
MessageLength =document.form.beizu.value.length;
errors="";
if(MessageLength<2){
errors="文章内容不能小于2个字符！";
}
if(MessageMax !=0){
if(MessageLength > MessageMax){
errors="本论坛限制文章长度不得超过 "+MessageMax+" 字节\n目前您的文章字节: "+MessageLength;
}
}
if(errors != "" && Override == ""){
alert(errors);
return false;
}else{
document.form.submit1.disabled = true;
return true;
}

}
function emoticon(theSmilie){
document.form.beizu.value += theSmilie + ' ';
document.form.beizu.focus();
}
var i=0;
function presskey(eventobject){if(event.ctrlKey && window.event.keyCode==13){i++;if (i>1) {alert('帖子正在发出，请耐心等待！');return false;}this.document.form.submit();}}
function showadv(){
if (document.form.advshow.checked == true) {
adv.style.display = "";
}else{
adv.style.display = "none";
}
}
</SCRIPT>


<table width="700" border="0" cellspacing="0" cellpadding="0" height="352" align="center">


  
  <tr valign="top" align="center"> 
    <td colspan="2"> <br><br>

 <%
 menu=request("menu")
if menu="" then
menu="alladd"
end if
select case menu
case "alladd"
succtitle="查看文件夹"
alladd
case "looklinkadd"
succtitle="查看文件夹内容"
looklinkadd
case "addbox"
succtitle="添加文件夹!"
addbox
case "addboxok"
succtitle="成功创建文件夹!"
addboxok
case "addlink"
succtitle="添加日记!"
addlink
case "addlinkok"
succtitle="成功添加日记!"
addlinkok
case "changebox"
succtitle="修改文件夹"
changebox
case "changelink"
succtitle="修改日记"
changelink
case "changeboxok"
succtitle="成功修改文件夹"
changeboxok
case "changelinkok"
succtitle="成功修改日记"
changelinkok
case "delbox"
succtitle="删除文件夹"
delbox

case "dellink"
succtitle="删除日记"
dellink
case "daoru"
succtitle="导入文件夹"
daoru
case "looklinkadd"
succtitle="详细信息"
looklinkadd
case "lookadd"
succtitle="详细信息"
lookadd
end select
 sub alladd

 %>
     <fieldset style="WIDTH: 650">
     <legend>选择日记月份</legend><br>          
<table width="600" border="0" cellspacing="0" cellpadding="0" height="22">
  <tr align="center"> 
    <td width="156" background="../images/tableheadbg.gif"><a href=?menu=addbox><img border="0" src="images/dirly/iebox.gif"><font color="#21517B">我要添加月份</font></a></td>
    <td width="444" valign="bottom" align="right" background="../images/tableheadbg.gif"><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="19" style="FONT-SIZE: 9pt">
  <tr align="center"> 
    <td width="157" height="19" bgcolor="#000000"><font color="#FFFF00"><span lang="zh-cn">日记</span></font><span lang="zh-cn"><font color="#FFFF00">月份</font></span></td>
    <td width="347" height="19" bgcolor="#000000"><font color="#FFFF00"><span lang="zh-cn">日记</span></font><span lang="zh-cn"><font color="#FFFF00">年份</font></span></td>
    <td height="19" width="96" bgcolor="#000000"><font color="#FFFF00">相关操作</font></td>
  </tr>
</table>

<%


rs.Open "select * from mydirlybox where username='"&username&"'",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" style="FONT-SIZE: 9pt; border-collapse:collapse">

  <tr align="center"> 
    <td width="156" bgcolor="#cccccc"><a href=?menu=looklinkadd&id=<%=rs("id")%> alt="浏览该文件夹的详细信息"><%=rs("linkbox")%>月</a></td>
    <td width="345" bgcolor="#cccccc"><%=rs("intro")%>年</td>
    <td width="49" bgcolor="#cccccc"><a href="?menu=changebox&id=<%=rs("id")%>">
    <font color="red">编辑</font></a></td>
    <td width="46" bgcolor="#cccccc"><a onclick=checkclick('您确定要删除?') href="?menu=delbox&id=<%=rs("id")%>">
    <font color="red">删除</font></a></td>
  </tr>
</table>



<%
rs.movenext
wend

%><br><br>
<table width="600" border="0" cellspacing="0" cellpadding="0" height="20">
  <tr> 
    <td align="center">
    </td>
  </tr>
</table>
</fieldset>
<%
rs.close
end sub

sub addbox
 %>
<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"> 
      <form  method="post" action="?menu=addboxok">
        日记月份：<select class=sy name=linkbox> 
<option value=1>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> 
</select><font color="#FF0000">*</font>&nbsp;
                <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>
        日记年份：<select class=sy name=intro> 
<option value=2003>2003年</option> 
<option value=2002>2002年</option> 
<option value=2003>2003年</option> 
<option value=2004>2004年</option> 
<option value=2005>2005年</option> 
<option value=2006>2006年</option> 
<option value=2007>2007年</option> 
<option value=2008>2008年</option> 
<option value=2009>2009年</option> 
<option value=2010>2010年</option> 
<option value=2011>2011年</option> 
<option value=2012>2012年</option> 
<option value=2013>2013年</option> 
</select> <font color="#FF0000">*</font>
        <br></font><br>
        <input type="submit" name="Submit" value="      我要添加     ">
      </form>
    </td>
  </tr>
</table>

</fieldset>
<%

end sub

sub changebox
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"> 
      <form  method="post" action="?menu=changeboxok"&username=<%=rs("username")%>>
       日记月份：<select class=sy name=linkbox> 
<option value="<%=rs("linkbox")%>" selected><%=rs("linkbox")%></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> 
</select> <font color="#FF0000">*</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>
        日记年份：<select class=sy name=intro> 
<option value="<%=rs("intro")%>" selected><%=rs("intro")%></option> 
<option value=2002>2002</option> 
<option value=2003>2003</option> 
<option value=2004>2004</option> 
<option value=2005>2005</option> 
<option value=2006>2006</option> 
<option value=2007>2007</option> 
<option value=2008>2008</option> 
<option value=2009>2009</option> 
<option value=2010>2010</option> 
<option value=2011>2011</option> 
<option value=2012>2012</option> 
<option value=2013>2013</option> 
</select> <font color="#FF0000">*</font>
        <br><br>
        <input type="hidden" name="id" value="<%=rs("id")%>">
        <input type="submit" name="Submit" value="      我要修改     ">
      </form>
    </td>
  </tr>
</table>


</fieldset>
<%
end sub

sub looklinkadd

rs.Open "select * from mydirlybox where id="&request("id")&"",Conn,1,3  
 %>

     <fieldset style="WIDTH: 650">
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -