📄 index.asp
字号:
<!--#include file="lmdb2.asp"-->
<%
if request("action")="del" then
set rs=Server.CreateObject("ADODB.Recordset")
sql="delete * from jishi where id="&request("id")
rs.open sql,conn,1,3
set rs=nothing
Response.write"<script>alert('该事件删除成功。');location.href='index.asp'</script>"
Response.end
end if
if request("action")="ok" then
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from jishi where id="&request("id")
rs.open sql,conn,1,3
rs("ok")=true
rs.update
set rs=nothing
Response.write"<script>alert('事件状态修改成功。');location.href='index.asp'</script>"
Response.end
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>简易记事本V1.0 - 作者浪心 QQ87483804</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
body,td,th {
font-size: 12px;
}
textarea,input,select { font-family: Tahoma, Verdana; font-size: 8pt; color: #000000; font-weight: normal; background-color: #F8F8F8 }
a:link {
color: #006699;
}
a:visited {
color: #330099;
}
a:hover {
color: #FF0000;
}
.STYLE2 {color: #FF0000}
.STYLE3 {color: #0000FF}
.STYLE4 {color: #999999}
.STYLE6 {color: #FF0000; font-weight: bold; }
-->
</style>
<script language="javascript">
function checkform(){
if(document.form1.ovtime.value ==""){
alert("请输入到期时间");
return false;
}
var v = DoProcess();
if(v != true){
alert("请输入内容");
return false;
}
}
</script>
</head>
<body>
<link rel="stylesheet" type="text/css" href="editor/comm.css" />
<script language="javascript" src="editor/all.js"></script>
<script language="javascript" src="editor/editor.js"></script>
<script language="javascript" src="editor/editor_toolbar.js"></script>
<table width="800" border="0" align="center" cellpadding="10" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#99CCCC"><a href="?action=add">添加记录</a> | <a href="index.asp">查看记录</a></td>
</tr>
<%select Case Request("action")%>
<%
case "add"
if request("action2")="addsave" then
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from jishi"
rs.open sql,conn,1,3
rs.addnew
rs("edtime")=date()
rs("ovtime")=Request("ovtime")
rs("ji")=Request("ji")
rs("url")=Request("url")
rs("content")=Request("content")
rs.update
rs.close
set rs=nothing
Response.write"<script>alert('新事件已经添加。');location.href='index.asp'</script>"
Response.end
end if
%>
<tr>
<td bgcolor="#EEEEEE" class="STYLE3">添加新事件</td>
</tr>
<form name="form1" method="post" action="?action=add&action2=addsave" onSubmit="return checkform();">
<tr>
<td bgcolor="#FFFFFF"><span class="STYLE2">完成</span>期限：
<input name="ovtime" type="text" id="ovtime" value="<%=date()%>" size="30">
<span class="STYLE4">开始时间，默认为当天 </span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">事件状态：
<select name="ji" id="ji">
<option value="紧急">紧急</option>
<option value="急">急</option>
<option value="普通" selected>普通</option>
</select> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF">事件地址：
<input name="url" type="text" id="url" size="50"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">事件说明：<span id="editor_toolbar_btn_container" style="margin:0 0 0 10px"></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><textarea id="content" name="content" style="display:none;"></textarea>
<script language="javascript">
gContentId = "content";//要载入内容的content ID
OutputEditorLoading();
</script>
<iframe id="HtmlEditor" class="editor_frame" frameborder="0" marginheight="0" marginwidth="0" style="width:99%;height:200px;overflow:visible;" hideFocus></iframe></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit" value=" 增加新事件 "></td>
</tr>
</form>
<%case ""
set rs = Server.CreateObject("ADODB.Recordset")
if request("list")="" then
sql="select * from jishi order by id"
elseif request("list")="true" then
sql="select * from jishi where ok=true order by id"
elseif request("list")="false" then
sql="select * from jishi where ok=false order by id"
end if
rs.open sql,conn,1,1
%>
<tr>
<td bgcolor="#EEEEEE"><a href="?list=false" class="STYLE2">未完成事件</a> | <a href="?list=true">已完成事件</a> | <a href="index.asp">所有事件</a></td>
</tr>
<%rs.pagesize=15
rs.absolutepage=1
if request("page")<>"" then rs.absolutepage=request("page")
psize=rs.pagesize
pcount=rs.recordcount
page=request("page")
if page="" or page<1 then
page=1
end if
rcount=1
do while not rs.eof and psize>0%>
<tr>
<td bgcolor="#FFFFFF"><p><strong>系统编号</strong>：<span class="STYLE6"><%=rs("id")%></span> <strong>处理情况</strong>：
<%if rs("ok")=true then%>
<span class="STYLE3">已经处理</span>
<%else%>
<span class="STYLE6">未处理</span>
<%end if%>
<strong> 事件状态</strong>：<%if rs("ji")="紧急" then%><span class="STYLE6"><%elseif rs("ji")="急" then%><span class="STYLE2"><%else%><span class="STYLE3"><%end if%><%=rs("ji")%>
</span><br>
<br>
<strong>开始时间</strong>：<%=rs("edtime")%> <span class="STYLE3">—— </span><%=rs("ovtime")%> <strong>剩余时间</strong>：<span class="STYLE6"><%=rs("ovtime")-date%>天</span><br>
<br>
<strong>事件地址</strong>：<%=rs("url")%><br>
<br>
<strong>事件说明</strong>：<%=rs("content")%> <br>
<br>
<a href="?action=edit&id=<%=rs("id")%>">修改事件</a> | <a href="?action=ok&id=<%=rs("id")%>">更改处理状态</a> | <a href="?action=del&id=<%=rs("id")%>">删除事件</a></p> </td>
</tr>
<%
rs.movenext
rcount=rcount+1
psize=psize-1
loop
if page+1>rs.pagecount then
xia=page
elseif page+1<rs.pagecount then
xia=page+1
elseif page+1=rs.pagecount then
xia=rs.pagecount
end if
if page-1<0 or page-1=0 then
shang=page
else
shang=page-1
end if
li="list="&request("list")&""
%>
<tr>
<td bgcolor="#FFFFFF"><div align="center" class="P5"><a href="?l=editmail&<%=li%>&page=1">首页</a> <a href="?l=editmail&<%=li%>&page=<%=shang%>">上一页</a> <a href="?l=editmail&<%=li%>&page=<%=xia%>">下一页</a> <a href="?l=editmail&<%=li%>&page=<%=rs.pagecount%>">尾页</a> <%=rs.pagecount%>页 <%=rs.pagesize%>条页 <span class="STYLE2"><%=rs.recordcount%></span>条信息
</div></td>
</tr>
<%
case "edit"
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from jishi where id="&Request("id")
rs.open sql,conn,1,3
if request("action2")="editsave" then
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from jishi where id="&Request("id")
rs.open sql,conn,1,3
rs("ovtime")=Request("ovtime")
rs("url")=Request("url")
rs("ji")=Request("ji")
rs("content")=Request("content")
rs.update
set rs=nothing
Response.write"<script>alert('事件修改成功。');location.href='index.asp'</script>"
Response.end
end if
%>
<link rel="stylesheet" type="text/css" href="editor/comm.css" />
<script language="javascript" src="editor/all.js"></script>
<script language="javascript" src="editor/editor.js"></script>
<script language="javascript" src="editor/editor_toolbar.js"></script>
<form name="form1" method="post" action="?action=edit&action2=editsave&id=<%=rs("id")%>" onSubmit="return checkform();">
<tr>
<td bgcolor="#EEEEEE">修改事件--编号：<%=rs("id")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><span class="STYLE2">完成</span>期限：
<input name="ovtime" type="text" id="ovtime" value="<%=rs("ovtime")%>" size="30">
<span class="STYLE4">开始时间，默认为当天 </span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">事件状态：
<select name="ji" id="ji">
<option value="<%=rs("ji")%>" selected><%=rs("ji")%></option>
<option value="紧急">紧急</option>
<option value="急">急</option>
<option value="普通">普通</option>
</select></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">事件地址：
<input name="url" type="text" id="url" value="<%=rs("url")%>" size="50"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">事件说明：<span id="editor_toolbar_btn_container" style="margin:0 0 0 10px"></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><textarea id="content" name="content" style="display:none;"><%=rs("content")%></textarea>
<script language="javascript">
gContentId = "content";//要载入内容的content ID
OutputEditorLoading();
</script>
<iframe id="HtmlEditor" class="editor_frame" frameborder="0" marginheight="0" marginwidth="0" style="width:99%;height:200px;overflow:visible;" hideFocus></iframe></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit2" value=" 修改事件 "></td>
</tr>
</form>
<%End Select%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -