admin_flush_buffer.asp

公交车查询系统

    strHTML3 = strHTML3 + "    window.close();" + vbCrLf
    strHTML3 = strHTML3 + "}" + vbCrLf
    strHTML3 = strHTML3 + "</script>" + vbCrLf
    
    busIDList = getbusIDList
    '打印三列的表格
    strHTML2 = ""
    strHTML2 = strHTML2 + "<table border=""0"">" + vbCrLf
    For i = 0 To UBound(busIDList)
        If (i Mod 3 = 0) Then strHTML2 = strHTML2 + "<tr>" + vbCrLf
        strHTML2 = strHTML2 + "<td><input type=""button"" value=""" & busIDList(i) & """ onClick=""sendTo('" & busIDList(i) & "')""></td>" + vbCrLf
        If ((i + 1) Mod 3 = 0) Then strHTML2 = strHTML2 + "</tr>" + vbCrLf
    Next
    '判断TR是否有结尾标签
    If ((UBound(busIDList) + 1) Mod 3 = 1) Then
        strHTML2 = strHTML2 + "<td></td><td></td></tr>" + vbCrLf
    ElseIf ((UBound(busIDList) + 1) Mod 3 = 2) Then
        strHTML2 = strHTML2 + "<td></td></tr>" + vbCrLf
    End If
    strHTML2 = strHTML2 + "</table>" + vbCrLf
    
    fPath = server.MapPath("buffer/busIDList.htm")
    Set f = fso.CreateTextFile(fPath)
    f.writeline strHTML1
    f.writeline strHTML2
    f.writeline strHTML3
End Function

Function flush_busStationList()
    Dim busStationList
    Dim i
    Dim strHTML1, strHTML2, strHTML3
    Dim f, fso, fPath
    Set fso = server.CreateObject("Scripting.FileSystemObject")
	
    strHTML1 = ""
    strHTML3 = ""
    strHTML1 = strHTML1 + "<style type=""text/css"">" + vbCrLf
    strHTML1 = strHTML1 + "input{width:80px;}" + vbCrLf
    strHTML1 = strHTML1 + "</style>" + vbCrLf
    strHTML1 = strHTML1 + "<title>请选择站点(音序排列)</title>" + vbCrLf
    
    strHTML3 = strHTML3 + "<script language=""JavaScript"">" + vbCrLf
    strHTML3 = strHTML3 + "function sendTo(busStation){" + vbCrLf
    strHTML3 = strHTML3 + "    window.returnValue = busStation;" + vbCrLf
    strHTML3 = strHTML3 + "    window.close();" + vbCrLf
    strHTML3 = strHTML3 + "}" + vbCrLf
    strHTML3 = strHTML3 + "</script>" + vbCrLf
    
	busStationList = getBusStateList
    '打印三列的表格
    strHTML2 = ""
    strHTML2 = strHTML2 + "<table border=""0"">" + vbCrLf
    For i = 0 To UBound(busStationList)
        If (i Mod 3 = 0) Then strHTML2 = strHTML2 + "<tr>" + vbCrLf
        strHTML2 = strHTML2 + "<td><input type=""button"" value=""" & busStationList(i) & """ onClick=""sendTo('" & busStationList(i) & "')""></td>" + vbCrLf
        If ((i + 1) Mod 3 = 0) Then strHTML2 = strHTML2 + "</tr>" + vbCrLf
    Next
    '判断TR是否有结尾标签
    If ((UBound(busStationList) + 1) Mod 3 = 1) Then
        strHTML2 = strHTML2 + "<td></td><td></td></tr>" + vbCrLf
    ElseIf ((UBound(busStationList) + 1) Mod 3 = 2) Then
        strHTML2 = strHTML2 + "<td></td></tr>" + vbCrLf
    End If
    strHTML2 = strHTML2 + "</table>" + vbCrLf
    
    fPath = server.MapPath("buffer/busStationList.htm")
    Set f = fso.CreateTextFile(fPath)
    f.writeline strHTML1
    f.writeline strHTML2
    f.writeline strHTML3
End Function

function flush_search_js()
    Dim busIDList,busStationList
    Dim i,j
    Dim f, fso, fPath
	dim strHTML1,strHTML2
    Set fso = server.CreateObject("Scripting.FileSystemObject")
	strHTML1="var busIDList=new Array();"+vbcrlf
	strHTML2="var busStationList=new Array();"+vbcrlf
	busIDList=getbusIDList
	for i=0 to ubound(busIDList)
		strHTML1=strHTML1+"busIDList["+cstr(i)+"]="""+busIDList(i)+""";"+vbcrlf
	next
	
	busStationList=getBusStateList
	for j=0 to ubound(busStationList)
		strHTML2=strHTML2+"busStationList["+cstr(j)+"]="""+busStationList(j)+""";"+vbcrlf
	next
	
    fPath = server.MapPath("buffer/data.js")
    Set f = fso.CreateTextFile(fPath)
    f.writeline strHTML1
    f.writeline strHTML2
end function
function deleteOldFiles()
	dim fso,bufferPath,busIDInfoPath,busStationInfoPath
	Set fso = server.CreateObject("Scripting.FileSystemObject")
	bufferPath=server.MapPath("buffer")
	busIDInfoPath=server.MapPath("buffer/busIDInfo")
	busStationInfoPath=server.MapPath("buffer/busStationInfo")
	if fso.FolderExists(bufferPath) then
		fso.DeleteFolder bufferPath
	end if
	fso.CreateFolder bufferPath
	fso.CreateFolder busIDInfoPath
	fso.CreateFolder busStationInfoPath
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>刷新查询信息</title>
<style type="text/css">
body,tr,td {
	text-align: center;
	font-family: 宋体;
	font-size: 13px
}
</style>
<script language="JavaScript">
setInterval("changeStatus()", 500);
function changeStatus(){
	var TXT=document.all.alertTXT;
	if (TXT.innerText==""){
		TXT.innerText=" ·"
	}else if(TXT.innerText==" ·"){
		TXT.innerText=" ··";
	}else if(TXT.innerText==" ··"){
		TXT.innerText=" ···";
	}else if(TXT.innerText==" ···"){
		TXT.innerText="";
	}

}
</script>
</head>

<body bgcolor="#E8F3FF" leftmargin="0" topmargin="0">
<table width="100%"  height="100%" border="0" bgcolor="#003399" cellpadding="3" cellspacing="1" align="center">
  <tr> 
    <td height="20" background="images/topbg.gif"></td>
  </tr>
  <tr bgcolor="#7DA4EC"> 
    <td height="20"><font color="#FFFFFF"><strong>刷新查询信息 ━━ 安徽省淮南市公交车查询系统</strong></font></td>
  </tr>
  <tr bgcolor="#E8F3FF"> 
    <td><span id="txt1">正在更新文件信息，请稍候</span><span id="alertTXT" style="width:50"></span> </td>
  </tr>
  <tr> 
    <td height="20" background="images/bottombg.gif"></td>
  </tr>
</table>
</body>
</html>
<%
response.Flush()		'将等候信息先发给用户

deleteOldFiles			'删除旧文件

flush_busIDInfo			'生成各辆车的详细信息页

flush_busStationInfo	'生成各个站点的详细信息页

flush_busIDList			'生成选择车次页

flush_busStationList	'生成选择站点页

flush_search_js			'生成客服务端查询的数据

response.Write("<script language=""JavaScript"">")
response.Write("document.all.txt1.innerText='数据更新完毕！';")
response.Write("document.all.alertTXT.innerText=' ';")
response.Write("</script>")
%>