日期:2014-05-17  浏览次数:20891 次

asp中调用数据库问题 急求解。。。。在线等
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="index.css"/>
<title>无标题文档</title>
<link rel="stylesheet" type="text/css" href="index.css"/>
</head>

<body>
<div id="head">
<table height="117" width="1001" cellpadding="0" cellspacing="0" background="images/yongjie_02.gif" style="background-repeat:no-repeat;">
  <tr>
  <td height="85" colspan="2" align="right" >
  <table width="200" height="20" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; margin-right:8px; font-size:12px; margin-right:8px; margin-top:8px;">
  <tr>
  <td>关于我们 | 加入收藏 | 联系我们</td>
  </tr>
  </table>
</td>
  </tr>
  <tr>
  <td height="36" style="background:url(images/yongjie_03.gif); background-repeat:no-repeat;" align="right">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Ameav_Navigation where ViewFlag and NavType=0 order by Sequence asc"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
%>
  <table border="0" cellpadding="0" cellspacing="0" class="elecenter" id="navlist">
  <tr>
  <%
do while not rs.eof
%>
  <%
if rs.AbsolutePosition=rs.RecordCount then
%>
  <td><a href="<%=rs("NavUrl")%>" <%if pagename=""&rs("NavName")&"" then Response.Write("class=""pageon""") end if%>><%=rs("NavName")%></a></td>
  <%
else
%>
  <td><a href="<%=rs("NavUrl")%>" <%if pagename=""&rs("NavName")&"" then Response.Write("class=""pageon""") end if%>><%=rs("NavName")%></a></td>
  <td class="navline"></td>
  <%
end if
%>
  <%
rs.movenext
loop
%>
  </tr>
  </table>
  <%
end if
rs.close
set rs=nothing
%>
</td>
  </tr>
  </table>
</td>
  </tr>
  
  <tr>
  <td height="304" colspan="2" valign="top">
<img src="images/yongjie_04.gif" />
</td>
  </tr>
</table>


</div>
</body>
</html>


------解决方案--------------------
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
都指定js 了为啥还用vbs