📄 view_content.asp

📁 功能齐全的oa系统

💻 ASP

字号:

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
	Dim ObjDB,StrSQL
	Dim IntID,C,ObjRS,conn
	Dim IntIsHtml
	
	IntID = Request.QueryString("ID")
  Set conn=Server.CreateObject("ADODB.Connection")
	OpenDBCrm( conn )
	Set ObjDB	= Server.CreateObject("ADODB.Connection")
	OpenDB objDB

	Set C = Server.CreateObject("CMS2003.DBHandle")
	C.Init(conn)
	
	StrSQL = "Select * From T_CRM_Stock_Application Where ID = " & IntID
	Set ObjRS = C.View(StrSQL)
	'IntIsHtml = ObjRS("IsHtml")


	ObjDB.Close 
	Set ObjDB = Nothing
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td         { font-size:12px }
</style>
</head>
<body leftmargin="5" topmargin="5" bgcolor="#FFFFFF">
<table class=Ltable cellspacing=1 cellpadding=3>
<tr><td>部　　门：</td><td><%=ObjRS("Partment")%></td></tr>

<tr><td>商品名称：</td><td><%=ObjRS("ProName")%></td></tr>

<tr><td>申请日期：</td><td><%=ObjRS("AppTime")%></td></tr>
     
<tr><td>规格型号：</td><td><%=ObjRS("ProType")%></td></tr>

<tr><td>数　　量：</td><td><%=ObjRS("ProNum")%></td></tr>

<tr><td>推荐品牌：</td><td><%=ObjRS("CommendPro")%></td></tr>

<tr><td>估计单价：</td><td><%=ObjRS("EstimatePrice")%></td></tr>

<tr><td>合　　计：</td><td><%=ObjRS("Totle")%></td></tr>

<tr><td>合计金额：</td><td><%=ObjRS("Intending_Money")%></td></tr>

<tr><td>购物原因：</td><td><%=ObjRS("StoReason")%></td></tr>

<tr><td>到货时间：</td><td><%=ObjRS("Arrive_Time")%></td></tr>

<tr><td>询价记录：</td><td><%=ObjRS("AskNote")%></td></tr>

<tr><td>推荐厂家：</td><td><%=ObjRS("Commend_Pro")%></td></tr>

<tr><td>备　　注:</td><td><%=ObjRS("Remark")%></td></tr>
</table>
	       
	

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -