ASP数据库操作方法

<%
dim objconn,objconnstr
set objconn=server.createobject("adodb.connection")
objconnstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/data.mdb")
objconn.open objconnstr
%>

<%
dim sql
sql="Create Table colin(id counter primary key,company text,addr text,dep text,contacts text,phone text,casename text,caseid int,qs_inf text,qs_wt text,isdel bit,createtime datetime)"
objconn.execute(sql)
objconn.Close
response.Write("添加完成")
%>

<%dim sql,rs1
set rs1=server.CreateObject("Adodb.recordset")
sql="select top 1 * from c_questionnaire"
rs1.open sql,objconn,1,2
For i=0 To rs1.fields.count-1
t=rs1.fields(i).name
response.Write(t&"<br />")
next
%>

<%dim sql
sql="alter table semi_actor add column news_id int"
objconn.execute(sql)
%>

<%dim sql
sql="alter table exhi alter column exhi_img text(200)"
objconn.execute(sql)
%>

<%
dim a,b,c,d
a=1
b=2
c=3
d=4
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from colin"
rs.open sql,objconn,1,2
rs.addnew()
rs("a")=a        
rs("b")=b
rs("c")=c
rs("d")=d
rs("createtime")=now()
rs.update()
rs.close
response.Write("<script language=‘javascript‘>alert(‘您已成功提交表单‘)</script>")
%>

<%
dim sql
sql="delete from branch where id="5" and isdel=true"
objconn1.execute(sql)
response.Redirect("adminbranch.asp")
%>

<%dim rspic,sqlpic
set rspic=server.CreateObject("adodb.recordset")
sqlpic="select * from colin order by createtime desc"
rspic.open sqlpic,objconn,0,1
if not rspic.eof then
do while not rspic.eof
%>
<tr><td align="center"><%=rspic("a")%></td><td align="center"><%=rspic("b")%></td><td align="center"><%=rspic("c")%></td><td align="center"><%=rspic("d")%></td></tr> 
<%rspic.movenext
loop%>
<%end if%>