tianjia.asp

梦想世界虚拟社区

<%
name1 = request ("name1")
money = int(request ("money"))
jyz = int(request ("jyz"))
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base\dumm.mdb")
Cnn.Open StrCnn
rs.open "update 资料 set 经验值 = 经验值 + "&jyz&",金钱 = 金钱 + "&money&" where 昵称 = '"&name1&"'",cnn
response.write ("添加成功")
%>