flashtime.aspx
来自「一个完整的办公自动化源码,免费提供给大家下载」· ASPX 代码 · 共 82 行
ASPX
82 行
<!--
刷新栏目的设置
-->
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<!--#include file="ckqx.aspx" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#CCCCCC">
<form runat="server">
<table width="549" height="24" border="0" cellpadding="0" cellspacing="0" background="../pic/002.png">
<tr>
<td><font color="#FFFFFF"><strong> 设置提示栏刷新频率----</strong>原刷新间隔时间(10)秒</font></td>
</tr>
</table>
<table width="549" height="400" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
<tr>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<div align="center">
<p> </p>
<p>刷新时间间隔
<asp:dropdownlist ID="ztime" runat="server">
<asp:listitem Value="err">……请选择……</asp:listitem>
<asp:listitem Value="10">10秒</asp:listitem>
<asp:listitem Value="30">30秒钟</asp:listitem>
<asp:listitem Value="60">1分钟</asp:listitem>
<asp:listitem Value="300">5分钟</asp:listitem>
<asp:listitem Value="900">15分钟</asp:listitem>
<asp:listitem Value="1800">30分钟</asp:listitem>
<asp:listitem Value="3600">1小时</asp:listitem>
</asp:dropdownlist>
</p>
<p><font color="#FF0000">（注意，如服务器负荷过重，请相应加大刷新时间间隔 ）</font></p>
<p><font color="#FF0000">（小于15分钟<font color="#0000CC">[900秒]</font>可保持在窗口在开启状态下不出现登录超时间）</font></p>
<p>
<asp:button ID="zsave" runat="server" Text="设定" OnClick="zscsave" />
</p>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<asp:label runat="server" ID="msg" visible="false">
<script language="JavaScript" type="text/javascript">
alert("系统设置成功完成！")
window.location="administrator.aspx"
</script>
</asp:label>
</form>
</body>
</html>
<script language="vb" runat="server">
sub page_load(s as object,e as eventargs)
if not (checkqx("a")) then response.redirect("error.aspx")
end sub
sub zscsave(s as object,e as eventargs)
dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../office.mdb"))
conn.open()
dim objcmd as new oledbcommand()
objcmd.connection=conn
objcmd.commandtext="update sysinf set timeZ=" & ztime.selecteditem.value
'objcmd.parameters.add("@time",oledbtype.char).value=ztime.selecteditem.value
objcmd.executenonquery()
conn.close()
msg.visible=true
end sub
</script>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?