谁能帮我做一个ASP的页面，查库存的，对于会ASP的很简单，不过我不会，100分奉上
表结构这样（中文字段名），SQL Server数据库：
表：depotAll
CREATE TABLE dbo.depotAll
(
货物编号 varchar(20) NOT NULL,
颜色 varchar(20) NULL,
数量一 numeric(12,4) CONSTRAINT DF__depotAll__数量__618671AF DEFAULT 0 NULL,
数量二 numeric(12,4) CONSTRAINT DF_depotAll_数量1 DEFAULT 0 NULL,
数量三 numeric(12,4) CONSTRAINT DF_depotAll_数量2 DEFAULT 0 NULL,
数量四 numeric(12,4) CONSTRAINT DF_depotAll_数量3 DEFAULT 0 NULL,
数量五 numeric(12,4) CONSTRAINT DF_depotAll_数量4 DEFAULT 0 NULL,
数量六 numeric(12,4) CONSTRAINT DF_depotAll_数量5 DEFAULT 0 NULL,
数量七 numeric(12,4) CONSTRAINT DF_depotAll_数量6 DEFAULT 0 NULL,
数量八 numeric(12,4) CONSTRAINT DF_depotAll_数量7 DEFAULT 0 NULL,
数量九 numeric(12,4) CONSTRAINT DF_depotAll_数量8 DEFAULT 0 NULL,
数量十 numeric(12,4) CONSTRAINT DF_depotAll_数量9 DEFAULT 0 NULL,
数量十一 numeric(12,4) CONSTRAINT DF_depotAll_数量10 DEFAULT 0 NULL,
数量十二 numeric(12,4) CONSTRAINT DF_depotAll_数量十一1 DEFAULT 0 NULL,
数量十三 numeric(12,4) CONSTRAINT DF_depotAll_数量十一2 DEFAULT 0 NULL,
单价 money CONSTRAINT DF_depotAll_单价 DEFAULT 0 NULL
)
go
表：goods
CREATE TABLE dbo.goods
(
货物编号 varchar(20) NOT NULL,
拼音简码 varchar(10) NULL,
中文名称 varchar(30) NULL,
英文名称 varchar(30) NULL,
对方布料 varchar(20) NULL,
货物类型 varchar(50) NULL,
型号 varchar(50) NULL,
单位编号 varchar(20) NULL,
品牌 varchar(20) NULL,
系列 varchar(50) NULL,
年限 varchar(10) NULL,
季节 varchar(10) NULL,
供应商 varchar(20) NULL,
颜色编号 varchar(20) NULL,
尺码组 varchar(20) NULL,
最大库存 numeric(12,4) CONSTRAINT DF_goods_最大库存 DEFAULT 0 NULL,
最小库存 numeric(12,4) CONSTRAINT DF_goods_最小库存 DEFAULT 0 NULL,
是否在用 bit NULL,
可否赠品 bit NULL,
可否打折 bit NULL,
备注 text NULL,
采购单价 money NULL,
销售单价 money NULL,
成分 varchar(40) NULL,
CONSTRAINT PK_goods
PRIMARY KEY CLUSTERED (货物编号)
ON [PRIMARY]
)
go
做一个页面，表头固定，表头格式“www.topshang.com/aaa.jpg”，要这么几项就可以了，货物编号、货物名称、从28－40分别对应“数量一”到“数量十三”就可以了，谢谢了
问题点数：100、回复次数：4Top
1 楼ferrari（来吧，用钱砸死我吧!）回复于 2003-09-02 14:59:02 得分 0
查询分析器里拖一下就出来了。Top
2 楼ccmoon（IzuaL）回复于 2003-09-02 16:33:18 得分 100
把connStr改成你的数据库地址就可以了
<%
Dim connStr
connStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=chenhy;Pwd=111;Initial Catalog=test;Data Source=Sypshe-ad-01"
Dim conn
Dim rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr
Set rs = Server.CreateObject("ADODB.Recordset")
strSql = " SELECT dbo.depotAll.货物编号, dbo.goods.中文名称, dbo.depotAll.数量一, "
strSql = strSql & "dbo.depotAll.数量二, dbo.depotAll.数量三, dbo.depotAll.数量四, dbo.depotAll.数量五, "
strSql = strSql & "dbo.depotAll.数量六, dbo.depotAll.数量七, dbo.depotAll.数量八, dbo.depotAll.数量九, "
strSql = strSql & "dbo.depotAll.数量十, dbo.depotAll.数量十一, dbo.depotAll.数量十二, "
strSql = strSql & "dbo.depotAll.数量十三 "
strSql = strSql & "FROM dbo.depotAll LEFT OUTER JOIN "
strSql = strSql & "dbo.goods ON dbo.depotAll.货物编号 = dbo.goods.货物编号"
rs.Open strSql, conn ,1,1
If rs.BOF and rs.EOF Then
Response.Write "没有符合条件的数据。"
rs.close
set rs = nothing
conn.close
Response.End
End If
%>
<TABLE align=center bordercolor="#000000" border=1 cellPadding=0 cellSpacing=1 width="100%">
<tr height="20" >
<td align="center">货物编号</td>
<td align="center">货物名称</td>
<td align="center">数量一</td>
<td align="center">数量二</td>
<td align="center">数量三</td>
<td align="center">数量四</td>
<td align="center">数量五</td>
<td align="center">数量六</td>
<td align="center">数量七</td>
<td align="center">数量八</td>
<td align="center">数量九</td>
<td align="center">数量十</td>
<td align="center">数量十一</td>
<td align="center">数量十二</td>
<td align="center">数量十三</td>
</tr>
<%
If rs.BOF or rs.EOF Then
Response.Write "<tr><td colspan=7 align=left><b>没有符合条件的数据。</b></td></tr>"
End If
do while not rs.eof
%>
<tr height="20" >
<td align="center"><%=rs(0)%></td>
<td align="center"><%=rs(1)%></td>
<td align="center"><%=rs(2)%></td>
<td align="center"><%=rs(3)%></td>
<td align="center"><%=rs(4)%></td>
<td align="center"><%=rs(5)%></td>
<td align="center"><%=rs(6)%></td>
<td align="center"><%=rs(7)%></td>
<td align="center"><%=rs(8)%></td>
<td align="center"><%=rs(9)%></td>
<td align="center"><%=rs(10)%></td>
<td align="center"><%=rs(11)%></td>
<td align="center"><%=rs(12)%></td>
<td align="center"><%=rs(13)%></td>
<td align="center"><%=rs(14)%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
rs.close
set rs = nothing
conn.close
%>Top
3 楼ccmoon（IzuaL）回复于 2003-09-02 16:35:08 得分 0
把connStr改成你的数据库地址就可以了
<%
Dim connStr
connStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=chenhy;Pwd=111;Initial Catalog=test;Data Source=Sypshe-ad-01"
Dim conn
Dim rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr
Set rs = Server.CreateObject("ADODB.Recordset")
strSql = " SELECT dbo.depotAll.货物编号, dbo.goods.中文名称, dbo.depotAll.数量一, "
strSql = strSql & "dbo.depotAll.数量二, dbo.depotAll.数量三, dbo.depotAll.数量四, dbo.depotAll.数量五, "
strSql = strSql & "dbo.depotAll.数量六, dbo.depotAll.数量七, dbo.depotAll.数量八, dbo.depotAll.数量九, "
strSql = strSql & "dbo.depotAll.数量十, dbo.depotAll.数量十一, dbo.depotAll.数量十二, "
strSql = strSql & "dbo.depotAll.数量十三 "
strSql = strSql & "FROM dbo.depotAll LEFT OUTER JOIN "
strSql = strSql & "dbo.goods ON dbo.depotAll.货物编号 = dbo.goods.货物编号"
rs.Open strSql, conn ,1,1
If rs.BOF and rs.EOF Then
Response.Write "没有符合条件的数据。"
rs.close
set rs = nothing
conn.close
Response.End
End If
%>
<TABLE align=center bordercolor="#000000" border=1 cellPadding=0 cellSpacing=1 width="100%">
<tr height="20" >
<td align="center">货物编号</td>
<td align="center">货物名称</td>
<td align="center">数量一</td>
<td align="center">数量二</td>
<td align="center">数量三</td>
<td align="center">数量四</td>
<td align="center">数量五</td>
<td align="center">数量六</td>
<td align="center">数量七</td>
<td align="center">数量八</td>
<td align="center">数量九</td>
<td align="center">数量十</td>
<td align="center">数量十一</td>
<td align="center">数量十二</td>
<td align="center">数量十三</td>
</tr>
<%
If rs.BOF or rs.EOF Then
Response.Write "<tr><td colspan=7 align=left><b>没有符合条件的数据。</b></td></tr>"
End If
do while not rs.eof
%>
<tr height="20" >
<td align="center"><%=rs(0)%></td>
<td align="center"><%=rs(1)%></td>
<td align="center"><%=rs(2)%></td>
<td align="center"><%=rs(3)%></td>
<td align="center"><%=rs(4)%></td>
<td align="center"><%=rs(5)%></td>
<td align="center"><%=rs(6)%></td>
<td align="center"><%=rs(7)%></td>
<td align="center"><%=rs(8)%></td>
<td align="center"><%=rs(9)%></td>
<td align="center"><%=rs(10)%></td>
<td align="center"><%=rs(11)%></td>
<td align="center"><%=rs(12)%></td>
<td align="center"><%=rs(13)%></td>
<td align="center"><%=rs(14)%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
rs.close
set rs = nothing
conn.close
%>Top
4 楼tigerwen01（小虎）回复于 2003-09-02 16:35:32 得分 0
很简单，先连上数据库，再用T-SQL语句查询。Top
