餐饮如何分类:关于ASP和数据库

conn.asp 打开数据库
<%
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
%>

代码有一点多哦

<table>
<%
\'查询:
selectSQL = \"SELECT c1 FROM table t1 WHERE c1 IS NOT NULL\"
set selectRS = adocon.execute(selectSQL)
do while not selectRS.eof
\'显示
%>
<tr><td><%=selectRS(\"c1\")%></td></tr>
<%
selectRS.movenext
loop
set selectRS = nothing
%>
</table>
<%
\'修改
updateSQL = \"UPDATE t1 SET c1=0 WHERE c1 IS NULL\"
adocon.execute(updateSQL)

\'增加
insertSQL = \"INSERT INTO t1 (c1) VALUES (10)\"
adocon.execute(insertSQL)

\'删除
deleteSQL = \"DELETE FROM t1 WHERE c1=0\"
adocon.execute(deleteSQL)

adocon.close
%>