<%
'游览记录
Sub cookies_add( add, user_cpid )
If Len(user_cpid) = 0 Then
user_cpid = "" & add & ""
ElseIf InStr( user_cpid , add ) <= 0 Then
user_cpid = add & "," & user_cpid
End If
End Sub
user_cpid = Request.Cookies("usertemp")("fileurl")
Sub FileNamepic(FileNames)
Dim pos
pos = InStrRev(FileNames, "|")
If pos > 0 Then
picurl = left(FileNames, pos - 1)
fileurl = Mid(FileNames, pos + 1)
response.write "
"
Else
End If
End Sub
sub liulan
dim usertemp
usertemp = trim(Request.Cookies("usertemp")("fileurl"))
if usertemp <>"" then
dim l_c,l_i,userfile,i_userfile,s_i
i_bsort=split(usertemp,",")
if ubound(i_bsort)>12 then l_c=12 else l_c=ubound(i_bsort) end if
response.write "
"
for l_i=1 to l_c
response.write "| "
FileNamepic i_bsort(l_i)
response.write " | "
if l_i mod 2 = 0 then
response.write "
"
end if
next
response.write "
"
end if
'Response.Cookies("usertemp")("fileurl")=""
end sub
cpid = Split("/children/tx/images/2007/9/6/270284.jpg|/free/2007/9/free_58733.shtml", ",")
For I=0 To UBound(cpid)
cookies_add cpid(I), user_cpid
Next
Response.Cookies("usertemp")("fileurl") = user_cpid
%>
