📄 client_productnz_show.asp
字号:
<%
'OA 表单生成器1.0
'功能：查看农资商品
'参数：request("id")=int #记录ID
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="./Client_menu.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
cid=clng(request("cid")) '记录ID
table="tbioaClient_ProductNz" '表名
'------------------------------------------------
'------------------------------------------------删除记录
if request("mod")="dele" then
id=request("id") : if id="" then id=0 '删除记录ID
oConn.Execute "delete from "&table&" where id="&id
response.write "<script>alert('记录成功删除!');history.back()</script>"
response.end
end if
'------------------------------------------------
'------------------------------------------------取记录
'取要查看的记录 （返回rs对象）
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select *,(select count(*) from tbioaClient_NzBase where cpmc=tab.pm and sbbs=tab.sbbs) as smod from " & table & " tab where cid="&cid
rs.open sql,oConn,1,1
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>农资商品详细信息</title>
</head>
<body topmargin="10" leftmargin="10">
<%call ClientMenu("农资商品备案")%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<p align="left"><img border="0" src="../images/icon_title.gif" align="left">农资商品备案：</p>
</td>
<td width="90" class="noprint">
<p align="left"><img border="0" src="../images/icon_save.gif" align="left">
<a href="Client_ProductNz_edit.asp?cid=<%=cid%>">添加记录</a>
</td>
</tr>
</table>
<%if rs.eof then%>
<center>暂无相关信息！</center>
<%response.end
end if%>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td class="td3" align="center" nowrap>农资种类</td>
<td class="td3" align="center" nowrap>品名</td>
<td class="td3" align="center" nowrap>商标标识</td>
<td class="td3" align="center" nowrap>生产厂家</td>
<td class="td3" align="center" nowrap>规格型号或生产批号</td>
<td class="td3" align="center" nowrap>进货渠道</td>
<td class="td3" align="center" nowrap>数量</td>
<td class="td3" align="center" nowrap>单位</td>
<td class="td3" align="center" nowrap>备案审查人</td>
<td class="td3" align="center" nowrap>备案签字人</td>
<td class="tdTop3np" colspan="2" align="center" nowrap>相关操作</td>
</tr>
<%for i = 0 to rs.recordcount-1
If rs.EOF Then Exit For
if i mod 2 = 0 then td_class="td1" else td_class="td2"
if rs("smod")>0 then td_class="td6"
%>
<tr>
<td class="<%=td_class%>"><%=HtmlOut(rs("nzzl"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("pm"))%></td>
<td class="<%=td_class%>">
<%if rs("smod")>0 then
response.write "<a href='Client_NzBase_list.asp?cpmc="&HtmlOut(rs("pm"))&"&sbbs="&HtmlOut(rs("sbbs"))&"' target='_blank' class='link'>"&HtmlOut(rs("sbbs"))&"</a>"
else
response.write HtmlOut(rs("sbbs"))
end if
%>
</td>
<td class="<%=td_class%>"><%=HtmlOut(rs("sccj"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("scphhsj"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("jhqd"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("sl"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("dw"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("bascr"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("baqzr"))%></td>
<td class="<%=td_class%>np" width="50" nowrap>
<img border="0" src="../images/icon_edit.gif" align="left">
<a href="Client_ProductNz_edit.asp?cid=<%=cid%>&id=<%=rs("ID")%>">编辑</a>
</td>
<td class="<%=td_class%>np" width="50" nowrap>
<img border="0" src="../images/icon_dele.gif" align="left">
<a href="Client_ProductNz_show.asp?mod=dele&id=<%=rs("ID")%>" onClick="return confirm('确定要删除该条记录吗？\n该操作不可恢复！')">删除</a>
</td>
</tr>
<%
rs.MoveNext
next
%>
</table>
</body>
</html>
<%'释放对象变量
rs.close
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -