ASP的response.write输出数据问题
「已注销」 2017-12-18 10:39:09 ASP的response.write输出数据, 当前一分钟的数据覆盖了上一分钟的数据,怎么才能不被覆盖呢!让他一条一条的显示在另一个页面的DIV中, 本人还是小学生,请大佬们多多指点下,在此谢过!
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
allhttp=LCase(Request.ServerVariables("ALL_HTTP"))
if cxajh_disproxy=1 then Chkproxy()
cxajh_name=Session("cxajh_name")
cxajh_grade=Session("cxajh_grade")
if cxajh_yjdh=1 then Chkyjdh()
inroom=session("nowinroom")
chatbgcolor=Application("cxajh_chatbgcolor")
chatimage=Application("cxajh_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
%>
<%
useronlinename=Application("cxajh_useronlinename"&inroom)
if cxajh_name="" or Session("cxajh_inthechat")<>"1" or Instr(useronlinename," "&cxajh_name&" ")=0 then Response.Redirect "chaterr.asp?id=001"
ip=Request.ServerVariables("REMOTE_ADDR")
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR")
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
t=s & ":" & f & ":" & m
sj=n & "-" & y & "-" & r & " " & t
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cxajh_usermdb")
rs.open "SELECT * FROM 用户 WHERE 姓名='" & cxajh_name &"'",conn,1,3
mycd=DateDiff("n",rs("savetime"),now())
addvalue=mycd
addvalue1=mycd*cxajh_paofen
addfengku=mycd*cxajh_paofencd
rs("savetime")=now()
hy=rs("会员等级")
sj1=DateDiff("d",rs("至尊符"),now())
if sj1<0 then
pd=1.5
pdstr="至尊符已开启"
else
pd=1
pdstr="至尊符未开启"
end if
sf=rs("师傅")
zddj=rs("等级")
dj1=rs("等级")
mp=rs("门派")
cxajh_id=rs("id")
jhsf=rs("身份")
jhtx=rs("名单头像")
sex=rs("性别")
zy=rs("职业")
ms=rs("名声")
zs=rs("转职")
sl=rs("势力")
sfwg=1
if rs("体力")<rs("体力加") then
rs("体力")=rs("体力")+int(addvalue1*sfwg*pd)
else
rs("体力")=rs("体力加")
end if
if rs("内力")<rs("内力加") then
rs("内力")=rs("内力")+int(addvalue1*sfwg*pd)
else
rs("内力")=rs("内力加")
end if
bl=rs("配偶")
if zddj<111 then
rs("allvalue")=rs("allvalue")+int(addvalue*cxajh_paofencd)*pd
prevtime=CDate(rs("lasttime"))
if DateDiff("m",prevtime,now())=0 then
rs("mvalue")=rs("mvalue")+int(addvalue*cxajh_paofencd)*pd
else
rs("mvalue")=addvalue*pd
end if
end if
if rs("任务")=6 then
rs("完成")=1
end if
rs("lasttime")=sj
rs("lastip")=ip
rs.Update
cxajh_value=rs("allvalue")
cxajh_mvalue=rs("mvalue")
dengji=int(sqr(cxajh_value/300))
rs("等级")=dengji
rs.Update
Session("cxajh_grade")=rs("grade")
Session("cxajh_jhdj")=rs("等级")
zddj=rs("等级")
'判断升级
djxx=zddj-dj1
jjjjjj=int(rs("体力加")/300*djxx)
jjjjjj=int(rs("内力加")/300*djxx)
if jjjjjj<10 then
jjjjjj=int(rs("体力加")/10*djxx)
end if
if jjjjjjj<10 then
jjjjjj=int(rs("内力加")/10*djxx)
end if
if zddj<111 then
if zddj>dj1 then
if rs("职业")="刀客" then
rs("攻击")=rs("攻击")+1*djxx
rs("防御")=rs("防御")+2*djxx
rs("攻击加")=rs("攻击加")+1*djxx
rs("防御加")=rs("防御加")+2*djxx
rs("体力加")=rs("体力加")+jjjjjj
rs("内力加")=rs("内力加")+jjjjjjj
end if
if rs("职业")="剑客" then
rs("攻击")=rs("攻击")+2*djxx
rs("防御")=rs("防御")+1*djxx
rs("攻击加")=rs("攻击加")+2*djxx
rs("防御加")=rs("防御加")+1*djxx
rs("体力加")=rs("体力加")+jjjjjj
rs("内力加")=rs("内力加")+jjjjjjj
end if
if rs("职业")="枪客" then
rs("攻击")=rs("攻击")+3*djxx
rs("防御")=rs("防御")+1*djxx
rs("攻击加")=rs("攻击加")+3*djxx
rs("防御加")=rs("防御加")+1*djxx
rs("体力加")=rs("体力加")+jjjjjj
rs("内力加")=rs("内力加")+jjjjjjj
end if
rs.Update
if mycd>=1 then
response.Write("<input value='经验+"&int(addvalue*cxajh_paofencd)*pd&"点' size='20' type='text'>")
end if
else if mycd>=1 then
says="<center><img src=ico/up.gif><bgsound src=wav/sys.wav loop=1><font color=blue>〖存点消息〗</font><font color=orange>["& cxajh_name &"]</font><font color=green>经过"&mycd&"分钟的江湖闯荡,有所长进喔!<p><font color=blue><b><img src=ico/sjl.gif>月积分→→<img src=ico/sjl.gif>"&int(addvalue*cxajh_paofencd)*pd&"点 <img src=ico/sjl.gif>总积分→→<img src=ico/sjl.gif>"&int(addvalue*cxajh_paofencd)*pd&"点 <img src=ico/sjl.gif>体、内力各→→<img src=ico/sjl.gif>"&int(addvalue1*sfwg*pd)&"点</b></font><p><font color=red><img src=ico/sjl.gif>升级差<img src=ico/sjl.gif>"&(zddj+1)*(zddj+1)*300-cxajh_value&"点<p>感谢你对游戏的支持,继续加油吧......2222</font></center>"
call caseshow(says)
end if
end if
end if
%>
另一个文件的DIV是这样写的
<div id="ls_a" class="ls_a" style="background: url(ztimg/bg_03.gif) repeat-y;" align="center">
<div id="ls_show"><ul><li><font color="#FF0000"><SCRIPT src="sav.asp"></SCRIPT></font></li></ul></div>
</div>