想用DW做一个查询库存的ASP 表单连接数据库的表之后 不能预览

大琳 发布于 2014/11/06 17:18
阅读 955
收藏 0

想在DW的表格中显示数据库里的表的数据

IIS、ASP什么的已经都设置好了


一下是该页面的全部代码:


<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/restaurant.asp" -->
<%
Dim Material
Dim Material_cmd
Dim Material_numRows


Set Material_cmd = Server.CreateObject ("ADODB.Command")
Material_cmd.ActiveConnection = MM_restaurant_STRING
Material_cmd.CommandText = "SELECT * FROM dbo.Material" 
Material_cmd.Prepared = true



Set Material = Material_cmd.Execute
Material_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index


Repeat1__numRows = -1
Repeat1__index = 0
Material_numRows = Material_numRows + Repeat1__numRows
%>
<!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" />
<title>无标题文档</title>
<style type="text/css">
body {
background-image: url(Image/4a55d354c8f7df135b8eb8b93fe10327.png);
background-repeat: no-repeat;
}
#apDiv1 {
position: absolute;
width: 200px;
height: 115px;
z-index: 1;
left: 826px;
top: 94px;
}
#apDiv2 {
position: absolute;
width: 730px;
height: 602px;
z-index: 2;
left: 72px;
top: 98px;
}
#apDiv3 {
position: absolute;
width: 200px;
height: 115px;
z-index: 3;
left: 74px;
top: 712px;
}
#apDiv4 {
position: absolute;
width: 200px;
height: 115px;
z-index: 4;
left: 420px;
top: 714px;
}
#apDiv5 {
position: absolute;
width: 149px;
height: 45px;
z-index: 5;
left: 969px;
top: 752px;
font-family: "黑体";
font-size: 36px;
}
</style>
</head>


<body>
<div id="apDiv1"><img src="Image/1414142879_712050.png" width="343" height="109" /></div>
<div id="apDiv2">
  <table  height="608" width="600" border="1">
    <tr>
      <td width="92">原材料ID</td>
      <td width="164">原材料名</td>
      <td width="92">库存量</td>
      <td width="142">保质期</td>
      <td width="76">单价</td>
    </tr>
    <% 
While ((Repeat1__numRows <> 0) AND (NOT Material.EOF)) 
%>
      <tr>
        <td height="59"><%=(Material.Fields.Item("Mid").Value)%></td>
        <td><%=(Material.Fields.Item("Mname").Value)%></td>
        <td><%=(Material.Fields.Item("Minventory").Value)%></td>
        <td><%=(Material.Fields.Item("MEXP").Value)%></td>
        <td><%=(Material.Fields.Item("Mprice").Value)%></td>
      </tr>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Material.MoveNext()
Wend
%>
<tr>
      <td><%=(Material.Fields.Item("Mid").Value)%></td>
      <td><%=(Material.Fields.Item("Mname").Value)%></td>
      <td><%=(Material.Fields.Item("Minventory").Value)%></td>
      <td><%=(Material.Fields.Item("MEXP").Value)%></td>
      <td><%=(Material.Fields.Item("Mprice").Value)%></td>
    </tr>
    <tr>
      <td><%=(Material.Fields.Item("Mid").Value)%></td>
      <td><%=(Material.Fields.Item("Mname").Value)%></td>
      <td><%=(Material.Fields.Item("Minventory").Value)%></td>
      <td><%=(Material.Fields.Item("MEXP").Value)%></td>
      <td><%=(Material.Fields.Item("Mprice").Value)%></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
</div>
<div id="apDiv3"><img src="Image/上一页.png" width="255" height="91" /></div>
<div id="apDiv4"><img src="Image/下一页.png" width="255" height="91" /></div>
<div id="apDiv5"><a href="菜单.asp">回主菜单</a></div>
</body>
</html>
<%
Material.Close()
Set Material = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>


以下是可视化界面

以下是预览出现的乱码界面

以下是问题补充:

@大琳:更改编码为简体GB2312之后 乱码的倒是成了中文 以下就是报错 Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005' [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序 /库存查询.asp,行 9 (2014/11/06 20:31)
加载中
0
字母大号被盗了

1. 请直接用浏览器打开预览(按F12),不要用DW的开发,设计等模式预览。

2. 页面有看到设置编码是utf-8. 请检测连接数据库时的编码和数据库、表的编码是否一致

 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 

字母大号被盗了
回复 @大琳 : 你可以先不管页面是否报错,先在你的后台读取数据,控制台打印看是否乱码?如果是乱码,那就是你后台数据连接的编码和数据库、表的编码不一致。如果不是乱码,就是页面和你后台编码不一致。出错了,需要一步步调试,找错的源头
大琳
大琳
直接用浏览器打开的话呢,他就直接说网页有错
大琳
大琳
请问怎么看编码是否一致呢?我试过改成GB2312 还是一样的乱码
0
无尽的折腾啊
无尽的折腾啊
你测试的时候可以先用 GB2312  估计是数据库路径不对~
大琳
大琳
试过GB2312了 还是一样的乱码 ,测试记录集的时候能成功看到数据库里的数据 路径应该没事吧
0
大琳
大琳
在代码里改成GB2312成功了,直接在CTRL+U里改的话 不成功
返回顶部
顶部