📄 productdetail.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "product","read"
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_product where productid="&request("productid"),conn,1,1
if rs.EOF then
Response.Write "记录不存在"
Response.End
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("model")%></title>
</head>
<body>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><b><font class="title">产品型号：<%=rs("model")%></font></b></td>
<td width="65%">
<a href="javascript:opensubwin3('newproduct.asp?id=<%=request("productid")%>','','resizable=yes, scrollbars=no, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500');"><img src="../images/button_edit.gif" border=0></a>
</td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"></td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="FFFFFF">
<tr>
<td width="12%" height=20 align=center bgcolor="DEDFDE">货号</td>
<td width="22%" align=center bgcolor="EFEFEF"><%=rs("productcode")%></td>
<td width="12%" align=center bgcolor="DEDFDE">名称</td>
<td width="20%" align=center bgcolor="EFEFEF"><%=rs("name")%></td>
<td width="12%" align=center bgcolor="DEDFDE">产品类型</td>
<td width="22%" align=center bgcolor="EFEFEF"><%=rs("producttype")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">型号</td>
<td colspan="3" align=center bgcolor="EFEFEF"><%=rs("model")%></td>
<td align=center bgcolor="DEDFDE">英文名称</td>
<td align=center bgcolor="EFEFEF"><%=rs("englishname")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">货币</td>
<td align=center bgcolor="EFEFEF"><%=rs("currencycode")%></td>
<td align=center bgcolor="DEDFDE">单位</td>
<td align=center bgcolor="EFEFEF"><%=rs("um")%></td>
<td align=center bgcolor="DEDFDE">参考成本</td>
<td align=center bgcolor="EFEFEF">
<%if objcheck.CheckUserFunction2("viewcost","read") then Response.write formatnumber(rs("cost"),2)%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">制造商</td>
<td colspan="3" align=center bgcolor="EFEFEF"><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../account/accountdetail.asp?accountid=<%=rs("Manufacturer")%>');"><%=getfieldvalue("v_account","accountid",rs("Manufacturer"),"account")%></a>
</td>
<td align=center bgcolor="DEDFDE">市场价格</td>
<td align=center bgcolor="EFEFEF"><%=formatnumber(rs("retail_price"),2)%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">助记符</td>
<td align=center bgcolor="EFEFEF"><%=rs("shortkey")%></td>
<td align=center bgcolor="DEDFDE"> </td>
<td align=center bgcolor="EFEFEF"> <a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../account/accountdetail.asp?accountid=<%=rs("Manufacturer")%>');">
</a></td>
<td align=center bgcolor="DEDFDE">销售价格</td>
<td align=center bgcolor="EFEFEF"><%=formatnumber(rs("price"),2)%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">描述</td>
<td colspan="5" align=center bgcolor="EFEFEF"> <div align="left"><%=rs("description")%></div></td>
</tr>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -