www.gusucode.com > CRM源码带手机版ASP源码程序 > M/Notice.asp

    <!--#include file="inc.asp"--><!--#include file="../data/EasyCrm.asp"-->
<%Set EasyCrm  = New EasyCRM_CRM%><%
	'获取get值
	action 	= 	Request.QueryString("action")
	otype	=	Request.QueryString("otype")
%><%=Header%>
<!-- start header -->
    <div id="header">
         <a href="index.asp"><img src="img/logo.png" width="120" height="40" alt="logo" class="logo" /></a>
         <a onClick=window.location.href="javascript:history.back();" class="button back"><img src="img/back-button.png" width="15" height="16" alt="icon" /></a>
         <a onClick=window.location.href="javascript:window.location.reload();" class="button create"><img src="img/reload-button.png" width="15" height="16" alt="icon" /></a>
        <div class="clear"></div>
	</div>
    <!-- end header -->
    <!-- start page -->

<%
Select Case action
Case "InfoShow" '查看
    Call InfoShow()
Case Else
    Call Main()
End Select

Sub Main()
%>
    <div class="page">
	<div class="simplebox">
            	<h1 class="titleh">内部公文</h1>
					<table class="tabledata"> 
						<tbody> 
						<thead> 
                        <tr> 
							<th>编号</th> 
							<th>标题</th> 
                        </tr> 
						</thead> 
						<%
							Set rs = Server.CreateObject("ADODB.Recordset")
							rs.Open "Select * From [OA_Notice] order by ONid desc ",conn,1,1
							Do While Not rs.BOF And Not rs.EOF
						%>
								<tr>
									<td>[<%=rs("ONclass")%>]</td>
									<td><a href="?action=InfoShow&Id=<%=rs("ONId")%>"><%=rs("ONtitle")%></a></td>
								</tr>
						<%
							rs.MoveNext
							Loop
							rs.Close
							Set rs = Nothing
						%>
                    </table> 
					<blockquote>暂不提供编辑和删除功能</blockquote>
			</div>
		<%=Footer%>
            
<%
end Sub

Sub InfoShow() '查看
Id = Trim(Request("Id"))
%>
    <div class="page">
	<div class="simplebox">
            	<h1 class="titleh"><%=EasyCrm.getNewItem("OA_Notice","ONId",""&Id&"","ONclass")%>:<%=EasyCrm.getNewItem("OA_Notice","ONId",""&Id&"","ONtitle")%></h1>
					<table class="tabledata"> 
						<tbody> 
						<tr>
							<td style="padding:10px;"><%=EasyCrm.htmlEncode3(EasyCrm.getNewItem("OA_Notice","ONId",""&Id&"","ONcontent"))%></td>
						</tr>
                    </table> 
			</div>

<%
End Sub
%>
    <div class="clear"></div>
    </div>
    <!-- end page -->
<script type="text/javascript" src="js/frame.js"></script>
</body>
</html>