各位好：
我做 了一个三级菜单（下载看源代码），在服务器的那台机子是可以实现起功能的，但是我在局域网内的其他机子登陆时就不能实现起功能了，请问是什么原因？谢谢！！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "checkinfoadmin.asp"-->
<!-- #include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>:::发件人信息输入:::</title>
<link href="../css/fontsize.css" rel="stylesheet" type="text/css">
<link href="../css/input_form.css" rel="stylesheet" type="text/css">
<link href="../css/inputform1.css" rel="stylesheet" type="text/css">
<link href="../css/selectform.css" rel="stylesheet" type="text/css">
<link href="../css/inputform2.css" rel="stylesheet" type="text/css">
<link href="../css/inputform3.css" rel="stylesheet" type="text/css">
<link href="../css/inputform3.css" rel="stylesheet" type="text/css">
<link href="../css/link.css" rel="stylesheet" type="text/css">
<link href="../css/buttoncss.css" rel="stylesheet" type="text/css">
<link href="../css/inputchaxun.css" rel="stylesheet" type="text/css">
<link href="../css/city.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url(../pictures/0343.jpg);
}
.style8 {color: #006600}
.style9 {font-size: 16px}
-->
</style></head>
<body bgcolor="#6699cc" >
<p align="center">
<%
'--------------------------删除单条记录
if request("method")="del" then
id=request("id")
sql = "DELETE FROM FJR WHERE id=" + cstr(id)
conn.execute sql
response.Write "<script >"
response.Write("alert('删除操作成功!');")
response.Write("window.navigate('fajianren.asp')")
response.Write("</script>")
%>
<%
end if
%>
<img src="../pictures/fox.gif" width="35" height="31"> <span class="style9"> DHL发件人信息录入窗口 2005-12-22 版</span></p>
<table width="81%" border="0" align="center" cellpadding="0" cellspacing="0" fjr="fontsize">
<tr>
<td width="100%" height="50">
<table width="750" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" fjr="fontsize" style="border-collapse: collapse">
<form name="chaxun_form" action="fajianren.asp" method="post">
<tr align="center" valign="middle">
<td width="14%" height="28" > <div align="center"><font size="2">DHL发件公司</font></div></td>
<td width="38%"><div align="center"><font size="2">
<input name="fjgsc" type="text" id="fjgsc" onMouseOver="this.focus();" size="30" fjr="bottonfjgse">
</font></div></td>
<td width="12%"><font size="2">发件人</font></td>
<td width="16%"><font size="2">
<input name="fjr" type="text" id="fjr" onMouseOver="this.focus();" size="10" fjr="bottonfjgse">
</font></td>
<td width="20%"> <font size="2">
<input name="chaxun" type="submit" fjr="buttoncss" id="chaxun" value="我要查询"></font></td>
</tr>
</form>
</table></td>
</tr>
<tr>
</td>
</tr>
<tr>
<td> <table width="750" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse">
<tr fjr="fontsize">
<td width="38%" height="30"> <div align="center"><font size="2">DHL发件公司（中文）</font></div></td>
<td width="28%"><div align="center"><font size="2">DHL发件公司（英文）</font></div></td>
<td width="18%"> <div align="center"><font size="2">发件人</font></div></td>
<td colspan="2"><div align="center"><font size="2">操 作</font></div></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql= "select * from fjr where fjgsc like '%"&trim(request("fjgsc"))&"%' or fjgse like '%"&trim(request("fjgse"))&"%' and fjr like '%"&trim(request("fjr"))&"%' "
rs.open sql,conn,1,1
if rs.recordcount <> 0 then
rs.movefirst
do while not rs.eof
%>
<tr fjr="fontsize">
<td><div align="center"><font size="2"><%=rs("fjgsc")%></font></div></td>
<td><div align="center"><font size="2"><%=rs("fjgse")%></font></div></td>
<td height="28"> <div align="center"><font size="2"><%=rs("fjr")%></font></div></td>
<td width="7%"> <div align="center"> <font size="2">
<%
response.Write("<a href='javascript:SureDelSingle(" & cstr(rs("id")) & ")'>删除</a>")
%>
</font></div></td>
<td width="9%"><div align="center"><font size="2"><a href="modify_fajianren.asp?id=<%=rs("id")%>">修改</a>
</font></div></td>
</tr>
<%
rs.movenext
loop
else
%>
<tr fjr="fontsize">
<td height="24" colspan="5"> <div align="center"><font color="#FF0000" size="2">对不起,没有发件人信息!</font></div></td>
</tr>
<%
end if
%>
</table>
<form name="input_form" action="add_fajianren.asp" method="post" onSubmit="return checkform();">
<table width="750" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse">
<tr>
<td height="24" colspan="2"><div align="left"><font size="2">
以下为添加发件人信息部分 (带<font color="#FF0000">*<font color="#000000">为必填项</font></font>):</font>
</div></td>
</tr>
<tr>
<td height="24"> <div align="right"><font size="2">DHL发件公司（中文）:</font>
</div></td>
<td width="368"> <div align="left"> <font size="2">
<select name="fjgsc" fjr="selectformat" id="fjgsc" onMouseOver="this.focus();" onChange="make_fjgse_menu(this.value,document.input_form.fjgse)">
<option value="" selected>--DHL发件公司（中文）--</option>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select fjgsc from fjgsc order by fjgsc desc"
rs.open sql,conn ,1,1
if rs.recordcount<>0 then
do while not rs.eof
%>
<option value="<%=rs("fjgsc")%>" ><%=rs("fjgsc")%></option>
<%
rs.movenext
loop
end if
%>
</select>
</font><font color="#FF0000">*</font><font size="2"> </font></div></td>
</tr>
<tr>
<td> <div align="right">
<font size="2">DHL发件公司（英文）:</font></div></td>
<td> <div align="left"> <font size="2">
<select name="fjgse" fjr="selectformat" id="select4" onMouseOver="this.focus();">
<option value="" selected>--DHL发件公司（英文）--</option>
</select>
</font><font color="#FF0000">*</font></div></td>
</tr>
<tr>
<td> <div align="right"><font size="2">发件人姓名:</font>
</div></td>
<td> <div align="left"> <font size="2">
<input name="fjr" type="text" id="fjr" onMouseOver="this.focus();" size="14" fjr="inputform1">
</font><font color="#FF0000">*</font></div></td>
</tr>
<tr>
<td height="43" colspan="2"> <div align="center">
<input type=submit value=完成录入 name=Submit>
<input type=reset value=清空重写 name=Submit_a>
</div></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><div align="right"><span class="style8"><font size="2">::::::中外运空运发展股份有限公司贵州分公司 IT部::::::</font></span></div></td>
</tr>
</table>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</body>
<script language="JavaScript" >
function make_fjgse_menu(fjgsc_value,fjgse_X)
{
var sql = "select * from fjgse where fjgsc='"+fjgsc_value+"'" ;
var ConnDB = new ActiveXObject("adodb.connection");
var rs = new ActiveXObject("ADODB.Recordset");
ConnDB.ConnectionString="DSN=data;uid=data;pwd=data";
ConnDB.open
rs.open(sql,ConnDB,1,1);
if(rs.recordcount!=0)
{
var count=1;
fjgse_X.options[0]=new Option("--请选择发件公司名称（英文）--"," ");
while(!rs.eof)
{
fjgse_X.options[count]=new Option(rs("fjgse"),rs("fjgse"));
count=count+1;
rs.movenext
}
var sql=null;
rs.close
ConnDB.close
fjgse_X.options[0].selected=true;
fjgse_X.length=count;
}
else
{
fjgse_X.options[0]=new Option("--请选择发件公司名称（英文）--"," ");
var sql=null;
rs.close
ConnDB.close
fjgse_X.options[0].selected=true;
fjgse_X.length=1;
}
}
function checkform()
{
var subst = document. input_form;
if (subst.fjgsc.value=="")
{
alert("DHL发件公司名称（中文）不能为空！!");
subst.fjgsc.focus();
return false;
}
if (subst.fjgse.value=="")
{
alert("DHL发件公司名称（英文）不能为空!!");
subst.fjgse.focus();
return false;
}
if (subst.fjr.value=="")
{
alert("发件人姓名不能为空!");
subst.fjr.focus();
return false;
}
return true;
}
function SureDelSingle(id)
{
if ( confirm("您确定要删除该发件人信息吗？"))
{
window.location.href = "fajianren.asp?method=del&id=" +id;
}
}
</script>
</html>
