📄 postdfghf.asp
字号:
<p> </p>
<p> </p>
<p> </p>
<%
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../adminlogin666.asp"
MM_grantAccess=false
If Session("MM_Usernamesyslogin") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<%dim c
c=request("c")
%>
<%
if c="" then
Response.Write("<script>alert(""请输入时限数!"");location=""javascript:history.back()"";</script>")
Response.End
end if
%>
<%if not isNumeric(c)=true then %>
<script language="javascript">
alert("时限数需为数字!");history.go(-1)
</script>
<%end if%>
<%if c<0 then %>
<script language="javascript">
alert("友情提醒:时限数需大于0");history.go(-1)
</script>
<%response.end()%>
<%end if%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT * FROM 日志管理时限"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
if not Recordset1.eof or not Recordset1.bof then
Recordset1("日志管理时限")=c
Recordset1.update
Recordset1_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%><br>
<script>
{
alert("日志管理时限提交成功!");window.location.href='shixiansdfgsdfg.asp'
}
</script>
<%else%>
<script language="javascript">
{
alert("很抱歉,数据不存在!");history.go(-1)
}
</script>
<%response.end()
end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -