我想把网站的名称、网址、更新时间、关键字通过ASP保存到数据库，然后网站前台可以自由调用，后台可以任意修改。
下面是网站的代码。
数据库连接文件：
<!--#include file="conn.asp"-->
<%
Set Infos=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Info"
Infos.Open SQL,Conn,3,3
If Infos.EOF And Infos.BOF Then
Response.Write("<head><meta http-equiv=""Content-Type""content=""text/html;charset=gb2312""/><title>∷错误∷</title></head><body><div align=""center""style=""width:400px;height:100px;padding:8px;font-size:9pt;border:1px solid ThreeDShadow;POSITION:absolute;top:expression((document.body.offsetHeight-100)/2);left:expression((document.body.offsetWidth-400)/2);""><table width=""100%""height=""100%""style=""font-size:12px;font-family:Tahoma;""><tr><td align=""center""><strong>站点出错，请检查数据库中的站点基本信息设置……</strong></td></tr></table></div></body>")
Response.End
Else
SiteName=Infos("Name")
SiteURL=Infos("URL")
SiteDate=Infos("Update")
Sitekey=Infos("keywords")
Sitedes=Infos("description")
End If
Infos.Close
Set Infos=Nothing
%>
<html>
<head>
<title><%=SiteName&" Update:"&SiteDate%></title>
<meta name="keywords" content="<%=Sitekey%>">
<meta name="description" content="<%=Sitedes%>">
</head>
数据库的修改文件：
<!--#include file="conn.asp"-->
<%
Set Wrs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Info"
Wrs.Open SQL,Conn,1,3
sitename = Wrs("Name")
siteurl = Wrs("URL")
sitekey = Wrs("keywords")
sitedes = Wrs("description")
Wrs.Close
Set Wrs = nothing
%>
<form action=修改单一数据.asp method=post name="book">
网站名称：<input type="text" name=sitename value="<%=sitename%>"><br>
网站网址：<input type="text" name=siteurl value="<%=siteurl%>"><br>
关 键 字：<input type="text" name=sitekey value="<%=sitekey%>"><br>
网站介绍：<input type="text" name=sitedes value="<%=sitedes%>"><br>
<input type="hidden" name="save" value="ok">
<input type="submit" value="保存设置">
</form>
<%
if Request("save")="ok" then
if trim(request.form("sitename"))="" or trim(request.form("siteurl"))="" or trim(request.form("sitekey"))="" or trim(request.form("sitedes"))="" then'给出提示，并返回到前一页
response.write "<script>alert('资料填写不完整或有错误。');</script>"
response.end
end if
Wrs("Name")=Request.Form("sitename")
Wrs("URL")=Request.Form("siteurl")
Wrs("keywords")=Request.Form("sitekey")
Wrs("description")=Request.Form("sitedes")
Wrs.update
Wrs.Close'关闭RecordSet 对象
Set Wrs = nothing
response.write "<script>alert('您提交的设置已保存。');</script>"
response.end
End If
%>
现在调用数据库的网页可以正常使用，但是修改数据库的网页不能运行。请问各位大大，上面的修改数据库代码要怎样改才能正常运行？表单提交的代码是什么？
參考答案:把关闭记录集Wrs.Close Set Wrs = nothing放最后啊~~~~~!不能这么早就把它关了啊
