<%
dim connstr,mysql,myconn
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("ysk.mdb")
set myconn=server.createobject("adodb.connection")
myconn.connectionstring=connstr
myconn.open
%>
<%
///insert語句 (插入“會員”表,字段名省略,插入壹行,7個值)
mysql="insert into 會員 values ('"& hyxm &"','"& hymm &"',now,'"& hyem &"','"& hytx &"','0','0')"
myconn.execute mysql
///select 語句(從“會員”表中查詢字段“會員昵稱”等於提交來的hyxm)
mysql="select 會員昵稱 from 會員 where 會員昵稱='"& hyxm &"'"
set myres=myconn.execute(mysql)
///updata 語句 (修改“會員”表中,符合“會員昵稱”的“會員登陸次數”增加壹次)
mysql="update 會員 SET 會員登陸次數=會員登陸次數+1 where 會員昵稱='"&name&"'"
myconn.execute mysql
%>