common.asp

内含全国3621个火车站,2204次列车时刻表

<%
Dim fun_line
Function web_config
	Dim rs_fun
	Dim temparr
	Dim fun_i
	web_config=""
	Sql_Lists="websystem,websystem_id,websystem_proid,websystem_bbid,websystem_md5"
	sql=Sqlinfo("SiteName,Domains,Website,Logopic,Superadmin,CookiesKey," & Sql_Lists,"websys")
	rs_fun = connopen(sql)
	For fun_i = 0 To UBound(rs_fun,1)
		fun_line = "|;|"
		If fun_i = 0 Then fun_line=""
		web_config = web_config & fun_line & rs_fun(fun_i,0)
	Next 
	web_config = Split(web_config,"|;|")
End Function

Function web_system
	Dim temp_web_system
	fun_line = "&"
	temp_web_system = urp_system(0) & "domain" & "=" & _
	urp_system(5) & fun_line & "systemid" & "=" & _ 
	urp_system(1) & fun_line & "pro_id" & "=" & _ 
	urp_system(2) & fun_line & "beteid" & "=" & _ 
	urp_system(3) & fun_line & "issy" & "=" & _ 
	urp_system(4)
	res script(temp_web_system,"0")
	web_system = "1"
End Function 

Function getcache(str1,str2,str3,str4)
	Dim temp_getconfig
	Dim re_getcache : re_getcache = False
	Dim temp_isarray_type : temp_isarray_type = false
	If str3 = 1 Then temp_isarray_type = True
	If str2 = 1 Then re_getcache = True
	If Application(domain&"_"&str1&"_time") = "" And str4<>0 Then re_getcache = True
	If Not re_getcache Then 
		If temp_isarray_type Then 
		 If Not IsArray(Application(domain&"_"&str1)) Then re_getcache = True
		Else
			If Application(domain&"_"&str1) = "" Then re_getcache = True
		End If
	End If 
	If Not re_getcache And str4<>0 Then 
		If Int(DateDiff("s",Application(domain&"_"&str1&"_time"),now()))>str4 Then re_getcache = True
	End If 
	If re_getcache Then 
		execute("temp_getconfig="&str1)
		Application.Lock
		Application(domain&"_"&str1) = temp_getconfig
		Application(domain&"_"&str1&"_time") = Now()
		Application.UnLock
	Else
		temp_getconfig=Application(domain&"_web_config")
	End If 
	getcache = temp_getconfig
End Function
%>