⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 selfcheck_readinfo.asp

📁 北京华信东方网络办公系统
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<!--#include file= "selfcheck_function.asp"-->
<%
'n_id, v_title, t_content, v_department, v_OfferMan, c_ShowOfferMan, v_Kind, 
'd_OfferDate, t_Accessories, v_ProjectCode,v_PactCode, v_Object, i_SoftScore, i_HardScore,i_SatisfyScore
id=clng(request.QueryString("id"))
selfcheckSingleInfo = selfcheckReadInfo(id)
	if isnull(selfcheckSingleInfo) then
		response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>没有该公告</li>")
		response.End()
	end if
	%>
<html>
<head>
<title><%= selfcheckSingleInfo(1,0) %></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../mstyle.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.wordspace {
	letter-spacing: 5px;
	word-spacing: 5px;
}
//-->
</style>
</head>

<body rightmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
  <tr> 
    <td colspan="2"><strong>主  题 :</strong> <%= selfcheckSingleInfo(1,0) %></td>
  </tr>
  <tr> 
    <td colspan="2"><strong>发 布 人 :</strong> 
      <%response.Write(selfcheckSingleInfo(3,0) &"&nbsp;&nbsp;")
	if selfcheckSingleInfo(5,0)="y" then
	response.Write(selfcheckSingleInfo(4,0))
	end if %>
    </td>
  </tr>
  <tr> 
    <td colspan="2"><strong>发布时间 :</strong> <%= selfcheckSingleInfo(7,0) %></td>
  </tr>
  <tr> 
    <td colspan="2"><strong>工 程 号 :</strong> <%= selfcheckSingleInfo(9,0) %></td>
  </tr>   <tr> 
    <td colspan="2"><strong>合 同 号 :</strong> <%= selfcheckSingleInfo(10,0) %></td>
  </tr>   <tr> 
    <td colspan="2"><strong>产品类型 :</strong> <%= selfcheckSingleInfo(6,0) %></td>
  </tr>  <tr> 
    <td colspan="2"><strong>得  分 :</strong> 
	<%= "局点:"&selfcheckSingleInfo(11,0)%>
<div align=center>	<%= "软件得分:"&selfcheckSingleInfo(12,0)%>
	<%= " 硬件得分:"&selfcheckSingleInfo(13,0)%>
	<%= " 满意度:"&selfcheckSingleInfo(14,0)%></div></td>
  </tr><tr> 
    <td width="300" height="126" colspan="2" valign="top" ><strong>内  容 :</strong><br> 
      <textarea cols="45" rows="8" readonly><%= selfcheckSingleInfo(2,0) %></textarea> 
    </td>
  </tr>
  <tr> 
    <td> 
      <%if selfcheckSingleInfo(8,0)<>"" then 
	response.Write("<img src='images/download.gif' style='cursor: hand' alt='下载附件' onclick=""window.open('"&selfcheckSingleInfo(8,0)&"','','width=1,height=1')"" >" )
	end if
	%>
    </td>
    <td align="center" valign="bottom"><input type="button" name="Button" value="关闭窗口" onClick="self.close();"></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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