📄 d_rivalsubfrm.asp
字号:
<%function GetProdStandByCode(aa)''''''''''''''''''''根据商品编码取规格
set rs4=server.CreateObject("adodb.recordset")
if rs4.State=1 then rs4.Close
rs4.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs4.RecordCount<=0 then
GetProdStandByCode=""
else
GetProdStandByCode=rs4.Fields("Standard")
end if
end function%>
<%tag1="Lookup"%>
<%tag2="New"%>
<%tag3="Search"%>
<%m_id=trim(Request("par_id"))%>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from A_Rival ",pubconn,1,3%>
<%if rs.RecordCount<=0 then%>
<br><br><br><center><font size="2">提示:尚未建立竞争者档案!<br></font><br>
</center>
<input type="hidden" name="page2" value=<%=page2%>>
<input type="hidden" name="line" value=<%=line%>>
<input type="hidden" name="par_id" value=<%=trim(Request("par_id"))%>> <%'''''''客户序号%>
<input type="hidden" name="page1" value=<%=Request("page1")%>>
<input type="hidden" name="par_name" value=<%=Request("par_name")%>>
<input type="hidden" name="par_type"value=<%=Request("par_type")%>>
<input type="hidden" name="par_level" value=<%=Request("par_level")%>>
<input type="hidden" name="index" value=<%=request("index")%>>
<%Response.End %>
<%end if%>
<center><font size=3><b>竞争者档案</b></font></center><br>
<table border=1 cellspacing=0 width="100%">
<tr>
<td bgcolor="#DDD2C4"> </td><td bgcolor="#DDD2C4">竞争者名称</td><td bgcolor="#DDD2C4">产品名称</td><td bgcolor="#DDD2C4">产品规格</td><td bgcolor="#DDD2C4">竞争优势</td><td bgcolor="#DDD2C4">竞争劣势</td><td bgcolor="#DDD2C4">备注</td>
</tr>
<%if request("page2")<>"" then
page2=cint(request("page2"))
else
page2=1
end if
rs.pagesize=10
if page2>=rs.pagecount then
page2=rs.pagecount
else
if page2<1 then
page2=1
end if
end if
rs.AbsolutePage=page2
line=0%>
<%for i=1 to rs.PageSize
line=cint(line)+1%>
<%if i mod 2 =0 then%>
<%backcolor="ffffDf"%>
<%else%>
<%backcolor="#E2F2EE"%>
<%end if%>
<tr bgcolor=<%=backcolor%>>
<td><input type="checkbox" name=<%="checkbox"&line%> value=1 id=checkbox1></td>
<input type="hidden" name=<%="m_name"&line%> value=<%=rs.fields("name")%>>
<input type="hidden" name=<%="m_ProdName"&line%> value=<%=rs.fields("ProdName")%>>
<input type="hidden" name=<%="m_Standard"&line%> value=<%=rs.fields("Standard")%>>
<input type="hidden" name=<%="m_Advantage"&line%> value=<%=rs.fields("Advantage")%>>
<input type="hidden" name=<%="m_Inferior"&line%> value=<%=rs.fields("Inferior")%>>
<input type="hidden" name=<%="m_Remark"&line%> value=<%=rs.fields("Remark")%>>
<input type="hidden" name="index" value=<%=request("index")%>>
<%if rs.Fields("name")<>"" then%>
<td><%=rs.Fields("name")%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs.Fields("ProdName")<>"" then%>
<td><%=rs.Fields("ProdName")%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs.Fields("Standard")<>"" then%>
<td><%=rs.Fields("Standard")%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs.Fields("Advantage")<>"" then%>
<td><%=rs.Fields("Advantage")%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs.Fields("Inferior")<>"" then%>
<td><%=rs.Fields("Inferior")%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs.Fields("Remark")<>"" then%>
<td><%=rs.Fields("Remark")%></td>
<%else%>
<td> </td>
<%end if%>
</tr>
<%rs.MoveNext %>
<%if rs.EOF then exit for%>
<%next %>
<%if line<10 then%>
<%for i=line to 10%>
<tr><td WIDTH="18"> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td></tr>
<%next%>
<%end if%>
</table><hr>
<font size="2">
<a href="D_RivalMainFrm.asp?index=<%=request("index")%>&page2=1&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">首页</a>
<%if page>1 then %>
<a href="D_RivalMainFrm.asp?index=<%=request("index")%>&page2=<%=(page2-1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">上一页</a>
<% else%>
上一页
<%end if%>
<%if page1<rs.pagecount then %>
<a href="D_RivalMainFrm.asp?index=<%=request("index")%>&page2=<%=(page2+1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">下一页</a>
<% else %>
下一页
<% end if%>
<a href="D_RivalMainFrm.asp?index=<%=request("index")%>&page2=<%=rs.PageCount%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">尾页</a>
共<%=rs.pagecount%>页 第<%=page2%>页
<%rs.close%>
<input type="hidden" name="par_id" value=<%=trim(Request("par_id"))%>> <%'''''''客户序号%>
<input type="hidden" name="page1" value=<%=page1%>>
<input type="hidden" name="page2" value=<%=page2%>>
<input type="hidden" name="par_name" value=<%=par_name%>>
<input type="hidden" name="par_type" value=<%=par_type%>>
<input type="hidden" name="par_level" value=<%=par_level%>>
<input type="hidden" name="index" value=<%=request("index")%>>
<input type="hidden" name="tag" value="NewZyru">
<%' <input type="button" name="B4" value="保存" onclick="SaveRival()" > %>
<a href="javascript:SaveRival()">保存</a>
<center><a href="D_RivalMainFrm.asp?index=<%=request("index")%>&page1=<%=page1%>&page2=<%=page2%>&par_id=<%=par_id%>&par_name=<%=par_name%>&par_type=<%=par_type%>&par_level=<%=par_level%>">返回</a></center>
</font>
</form>
<%end if%>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -