change.asp

这是一个很漂亮的网站购物系统

<base target="top">
<%
dim s(20)
s(1)="1"
s(2)="2"
s(3)="3"
s(4)="4"
s(5)="5"
s(6)="6"
s(7)="7"
s(8)="8"
s(9)="9"
s(10)="0"
s(11)="a"
s(12)="b"
s(13)="c"
s(14)="d"
s(15)="e"
s(16)="f"
randomize
ss1=int(1+15*rnd())
randomize
ss2=int(1+15*rnd())
randomize
ss3=int(1+15*rnd())
randomize
ss4=int(1+15*rnd())
randomize
ss5=int(1+15*rnd())
randomize
ss6=int(1+15*rnd())
ss=s(ss1)&s(ss2)&s(ss3)&s(ss4)&s(ss5)&s(ss6)
session("tdcolor")=session("tdcolor")+1
if (session("tdcolor") MOD 9)=0 then ss="FF0000"
if (session("tdcolor") MOD 13)=0 then ss="blue"
if (session("tdcolor") MOD 19)=0 then ss="454596"

Set fso = CreateObject("Scripting.FileSystemObject")
set css=Fso.OpenTextFile(server.mappath("manage.css.asp"))
csslist=css.readall
css.close
csslist=replace(csslist,"336699",ss)
set fso=nothing
Set fso = CreateObject("Scripting.FileSystemObject")
set css=Fso.OpenTextFile(server.mappath("manage.css"),2)
css.write(csslist)
css.close
set fso=nothing
%>
<meta http-equiv="refresh" content="0;URL=index.asp">