📄 pubselectrival.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<%if Request("B2")="删除" then%> <%''''''''''''''D_RivalMainFrm.asp的删除%>
<%i=Request("line")
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
if i>0 then
for j=1 to i
m_id1=Request("m_id1"&j)
tag=Request("checkbox"&j)
if rs.State=1 then rs.Close
rs.Open "select * from D_ClientRival where RivalName='"& m_id1 &"' and clientnum='"& trim(request("par_id")) &"'",pubconn,1,3
if rs.RecordCount>0 then
if tag=1 then
rs.Delete
rs.Close
end if
end if
next
end if%>
<%Response.Redirect "D_RivalMainFrm.asp?index="&request("index")&"&page1="&Request("page1")&"&page2="&trim(Request("page2"))&"&par_id="&Request("par_id")&"&par_name="&Request("par_name")&"&par_type="&Request("par_type")&"&par_level="&Request("par_level")&""%>
<%Response.End %>
<%end if%>
<%if Request("tag1")=99 then%><%''''''''''''''''保存新建竞争者信息%>
<%line=request("line")
par_id=request("par_id")
if line>0 then
for i=1 to line
checkbox=request("checkbox"&i)
m_RivalName=request("m_name"&i)
if checkbox=1 and m_RivalName<>"" then
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select * from D_ClientRival where clientnum='"& par_id &"' and RivalName='"& m_RivalName &"'",pubconn,1,3
if rs.recordcount<=0 then
rs.addnew
rs.Fields("clientnum")=par_id
rs.Fields("RivalName")=m_RivalName
rs.Update
end if
end if
next
end if%>
<%Response.Redirect "D_RivalMainFrm.asp?tag=4&index="&request("index")&"&page1="&Request("page1")&"&page2="&trim(Request("page2"))&"&par_id="&Request("par_id")&"&par_name="&Request("par_name")&"&par_type="&Request("par_type")&"&par_level="&Request("par_level")&""%>
<%Response.End%>
<%end if%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>
<script language="vbscript">
sub NewZyry()
window.location="D_RivalSubFrm.asp?index="&document.form1.index.value&"&page1="&document.form1.page1.value&"&page2="&document.form1.page2.value&"&par_id="&par_id&""
end sub
</script>
<%function getName(aa)
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getName=""
else
getName=rs1.Fields("clientname")
end if
end function%>
<%function GetProdNameByCode(aa)''''''''''''''''根据商品编码取名称
set rs3=server.CreateObject("adodb.recordset")
if rs3.State=1 then rs3.Close
rs3.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs3.RecordCount<=0 then
GetProdNameByCode=""
else
GetProdNameByCode=rs3.Fields("ProdName")
end if
end function%>
<%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%>
<BODY bgcolor="#FFFFFF">
<%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%>
<form name="form1" method="post" action="pubselectRival.asp?tag1=99" target="main">
<%if rs.RecordCount<=0 then%>
<br><br><br><center><font size="2">提示:尚未建立竞争者档案!<br></font><br>
</center>
<center><a href="javascript:history.back(-1)"><font size="2">返回</font></a></center>
<%Response.End %>
<%end if%>
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">竞争者档案</font></b><hr width="40%" align="left" size="1"></td>
</tr>
</table>
<table border=1 cellspacing=0 width="100%">
<tr>
<td bgcolor="#DDD2C4"> </td><td bgcolor="#DDD2C4">
<p align="center">
竞争者名称</p>
</td><td bgcolor="#DDD2C4">
<p align="center">
产品名称</p>
</td><td bgcolor="#DDD2C4">
<p align="center">
产品规格</p>
</td><td bgcolor="#DDD2C4">
<p align="center">
竞争优势</p>
</td><td bgcolor="#DDD2C4">
<p align="center">
竞争劣势</p>
</td><td bgcolor="#DDD2C4">
<p align="center">
备注</p>
</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="#f7f7f7"%>
<%else%>
<%backcolor="#EDEBEC"%>
<%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>
<p align="center">
<%=rs.Fields("name")%></td>
<%else%>
<td>
<p align="center">
</p>
</td>
<%end if%>
<%if rs.Fields("ProdName")<>"" then%>
<td>
<p align="center">
<%=rs.Fields("ProdName")%></td>
<%else%>
<td>
<p align="center">
</p>
</td>
<%end if%>
<%if rs.Fields("Standard")<>"" then%>
<td>
<p align="center">
<%=rs.Fields("Standard")%></td>
<%else%>
<td>
<p align="center">
</p>
</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><br>
<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")%>>
<font
size="2"> <a href="pubselectRival.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="pubselectRival.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="pubselectRival.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="pubselectRival.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%>页 </font><br>
<%rs.close%>
<input type="submit" value="保存" class=hand style="background-color: #D1D1D1; border-style: solid; border-width:1">
<font size="2"> <!--<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>-->
<a href="javascript:history.go(-2)">返回</a>
</font>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -