Question

ASP 文本字段比大小问题，在线等，

Bno是文本字段，要通过对比找到排Bno前面的那个数据，Bno是产品型号英文加数字的
Sql="select top 1 ProID, Bno from UBoyIT_Product where Bno<"&vrs("Bno")&" order by Bno desc"
这样写一直是错的，请高手帮忙下，

Answer 1

order by 本身是排序 desc倒序 asc正序
你可以直接rs.movenext找到下一个数据
例如，编号一二三，你现在读到编号为二的记录，想找编号一对应的记录，那你可以在读编号二时使用order by Bno desc 然后再rs.movenext就是编号一对应的记录了，如果你要找对应编号三的记录则可以order by Bno asc 然后再rs.movenext就是编号三对应的记录了

Answer 2

请先把ACCESS数据库建好！

ACCESS数据库结构如下：
库名：gggg.mdb
表名：xxxx
字段名：
LID USHIPNAME（文本型，字段大小：50）
LDATE（文本型，字段大小：50）
LTIME（文本型，字段大小：50）
LUSERNAME（文本型，字段大小：50）
LCAPTAIN（文本型，字段大小：50）
LLOG（文本型，字段大小：255）
LLEVEL（文本型，字段大小：50）

注意LLOG字段的大小设置。

请调试运行下列程序（本人运行通过）：
（test.asp,ggg.mdb,xiaohei.log三个文件在同一目录下）

test.asp

<%
'连接ACCESS数据库
set conn=server.createobject("adodb.connection")
provider="provider=microsoft.jet.oledb.4.0;"
DBPath ="data source=" & Server.MapPath("gggg.mdb")
conn.Open provider & DBPath
sql="select * from xxxx"
set rs=server.createobject("adodb.recordset")
Rs.open sql,conn,3,2
'打开文本文件
Dim LogFileName
LogFileName = "xiaohei.log"
set MyFileObject=server.CreateObject("Scripting.FileSystemObject")
set MyLogFile=MyFileObject.OpenTextFile(server.MapPath(LogFileName),1)
'逐行处理
while not MyLogFile.AtEndOfStream
LogMessage=Trim(MyLogFile.readline)
if LogMessage<>"" then
LogArr = split(LogMessage,"|")
Rs.AddNew
Rs("LID USHIPNAME")=Trim(LogArr(0))
Rs("LDATE")=Trim(LogArr(1))
Rs("LTIME")=Trim(LogArr(2))
Rs("LUSERNAME")=Trim(LogArr(3))
Rs("LCAPTAIN")=Trim(LogArr(4))
Rs("LLOG")=Trim(LogArr(5))
Rs("LLEVEL")=Trim(LogArr(6))
Rs.Update
end if
wend
'关闭文件
MyLogFile.close
Rs.Close
Set Rs=nothing
conn.close
Set conn=nothing
response.write "写入成功！"
%>
另外,虚机团上产品团购,超级便宜

Answer 3

文本型： '"&vrs("Bno")&"'
文本型 用什么比较 "<" 符号，……

Answer 4

select top 1 ProID, Bno from UBoyIT_Product order by Bno desc
'order by 本身就是排序 desc 和 asc

Answer 5

select CAST(字段1 AS int) AS 字段1, CAST(字段2 AS int) AS 字段2 from 表 where 字段1<字段2
你用用这个试试 不知道可以不