'修改页面
<%
strID = Request("tID")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={SQL Server};database=pubs;server=(LOCAL);uid=sa;pwd=111111")
strSQL = "select * from txl Where tID ="&strID
set rs = conn.Execute(strSQL)
%>

<form name="form1" method="post" action="modifySumit.asp">
<% '输出表的内容
If not rs.EOF Then
%>

<table align="center" width="361" border="0"style="color:#3E96A6 ">
<tr>
<td align="center" bgcolor="#3E96A6"><span class="style11"><%=rs("tName")%>的通讯录</span></td>
</tr>
</table>
<table width="361" border="0" align="center" cellpadding="1">
<tr>
<td width="132">&nbsp;</td>
<td width="219"><input type="hidden" name="tID" value="<%=rs("tID")%>"></td>
</tr>
<tr>
<td><span class="style7">EMAIL:</span></td>
<td><input name="tEmail" type="text" size="30" value="<%=rs("tEmail")%>"></td>
</tr>
<tr>
<td><span class="style7">手机号码:</span></td>
<td><input name="tMobile" type="text" size="30"value="<%=rs("tMobile")%>"></td>
</tr>
<tr>
<td><span class="style7">固定电话:</span></td>
<td><input name="tHomePhone" type="text" size="30"value="<%=rs("tHomePhone")%>"></td>
</tr>
<tr>
<td align="left" valign="top"><p class="style7">QQ:</p></td>
<td><input name="tQQ" type="text" size="30"value="<%=rs("tQQ")%>"></td>
</tr>
<tr>
<td align="left" valign="top"><span class="style7">备注:</span></td>
<td><span class="style7">
<textarea name="tMemo" cols="29" rows="3"><%=rs("tMemo")%></textarea>
</span></td>
</tr>
<tr>
<td align="left" valign="top">&nbsp;</td>
<td><span class="style7">
<input type="submit" name="Submit" value="修改完毕">
</span></td>
</tr>
</table>
<%
End If
%>
</form>


修改后处理页面:
<%
tID = TRIM( REQUEST("tID"))
tEmail = TRIM( REQUEST("tEmail"))
tMobile = TRIM( REQUEST("tMobile"))
tHomePhone = TRIM( REQUEST("tHomePhone"))
tQQ = TRIM( REQUEST("tQQ"))
tMemo = TRIM( REQUEST("tMemo"))

set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={SQL Server};database=pubs;server=127.0.0.1;uid=sa;pwd=111111")
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
SQL = "UPDATE txl SET tEmail='"&tEmail&"',tMobile='"&tMobile&"',tHomePhone='"&tHomePhone&"',tQQ='"&tQQ&"',tMemo='"&tMemo&"' Where tID="&tID
Response.Write(SQL)
cmd.CommandText = SQL
cmd.Execute()
Response.Redirect("index.asp")
%>


据说用IF ...ELSE.....THEN ....语句可以将此两个程序写在一起,敬请指点!!!

[此贴子已经被作者于2006-11-2 22:08:46编辑过]

修改后处理页面:
<%
tID = TRIM( REQUEST("tID"))
tEmail = TRIM( REQUEST("tEmail"))
tMobile = TRIM( REQUEST("tMobile"))
tHomePhone = TRIM( REQUEST("tHomePhone"))
tQQ = TRIM( REQUEST("tQQ"))
tMemo = TRIM( REQUEST("tMemo"))

set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={SQL Server};database=pubs;server=127.0.0.1;uid=sa;pwd=111111")
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
SQL = "UPDATE txl SET tEmail='"&tEmail&"',tMobile='"&tMobile&"',tHomePhone='"&tHomePhone&"',tQQ='"&tQQ&"',tMemo='"&tMemo&"' Where tID="&tID
Response.Write(SQL)
cmd.CommandText = SQL
cmd.Execute()
Response.Redirect("index.asp")
%>

原理就是这样的，你自己根据需要更改一下吧

谢谢,但不能处理页面啊......也许我自己不对~~~

总之就是加IF判断一下，条件按照自己的条件写就是了

按"修改完毕"按钮后还是不能处理页面.....

[此贴子已经被作者于2006-11-2 22:45:20编辑过]

<form name="form1" method="post" action="modifySumit.asp">
这个标签要提交到本页
action="本页.asp？a=a"再加一个传递的参数
这页再象2楼所说
加个判断
a1 = trim(request.QueryString("a"))
if a1 = "a" then
这里写修改的代码
else
这里写正常显示的代码
end if

大概就是这个样子了
你参考一下