<%@ LANGUAGE=VBScript codepage ="936" %> <% Response.Expires=0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Pragma","No-Cache" Response.AddHeader "Cache-Control","Private" Response.CacheControl = "No-Cache" if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) If Session("ADMIN") <> True Then Response.Redirect "../error.asp?id=439" if grade<10 then Response.Redirect "../error.asp?id=439" addhy=Request.Form("addhy") Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr Set rst=Server.CreateObject("ADODB.RecordSet") sqlstr="SELECT * FROM 用户 where 姓名='"&addhy&"'" rst.Open sqlstr,conn if rst.EOF or rst.BOF then Response.Write "" else sql="update 用户 set 会员='yes',入会时间=date(),白虎皮=0 where 姓名='" & addhy & "'" rs=conn.execute(sql) set conn=nothing set rstmp=nothing Response.Write "" end if %>