%
'Encode URL, dont encode ? to %3F, browser will decode it
Function Encode(byval s)
s=Replace(s,"?","AT8001")
s=Replace(s,"&","AT8002")
Encode=s
End Function
'
Function Decode(byval s)
s=Replace(s,"%3F","AT8001")
s=Replace(s,"%26","AT8002")
Decode=s
End Function
'
Function CurTimeStr
dim MyTime
MyTime = now
MyTime = Replace(MyTime," ","-")
CurTimeStr=MyTime
End Function
%>
<% 'cookie PageRef
PageRef=Request.ServerVariables("HTTP_REFERER") '?????PageRef
RefID=Request.QueryString("RefID")
'PageRef="http://www.google.com/search?sourceid=navclient&hl=zh-CN&ie=UTF-8&rls=GGLG,GGLG:2005-48,GGLG:zh-CN&q=007+dvd+creator"
PageRef=Encode(PageRef) 'Encode/Relace ? & in parameter
FirstTimePageRef=Request.Cookies("FirstTime")("PageRef") '???Cookie???????PageRef
FirstTimeRefID=Request.Cookies("FirstTime")("RefID")
FirstDateTime=Request.Cookies("FirstTime")("DateTime")
if FirstTimePageRef="" then '?????????(????,????????),??????,????PageRef(????????)
FirstTimePageRef=PageRef
Response.Cookies("FirstTime")("PageRef")=PageRef '?Cookie??????PageRef
Response.Cookies("FirstTime").Expires = DateAdd("yyyy",1,date()) '??????1?
end if
if FirstTimeRefID="" then '?????????(????,????????),??????,????PageRef(????????)
FirstTimeRefID=RefID
Response.Cookies("FirstTime")("RefID")=RefID
Response.Cookies("FirstTime").Expires = DateAdd("yyyy",1,date()) '??????1?
end if
if FirstDateTime="" then '?????????(????,????????),??????,????PageRef(????????)
FirstDateTime=CurTimeStr
Response.Cookies("FirstTime")("DateTime")=CurTimeStr
Response.Cookies("FirstTime").Expires = DateAdd("yyyy",1,date()) '??????1?
end if
'Total Track Info
'Put _1stPageRef in the tail(the last), to avoid front params been intercept.
TrackInfo="_1stRefID:"+FirstTimeRefID+ "_1stDateTime:"+FirstDateTime+ "_CurDateTime:"+CurTimeStr+"_1stPageRef:"+FirstTimePageRef
%>
"Hi, Everything works extremely well and my first burn was of the very highest quality. Thanks for your help." ~ Alan Walker
"We ended up with an exact copy of the movie, including special features... DVD X Copy certainly works! If you have a DVD burner and movies you'd like to make backups of, you may want to get it--while you can."
Barbara Sharratt
Guarantee
007 DVD Copy
007 DVD Copy is a software to backup your preciousDVD Video Disk to DVDRW disk without any quality loss. It can copy any DVD video (D9 and D5) on to your DVD disc (4.7GB/Single Layer or 8.5GB/Dual Layer) without loss of content or quality. It copys all existing DVD contents including whole movie,language tracks, subtitles, and etc. 007 DVD Copy has an user friendly interface, anyone can
master it within 5 minutues. Read More
007 DVD Creator
007 DVD Creator is an easy-to-use and high speed All-in-One DVD creator and DVD burner. It can converts ALL formats of video files directly to DVD disk, including DivX, Xvid, AVI, MPEG, WMV, QuickTime, Real Video format, etc. With only a few clicks, you can convert your internet video collection to a DVD±R/RW disk and then replay your collection on your home DVD player/car DVD player. Share your collection with your family, your friends on TV. It supports both NTSC and PAL TV standards. It supports both 4:3 TV and 16:9 widescreen TV. It already includes DVD encoder and DVD burner. You don't need any other software to make it work.Read More
007 MP3 Sound Recorder
007 MP3 Sound Recorder makes a complete recording studio of your computer. With 007 MP3 Sound Recorder you can record your own music, voice or other sound you hear, either voice from microphone, webcasts from the Internet, music played by Winamp, Windows Media Player, Quick Time, Real Player, Flash, games, etc. The recordings can be saved as mp3 or wav files.Read More
007 DVD Author Free Version
007 DVD Author Free is an easy-to-use and high speed MPEG-2 file to VOB files convertor. You can burn the output VOB files onto a DVD+/-R(W) disk. Then you can share your collection with your family, your friends on TV.Read More