只能算是技巧性东西。不谈任何编程能力，现在修闲中，帮你做了个例子，直接COPY过去就可以理解了。
页面1：（仅一个form）
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim Types,t,actionname,qryname,resetname,tileinfo,text1_text,text2_text,id
Types=request.QueryString("Types")
text1_text="" '默认为空
text2_text="" '默认为空
t="submit" '默认为提交类型按钮
select case Types
''''''''''''''''''''''''''''''''''
'添加
case "add":
tileinfo="现在是添加信息" '标题拦
qryname="确认添加" '按钮1的名称
resetname="取消添加" '按钮2的名称
actionname="addData" '确定隐藏信息
''''''''''''''''''''''''''''''''''
'修改
case "edit":
tileinfo="现在是修改某条信息"
qryname="确认修改"
resetname="恢复状态"
actionname="editData"
'假如数据库中有条记录，自动编号是id
'则接收ID值
'
id=replace(request("id"),"","'")
call data(id)
''''''''''''''''''''''''''''''''''
'显示
case "show":
tileinfo="现在是显示某条信息"
qryname="是否修改"
resetname="是否删除"
actionname=" "
TT="edit"
't="button"
'假如数据库中有条记录，自动编号是id
'则接收ID值
'
id=replace(request("id"),"","'")
call data(id)
case else:
''''''''''''''''''''''''''''''''''
'当然这里你可以可以自己处理
tileinfo="现在是添加信息"
qryname="确认添加"
resetname="取消添加"
actionname="addData"
''''''''''''''''''''''''''''''''''
end select
'''''''''''''''''''''''''''''''''''''''''
'读数据
'参数ID：假设是ID编号
private sub data(id)
if id<>"" then
'假设这里是从数据库中读来的数据信息（某条记录信息）
text1_text="text1_text的值"
text2_text="text2_text的值"
end if
end sub
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>添加、修改、删除、显示</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
a:link {
color: #000033;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000033;
}
a:hover {
text-decoration: none;
color: #FF6600;
}
a:active {
text-decoration: none;
color: #FF6600;
}
-->
</style></head>
<body>
<table width="500" border="0" align="center" cellpadding="4" cellspacing="1" bordercolor="#999999" bgcolor="#999999">
<tr>
<td align="center" bgcolor="#999999"><a href="?Types=add">添加</a></td>
<td align="center" bgcolor="#999999"><a href="?Types=edit&id=1">修改</a></td>
<td align="center" bgcolor="#999999"><a href="?Types=show&id=1">显示</a></td>
</tr>
</table>
<br />
<form action="actionPage.asp" method="post" name="f">
<table width="500" border="0" align="center" cellpadding="4" cellspacing="1" bordercolor="#999999" bgcolor="#999999">
<tr>
<td colspan="2" align="center" bgcolor="#999999"><strong><%=tileinfo%></strong></td>
</tr>
<tr>
<td width="231" bgcolor="#EBEBEB">数据1</td>
<td width="254" bgcolor="#EBEBEB"><label>
<%if Types<>"show" then%>
<input name="text1" type="text" id="text1" value="<%=text1_text%>" />
<%else %>
<%=text1_text%>
<%end if%>
</label></td>
</tr>
<tr>
<td bgcolor="#EBEBEB">数据2</td>
<td bgcolor="#EBEBEB"><label>
<%if Types<>"show" then%>
<input name="text2" type="text" id="text2" value="<%=text2_text%>" />
<%else %>
<%=text2_text%>
<%end if%>
</label></td>
</tr>
<tr>
<td colspan="2" align="center" bgcolor="#999999"><label>
<%IF Types<>"show" then%>
<input name="s" type="<%=t%>" value="<%=qryname%>" />
<input type="reset" name="Submit2" value="<%=resetname%>" />
<input name="action" type="hidden" id="action" value="<%=actionname%>" />
<input name="Types" type="hidden" id="Types" value="<%=Types%>" />
<input name="id" type="hidden" id="id" value="<%=id%>" />
<%else%>
<a href="actionPage.asp?action=delData&id=1"><%=resetname%></a>
<%end if%>
</label></td>
</tr>
</table>
</form>
<hr />
</body>
</html>
2.处理表单：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim action,str
action=request("action")
'其实数据自己接受了
select case action
'''''''''''''''''''''''''''''
'添加新数据信息到数据库里
case "addData"
'自己处理这里
str="添加新数据信息到数据库里"
'''''''''''''''''''''''''''''
'修改数据
case "editData"
'自己处理这里
str="修改数据"
'''''''''''''''''''''''''''''
'删除数据
case "delData"
'自己处理这里
str="删除数据"
case else
str="非法！"
end select
%><hr>
<%=str%>
2006-11-11 13:36
