| |
<%@ LANGUAGE=VBScript%>
<%
dim a(52,5)
b1=request.querystring("variable1")
b2=request.querystring("variable2")
b3=request.querystring("variable3")
b4=request.querystring("variable4")
b1=b1*1
b2=b2*1
b3=b3*1
b4=b4*1
whichfile=server.mappath("card.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile)
for i=0 to 52
for j=0 to 4
a(i,j)=thisfile.readline
next
next
thisfile.close
if(b2=0 or b3=0) then
b=minute(time)
if b>10 then b=b mod 10
mm=b
b1=mm+3
b2=13+mm+6
b3=29+mm+2
b4=41+mm+2
end if
ce1=b1
ce2=b2
ce3=b3
ce4=b4
%>
<%b1=b1+1%><%if b1>12 then b1=0%>
种类:<%=a(b1,3)%>
卡名:<%=a(b1,4)%>
作者:<%=a(b1,2)%>
|
<%b1=b1+1%><%if b1>12 then b1=0%>
种类:<%=a(b1,3)%>
卡名:<%=a(b1,4)%>
作者:<%=a(b1,2)%>
|
<%b1=b1+1%><%if b1>12 then b1=0%>
种类:<%=a(b1,3)%>
卡名:<%=a(b1,4)%>
作者:<%=a(b1,2)%>
|
<%b1=b1+1%><%if b1>12 then b1=0%>
种类:<%=a(b1,3)%>
卡名:<%=a(b1,4)%>
作者:<%=a(b1,2)%>
|
|
|
>> 更多...
|
<%b2=b2+1%><%if b2>28 then b2=13%>
种类:<%=a(b2,3)%>
卡名:<%=a(b2,4)%>
作者:<%=a(b2,2)%>
|
<%b2=b2+1%><%if b2>28 then b2=13%>
种类:<%=a(b2,3)%>
卡名:<%=a(b2,4)%>
作者:<%=a(b2,2)%>
|
<%b2=b2+1%><%if b2>28 then b2=13%>
种类:<%=a(b2,3)%>
卡名:<%=a(b2,4)%>
作者:<%=a(b2,2)%>
|
<%b2=b2+1%><%if b2>28 then b2=13%>
种类:<%=a(b2,3)%>
卡名:<%=a(b2,4)%>
作者:<%=a(b2,2)%>
|
|
|
>> 更多...
|
<%b3=b3+1%><%if b3>40 then b3=29%>
种类:<%=a(b3,3)%>
卡名:<%=a(b3,4)%>
作者:<%=a(b3,2)%>
|
<%b3=b3+1%><%if b3>40 then b3=29%>
种类:<%=a(b3,3)%>
卡名:<%=a(b3,4)%>
作者:<%=a(b3,2)%>
|
<%b3=b3+1%><%if b3>40 then b3=29%>
种类:<%=a(b3,3)%>
卡名:<%=a(b3,4)%>
作者:<%=a(b3,2)%>
|
<%b3=b3+1%><%if b3>40 then b3=29%>
种类:<%=a(b3,3)%>
卡名:<%=a(b3,4)%>
作者:<%=a(b3,2)%>
|
|
|
>> 更多...
|
<%b4=b4+1%><%if b4>52 then b4=41%>
种类:<%=a(b4,3)%>
卡名:<%=a(b4,4)%>
作者:<%=a(b4,2)%>
|
<%b4=b4+1%><%if b4>52 then b4=41%>
种类:<%=a(b4,3)%>
卡名:<%=a(b4,4)%>
作者:<%=a(b4,2)%>
|
<%b4=b4+1%><%if b4>52 then b4=41%>
种类:<%=a(b4,3)%>
卡名:<%=a(b4,4)%>
作者:<%=a(b4,2)%>
|
<%b4=b4+1%><%if b4>52 then b4=41%>
种类:<%=a(b4,3)%>
卡名:<%=a(b4,4)%>
作者:<%=a(b4,2)%>
|
|
|
>> 更多...
|
|
请把这些信息介绍给你的朋友 
