7,713
社区成员
发帖
与我相关
我的任务
分享各位高手，我在用asp连接access数据库时的代码如下，请帮忙修改！！急急急急急！！！！
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>查询界面</title>
</head>
<body stylesrc="right.htm">
<FORM METHOD="get" ACTION="subdbtable.asp">
<P>请选择搜索种类： </p>
<p>
<select name="kind">
<option selected>种类</option>
<option value="1">品牌</option>
<option value="1">品牌</option>
<option value="1">品牌</option>
<option value="1">品牌</option>
<option value="1">品牌</option>
</select>
</p>
<p>请输入关键词：<INPUT TYPE="TEXT" NAME="Keyword" SIZE="40"></P>
<INPUT TYPE="SUBMIT" VALUE="开始查询">
<INPUT TYPE="RESET" VALUE="重新输入">
</FORM>
</BODY>
</HTML>
<select.htm>
下面是<subdbtable.asp>
<%
Dim Kind,Keyword
Kind=Request("Kind")
Keyword=Request("Keyword")
%>
<html>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "mydb"
strSQL="SELECT * FROM 产品表 WHERE "& Kind &" like "& Keyword &" "
ser rs=server.createobject("adodb.recordset")
set rs=conn.execute(strSQL)
howmanyfields=rs.fields.count-1
'统计数据库中的列数
%>
<TABLE BORDER= 1 >
<TR>
<%
'读取表的字段名称以作为表格的标题
FOR I=0 To howmanyfields
%>
<td>
<b>
<%=rs(I).Name%〉
</b>
</td>
<%next%>
</TR>
<%
Do While Not rs.EOF
%>
<tr>
<%For I=0 To howmanyfields
thisvalue=rs(I)
if isnull(thisvalue) then
thisvalue="?"
'如果字段为空，则将变量 thisvalue的值定义为一个空格
end if%>
<td valign=top><%=thisvalue%></td>
<%next%>
</tr>
<%rs.movenext
loop%>
</table>
<%
rs.close
Set rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</body>
</html>
...全文
请发表友善的回复…
发表回复
jpyc 2003-05-23
- 打赏
- 举报
报的什么错，内容说清楚点
yeziperfect1 2003-05-23
- 打赏
- 举报
谢谢！
下面有一句
rs(I).name
运行时说有错
怎么回事？
麻烦您再往下检查一下好吗？
下面有一句
rs(I).name
运行时说有错
怎么回事？
麻烦您再往下检查一下好吗？
像疯一样的男子 2003-05-23
- 打赏
- 举报
strSQL="SELECT * FROM 产品表 WHERE '"& Kind &" 'like '"& Keyword &" '"
格式为：'"& 参数 &"'
格式为：'"& 参数 &"'
