在ASP中怎么对查询到的数据进行修改

sql="select * from khda where viph='01"&OrderNum&"'"

数据连接页
conn.asp
<%
dim conn,mdbfile
mdbfile=server.mappath("db1.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&mdbfile
%>

添加数据页
Add.asp

保存数据页
Save.asp

<%
xingming = Request("xingming")
xingbie = Request("xingbie")

Set iRs = Server.CreateObject("ADODB.RecordSet")
iSQL = "Select * from Data Where (Id is null)"
iRs.Open iSQL,Conn,1,3
iRs.AddNew
iRs("xingming") = xingming
iRs("xingbie") = xingbie
iRs.Update
iRs.Close()
Set iRs = Nothing
Conn.Close()
Set Conn = Nothing

Response.Write("")
%>

罗列页
List.asp


<%
Set oRs = Server.CreateObject("ADODB.RecordSet")
iSQL = " Select * from Data Order By Id Desc"
oRs.Open iSQL,Conn,1,1
if oRs.eof and oRs.bof then
Response.Write("")
Response.end
else
%>






<%
oRs.pagesize=15
nPageCount=oRs.PageCount
if CurrentPage>oRs.PageCount then CurrentPage=oRs.PageCount
if CurrentPage<=0 then CurrentPage=1
oRs.absolutepage=CurrentPage

for i = 1 to oRs.pagesize
%>






<%
oRs.MoveNext
if oRs.eof then Exit for
Next
end if
%>

还没有记录...
姓名				性别	选择操作	是否删除
<%=oRs("xingming")%>				<%=oRs("xingbie")%>	">编辑	" onclick="return DelConfirm();">删除
<%PageLink()%>

<%
Sub PageLink()
Dim PageName
PageName = Request.ServerVariables("SCRIPT_NAME")
Response.Write "共 " & oRs.RecordCount & " 个用户 "
Response.Write "" & CurrentPage & "/" & nPageCount & " 页 "
if Keyword="" then
If CurrentPage = 1 Or nPageCount=0 Then
Response.Write "首页 "
Else
Response.Write "首页 "
End If

If CurrentPage = 1 Or nPageCount=0 Then
Response.Write "上一页 "
Else
Response.Write "上一页 "
End If

If CurrentPage = nPageCount Then
Response.Write "下一页 "
Else
Response.Write "下一页 "
End If

If CurrentPage = nPageCount Then
Response.Write "未页 "
Else
Response.Write "未页"
End If
else
If CurrentPage = 1 Or nPageCount=0 Then
Response.Write "首页 "
Else
Response.Write "首页 "
End If

If CurrentPage = 1 Or nPageCount=0 Then
Response.Write "上一页 "
Else
Response.Write "上一页 "
End If

If CurrentPage = nPageCount Then
Response.Write "下一页 "
Else
Response.Write "下一页 "
End If

If CurrentPage = nPageCount Then
Response.Write "未页 "
Else
Response.Write "未页"
End If
end if
End Sub %>

编辑页
Edit.asp


<%
Id = Request("Id")
if Id = "" then
Response.Write("")
Response.end()
end if

Set Rs = Server.CreateObject("ADODB.RecordSet")
iSQL = "Select * from data Where Id = " & Id
Rs.Open iSQL,Conn,1,1
if Rs.eof and Rs.bof then
Response.write("")
Response.end()
else
%>

" maxlength="20" />

" maxlength="20" />

<%
end if
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

保存编辑页比较简单，篇幅不够，就自己写下了，如果需要我帮忙的话再短信联系！
回答者：niewenmin - 初入江湖 三级 11