各位看看!在运行的时候,只出现背景,但语法又没有提示错误,??帮我看看!!谢谢!!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<html>
<style type="text/css">
<!--
.style28 {
font-size: 12px;
color: #0000FF;
}
.style33 {color: #000000}
-->
</style>
<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">
</head>
<style type="text/css">
<!--
body {
background-image: url(../pictures/0343.jpg);
}
.style6 {color: #66CCFF}
.style7 {
color: #330000;
font-style: italic;
}
.style8 {font-size: 12pt}
.style10 {
color: #330000;
font-size: 16px;
}
.style11 {color: #0000FF}
.style13 {font-size: 14px}
.style15 {font-size: 16px}
.style19 {color: #990000}
.style21 {
color: #0000FF;
font-size: 18px;
font-weight: bold;
font-style: italic;
}
.style25 {color: #0000FF; font-size: 18px; font-weight: bold; }
.style26 {color: #660000; }
.style29 {color: #330000}
.style30 {color: #FF0000}
.style31 {color: #006600}
-->
</style>
<%
set rs=server.createobject("adodb.recordset")
rs.open"select * from fjgse",conn,1,1
//---------以上是查询出第一级下拉列表的内容-----
//---------以下是用JS来控制程序--------------
%>
<script>
var count; //定义count对像
count=0;//初始值为0
subcat = new Array(); //SUBCAT对像是一个新的数组
<%
count = 0//定义count对像初始值为0
do while not rs.eof //循环表头到表尾
%>
subcat[<%=count%>] = new Array("<%=rs("fjr")%>","<%=trim(rs("fjgse"))%>","<%=trim(rs("fjr"))%>");
//以上为重点内容,对像数组(subcat[count对像值])= 新数组内容('字段名0','字段名1','字段名2')记住要对应
<%
count = count + 1 //循环count一次,COUNT的值加1
rs.movenext
loop
rs.close
%>
count=<%=count%>;
function changelocation(locationid)
{
document.form.fjgse.length = 0;
var locationid=locationid;
var i;
for (i=0;i < count; i++)
{
if (subcat[1] == locationid)
{
document.form.fjgse.options[document.form.fjgse.length] = new Option(subcat[0], subcat[2]);
}
}
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from fjgsc" ,conn,1,1
if rs.eof then
response.Write"暂无产品一类名称"
else
%>
<p>公司名称(中文)
<select name="fjgsc" id="fjgsc" onChange="changelocation(document.form.fjgsc.options[document.form.fjgsc.selectedIndex].value)">
<option value="<%=rs("fjgsc")%>"><%=rs("fjgsc")%></option>
<%
do while not rs.eof
%>
<%
rs.movenext
loop
end if
%>
</select>
公司名称(英文)
<select name="fjgse" id="fjgse" onChange="three(document.form.fjgsc.value,document.form.fjgse.options[document.form.fjgse.selectedIndex].value)">
<option value="请选择条件" selected>请选择条件</option>
</select>
<%
set rs=server.createobject("adodb.recordset")
rs.open"select * from fjr",conn,1,1
%>
<script language = "JavaScript">
var twocount;
twocount=0;
subthree = new Array();
<%
countb = 0
do while not rs.eof
%>
subthree[<%=countb%>] = new Array("<%=rs("fjr")%>","<%=trim(rs("fjgsc"))%>","<%=trim(rs("fjgse"))%>","<%=trim(rs("fjr"))%>");
<%
countb = countb + 1
rs.movenext
loop
rs.close
%>
twocount=<%=countb%>;
function three(threeid,threeid2)
{
document.form.fjr.length = 0;
var threeid=threeid;
var threeid2=threeid2;
var i;
for (i=0;i < twocount; i++)
{
if ((subthree[1] == threeid) & (subthree[2] == threeid2))
{
document.form.fjr.options[document.form.fjr.length] = new Option(subthree[0], [外运发展贵州分公司IT部] subthree[3]);
}
}
}
</script>
DHL客户发件人
<select name="fjr" id="fjr">
<option value="0" selected>请选择条件</option>
</select>
</p>
<p> </p>
</body>
</html>