z_test.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!--#include file="Z_TESTCONN.ASP"-->
<!-- #include file="inc/const.asp" -->
<% 
'-----------------
'edit by 我来了
'-----------------
	
	stats="开心词典"

	if not founduser then
		call nav()
		call head_var(2,0,"","")	
		Errmsg=Errmsg+"<br>"+"<li>您没有进入开心词典的权限，请先登陆或者同管理员联系。"
		call dvbbs_error()
	else
		dim ars
		if request("action")="PaiXing" then
			stats="开心词典 答题龙虎榜"
			call nav()
			call head_var(0,0,"开心词典","Z_test.asp")			
			call PaiXing()
			call activeonline()
		else 
			call nav()
			call head_var(2,0,"","")
			call activeonline()		
			call main()
		end if		
	end if
	set aconn=nothing
	call footer()
'===================================
sub main()
	dim aup,apass,acount,aokcount,auserjl,auserp,ausere,auserc,auserarticle
	dim auserans,auserok,auserl,adttime,azql,adts,afjjl,ats,ausersinew,auserupsinew
	dim AnswerSetting,OtherSetting,kxcd_ad

	session("checkpage")=""
	session("ajj")=""
	session("atitle")=""
	session("akey1")=""
	session("akey1")=""
	session("akey2")=""
	session("akey3")=""
	session("akey4")=""
	session("aok")=""
	session("aid")=""
	session("testlb")=""
	session("atime")=""
	session("atx")=""
	session("acount")=""
	session("aokcount")=""
	session("ok")=0
	session("ok1")=0

	set ars=server.createobject("adodb.recordset")
	
	sql="select AnswerSetting,OtherSetting,userjl,zql,dts,fjjl,userarticle,userupsinew,ad from [config]"
	set ars=aconn.execute(sql)
	AnswerSetting=split(ars(0),"||")	'0每回答一题所需游戏币个数 ||1每回答一题魅力值增减值||2每回答一题经验值增减值||3两次玩之间的时间间隔||4答题数||5是否显示正确答案||6花钱买知识所需金钱||7答题是否限时
	OtherSetting=split(ars(1),"||")		'0是否显示图片 || 1图片路径 || 2答题龙虎榜显示记录条数
	auserjl=ars(2)			'上传奖励金额 
	azql=ars(3)				'获得附加奖励条件 当次答题正确率
	adts=ars(4)				'获得附加奖励条件 当次最少答题数
	afjjl=ars(5)			'附加奖励金额
	auserarticle=ars(6)		'每发一贴奖游戏币
	auserupsinew=ars(7)		'上传一题奖游戏币 
	kxcd_ad=ars(8)  
	ars.close  

	sql="select username,userup,userpass,userans,userok,usersinew from [testuser] where username='"&membername&"'"
	ars.open sql,aconn,1,3
	if ars.eof or ars.bof then
		ars.addnew
		ars(0)=membername
		ars(1)=0
		ars(2)=0
		ars(3)=0
		ars(4)=0
		ars.update
		aup=0
		apass=0
		auserans=0
		auserok=0
		auserl=0
	else
		aup=ars(1)
		apass=ars(2)
		auserans=ars(3)
		auserok=ars(4)
		ausersinew=ars(5)
		session("ok")=ars(4)
		if ars(3)=0 then
			auserl=0
		else
			auserl=round(ars(4)/ars(3),3)*100
		end if
	end if
	ars.close

	sql="select username,ftl,usersinew from [testuser] where username='"&membername&"'"
	ars.open sql,aconn,1,3
	if not (ars.eof and ars.bof) then	
		if myarticle>ars(1) then      '我来了 修改
			ausersinew=ars(2)+(myarticle-ars(1))*auserarticle
			ars(2)=ausersinew
			ars(1)=myarticle
			ars.update
		end if
	end if			
	ars.close

%>
<table cellspacing=1 cellpadding=3 align=center class=tableBorder1>
  <tr><th colSpan="3" height=25>开心词典----知识问答</th></tr>
  <tr>
    <td width="200" align="center" valign="top" class=tablebody2>
	<table align="center" cellPadding="3" cellSpacing="1" class=tableborder1 style="width:97%">
        <tr><th colSpan="2">各类题目详细列表</th></tr>