📄 procductmng.asp
字号:
<tr>
<td width="80" align="right">供货商：</td>
<td align="left"><input type='text' size="28" name='A19' value='<%=sql(19)%>' ></td>
<td width="80" align="right">数量单位：</td>
<td align="left"><input name="A20" size="28" value='<%=sql(20)%>' maxlength=100></td>
</tr>
<tr>
<td width="80" align="right">产品安全、资质认证证书号：</td>
<td align="left"><input type='text' size="28" name='A21' value='<%=sql(21)%>' ></td>
<td width="80" align="right">生产日期：</td>
<td align="left"><%ShowDate "",50,0,month(now)%><font color=red>*</font></td>
</tr>
<tr>
<td width="80" align="right">小图地址：</td>
<td align="left"><input type='text' size="18" name='A23' value='<%=sql(23)%>' ><input type='button' name='uppic' value='上传图片' onClick='UpFile();'></td>
<td width="80" align="right">大图地址：</td>
<td align="left"><input type='text' size="18" name='A33' value='<%=sql(33)%>' ><input type='button' name='uppic' value='上传图片' onClick='UpFile1();'></td>
</tr>
<tr>
<td width="80" align="right">产品讨论地址：</td>
<td align="left"><input name="A24" size="28" value='<%=sql(24)%>' maxlength=100></td>
<td width="80" align="right">货源信息：</td>
<td align="left"><input type='text' size="28" name='A25' value='<%=sql(25)%>' ></td>
</tr>
<tr>
<td width="80" align="right">价格相近差价：</td>
<td align="left" colspan=3><input name="A26" size="28" value='<%=sql(26)%>' maxlength=100></td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#D6D3CE">
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="2" align="center">
<%if wxl="Modi" then%>
<input type="submit" value=" 修 改" name="B1" class="submit" style="width:60; height:25;">
<%else%>
<input type="submit" value=" 确 认" name="B1" class="submit" style="width:60; height:25;">
<%end if%>
<SCRIPT LANGUAGE="JavaScript">
<!--
document.form1.A1.value='<%=sql(1)%>';
//-->
</SCRIPT>
<input type="reset" value=" 返 回" name="B2" class="submit" style="width:60; height:25;" onClick="history.back();"></td>
</tr>
<tr>
<td height="6"></td>
</tr>
</table>
<input type=hidden name="wxl" value="Add">
<input type=hidden name="ProcID" value="<%=ProcID%>">
</form>
<%
HtmlEnd
end sub
'显示商品列表
sub ShowLookHtml()
QueryType=request("QueryType")
QueryString=request("QueryString")
str_pKindPID=request("str_pKindPID")
if QueryType="" then QueryType="A6"
set sql2=server.createobject("ADODB.recordset")
Query="select * from web_ProcLib where A1 like '"&str_pKindPID&"%' and "&QueryType&" like '%"&QueryString&"%' order by A28 desc"
sql2.open Query,conn,1,1
sql2.PageSize=CLng(PageSize)
if Page>sql2.PageCount then Page=sql2.PageCount
if not(sql2.eof) then
sql2.absolutepage=CLng(Page)
end if
PageNum=sql2.PageCount
Rows=sql2.RecordCount
call HtmlListHead("[商品列表]_"&GetCfgName(str_pKindPID),sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlName&"?wxl=ShowHtml'>新建商品</a>",UrlFile&"?str_pKindPID="&str_pKindPID&"&QueryType="&QueryType&"&QueryString="&QueryString)
%>
<TABLE class=coolTable cellSpacing=0 cellPadding=2 altRowColor="oldlace" borderStyle="2" align="center">
<THEAD>
<TR align=middle>
<TD align="center">分类</TD>
<TD align="center">品牌名</TD>
<TD align="center">名称</TD>
<TD align="center">价格</TD>
<TD align="center">推荐等级</TD>
<TD align="center">录入时间</TD>
<TD width=80 align="center">操 作</TD>
</TR>
</THEAD>
<TBODY>
<%for i=1 to Pagesize
if sql2.eof then exit for
%>
<TR>
<td ><%=GetCfgName(sql2("A1"))%></td>
<td ><%=sql2("A2")%></td>
<td ><%="<a href='"&UrlFile&"?wxl=Look&ProcID="&sql2("ProcID")&"' target=_blank>"&sql2("A5")%></a></td>
<td ><%=sql2("A16")%></td>
<td ><%=sql2("A30")%></td>
<td ><%=sql2("A28")%></td>
<TD >
<a href=<%response.write(UrlFile&"?wxl=Modi&ProcID="&sql2("ProcID")&"&MenuId="&MenuId)%>>修改</a>
<a href=<%response.write("javascript:confirmDel('"&sql2("ProcID")&"')")%>>删除</a>
</TD>
</TR>
<%
sql2.movenext
next
if i<>18 then
for i=i to 18
%>
<TR>
<td> </td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</TR>
<%
next
end if
%>
</TBODY></TABLE>
<%
HtmlListEnd sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlName&"?wxl=ShowHtml'>新建商品</a>",UrlFile&"?str_pKindPID="&str_pKindPID&"&QueryType="&QueryType&"&QueryString="&QueryString
end sub
sub ShowContent()
Query="select * from web_ProcLib where ProcID="&ProcID
set sql=conn.Execute(Query)
HtmlHead("查看商品资料")
%>
<table border="1" width="550" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
<tr>
<td width="80" align="right">商品分类：</td>
<td align="left"><%=GetCfgName(sql(1))%>
</td>
<td width="80" align="right">品牌名：</td>
<td align="left"><%=sql(2)%> </td>
</tr>
<tr>
<td width="80" align="right">品牌类别：</td>
<td align="left"><%=sql(3)%> </td>
<td width="80" align="right">规格、型号：</td>
<td align="left"><%=sql(4)%> </td>
</tr>
<tr>
<td width="80" align="right">商品名称描述：</td>
<td align="left"><%=sql(5)%> </td>
<td width="80" align="right">推荐等级：</td>
<td align="left">
<%
for i=1 to sql(30)
response.write "★"
next%>
</td>
</tr>
<tr>
<td width="80" align="right">商品特性：</td>
<td align="left"><%=sql(6)%> </td>
<td width="80" align="right">商品技术指标：</td>
<td align="left"><%=sql(7)%> </td>
</tr>
<tr>
<td width="80" align="right">功能说明：</td>
<td align="left"><%=sql(8)%> </td>
<td width="80" align="right">卖点推荐：</td>
<td align="left"><%=sql(9)%> </td>
</tr>
<tr>
<td width="80" align="right">产地：</td>
<td align="left"><%=sql(10)%> </td>
<td width="80" align="right">包装数：</td>
<td align="left"><%=sql(11)%> </td>
</tr>
<tr>
<td width="80" align="right">包装尺寸：</td>
<td align="left"><%=sql(12)%> </td>
<td width="80" align="right">包装重量：</td>
<td align="left"><%=sql(13)%> </td>
</tr>
<tr>
<td width="80" align="right">原价：</td>
<td align="left"><%=sql(15)%>元</td>
<td width="80" align="right">价格：</td>
<td align="left"><%=sql(16)%><%if sql(14)=1 then response.write "免运费"%> </td>
</tr>
<tr>
<td width="80" align="right">促销价格：</td>
<td align="left"><%=sql(17)%>元</td>
<td width="80" align="right">进货价：</td>
<td align="left"><%=sql(18)%>元</td>
</tr>
<tr>
<td width="80" align="right">供货商：</td>
<td align="left"><%=sql(19)%> </td>
<td width="80" align="right">数量单位：</td>
<td align="left"><%=sql(20)%> </td>
</tr>
<tr>
<td width="80" align="right">产品安全、资质认证证书号：</td>
<td align="left"><%=sql(21)%> </td>
<td width="80" align="right">生产日期：</td>
<td align="left"><%=sql(22)%> </td>
</tr>
<tr>
<td width="80" align="right">图片地址：</td>
<td align="left"><%=sql(23)%> </td>
<td width="80" align="right">产品讨论地址：</td>
<td align="left"><%=sql(24)%> </td>
</tr>
<tr>
<td width="80" align="right">货源信息：</td>
<td align="left"><%=sql(25)%> </td>
<td width="80" align="right">价格相近差价：</td>
<td align="left"><%=sql(26)%> </td>
</tr>
</table>
<%
HtmlEnd
end sub
sub FindHtml()
%>
<table border="0" cellspacing="1" cellpadding="1" align="center">
<form name="form2" method="post" action=<%=request.servervariables("SCRIPT_NAME")%>>
<tr align="center">
<td class="pt1"> 姓名：</td>
<td >
<input type="text" name="QueryString" class="text2">
</td>
<td >
<input type="submit" name="Submit" value="查询" class=submit>
<input type="hidden" name="MenuId" value='<%=KindId%>'>
<input type="hidden" name="DeptID" value='<%=DeptId%>'>
</td>
</tr>
</table>
</form>
<%
end sub
function GetCfgName(tmpID)
set tmpCfg=server.createobject("ADODB.recordset")
i=len(tmpID)/2
GetCfgName=""
for j=1 to i
GetCfgName=GetCfgName&"<a href='"&UrlFile&"?str_pKindPID="&left(tmpID,j*2)&"'>"&GetName("select str_pKindName from web_ProKind where str_pKindID='"&left(tmpID,j*2)&"'")&"</a>"
next
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -