default.asp

一个适用于企业的客户电话咨询系统,可以与其它的相关企业管理系统进行整合!

else  '只显示某一大类中的小类选项
 response.Write "<option value='' style=background-color:#a4cee4 >╋"&Class2&"</option>"
 
        set rsSmallClass = server.createobject("adodb.recordset")
        rsSmallClass.source = "select * from SmallClass where BigClassCN='"&Class2&"' and IsFatherClass=true"
        rsSmallClass.open rsSmallClass.source,conn,1,1
        while not rsSmallClass.eof
		    if rsSmallClass("SmallClassCN")=Class3 then
			  FatherclassID=rsSmallClass("ID")
              response.Write "<option value="&rsSmallClass("SmallClassCN")&" selected>&nbsp;&nbsp;├"&rsSmallClass("SmallClassCN")&"</option>"
            else
              response.Write "<option value="&rsSmallClass("SmallClassCN")&">&nbsp;&nbsp;├"&rsSmallClass("SmallClassCN")&"</option>"
            end if
            rsSmallClass.movenext
        wend
        rsSmallClass.Close
		
		'显示姓名
        set rsSmallClass1 = server.createobject("adodb.recordset")
        rsSmallClass1.source = "select Name,SmallClassCN from telephone where BigClassCN='"&Class2&"'"
        rsSmallClass1.open rsSmallClass1.source,conn,1,1
        while not rsSmallClass1.eof
		  if rsSmallClass1("Name")<>"" and rsSmallClass1("SmallClassCN")="" then
		    if rsSmallClass1("Name")=Class3 then
			  FatherclassID=rsSmallClass("ID")
              response.Write "<option value="&rsSmallClass1("Name")&" selected>&nbsp;&nbsp;├"&rsSmallClass1("Name")&"</option>"
            else
              response.Write "<option value="&rsSmallClass1("Name")&">&nbsp;&nbsp;├"&rsSmallClass1("Name")&"</option>"
            end if
            rsSmallClass1.movenext
		  else
            rsSmallClass1.movenext
		  end if
        wend
		rsSmallClass1.Close
		
end if
%>
                      </select>
                    </div></td>
                  <td bgcolor="F2F8FF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><div align="center">
				  四级：<br> 
                      <select name="Class4" onchange="javascript:submit()">
                        <option value="">请选择查询条件</option>
                        <%
if request("Class2")="" or request("Class2")="0" then
'显示所有选现
    set rs = server.createobject("adodb.recordset")
    rs.source = "select BigClassCN from bigclass where Isfatherclass=false order by id desc "
    rs.open rs.source,conn,1,1
    if rs.recordcount=0 then
      response.write("你没有添加分类")
    end if
    while not rs.eof
        BigClassCN=rs("BigClassCN")
%>
                        <option value="" style=background-color:#a4cee4 >╋<%=rs("BigClassCN")%></option>
                        <%
        set rsSmallClass = server.createobject("adodb.recordset")
        rsSmallClass.source = "select * from SmallClass where BigClassCN='"&BigClassCN&"'"
        rsSmallClass.open rsSmallClass.source,conn,1,1
        while not rsSmallClass.eof
		  if rsSmallClass("isFatherclass")="true" then
%>
                        <option value="" style=background-color:#f6f6f6>&nbsp;&nbsp;├<%=rsSmallClass("SmallClassCN")%></option>
                        <%else%>
                        <option value=<%=rsSmallClass("SmallClassCN")%>>&nbsp;&nbsp;&nbsp;&nbsp;├<%=rsSmallClass("SmallClassCN")%></option>
                        <%end if
            rsSmallClass.movenext
        wend
        rsSmallClass.Close
      rs.movenext
    wend
rs.close
set rs=nothing

else 
  if request("Class3")="" or request("Class3")="0" then '只显示某一大类中的小类选项
%>
                        <option value="" style=background-color:#a4cee4 >╋<%=Class2%></option>
                        <%
        set rsSmallClass = server.createobject("adodb.recordset")
        rsSmallClass.source = "select * from SmallClass where BigClassCN='"&Class2&"'"
        rsSmallClass.open rsSmallClass.source,conn,1,1
        while not rsSmallClass.eof
		if rsSmallClass("isFatherclass")=true then
%>
                        <option value="">&nbsp;&nbsp;├<%=rsSmallClass("SmallClassCN")%></option>
                        <%else%>
                        <option value=<%=rsSmallClass("SmallClassCN")%>>&nbsp;&nbsp;&nbsp;&nbsp;├<%=rsSmallClass("SmallClassCN")%></option>
                        <%end if
            rsSmallClass.movenext
        wend
        rsSmallClass.Close
	else  '只显示某一三级类中的四级类和三级类下的姓名 %>
                        <option value="" style=background-color:#a4cee4 >╋<%=Class3%></option>
                        <%
        set rsSmallClass = server.createobject("adodb.recordset")
        rsSmallClass.source = "select * from SmallClass where BigClassCN='"&Class2&"' and Fatherclass='"&FatherclassID&"' "
        rsSmallClass.open rsSmallClass.source,conn,1,1
        while not rsSmallClass.eof
		if rsSmallClass("isFatherclass")=true then
%>
                        <option value=<%=rsSmallClass("SmallClassCN")%>>&nbsp;&nbsp;├<%=rsSmallClass("SmallClassCN")%></option>
                        <%else 
						  if rsSmallClass("SmallClassCN")=Class4 then%>
                        <option value=<%=rsSmallClass("SmallClassCN")%> selected>&nbsp;&nbsp;&nbsp;&nbsp;├<%=rsSmallClass("SmallClassCN")%></option>
                        <%else %>
                        <option value=<%=rsSmallClass("SmallClassCN")%>>&nbsp;&nbsp;&nbsp;&nbsp;├<%=rsSmallClass("SmallClassCN")%></option>
                        <%end if
					end if
            rsSmallClass.movenext
        wend
        rsSmallClass.Close
		
				'显示姓名
        set rsSmallClass1 = server.createobject("adodb.recordset")
        rsSmallClass1.source = "select Name,SmallClassCN from telephone where BigClassCN='"&Class2&"' and SmallClassCN='"&Class3&"'"
        rsSmallClass1.open rsSmallClass1.source,conn,1,1
        while not rsSmallClass1.eof
		  if rsSmallClass1("Name")<>"" then
		    if rsSmallClass1("Name")=Class4 then
              response.Write "<option value="&rsSmallClass1("Name")&" selected>&nbsp;&nbsp;├"&rsSmallClass1("Name")&"</option>"
            else
              response.Write "<option value="&rsSmallClass1("Name")&">&nbsp;&nbsp;├"&rsSmallClass1("Name")&"</option>"
            end if
            rsSmallClass1.movenext
		  else
            rsSmallClass1.movenext
		  end if
        wend
		rsSmallClass1.Close

		
    end if
end if
%>
                      </select>
                    </div></td>
                </tr>
                <tr bgcolor="#f6f6f6"> 
                  <td colspan="4" bgcolor="F2F8FF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';> 
                    <div align="center">
                      <input type="submit" name="Submit2" value="搜 索" onClick="document.myform.action='result.asp?action=highSearch';document.myform.target='_self';">
                    </div></td>
                </tr>
              </form>
              <form action="result.asp?action=keySearch" method=post>
                <tr bgcolor="#f6f6f6"> 
                  <td colspan="4" bgcolor="F2F8FF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><div align="center">&nbsp;
                  </div></td>
                </tr>
              </form>
              <form action="result.asp?action=zhinengSearch" method=post>
                <tr bgcolor="#f6f6f6"> 
                  <td colspan="4" bgcolor="F2F8FF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';> 
                    <div align="center"><br>
                      &nbsp;<strong>智能搜索</strong> ：<img src="images/search.gif" width="18" height="18" alt="提示一下,我 能帮你 找到答案."> 
                      <input type="text" name="zhinengkey">
                      （支持特征码）&nbsp; 
                      <input type="submit" name="Submit" value="咨 询">
                    </div></td>
                </tr>
              </form>
            </table>
            <form action="u_checklogin.asp" method="post"> 
			<div align="center"><p>用户登陆&nbsp;&nbsp; 用户名：<INPUT name=username type=text size="15">&nbsp;&nbsp; 密 码：<INPUT name=userpwd type=password size="15">
			&nbsp;&nbsp;<input type=submit name="submit" value="登 陆"></p><br>
                <a href="u_register.asp">没有注册</a>？&nbsp;&nbsp;&nbsp;&nbsp;<a href="u_getpasswd.asp" style="cursor:help">忘记密码</a>？ 
              </div>
			</form>
            <p align="center"><br><%=version%><br><%=copyright%>&nbsp;</p>
		  </td>
        </tr>
        <!--DWLayoutTable-->
      </table></TD>
    <TD width="29"> <IMG SRC="images/default_4.jpg" WIDTH=29 HEIGHT=226 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=226 ALT=""></TD>
  </TR>
  <TR> 
    <TD ROWSPAN=2> <IMG SRC="images/default_5.jpg" WIDTH=28 HEIGHT=339 ALT=""></TD>
    <TD ROWSPAN=2> <IMG SRC="images/default_6.jpg" WIDTH=29 HEIGHT=339 ALT=""></TD>
    <TD height="312"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=312 ALT=""></TD>
  </TR>
  <TR> 
    <TD width="29"> <IMG SRC="images/default_7.jpg" WIDTH=29 HEIGHT=27 ALT=""></TD>
    <TD width="652"> <IMG SRC="images/default_8.jpg" WIDTH=652 HEIGHT=27 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=27 ALT=""></TD>
  </TR>
</TABLE>
<!-- End ImageReady Slices -->
</BODY>
</HTML>