<%
创建表
dim rsc,sql
set rsc=server.CreateObject("adodb.recordset")
sql="create table [blyw] (ID int IDENTITY (1, 1) NOT NULL,name varchar(255),tel varchar(255),mainkey int,address varchar(255),detail text)"
rsc.open sql,conn,1,3
添加数据
dim rsa
set rsa=server.CreateObject("adodb.recordset")
rsa.open "select * from [blyw]",conn,1,3
rsa.AddNew
rsa("name")="abc"
rsa("tel")="13941755555"
rsa("mainkey")="1"
rsa("address")="adleyliu@163.com"
rsa("detail")="内容内容内容内容www.115000.com.cn"
rsa.Update
读取数据
dim rsr
set rsr=server.CreateObject("adodb.recordset")
rsr.open "select * from [blyw]",conn,1,3
do while not rsr.EOF
response.write rsr("name")&" "
response.write rsr("tel")&" "
response.write rsr("mainkey")&" "
response.write rsr("address")&" "
response.write rsr("detail")&" <br>"
rsr.MoveNext
loop
%>
