wuyq11 下面的asp如何通过啊

javascriptLover1 2010-01-17 12:59:06

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!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 runat="server">

    <title>Untitled Page</title>

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

    </head>

<body>

    <form id="form1" runat="server">

    <div> 

 <% Dim  myConnection  As  New  OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;   Data source="&server.MapPath("dete/date.mdb") )

                Dim  mySelectQuery  As  String  =  "select [name] from  user1" 

                  Dim  mycommand  As  New  OleDbCommand(mySelectQuery,  myConnection) 

                myConnection.Open() 

                 Dim  myReader  As  OleDbDataReader 

                 myReader  =  mycommand.ExecuteReader() 

                  myReader.Read() 

                 Label1.Text  =  CStr(myReader.GetInt32(0))  +  ","  +  myReader.GetString(1) 

                 

                myReader.Close() 

                myConnection.Close() 

                 %>

                 

        <input id="Label1" type="text" />              

        <input id="Label2" type="text" />              

        <input id="Label3" type="text" />

    </div>

    </form>

</body>

</html>

...全文

76 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

plglenn 2010-01-17

打赏
举报

javascriptLover1 2010-01-17

打赏
举报

<% Dim myConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data source="+server.MapPath("dete/date.mdb") )

%>

这句话没有问题么？

wuyq11 2010-01-17

打赏
举报

javascriptLover1 2010-01-17

打赏
举报

 <%  Dim  myConnection  As  New  OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;   Data source="+server.MapPath("dete/date.mdb") )

             

                 %>

为什么这么一句话都有问题啊
Microsoft VBScript 编译器错误 '800a0401'

语句未结束

\default.asp, line 12

[Aws V2.0] Need Help? Contact QQ:77826787

wuyq11 2010-01-17