神马品牌网新鲜的白鳞鲑鱼在哪钓:关于ASP编程
来源：百度文库 编辑：神马品牌网 时间：2024/04/18 22:47:51
<%
set conn=server.createobject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("data/count.mdb")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,3
dim a
a=rs("aaa")+1
rs("aaa")=a
rs.update
a1=right("00000000"+cstr(a),5)
a2=""
dim b
b=1
do while b<=5
a2=a2+"<img src='data/"+mid(a1,b,1)+".gif'>"
b=b+1
loop
%>
请教高人
1.rs.update,是不是更新的意思？
2. a1=right("00000000"+cstr(a),5)中的5的作用是什么？
3.为什么a1和a2没有定义就使用了？
a=rs("aaa")+1
rs("aaa")=a
这个怎么理解？我是文科的，对逻辑理解不行，a赋值aaa+1,怎么反过来有把aaa赋值给了a???
set conn=server.createobject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("data/count.mdb")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,3
dim a
a=rs("aaa")+1
rs("aaa")=a
rs.update
a1=right("00000000"+cstr(a),5)
a2=""
dim b
b=1
do while b<=5
a2=a2+"<img src='data/"+mid(a1,b,1)+".gif'>"
b=b+1
loop
%>
请教高人
1.rs.update,是不是更新的意思？
2. a1=right("00000000"+cstr(a),5)中的5的作用是什么？
3.为什么a1和a2没有定义就使用了？
a=rs("aaa")+1
rs("aaa")=a
这个怎么理解？我是文科的，对逻辑理解不行，a赋值aaa+1,怎么反过来有把aaa赋值给了a???
1. 是的
2. 表示取 "00000000" + cstr(a) 的右边 5 个字符，5 就是控制 5 个字符的。
3. VBScript 并不要求先定义后使用，虽然这是一个好习惯。
写的复杂了！！！
改为：
rs("aaa")=rs("aaa")+1
就好理解了！！