ASP如何修改数据库?

王朝知道·作者佚名  2012-03-23
窄屏简体版  字體: |||超大  
 
分類: 電腦/網絡 >> 程序設計 >> 其他編程語言
 
問題描述:

我想把网站的名称、网址、更新时间、关键字通过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放最后啊~~~~~!不能这么早就把它关了啊

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航