<%@ LANGUAGE=VBScript%>
<!--#include file="../../showchat.asp"-->
<%Response.Expires=0
cwjh_id=Session("cwjh_id")
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
if cwjh_name="" then Response.Redirect "../../error.asp?id=440"
if cwjh_name<>Application("cwjh_user") then Response.Redirect "qqlist.asp"
userid=request("uid")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "select 内力,银两,武功 from 用户 where 姓名='"&userid&"'",conn
if rs.eof or rs.bof then
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Redirect "../../error.asp?id=454"
	response.end
end if
if rs.recordcount>4 then Response.Redirect "../error.asp?id=487"
conn.execute "update 用户 set 内力=内力+2000000,银两=银两+20000000,武功=武功+20000 where 姓名='"&userid&"'"
rs.close
'写入QQ数据库
Set rs1=Server.CreateObject("ADODB.RecordSet")
Set connt=Server.CreateObject("ADODB.CONNECTION")
connt.open Application("cwjh_submdb")
sql="select * from 宣传QQ where 奖励=0 and oicq="&request("oicq")
rs1.open sql,connt,3,2
if rs1.bof or rs1.bof then response.redirect"qqlist.asp"
rs1("奖励")=1
rs1("奖励说明")="奖励银两2000万，内力200万，武功2万"
rs1.update
rs1.close
conn.close
set conn=nothing
call showchat("<font color=red>【QQ宣传奖励】</font>"&userid&"宣传有功，站长特奖励银两2000万，内力200万，武功2万")
response.redirect "qqlist.asp?id=3"
%>