tongzhinr.asp

来自「企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。」· ASP 代码 · 共 72 行

ASP
72 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>通知内容</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	font-family:Arial, Helvetica, sans-serif;
}
.style1 {color: #C60001;font-size:14px;}
.style2 {
color: #669999;
font-size:13px;
}
-->
</style>
</head>

<body>
<!--#include file="Connections/auto.asp" -->
<%
   set RS = server.CreateObject("ADODB.Recordset")
   Sname = "SELECT Login.Part, Message.Name, Message.Position, tongzhi.biaoti, tongzhi.fbshj, tongzhi.neirong FROM (Message INNER JOIN Login ON Message.ID=Login.ID) LEFT JOIN tongzhi ON Message.ID=tongzhi.faburen WHERE (((Login.ID)=tongzhi.faburen) And ((Message.ID)=tongzhi.faburen) And ((tongzhi.id)="&Request.QueryString("ID")&"))"
   RS.open Sname , CN
   set RS1 = server.CreateObject("ADODB.Recordset")
   Sname1= "SELECT cishu from tongzhi where id = "&Request.QueryString("ID")
   RS1.open Sname1 , CN ,1,3
   RS1("cishu")=RS1("cishu")+1
   RS1.update
   RS1.close
   set RS1 =nothing
%>
<!--#include file="Connections/xuanze.asp" -->
<table width="600" height="229" border="0" cellpadding="-2" cellspacing="1" bgcolor="#336699">
  <tr>
    <td width="600" height="227" valign="top"><form name="form1">
        <table width="100%" height="224"  border="0" align="center" cellpadding="-2" cellspacing="1" bgcolor="#336699">
          <tr>
            <td height="27" colspan="2" align="left" bgcolor="#FFFFFF"><span class="style1">&nbsp;&nbsp;&nbsp;&nbsp;发布人：</span>
			<span class="style2"><%=part%><%=position%>&nbsp;&nbsp;<%=RS("Name")%></span></td>
            <td width="19%" bgcolor="#FFFFFF"><div align="center" class="style1">发布时间：</div></td>
            <td width="30%" bgcolor="#FFFFFF"><span class="style2"><%=RS("fbshj")%></span></td>
          </tr>
          <tr>
            <td width="14%" height="29" bgcolor="#FFFFFF"><div align="center"><span class="style1">&nbsp;&nbsp;主题：</span></div></td>
            <td colspan="3" bgcolor="#FFFFFF"><input name="subject" type="text" readonly id="subject2" value="<%=RS("biaoti")%>"></td>
          </tr>
          <tr>
            <td height="129" valign="top" bgcolor="#FFFFFF"><div align="center" class="style1">&nbsp;&nbsp;内容：</div></td>
            <td colspan="3"valign="top" bgcolor="#FFFFFF"><textarea name="content" cols="53" rows="6"  id="content"><%=RS("neirong")%></textarea></td>
          </tr>
          <tr>
            <td colspan="4" bgcolor="#FFFFFF"><div align="center">
                <input name="myclose" type="button" class="Style_button_del" id="myclose" value="关闭窗口" onClick="javascrip:window.close()">
			</div></td>
          </tr>
        </table>
    </form></td>
  </tr>
</table>
<%
RS.close
set RS = nothing
CN.close
%>
</body>
</html>

tongzhinr.asp - 源码说明

本页面展示了「企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。」中的 tongzhinr.asp 源码文件，采用 ASP 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与企业信息相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?