国际金融 陈雨露:asp错误,缺少语句

来源：百度文库 编辑：高考问答 时间：2024/05/10 20:02:29
01: <HTML>
02: <HEAD>
03: <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
04: <TITLE>EX11-07B.asp 更新类别信息的内容-取出类别信息</TITLE>
05: </HEAD>
06: <BODY>
07: <%
08: strDSN="DSN=deary;uid=deary;pwd=23924400"
09: TableName = "产品类别"
13: Set OBJConn = Server.CreateObject("ADODB.Connection")
14: OBJConn.Open strDSN
15: strSQL = "Select * From " & TableName & " Where 产品名称='" & Request.Form("ClassifyNo") & "'"
16: Set Rs = OBJConn.Execute ( strSQL )
17: Response.Write "SQL Query 的内容：<BR><B><I>" & strSQL & "</I></B>"
18: If Not Rs.Eof Then
19: %>
20: <form method='post' id=form2 name=form2 Action="c.asp">
21: <table Border=1 align="center">
22: <Tr><Td colspan="2">更新类别编号</Td></Tr>
23: <Tr>
24: <Td>产品名称</Td>
25: <Td><% = Rs.Fields("产品名称")%>
26: <Input Type=Hidden Name="ClassifyNo" Value="<% = Rs.Fields("产品名称")%>">
27: </Td>
28: </Tr>
29: <Tr>
30: <Td>类别名称</Td>
31: <Td>
32: <Input Type="text" Name="ClassifyName" Size="20" Value= "<% = Rs.Fields("产品编号")%>">
33: <Input Type="Hidden" Name="ClassifyNameOri" Size="20" Va-lue="<% = Rs.Fields("产品编号")%>">
34: </Td>
35: </Tr>
36: <Tr>
37: <Td Colspan="2"><Input type="Submit" Name="Submit" Value= "更新确认"></Td></Tr>
38: </Table>
39: </Form>
40: <%
41: Else
42: Response.Write "没有相符的信息可供读取！"
43: End If
44: OBJConn.Close
45: Set Rs = Nothing
47: Set OBJConn = Nothing
48: %>
49: </BODY>
50: </HTML>
哪里错了啊?

数据库连接语句出错，你按以下的方法连接数据库吧！
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server=服务器IP;uid=deary;pwd=23924400;database=数据库名"

也不知道你是哪行错了,应该把错误信息也贴出来!
没关系,先检查你的数据库连接问题吧
dim conn
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={sql server};server=(local);uid=sa;pwd=1234;database=zuoyefeng.com"
conn.Open connstr

asp错误,缺少语句 高手帮忙,asp错误,缺少语句? ASP 缺少语句 option explici ASP 缺少语句 option explicit asp 查询语句的错误 错误问题!asp中的if 语句! Microsoft VBScript 编译器错误 (0x800A0400)缺少语句 Microsoft VBScript 编译器错误 错误 '800a0400' 缺少语句 asp高手进来，sql语句中update错误！~ asp查询语句错误，不知道什么问题