end if
writetodatabase datas
else
errmsgbox(strings)
end if
%>
<%
function writetodatabase(datas)
set objconn = server.createobject("adodb.connection")objconn.open "driver={microsoft access driver (*.mdb)};dbq="& server.mappath("../project.mdb")
strname=request("姓名")
stremail=request("email")sql = "update user set datas=' " & datas & " 'where 电子邮件='" & session("usersdata")(7,0) & "'"
'on error resume next
set rs = objconn.execute(sql)
response.Redirect "change_finish.asp?姓名="&strname&"&电子邮件="&stremail&""end function
writetodatabase datas
else
errmsgbox(strings)
end if
%>
<%
function writetodatabase(datas)
set objconn = server.createobject("adodb.connection")objconn.open "driver={microsoft access driver (*.mdb)};dbq="& server.mappath("../project.mdb")
strname=request("姓名")
stremail=request("email")sql = "update user set datas=' " & datas & " 'where 电子邮件='" & session("usersdata")(7,0) & "'"
'on error resume next
set rs = objconn.execute(sql)
response.Redirect "change_finish.asp?姓名="&strname&"&电子邮件="&stremail&""end function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货