📄 calendarlist.asp
字号:
<!--#include file="check.asp"-->
<!--#include file="checkpower.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<%
if Request.ServerVariables("Request_Method")="POST" then
if request("choosedel")="choosedel" then
j=request("checkbox").count
sql=request("checkbox")(1)
for i=2 to j
delid=request("checkbox")(i)
sql=sql&" or id="&delid
next
sql="delete from birthday where id="&sql
conn.execute(sql)
else
set rs=server.createobject("adodb.recordset")
sql="select * from birthday where id=1"
rs.open sql,conn,1,3
rs.addnew
rs("birdate")=request("birmonth")&request("birday")
rs("birthing")=request("thing")
rs.update
rs.close
set rs=nothing
end if
end if
%>
<html>
<head>
<title>日历管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="apply.js"></script>
<link rel="stylesheet" href="apply.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<%set rs=server.createobject("adodb.recordset")
sql="select * from birthday order by birdate"
rs.open sql,conn,1,1
%>
<table width="100%" cellpadding="0" cellspacing="0" align="center">
<tr>
<td valign="top" height="477" width="940">
<form name="form" method="post" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="50">
<tr>
<td align="center" class="title"> <img src="images/systemcalender.gif"></td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" height="26">
<tr height=1>
<td bgcolor="#A7BAE4" height="1" colspan="4"></td>
</tr>
<tr>
<td bgcolor="#D4DEF4" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="26">
<tr>
<td width="30">
<input type="hidden" name="choosedel">
</td>
<td width="160">目前共有<font class="picknum"><b><%=rs.recordcount %></b></font>个事件</td>
<td><a href="#" onClick="return checkaddcalendar()" class="aapply">添加信息</a>
<a href="#" onClick="return checkdelcalendar()" class="aapply">删 除</a>
<a href="javascript:gosystem()" class="aapply"> 返 回</a> </td>
</tr>
</table>
</td>
</tr>
<tr height=1>
<td bgcolor="#A7BAE4" height="1" colspan="4"></td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" align="center" cellpadding="0">
<tr align="center" bgcolor="#E7ECF7">
<td height="26" width="24%">时 间：</td>
<td height="26" width="57%">事 件：</td>
<td height="26" width="19%">删 除：</td>
</tr>
<%if rs.eof then %>
<tr height="1">
<td bgcolor="#ffffff" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr bgcolor="#F5FAFD" align="center">
<td height="26" colspan="4" class="f6wait">目前您还没有添加事件</td>
</tr>
<tr height="1">
<td bgColor="#D6E1F8" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<%
else
while not rs.eof
%>
<tr height="1">
<td bgcolor="#ffffff" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr align="center" bgcolor="#F5FAFD">
<td height="26" width="24%">
<%response.write left(rs("birdate"),2)&"月"&right(rs("birdate"),2)&"日"%>
</td>
<td height="26" width="57%"><%=rs("birthing")%></td>
<td height="26" width="19%">
<input type="checkbox" name="checkbox" value="<%=rs("id")%>">
</td>
</tr>
<tr height="1">
<td bgColor="#D6E1F8" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<%rs.movenext
wend
end if
%>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" height="26">
<tr height=1>
<td bgcolor="#A7BAE4" height="1" colspan="4"></td>
</tr>
<tr>
<td bgcolor="#D4DEF4" align="center">时 间：
<select name="birmonth">
<%for i=1 to 12
if len(i)=1 then i="0"&i
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
<font color="000000">月
<select name="birday">
<%for i=1 to 31
if len(i)=1 then i="0"&i
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
日 <b></b></font>事 件：
<input type="text" name="thing" size="20" maxlength="30">
</td>
</tr>
<tr height=1>
<td bgcolor="#A7BAE4" height="1" colspan="4"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<!--#include file="close.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -