<% '内页里的asp2 server.ScriptTimeout = 1000000 on error resume next Randomize %> <% dim arr_key,html_key1,html_key2,html_key3,html_key4,replace_str,pagefolderName,aspfilename,canshu,htmlfilename,webname,html_footer,IndexFileTrue,webfolder,html_listfile,domain arr_key = split(str_key,"|") html_key1 = arr_key(randsub(ubound(arr_key)+1)-1) html_key2 = arr_key(randsub(ubound(arr_key)+1)-1) pagefolderName = "ASPN_77S" replace_str = "|" webfolder = "/english/pdf/00_files/pic/" aspfilename = "chancp.asp" canshu = "?dff=" htmlfilename = "shenye.html" webname = "_快播床戏大全" domain = "http://www.kingcera.com.cn" html_footer = "快播床戏大全手机:13910387512 13701283523 快播床戏大全电子信箱: tzgb2009@sina.com " html_listfile = "y3bhNI|y3bjNQ|y3bvRU|y32kTU|y39cXF|y3bjBP|y32hWP|y39vZF|y32f2I|y32fWC|y3tgKP|y39lTF|y3b1W3|y32lXF|y32gMF|y32fXC|y3bbKF|y32f2O|y32kRI|y39kBF|y3bh2Q|y3bhX3|y32l23|y3bgXF|y3blR6|y39l2Q|y3bvKC|y32jTO|y3blT3|y3b1ZF|y32kKC|y3blWU|y32vTF|y3b12C|y3bk2P|y32vBO|y39vMC|y32vTQ|y39lNQ|y32hMC|y32gZC|y32cRF|y32cRF|y3blN3|y3bhMU|y3bk2O" IndexFileTrue = 1 if request("id") <> "" then this_fuhao = " " %> <%=html_key1&" "&html_key2%>

<%=html_key1&this_fuhao&html_key2%>

<%=html_key1%>在线播放:


<%=html_key1%>视频截图

<%=html_key2%>_国内原创
<%=html_key1%>_移动资源
Copyright @ 2009-2016 <%=webname%>版权所有
<%=html_footer%>
<%else%> 网站地图<%=webname%>
今日推荐
网站地图
最近更新资源
友情链接
Copyright @ 2009-2016 <%=domain%> <%=webname%>版权所有
<%=html_footer%>
<%end if%> <% function Randsub(numtotal) Randsub = int((numtotal-1+1)*rnd+1) end Function '--------------链接html列表--------------- function GetList_html() GetList_html = "
  • 暂无内容
  • " end function '--------------链接内页asp文件列表------------- function GetList_asp2() '获取并设置刷变asp列表 GetList_asp2 = "" for i=0 to 7 key = arr_key(randsub(ubound(arr_key)+1)-1)&GetFuhao&arr_key(randsub(ubound(arr_key)+1)-1) GetList_asp2 = GetList_asp2&"
  • "&key&"
  • "&vbcrlf next end function function SetThisKeyWord(key) SetThisKeyWord = replace(key," ","+") end function function GetFuhao() fuhao_list = ",b,b b " 'fuhao_list = ",bb b_b-" fuhao = split(fuhao_list,"b") GetFuhao = fuhao(randsub(ubound(fuhao)+1)-1) end function %>