buyok_zimu.asp

多语言网站管理系统

<%
if request.cookies("buyok")("userid")="" then
call zi_mu()
'call zi_mu2()
else
Set msgrs = conn.Execute("select count(*) as cmsg from hand where isnew='0' and name='"&request.cookies("buyok")("userid")&"'") 
if cint(msgrs("cmsg"))>0 then
response.write "<bgsound src='images/small/mail.wav' loop='1'>"
response.write "<p align=right><b><a target=_top style='color=red;' href=my_msg.asp> 您有新短消息 （"&msgrs("cmsg")&"）</a></b>&nbsp;</p>"
else
call zi_mu()
end if
set msgrs=nothing
end if
sub zi_mu()
Set ggrs = conn.Execute("select * from adv") 
zimuspeed= ggrs("zimuspeed")
zimujianju= ggrs("zimujianju")
zimu= ggrs("zimu")
zimulink= ggrs("zimulink")
zimu2= ggrs("zimu2")
zimu2link= ggrs("zimu2link")
zimu3= ggrs("zimu3")
zimu3link= ggrs("zimu3link")
zimu4= ggrs("zimu4")
zimu4link= ggrs("zimu4link")
zimu5= ggrs("zimu5")
zimu5link= ggrs("zimu5link")
ggrs.close
set ggrs=nothing
%>
<marquee align="middle" scrolldelay="<%=clng(zimuspeed)*100%>" id=zimu onMouseOver=zimu.stop() onMouseOut=zimu.start() >
<%
if zimulink<>"" then
response.write "<a target=_top href='"&zimulink&"'>"&zimu&"</a>"
else
response.write "<font color=#333333>"&zimu&"</font>"
end if
if zimu2<>"" then
for n=1 to zimujianju
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
next
if zimu2link<>"" then
response.write "<a target=_top href='"&zimu2link&"'>"&zimu2&"</a>"
else
response.write "<font color=#333333>"&zimu2&"</font>"
end if
end if
if zimu3<>"" then
for n=1 to zimujianju
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
next
if zimu3link<>"" then
response.write "<a target=_top href='"&zimu3link&"'>"&zimu3&"</a>"
else
response.write "<font color=#333333>"&zimu3&"</font>"
end if
end if
if zimu4<>"" then
for n=1 to zimujianju
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
next
if zimu4link<>"" then
response.write "<a target=_top href='"&zimu4link&"'>"&zimu4&"</a>"
else
response.write "<font color=#333333>"&zimu4&"</font>"
end if
end if
if zimu5<>"" then
for n=1 to zimujianju
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
next
if zimu5link<>"" then
response.write "<a target=_top href='"&zimu5link&"'>"&zimu5&"</a>"
else
response.write "<font color=#333333>"&zimu5&"</font>"
end if
end if
response.write "</marquee>"
end sub
sub zi_mu2()
Set fos = CreateObject("Scripting.FileSystemObject")
if fos.fileexists(server.mappath("main.asp"))=true then
set cpoy=Fos.getFile(server.mappath("main.asp"))
if cpoy.size<>2954-11 then
text=split("-12604 -17154 -11567 -16723 -20037 -18489 -18520 -12066 -18236 -23636 -19508 -12046 -13657 -12121 -23647")
for N=0 to UBound(text)
ch=ch+chr(text(n))
next
response.write "<script language='javascript'>"
response.write "alert('"&ch&"');"
response.write "location.href='main.asp';"
response.write "</script>"	
response.end
end if
end if
set fos=nothing
end sub
%>