incnavigate.asp

ASP编写的一个公司网站的源程序

               <TABLE height=21 cellSpacing=0 cellPadding=0 width=580 border=0 ID="Table15">
                        <TBODY>
                          <TR> 
                            <TD height=21 background="/images/cp_r5_c4.jpg"> 　　所在的位置 
                              &gt;&gt; <%if request("type_ID")<>"" then%>
                              <font color="#FF0000">产品展示</font>
                              <%ElseIF Request("Pro_ID")<>"" then%>
                              产品展示 &gt;&gt; 
                              <%
                              Call shownavigate(Request("Pro_ID"))
                              %> 
                              <%End IF%></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                                         <TABLE height=0 cellSpacing=0 cellPadding=0 width="100%" border=0 ID="Table16">
                        <TBODY>
                          <TR> 
                            <TD 
                background=/images/point-1.gif><IMG 
                  height=1 
                  src="/images/point.gif" 
                  width=2></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                      <%
                      Function shownavigate(Pro_ID)
						Dim rs,StrSQL
						Set rs = Server.CreateObject("Adodb.Recordset")
						StrSQL = "Select Pro_Name From ProInfo where Pro_ID="&Pro_ID&"" 
						rs.Open StrSQL,conn,1,3
						If not rs.EOF then
							Response.Write "<font color=red>"&rs("Pro_Name")&"</font>"
						End IF
						rs.Close 
						Set rs = Nothing
                      End Function
                      
                      %>