📄 shoucaangtz.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<!--#include file="../../Connections/ifr/ifrasp.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="/index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" 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
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "年份"
If (Request("MM_EmptyValue") <> "") Then
Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT * FROM 表1 WHERE 属性 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY ID desc"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "月份"
If (Request("MM_EmptyValue") <> "") Then
Recordset2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_oavbsconn_STRING
Recordset2.Source = "SELECT * FROM 表1 WHERE 属性 = '" + Replace(Recordset2__MMColParam, "'", "''") + "' ORDER BY ID DESC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Recordset3__MMColParam
Recordset3__MMColParam = "日"
If (Request("MM_EmptyValue") <> "") Then
Recordset3__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset3
Dim Recordset3_numRows
Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_oavbsconn_STRING
Recordset3.Source = "SELECT * FROM 表1 WHERE 属性 = '" + Replace(Recordset3__MMColParam, "'", "''") + "' ORDER BY ID asc"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
Recordset3_numRows = 0
%>
<%
Dim Recordset4__varid
Recordset4__varid = "525"
If (request.querystring("id") <> "") Then
Recordset4__varid = request.querystring("id")
End If
%>
<%
Dim Recordset4
Dim Recordset4_numRows
Set Recordset4 = Server.CreateObject("ADODB.Recordset")
Recordset4.ActiveConnection = MM_oavbsconn_STRING
Recordset4.Source = "SELECT infoall.id,infoall.标题,infoall.内容,infoall.发送人姓名,infoall.入库时间,阅读次数 FROM infoall WHERE (infoall.id=" + Replace(Recordset4__varid, "'", "''") + " and infoall.信息属性='通知')"
Recordset4.CursorType = 0
Recordset4.CursorLocation = 3
Recordset4.LockType = 3
Recordset4.Open()
session("readtzok")="ok"
Recordset4_numRows = 0
%>
<html>
<head>
<script language="JavaScript">
<!--
function check() {
if (document.form1.zhuti.value=="") {
window.alert ("请您输入主题 ！")
document.form1.zhuti.focus()
return false
}
return true
}
//-->
</SCRIPT>
<script language="JavaScript" src="inc/PublicJS.js"></script>
<%
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(13), "")
fString = replace(fString,chr(32)," ")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<link href="/css/link.css" rel="stylesheet" type="text/css">
<link href="/css/input.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0">
<tr>
<td><div align="center">
<form name="form1" method="post" action="/toall/bwdfhdghndgh/postrtghngfhnefgshoucang.asp" onsubmit="return check()">
<table width="71%" border="0" cellpadding="2" cellspacing="1" bgcolor="399CA0">
<tr>
<td colspan="2"><div align="center" class="style1">日程</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>日程日期：</td>
<td><input name="qishi" type="text" id="qishi" value="<%=date%>" size="9" maxlength="10" readonly="true">
<input name="sdaf" type="button" id="sdaf" onClick="OpenWindowAndSetValue('Inc/SelectDate.asp',280,120,window,document.form1.qishi);document.form1.qishi.focus();" value="选择日期"></td></tr>
<tr bgcolor="#FFFFFF">
<td width="11%">主题：</td>
<td width="89%"><input name="zhuti" type="text" id="zhuti" value="<%=(Recordset4.Fields.Item("标题").Value)%>" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><p>内容：<br>
<img src="/toall/bwdfhdghndgh/img/gif/1.gif" width="78" height="46"><br>
</p>
</td>
<td><input name="content" type="hidden" id="content" value="<% = Server.HtmlEncode(Recordset4("内容")) %>">
<iframe ID="content" src="/toall/htmledit/ewebeditor.asp?id=content&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"> </iframe> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td><input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit" value="清 空">
<input type="button" name="Submit" value="取 消" onclick="javascript:history.go(-1)"></td>
</tr>
</table>
</form>
</div></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
<%
Recordset4.Close()
Set Recordset4 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -