<!--#include file="Include_func.asp"-->
<!--#include file="openconn.asp"-->
<%
v=Bint(Request("v"))
pv=3
IF v="1" Then
	'order by inj desc,outj desc,id asc
	RefreshIndexPage="1.js"
	pv=3
ElseIF v="2" Then
	RefreshIndexPage="2.js"
	pv=2	
Else
	Response.End()
End IF
RefreshIndexPage_str="/p_inc/clickjs/"&RefreshIndexPage
RefreshTime=Bint(hxtime) '自动刷新时间，单位是秒
tFlag=False
tPstr=""
IF N_Fso.IsFileExists(Add_Root_Dir(RefreshIndexPage_str)) Then
	tFlag=IsExistIndexPage(RefreshTime,Add_Root_Dir(RefreshIndexPage_str)) 'true：不需要重新读数据库	
End IF
IF Not  tFlag Then '重新读取数据库进行写入文件
	ttPstr="{qt_Loop:WebList "&pv&",0,0,0,100}"
	ttPstr=ttPstr&"['{qt:w_id}','{qt:w_name}', '{qt:w_url}', '{qt:w_inj}', '{qt:w_outj}', '{qt:w_inc}','{qt:w_outc}'],"&vbcrlf
	ttPstr=ttPstr&"{/qt_Loop}"
	ttPstr=MakeHTML_CMS(ttPstr)
	ttPstr=ttPstr&"[]"&vbcrlf
	tPstr=tPstr&"//该程序由晴天提供技术支持"&vbcrlf
	tPstr=tPstr&"//QQ：314048526 "&vbcrlf
	tPstr=tPstr&"//官网:http://hao123.qingtiandy.cn/"&vbcrlf&vbcrlf
	tPstr=tPstr&"var QingtianclickInRefreshDate = '"&FormatDate(now(),5)&"';"&vbcrlf '当前更新时间：天
	tPstr=tPstr&"var QingtianclickInRefreshTime = '"&FormatDate(now(),88)&"';"&vbcrlf'当前更新时间：秒
	tPstr=tPstr&"var QingtianclickRefreshTime = '"&RefreshTime&"';"&vbcrlf '自动刷新时间
	tPstr=tPstr&"var QingtianarrClickInSites = "&vbcrlf
	tPstr=tPstr&"["
	tPstr=tPstr&ttPstr
	tPstr=tPstr&"]"
	N_Fso.CreateFolderFile Add_Root_Dir(RefreshIndexPage_str),tPstr
Else
	tPstr=N_Fso.ReadAllTextFile(Add_Root_Dir(RefreshIndexPage_str))
End IF
Response.Write tPstr
%>