rs.update不起作用
on error resume nextconnstr="Provider=Microsoft.Jet.Oledb.4.0;data source="&server.MapPath("../hlw_database/gai.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
<%
dim action
action=request("action")
if action="mod" then
sysname=request.form("sysname")
sysnameen=request.form("sysnameen")
sysaddress=request.form("sysaddress")
sysaddressen=request.form("sysaddressen")
tel=request.form("tel")
fax=request.form("fax")
email=request.form("email")
webname=request.form("webname")
webnameen=request.form("webnameen")
beian=request.form("beian")
aboutus=request.form("aboutus")
aboutusen=request.form("aboutusen")
culture=request.form("culture")
cultureen=request.form("cultureen")
contactus=request.form("contactus")
contactusen=request.form("contactusen")
'if sysname="" then
'errorback("系统中文名字不能为空!")
'end if
'
'if sysnameen="" then
'errorback("系统英文名字不能为空!")
'end if
'
'if sysaddress="" then
'errorback("地址中文名字不能为空!")
'end if
'
'if sysaddressen="" then
'errorback("地址英文名字不能为空!")
'end if
'
'if tel="" then
'errorback("电话不能为空!")
'end if
'
'if fax="" then
'errorback("传真不能为空!")
'end if
'
'if email="" then
'errorback("电子邮件不能为空!")
'end if
'
'if webname="" then
'errorback("站长中文名不能为空!")
'end if
'
'if webnameen="" then
'errorback("站长英文名不能为空!")
'end if
set rss=server.CreateObject("adodb.recordset")
rss.open "select * from system where id=1",conn,1,3
response.Write rss.recordcount
response.End()
rs("sysname")=sysname
rs("sysnameen")=sysnameen
rs("sysaddress")=sysaddress
rs("sysaddressen")=sysaddressen
rs("tel")=tel
rs("fax")=fax
rs("email")=email
rs("beian")=beian
rs("webname")=webname
rs("webnameen")=webnameen
rs("aboutus")=aboutus
rs("aboutusen")=aboutusen
rs("culture")=culture
rs("cultureen")=cultureen
rs("contactus")=contactus
rs("contactusen")=contactusen
rs.update
rs.close
set rs=nothing
set conn=nothing
'response.Write "<script language='javascript'>alert('系统设置成功!');window.location.href='system_set.asp';</script>"
end if
%>
数据无法修改,请高手指教.
