用的JS调用：<BODY > <script language="javascript" src="../tab_mode/colorsel.asp"></script> colorsel.asp代码如下： 代码: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Response.CacheControl = "no-cache" %> <!--#include file="../database/dataconn.asp"--> <% 'nocolor =trim(request("nocolor")) Set rscolor=Server.CreateObject("ADODB.RecordSet") sqltxt ="select basc_txt,basc_no from basc_prdcolor " if nocolor <>"" then arrstr =split(nocolor,",",-1,1) for i=0 to UBound(arrstr,2) if i =0 then nocolorstr ="'"&arrstr(i)&"'" else nocolorstr =nocolorstr&",'"&arrstr(i)&"'" end if next sqltxt =sqltxt &" and basc_txt not in("&nocolorstr&")" end if sqltxt =sqltxt &" order by intime" rscolor.open sqltxt, conn, 1, 1 dataArr =rscolor.GetRows() rscolor.close set rscolor=nothing outStr0 ="<table width='95%' border='0' align='center' cellpadding='0' cellspacing='0' >"&vbcrlf outStr0 =outStr0 +"<tr><td >"&vbcrlf outStr0 =outStr0 +"<table width='100%' border='0' cellpadding='0' cellspacing='0' style='font-size:12px'>"&vbcrlf outStr0 =outStr0 +"<tr>"&vbcrlf if UBound(dataArr,2) <0 then outStr0 =outStr0 +"<td align='center' height='50'>...暂无色彩选择！...</td>"&vbcrlf else for i =0 to UBound(dataArr,2) outStr1 =outStr1+"<td align='right'>"&vbcrlf outStr1 =outStr1+dataArr(0,i) outStr1 =outStr1+"<input type='checkbox' name='colorsel' value='"+dataArr(0,i)+","+dataArr(1,i)+"' onclick='incolor(this);' />"&vbcrlf outStr1 =outStr1+"<td>"&vbcrlf if i <>0 and i mod 11 =10 then outStr1 =outStr1+"<tr></tr>"&vbcrlf end if next outStr2 =outStr2 +"</tr></table>"&vbcrlf outStr2 =outStr2 +"</td></tr></table>"&vbcrlf end if outStr =outStr0 +outStr1 +outStr2 outStrx =Replace(outStr,vbcrlf,"") %> document.write ("<%=outStrx%>"); 问题如下：网上运行，在包含这个colorsel.asp的页面 看不到这一页面，本地正常运行，只有在服务器上看不到，服务器是2003。 其实页面里用<script language="javascript" src 的这种方法包含了很多页面，包含的其他页面都没有问题，只有colorsel.asp不显示，觉得很奇怪啊，今天突然在下午运行不正常了……疯掉
已经解决了 干~ 哪个SB在数据库里添加了三个空的记录 就读不出来了 因为先把颜色和颜色的编号写进数据库，然后把所有数据库里的颜色操作生成一个文本文件，然后再读的这个文件显示在前台，他NND，多了三个空的记录，文本文件生成就出错，前台也就显示不了。检查颜色添加的文件中，貌似没把数据写进表，但记录增加了一行。 系统越来越庞大，问题越来越难解决