ASP高手请进 一个关于ASP修改ACCESS数据库内容的问题

首先定义一个参数UserName 获取某记录的用户名
下面简单看一下用Modify.asp修改evensky的分数 ：）
修改

Modify.asp 代码
<%
Dim UserName
UserName=Trim(Request("UserName"))

'……省略Conn连接
Dim Rs,Sql
Set Rs=Server.CreateObject("adodb.recordset")
Sql="select * from [pub] where xm="&UserName
Rs.Open Sql,conn,1,3
if Not(Rs.eof or Rs.bof) then
Rs("fs")="新的分数" '这里可以用变量代替
Rs.update
else
Response.write"用户不存在"
end if
Set Rs=nothing
Conn.close
set Conn=nothing
%>

<%
Dim UserName'变量申明
UserName=Trim(Request("UserName")) 'Trim去除Request("UserName")俩边的空字符

'……省略Conn连接
Dim Rs,Sql'变量申明
Set Rs=Server.CreateObject("adodb.recordset") '创建服务器对象
Sql="select * from [pub] where xm="&UserName '查询xm=UserName的所有记录
Rs.Open Sql,conn,1,3 '打开数据库
if Not(Rs.eof or Rs.bof) then '如果存在记录则...
Rs("fs")="新的分数" '这里可以用变量代替 '更新字段fs
Rs.update'进行更新
else '否则
Response.write"用户不存在" '浏览器输出“用户不存在”
end if 'if语句结束
Set Rs=nothing '清空rs
Conn.close '关闭数据库
set Conn=nothing '清空Conn
':)
%>