ASP+ACCESS数据库查询的问题

试试这句:

uid=requestform("uid")

sql="select from shuju where id="&uid

或

sql="select from shuju where id="&requestform("uid")

后一句可能性不是太大，我IIS关闭了，没法调试，前一句一定行

你语法错误吧？

sql="select from shuju where id="&uid and time="&date

如果是查数字型的语法应该是

sql="select from shuju where id=数字"

如果是变量应该是

sql="select from shuju where id="&变量

如果是字符串型的应该是

sql="select from shuju where 列名='字符串'"

字符串变量

sql="select from shuju where 列名='"&字符串变量&'"

查询询日期的语法应该是

sql="select from shuju where 列名=#日期#"

如果是日期变量

日期变量=#2007-11-19# '此处不可少#号

sql="select from typecontent where 列名=#"&日期变量&"#"

还有什么不懂的可以给我留言。关于SQL查询应该算是个难点

Set oRs=connexecute("select from chengji where fenshu=50")

IF not(oRseof and oRsbof) Then

Do While not oRseof

responsewrite oRs("banji")&oRs("xingming ")&oRs("fenshu")&

oRsmovenext

loop

End IF

oRsclose:set oRs=Nothing

数据库连接自己应该有，最后关闭数据连接就ok了

数据连接页

connasp

<%

dim conn,mdbfile

mdbfile=servermappath("db1mdb")

set conn=servercreateobject("adodbconnection")

connopen "driver={microsoft access driver (mdb)};dbq="&mdbfile

%>

添加数据页

Addasp

<form name="form1" method="post" action="Saveasp">

<p>

<input name="xingming" type="text" id="xingming">

</p>

<p>

<input name="xingbie" type="text" id="xingbie">

</p><input name="" type="submit" value="提交">

<input type="reset" name="Submit" value="重置">

</form>

保存数据页

Saveasp

<!--#include file="Connasp"-->

<%

xingming = Request("xingming")

xingbie = Request("xingbie")

Set iRs = ServerCreateObject("ADODBRecordSet")

iSQL = "Select from Data Where (Id is null)"

iRsOpen iSQL,Conn,1,3

iRsAddNew

iRs("xingming") = xingming

iRs("xingbie") = xingbie

iRsUpdate

iRsClose()

Set iRs = Nothing

ConnClose()

Set Conn = Nothing

ResponseWrite("<script>alert('添加数据成功');locationhref='Addasp';</script>")

%>

罗列页

Listasp

<!--#include file="Connasp"-->

<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">

<%

Set oRs = ServerCreateObject("ADODBRecordSet")

iSQL = " Select from Data Order By Id Desc"

oRsOpen iSQL,Conn,1,1

if oRseof and oRsbof then

ResponseWrite("<tr><td height=""120"" align=""center"" bgcolor=""#FFFFFF""><font color=""red"">还没有记录</font></td></tr>")

Responseend

else

%>

<tr>

<td height="22" colspan="4" align="center">姓名</td>

<td align="center">性别</td>

<td width="25%" align="center">选择 *** 作</td>

<td width="9%" align="center">是否删除</td>

</tr>

<%

oRspagesize=15

nPageCount=oRsPageCount

if CurrentPage>oRsPageCount then CurrentPage=oRsPageCount

if CurrentPage<=0 then CurrentPage=1

oRsabsolutepage=CurrentPage

for i = 1 to oRspagesize

%>

<tr>

<td height="26" colspan="4" align="center" bgcolor="#FFFFFF"><%=oRs("xingming")%></td>

<td align="center" bgcolor="#FFFFFF"><%=oRs("xingbie")%></td>

<td align="center" bgcolor="#FFFFFF"> <a href="EditaspId=<%=oRs("Id")%>">编辑</a></td>

<td align="center" bgcolor="#FFFFFF"><a href="DelaspId=<%=oRs("Id")%>" onclick="return DelConfirm();">删除</a></td>

</tr>

<%

oRsMoveNext

if oRseof then Exit for

Next

end if

%>

<tr>

<td height="26" colspan="7" align="center" bgcolor="#FFFFFF"><table width="87%" height="23" border="0" cellpadding="0" cellspacing="0">

<tr>

<td align="right"><%PageLink()%></td>

</tr>

</table></td>

</tr>

<td width="3%"></form>

</table>

<%

Sub PageLink()

Dim PageName

PageName = RequestServerVariables("SCRIPT_NAME")

ResponseWrite "共 <font color=""red""><b>" & oRsRecordCount & "</b></font> 个用户    "

ResponseWrite "<font color=""red"">" & CurrentPage & "</font>/" & nPageCount & " 页   "

if Keyword="" then

If CurrentPage = 1 Or nPageCount=0 Then

ResponseWrite "<font color=""#CCCCCC"">首页</font> "

Else

