?? d_rivalmainfrm.asp
字號:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
userclass=tablevisitor("d_clientrival",username)
departid=session("departid")
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link href="../cread.css" rel="stylesheet" type="text/css">
<script language="vbscript">
sub NewZyry()
window.location="D_RivalSubFrm.asp?page1="&document.form1.page1.value&"&page2="&document.form1.page2.value&"&par_id="&par_id&"&index="&document.form1.index.value&""
end sub
sub qx()
msgbox "您無此權限！"
exit sub
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%>
<title></title>
</HEAD>
<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 D_clientRivalView where clientnum='"& m_id &"' ",pubconn,1,3%>
<form name="form1" method="post" action="pubselectRival.asp">
<%if rs.RecordCount<=0 then%>
<br><br><br><br><br><center><font size="2">提示:該客戶尚未建立競爭者檔案!<br></font><br><br>
<input type="hidden" name="line" value=0>
<input type="hidden" name="index" value=<%=request("index")%>>
<%if userclass>1 then%>
<input type="submit" name="B2" value="新增" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"><br><br><br>
<%else%>
<input type="button" value="新增" onclick="javascript:location.href='qx.asp'" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%end if%>
<%aa="Lookup"%>
<font size="2">
<%if request("index")="true" then%>
<a href="D_khindexsubFrm.asp?lookup=<%=aa%>&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%>
<a href="D_khsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>
<%end if%>
</font>
</center>
<input type="hidden" name="page2" value=<%=page2%>>
<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%>
<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=0 cellspacing=0 width="100%">
<tr>
<td >客戶名稱: <%=getName(m_id)%></td>
</tr>
</table> <br>
<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>
<%if (userclass=2 and username=rs("authors") and departid=rs("departid")) or (userclass=3 and departid=rs("departid")) then%>
<input type="checkbox" name=<%="checkbox"&line%> value=1 id=checkbox1>
<%else%>
<input type="checkbox" name="sc" value="1" onmousedown="qx()">
<%end if%>
</td>
<input type="hidden" name=<%="m_id1"&line%> value=<%=rs.fields("name")%>>
<%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>
<p align="center">
</p>
</td><td>
<p align="center">
</p>
</td><td>
<p align="center">
</p>
</td><td>
<p align="center">
</p>
</td><td>
<p align="center">
</p>
</td><td>
<p align="center">
</p>
</td></tr>
<%next%>
<%end if%>
<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")%>>
</table><br>
<font size="2">
<a href="D_RivalMainFrm.asp?page2=1&index=<%=request("index")%>&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?page2=<%=(page2-1)%>&index=<%=request("index")%>&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?page2=<%=(page2+1)%>&index=<%=request("index")%>&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?page2=<%=rs.PageCount%>&index=<%=request("index")%>&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><hr>
<%if userclass>1 then%>
<input type="submit" name="B2" value="新增" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%else%>
<input type="button" value="新增" onclick="javascript:location.href='qx.asp'" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%end if%>
<input type="submit" value="刪除" name="B2" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%rs.close%>
</form>
<%aa="Lookup"%>
<%if request("index")="true" then%>
<center><a href="D_khindexsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=m_id%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>"><font
size="2">返回</font></a>
<font size="2">
<%else%>
<a href="D_khsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=m_id%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>
<%end if%>
</font>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -