ASP中数据库操作代码

ASP中数据库操作代码%fori=3to5%fontsize=%=i%你好，这是一个ASP文件。/fontbr%next%1.使用connection对象更改数据库中的数据%setcn=server.createobject(adodb.connection)cn.opendsn=q1;'strSQL=insertintoS1(姓名,年龄,工资)values('李','34','3400')'strSQL=updateS1set姓名='宋'where编号=4'strSQL=deletefromS1where编号=4'cn.execute(strSQL)cn.closesetcn=nothing%2.使用recordset对象查询数据库%setrs=server.createobject(adodb.recordset)rs.openselect*fromS1,dsn=q1;%%whilenotrs.eof%姓名为：%=rs(姓名)%p年龄为：%=rs(年龄)%p工资为：%=rs(工资)%p%rs.movenextwend%%rs.closesetrs=nothing%3.同时使用connection对象和recordset对象%setcn=server.createobject(adodb.connection)cn.opendsn=q1;setrs=server.createobject(adodb.recordset)strSQL2=select姓名,年龄,工资fromS1rs.openstrSQL2,cnsetxm=rs(姓名)setnl=rs(年龄)setgz=rs(工资)%S1表br姓名年龄工资br%dountilrs.eofresponse.writexm&&nl&&gz&brrs.movenextloop%%cn.closesetcn=nothingsetrs=nothing%4.用表格输出结果subt(rs)setrs=server.createobject(adodb.recordset)strSQL=select姓名,年龄,工资fromS1rs.openstrSQL,cn此处三句话应该在调用t之前给出，而不是存在t里面response.write(tableborder=1)fori=0tors.fields.count-1response.write(td+rs(i).name+/td)nextwhilenotrs.eofresponse.write(tr)fori=0tors.fields.count-1v=rs(i)ifisnull(v)thenv=response.write(tdalign=top+cstr(v)+/td)nextrs.movenextwendresponse.write(/table)endsub5.在客户端（用表单）向数据库添加数据%sz='&request.form(xm)&','&request.form(nl)&','&request.form(gz)&'setobj=server.createobject(adodb.connection)obj.openq1into_db=insertintoS1(姓名,年龄,工资)values(&sz&)obj.execute(into_db)obj.close%6.使用connection对象查询数据库%setcn=server.createobject(adodb.connection)strSQL=select姓名,年龄,工资fromS1cn.opendsn=q1;setrstemp=cn.execute(strSQL)numfields=rstemp.fields.count-1%tableborder=1%fori=0tonumfieldsresponse.write(td+rstemp(i).name+/td)nextwhilenotrstemp.eofresponse.write(tr)fori=0tonumfieldsv=rstemp(i)ifisnull(v)thenv=response.write(tdalign=top+cstr(v)+/td)nextresponse.write(/tr)rstemp.movenextwendresponse.write(/table)rstemp.closesetrstemp=nothingcn.closesetcn=nothing%7.在客户端输入查询条件，并显示查询结果//用connection对象也可以查询和处理结果subq实现查询，并显示结果，放在调用代码的前面后面均可%subq(inquery)setcn=server.createobject(adodb.connection)cn.opendsn=q1;setrstemp=cn.execute(inquery)numfields=rstemp.fields.count-1%tableborder=1%fori=0tonumfieldsresponse.write(td+rstemp(i).name+/td)nextwhilenotrstemp.eofresponse.write(tr)fori=0tonumfieldsv=rstemp(i)ifisnull(v)thenv=response.write(tdalign=top+cstr(v)+/td)nextresponse.write(/tr)rstemp.movenextwendresponse.write(/table)rstemp.closesetrstemp=nothingcn.closesetcn=nothingendsub%/tableformmethod=POSTaction=index.aspp姓名inputtype=textname=namesize=20/ppinputtype=submitvalue=查询name=B1inputtype=resetvalue=复原name=B2/p/formpfontsize=5color=#FF00FF     按姓名查询的结果/font/p%sql=select姓名,年龄,工资fromS1where姓名='&request(name)&'callq(sql)%（1）sz=“‘&request.form(“xm”)&”‘,’”&request.frm(“nl”)&“’”Sql=“insertintoS1(姓名,年龄,工资)values(‘Jose’,‘34‘,‘8000’)“//sz为字符串（2）sql=“select*fromS1where地址=‘”&request(“dz”)&”’and年龄“&request(“nl”)&”and姓名like‘“&request(“name”)&”%%’”(3)sql=“updateS1set姓名=‘张三’where姓名=‘李四’”(4)sql=“deletefromS1whereID=12”