ds.update更新不了数据库
dim action
action=request.QueryString("action")
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,musicd,musicurl,webemail,dizhi,youbian,guestuser,pictype,ordermail,regmail,qqwz,bbslogo,dymail,xwtype,dianhua,sltype,probg,des,key,copyright,weblogo,weburl,webbanner,icp,qq,mailaddress,mailsend,mailusername,mailname,mailuserpass,view,webnow,webmess,ksu,csu,xinpin,tuijian,tejia from webinfo ",conn,1,3
rs("webname")=trim(request("webname"))
rs("webemail")=trim(request("webemail"))
rs("dizhi")=trim(request("dizhi"))
rs("youbian")=trim(request("youbian"))
rs("dianhua")=trim(request("dianhua"))
rs("copyright")=trim(request("copyright"))
rs("webbanner")=trim(request("webbanner"))
rs("weblogo")=trim(request("weblogo"))
rs("webbanner")=trim(request("webbanner"))
rs("guestuser")=trim(request("guestuser"))
rs("weburl")=trim(request("weburl"))
rs("icp")=trim(request("icp"))
rs("qq")=trim(request("qq"))
rs("view")=trim(request("view"))
rs("des")=trim(request("des"))
rs("key")=trim(request("key"))
rs("sltype")=trim(request("sltype"))
rs("mailaddress")=trim(request("mailaddress"))
rs("mailsend")=trim(request("mailsend"))
rs("mailusername")=trim(request("mailusername"))
rs("mailuserpass")=trim(request("mailuserpass"))
rs("mailname")=trim(request("mailname"))
rs("webnow")=trim(request("webnow"))
rs("xwtype")=trim(request("xwtype"))
rs("webmess")=trim(request("webmess"))
rs("ksu")=trim(request("ksu"))
rs("csu")=trim(request("csu"))
rs("xinpin")=trim(request("xinpin"))
rs("tejia")=trim(request("tejia"))
rs("tuijian")=trim(request("tuijian"))
rs("probg")=trim(request("probg"))
rs("qqwz")=trim(request("qqwz"))
rs("dymail")=trim(request("dymail"))
rs("bbslogo")=trim(request("bbslogo"))
rs("pictype")=trim(request("pictype"))
rs("ordermail")=trim(request("ordermail"))
rs("regmail")=trim(request("regmail"))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('网站资料修改成功!');history.go(-1);</script>"
end if%>