📄 build_sys_mod_change.asp
字号:
<%
'on error resume next
s_Category=request.form("cboChgComponent")
%>
<style TYPE="text/css">
<!--
TD {font-size: 9pt; font-family: Arial; font-weight: bold}
TD.small {font-size: 8pt; font-family: Arial}
TD.medium {font-size: 9pt; font-family: Arial}
TD.large {font-size: 10pt; font-family: Arial}
-->
</style>
<!--
<SCRIPT RUNAT=Server LANGUAGE="VBSCRIPT">
Function Fiks(FixWhat)
if (isnull(FixWhat) or FixWhat="") then
Fiks="<CENTER> - </CENTER>"
else
Fiks=trim(FixWhat)
end if
End Function
Function Anchor_It (s_Item_No, s_Description)
if (isnull(s_Item_No) or isnull(s_Description)) then
Anchor_It=" - "
else
s_Description=replace(s_Description," ","-")
Anchor_It="<A HREF='build_sys_mod_change_do.asp?repeat=0&s_Item_No=" & trim(s_Item_No) & "'>" & s_Description & "</A>"
end if
End Function
</SCRIPT>
-->
<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
sSQL="SELECT"
sSQL=sSQL & " s_Item_No"
sSQL=sSQL & " ,s_Description"
sSQL=sSQL & " ,price"
sSQL=sSQL & " ,cost"
sSQL=sSQL & " FROM tbl_Inventory"
sSQL=sSQL & " WHERE s_Category='" & s_Category & "'"
sSQL=sSQL & " ORDER BY s_Description"
%>
</head>
<body text="#000000" BGCOLOR="white">
<center>
<TABLE width="85%">
<TR>
<TD align="center">RCR System Build Area: Pick A Component To Change To</TD>
</TR>
</table>
</center>
<center>
<table align=center width="85%" valign=top border=1 cellspacing=1 cellpadding=1>
<TR valign=center>
<TD class="medium" align=center bgcolor="black"><font color=white><B>Item</B></font></TD>
<TD class="medium" align=center bgcolor="black"><font color=white><B>Description</B></font></TD>
<TD class="medium" align=center bgcolor="black"><font color=white><B>Price</B></font></TD>
</TR>
<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
'response.write "<BR>" & sSQL & "<BR>"
'on error resume next
Set RS = server.createObject("ADODB.recordset")
RS.open sSQL, conn, 3, 3 'read
'response.write "<font color=black>error: " & err.s_Description & "<BR></font>"
'response.write sSQL
If Err.Number <> 0 Then
Response.Write "<B>Database Error: " + Err.Description + "</B><BR>"
Else
' Check for the no-record case
If RS.EOF And RS.BOF Then
Response.Write "<B>No Items In Inventory Matching Selected Type</B><BR>"
Else
RS.movefirst
Do Until RS.EOF
Response.Write "<TR valign=center>"
Response.Write "<td><font color='black'>" & Fiks(RS("s_Item_No")) & "</font></TD>"
Response.Write "<td><font face='arial' size='-2'>" & Anchor_It(RS("s_Item_No"),trim(RS("s_Description"))) & "</font></TD>"
price=RS("price")
if session("Wholesaler")="True" then price=RS("cost")+(RS("cost")*0.1)
Response.Write "<td align='right'><font face='arial' size='-2'>" & FormatCurrency(price) & "</font></TD>"
Response.Write "</TR>"
RS.MoveNext
Loop
End If
RS.Close
' Close the If condition checking for a connection error
End If
set RS = Nothing
%>
</table>
</center>
</body>
</html>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -