Question

ASP将数据库记录中的字段最大值+1填入给文本框具体代码

select max(字段) as 字段 from 表名
<input type="text" value="<%=rs("刚才查询到的最大值字段")+1%>

上面说的格式是另一个网友提供的，没有详细代码，不是本人写的，
能提供<% %>中间详细代码吗？

高分追加！！！

Answer 1

select max(字段) as aabbcc from 表名

注意这个as后面的aabbcc就是一个临时字段名。<%=rs("aabbcc")+1%>这样

追问

谢谢，
我主要问的是上面连接的信息具体怎么写，高分追加！！！

中间详细代码

追答

<%
dim DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,conn
      DataServer   = "*.*.*.*"              '数据库服务器IP
 DataUser     = "aaaa"                   '访问数据库用户名
 DataBaseName = "aaaaa"                '数据库名称
 DataBasePsw  = "aabbcc"               '访问数据库密码
    ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"    '这是mssql数据库连接
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open ConnStr
    
%>
<%
    dim rs,sql
    set rs=Server.CreateObject("ADODB.RECORDSET")
    sql="select max(字段) as _max from 表名"
    rs.open sql,conn,1,1
    if rs.bof and rs.eof then
        response.write "nothing!<hr>"
    else
    
%>
<input type="text" value="<%=rs("_max")+1%>">
<!---其他html代码-->
<%
    end if
    rs.close
    set rs=nothing
    Conn.close:Set Conn=nothing
%>

追问

非常感谢，可惜我的是ACC数据库，能再麻烦一次吗，我先追加20分

追答

<%
dim DBPath,ConnStr
DBPath       = "/aaabbbccc/aaaa.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
conn.open ConnStr
%>

追问

怎么没有select max(字段) 这些呢，怎么连接

追答

<%
dim DBPath,ConnStr
DBPath       = "/aaabbbccc/aaaa.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
conn.open ConnStr'打开access
'上面是定义conn，其中access数据库名字位置自行修改。
    dim rs,sql
    set rs=Server.CreateObject("ADODB.RECORDSET")
    sql="select max(字段) as _max from 表名"
    rs.open sql,conn,1,1    '打开数据库，表名/字段名自行修改
    if rs.bof and rs.eof then'查询结果空
        response.write "nothing!<hr>"
    else
%>
<input type="text" value="<%=rs("_max")+1%>">'临时字段名与sql语句保持一致
<!---其他html代码-->
<%
    end if
    rs.close
    set rs=nothing'关闭rs并释放
    Conn.close:Set Conn=nothing'关闭conn并释放
%>

追问

非常好，但是我的表名是 order，用这个表名就出错
sql="select max(js) as _max from order" 换别的表名可以，请问表名是 order这个代码怎么改，谢谢

追答

最少要改两个地方，首先是第三行，数据库名字和位置。
然后是第九行，表名，列名：sql="select max(js) as _max from 你的表名"
------------
order是sql关键字，不要做表名，换一个。

Answer 2

<%=rs("id+1")%>

追问

是
中间详细代码