一.显示数据：

<!--#include file="connection.asp"-->
<%
sql="select * from T_asp"
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<table bordercolor="#33FFFF" cellspacing="1" cellpadding="1">
<tr>
<td>编号</td>
<td>名称</td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td><%=rs("aspid")%></td>
<td><%=rs("aspname")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<table>
<tr>
<form action="add.asp" method="get" name="asp_add">
<td>编号</td><td><input type="text" name="asp_id"/></td>
<td>名称</td><td><input type="text" name="asp_name"/></td>
<td colspan="2"><input type="submit" mame="asp_sure"/></td>
</tr>
</table>

　　二.添加数据：

<!--#include file="connection.asp"-->
<%
dim asp_id,asp_name
asp_id=request.QueryString("asp_id")
'post用asp_id=request.Form("asp_id")
asp_name=request.QueryString("asp_name")
set rs=Server.CreateObject ("ADODB.Recordset")
sql="insert into T_asp(aspid,aspname) values ('"&asp_id&"','"&asp_name&"')"
rs.open sql,conn,2,3
response.Redirect("index.asp")
%>