ResponseWrite "<a href=""" & PageName & "Page=1&Use_Type=" & Use_Type & """>首页</a> "

End If

If CurrentPage = 1 Or nPageCount=0 Then

ResponseWrite "<font color=""#CCCCCC"">上一页</font> "

Else

ResponseWrite "<a href=""" & PageName & "Page=" & CurrentPage-1 & "&Use_Type=" & Use_Type & """>上一页</a> "

End If

If CurrentPage = nPageCount Then

ResponseWrite "<font color=""#CCCCCC"">下一页</font> "

Else

ResponseWrite "<a href=""" & PageName & "Page=" & CurrentPage+1 & "&Use_Type=" & Use_Type & """>下一页</a> "

End If

If CurrentPage = nPageCount Then

ResponseWrite "<font color=""#CCCCCC"">未页</font> "

Else

ResponseWrite "<a href=""" & PageName & "Page=" & nPageCount &"&Use_Type=" & Use_Type & """>未页</a>"

End If

else

If CurrentPage = 1 Or nPageCount=0 Then

ResponseWrite "<font color=""#CCCCCC"">首页</font> "

Else

ResponseWrite "<a href=""" & PageName & "Keyword=" & Keyword & "&dteFrom=" & odteFrom & "&dteTo=" & odteTo & "&Page=1&Use_Type=" & Use_Type & """>首页</a> "

End If

If CurrentPage = 1 Or nPageCount=0 Then

ResponseWrite "<font color=""#CCCCCC"">上一页</font> "

Else

ResponseWrite "<a href=""" & PageName & "Keyword=" & Keyword & "&dteFrom=" & odteFrom & "&dteTo=" & odteTo & "&Page=" & CurrentPage-1 & " &Use_Type=" & Use_Type & """>上一页</a> "

End If

If CurrentPage = nPageCount Then

ResponseWrite "<font color=""#CCCCCC"">下一页</font> "

Else

ResponseWrite "<a href=""" & PageName & "Keyword=" & Keyword & "&dteFrom=" & odteFrom & "&dteTo=" & odteTo & "&Page=" & CurrentPage+1 & " &Use_Type=" & Use_Type & """>下一页</a> "

End If

If CurrentPage = nPageCount Then

ResponseWrite "<font color=""#CCCCCC"">未页</font> "

Else

ResponseWrite "<a href=""" & PageName & "Keyword=" & Keyword & "&dteFrom=" & odteFrom & "&dteTo=" & odteTo & "&Page=" & nPageCount &" &Use_Type=" & Use_Type & """>未页</a>"

End If

end if

End Sub %>

编辑页

Editasp

<!--#include file="Connasp"-->

<%

Id = Request("Id")

if Id = "" then

ResponseWrite("<script>alert('错误 *** 作');historygo(-1);</script>")

Responseend()

end if

Set Rs = ServerCreateObject("ADODBRecordSet")

iSQL = "Select from data Where Id = " & Id

RsOpen iSQL,Conn,1,1

if Rseof and Rsbof then

Responsewrite("<script>alert('数据库出错');historygo(-1);</script>")

Responseend()

else

%>

<form action="Save_iUseEditasp" method="post" name="aForm" id="aForm" onSubmit="return checkReg();">

<input type="hidden" name="Id" value="<%=Id%>">

<p>

<input name="xingming" type="text" id="xingming" value="<%=Rs("xingming")%>" maxlength="20" />

</p>

<p>

<input name="xingbie" type="text" id="xingbie" value="<%=Rs("xingbie")%>" maxlength="20" />

</p><input name="" type="submit" value="提交">

<input type="reset" name="Submit" value="重置">

</form>

<%

end if

RsClose

Set Rs = Nothing

ConnClose

Set Conn = Nothing

%>

保存编辑页比较简单，篇幅不够，就自己写下了，如果需要我帮忙的话再短信联系！

不好意思，直接怕是不能

1方法:这个需要引入一个索引，先要将数据库用户信息中王小明所引成wangxiaoming,也就是模拟一个表，access里直接索引好像不好做这样类型的。亲。那就试试CREATE INDEX语法。中文转英文拼字符需要引入字典。那接下来相当于有wangxiaoming这样的表了。

2方法:索引不要了，直接先生成带wangxiaoming的xml格式，不用sql了，用xml去匹配。这个也要引入字典

set

rs=ServerCreateObject("ADODBRecordset")

Set

cm

=

cnExecute("select

from

image

where

A

like

'1'

and

B

like

'2'")

count

=

cmrecordcount

改为:

set

rs=ServerCreateObject("ADODBRecordset")

rsopen

"select

from

image

where

A

like

'1'

and

B

like

'2'",cn,1,3

count

=

rsrecordcount

如果能天常运行

那肯定是有的。

现在大部分ASP的网站都是把mdb改成asp，为了防止下载。

你的问题八成是这个。

两个方法，都很简单。

1、你本地有一个网站的镜像，查找所有文件，然后按文件大小排序，最大的应该就是你的MDB文件了。

2、在ASP页面里找到链接数据库的语句（很多时间也会单独做一个文件来链数据库，一般起名为connasp），看看你的数据库的路径就知道了。

dim sqltitle

sqltitle=""

if sarea<>"" then sqltitle=sqltitle&" where area='"&sarea"'" '必须的选项

if stown<>"" then sqltitle=sqltitle&" and town='"&stown"'"

if stype<>"" then sqltitle=sqltitle&" and type='"stype"'"

set rs=serverCreateObject("adodbrecordset")

rsopen "select from table "&sqltitle&" order by id desc",conn,1,1

要看你两个时间定义到多详细

DateDiff(参数1，参数2，参数3)这个函数可以用来计算两个时间的差，参数1是类型 s表示秒 d 表示天数 参数2 和3 是两个需要计算差值的时间

select from biao where DateDiff('s',这里写输入的开始时间,[shijian]) >0 and DateDiff('s',这里写输入的结束时间,[shijian]) <0

以上sql语句>0和<0可能写反了 没测试 按需要也可以改成 大于等于0 和 小于等于0

Aasp提交表单到Basp

这个就是表单提交 将两个输入时间的input 定义好name

然后 Basp接收两个时间 post方式提交 用 RequestForm('Aasp页中input定义的name')来接收输入的时间

然后建立access连接 将上面的 sql语句 发送给数据库 来返回信息 如果你有基础 我说的这些应该够了

因为没测试 可能有地方语法有问题 这个就算是思路吧 给你提个醒用

以上就是关于ASP+ACCESS数据库查询的问题全部的内容，包括:ASP+ACCESS数据库查询的问题、asp查询access问题、asp+access数据查询等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！