⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_flush_buffer.asp

📁 公交管理系统查询
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="admin_check.asp"-->
<!--#include file="function.asp"-->
<%
Function flush_busIDInfo()
    Dim arrBusID
    Dim i, j
    Dim busInfo
    Dim strHTML1, StrHTML2, StrHTML3
    Dim f, fso, fPath
    Set fso = server.CreateObject("Scripting.FileSystemObject")
    strHTML1 = ""
    StrHTML3 = ""
    strHTML1 = strHTML1 + "<html>" + vbCrLf
    strHTML1 = strHTML1 + "<head>" + vbCrLf
    strHTML1 = strHTML1 + "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" + vbCrLf
    strHTML1 = strHTML1 + "<title>车次查询</title>" + vbCrLf
    strHTML1 = strHTML1 + "<style type=""text/css"">" + vbCrLf
    strHTML1 = strHTML1 + "body,tr,td {" + vbCrLf
    strHTML1 = strHTML1 + "    text-align: center;" + vbCrLf
    strHTML1 = strHTML1 + "    font-family: 宋体;" + vbCrLf
    strHTML1 = strHTML1 + "    font-size: 13px" + vbCrLf
    strHTML1 = strHTML1 + "}" + vbCrLf
    strHTML1 = strHTML1 + "</style>" + vbCrLf
    strHTML1 = strHTML1 + "</head>" + vbCrLf
    strHTML1 = strHTML1 + "" + vbCrLf
    strHTML1 = strHTML1 + "<body>" + vbCrLf
    strHTML1 = strHTML1 + "<table width=""650"" border=""0"" bgcolor=""#003399"" cellpadding=""3"" cellspacing=""1"" align=""center"">" + vbCrLf
    strHTML1 = strHTML1 + "  <tr>" + vbCrLf
    strHTML1 = strHTML1 + "    <td height=""20"" background=""../../images/topbg.gif""></td>" + vbCrLf
    strHTML1 = strHTML1 + "  </tr>" + vbCrLf
    strHTML1 = strHTML1 + "  <tr bgcolor=""#7DA4EC"">" + vbCrLf
    strHTML1 = strHTML1 + "    <td><strong><font color=""#FFFFFF"">车次查询结果</font></strong></td>" + vbCrLf
    strHTML1 = strHTML1 + "  </tr>" + vbCrLf
    strHTML1 = strHTML1 + "  <tr bgcolor=""#E8F3FF"">" + vbCrLf
    strHTML1 = strHTML1 + "    <td>" + vbCrLf
    strHTML1 = strHTML1 + "    <!--查询结果显示开始-->" + vbCrLf
    
    StrHTML3 = StrHTML3 + "    <!--查询结果显示结束-->" + vbCrLf
    StrHTML3 = StrHTML3 + "    <br><img border=""0"" src=""../../images/close_window.gif"" style=""CURSOR: hand;"" onClick=""window.close()"">" + vbCrLf
    StrHTML3 = StrHTML3 + "    </td>" + vbCrLf
    StrHTML3 = StrHTML3 + "  </tr>" + vbCrLf
    StrHTML3 = StrHTML3 + "  <tr>" + vbCrLf
    StrHTML3 = StrHTML3 + "    <td height=""20"" background=""../../images/bottombg.gif""></td>" + vbCrLf
    StrHTML3 = StrHTML3 + "  </tr>" + vbCrLf
    StrHTML3 = StrHTML3 + "</table>" + vbCrLf
    StrHTML3 = StrHTML3 + "</body>" + vbCrLf
    StrHTML3 = StrHTML3 + "</html>" + vbCrLf

    arrBusID = getBusIDList
    For i = 0 To UBound(arrBusID)
        '得到一辆车的信息
        busInfo = getInfoByBusID(arrBusID(i))
        StrHTML2 = ""
        StrHTML2 = StrHTML2 + "<table width=""500"" border=""0"" bgcolor=""#003399"" cellpadding=""3"" cellspacing=""1"">" + vbCrLf
        StrHTML2 = StrHTML2 + "<tr bgcolor=""#FDDD90"">" + vbCrLf
        StrHTML2 = StrHTML2 + "<td width=""150"">车次:<strong><font color=""#FF0000""> " & busInfo(0) & "</font></strong> 路车</td>" + vbCrLf
        StrHTML2 = StrHTML2 + "<td>起点：<strong><font color=""#FF0000"">" & busInfo(1) & "</font></strong> &lt;==&gt;  终点：<strong><font color=""#FF0000"">" & busInfo(2) & "</font></strong></td>" + vbCrLf
        StrHTML2 = StrHTML2 + "</tr>" + vbCrLf
        StrHTML2 = StrHTML2 + "<tr bgcolor=""#FDDD90"">" + vbCrLf
        StrHTML2 = StrHTML2 + "<td width=""150"">经过站次</td>" + vbCrLf
        StrHTML2 = StrHTML2 + "<td>经过站点</td>" + vbCrLf
        StrHTML2 = StrHTML2 + "</tr>" + vbCrLf
        For j = 3 To UBound(busInfo)
            StrHTML2 = StrHTML2 + "<tr bgcolor=""#E8F3FF"" onMouseOver = ""this.style.backgroundColor = '#FFF9EE'"" onMouseOut = ""this.style.backgroundColor = ''"">" + vbCrLf
            StrHTML2 = StrHTML2 + "<td>" & (j - 2) & "</td>" + vbCrLf
            StrHTML2 = StrHTML2 + "<td>" & busInfo(j) & "</td>" + vbCrLf
            StrHTML2 = StrHTML2 + "</tr>" + vbCrLf
        Next
        StrHTML2 = StrHTML2 + "</table>" + vbCrLf
        fPath = server.MapPath("buffer/busIDInfo/bus" + CStr(i) + ".htm")
        Set f = fso.CreateTextFile(fPath)
        f.writeline strHTML1
        f.writeline StrHTML2
        f.writeline StrHTML3
    Next
End Function
Function flush_busStationInfo()
    Dim busStationList, busIDList, busInfo
    Dim i, j, k
    Dim strHTML1, StrHTML2, StrHTML3
    Dim f, fso, fPath
    Set fso = server.CreateObject("Scripting.FileSystemObject")
    strHTML1 = ""
    StrHTML3 = ""
    strHTML1 = strHTML1 + "<html>" + vbCrLf
    strHTML1 = strHTML1 + "<head>" + vbCrLf
    strHTML1 = strHTML1 + "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" + vbCrLf
    strHTML1 = strHTML1 + "<title>站点查询</title>" + vbCrLf
    strHTML1 = strHTML1 + "<style type=""text/css"">" + vbCrLf
    strHTML1 = strHTML1 + "body,tr,td {" + vbCrLf
    strHTML1 = strHTML1 + "    text-align: center;" + vbCrLf
    strHTML1 = strHTML1 + "    font-family: 宋体;" + vbCrLf
    strHTML1 = strHTML1 + "    font-size: 13px" + vbCrLf
    strHTML1 = strHTML1 + "}" + vbCrLf
    strHTML1 = strHTML1 + "</style>" + vbCrLf
    strHTML1 = strHTML1 + "</head>" + vbCrLf
    strHTML1 = strHTML1 + "" + vbCrLf
    strHTML1 = strHTML1 + "<body>" + vbCrLf
    strHTML1 = strHTML1 + "<base target=""_blank"">" + vbCrLf
    strHTML1 = strHTML1 + "<table width=""650"" border=""0"" bgcolor=""#003399"" cellpadding=""3"" cellspacing=""1"" align=""center"">" + vbCrLf
    strHTML1 = strHTML1 + "  <tr>" + vbCrLf
    strHTML1 = strHTML1 + "    <td height=""20"" background=""../../images/topbg.gif""></td>" + vbCrLf
    strHTML1 = strHTML1 + "  </tr>" + vbCrLf
    strHTML1 = strHTML1 + "  <tr bgcolor=""#7DA4EC"">" + vbCrLf
    strHTML1 = strHTML1 + "    <td><strong><font color=""#FFFFFF"">站点查询结果</font></strong></td>" + vbCrLf
    strHTML1 = strHTML1 + "  </tr>" + vbCrLf
    strHTML1 = strHTML1 + "  <tr bgcolor=""#E8F3FF"">" + vbCrLf
    strHTML1 = strHTML1 + "    <td>" + vbCrLf
    strHTML1 = strHTML1 + "    <!--查询结果显示开始-->" + vbCrLf
    
    StrHTML3 = StrHTML3 + "    <!--查询结果显示结束-->" + vbCrLf
    StrHTML3 = StrHTML3 + "    <br><img border=""0"" src=""../../images/close_window.gif"" style=""CURSOR: hand;"" onClick=""window.close()"">" + vbCrLf
    StrHTML3 = StrHTML3 + "    </td>" + vbCrLf
    StrHTML3 = StrHTML3 + "  </tr>" + vbCrLf
    StrHTML3 = StrHTML3 + "  <tr>" + vbCrLf
    StrHTML3 = StrHTML3 + "    <td height=""20"" background=""../../images/bottombg.gif""></td>" + vbCrLf
    StrHTML3 = StrHTML3 + "  </tr>" + vbCrLf
    StrHTML3 = StrHTML3 + "</table>" + vbCrLf
    StrHTML3 = StrHTML3 + "</body>" + vbCrLf
    StrHTML3 = StrHTML3 + "</html>" + vbCrLf
    
    busStationList = getBusStateList
    busIDList = getBusIDList
    For i = 0 To UBound(busStationList)
        'busInfo=getInfoByBusID(busStationList(i))
        StrHTML2 = ""
        StrHTML2 = StrHTML2 + "<table width=""500"" border=""0"" bgcolor=""#003399"" cellpadding=""3"" cellspacing=""1"">" + vbCrLf
        StrHTML2 = StrHTML2 + "<tr bgcolor=""#FDDD90"">" + vbCrLf
        StrHTML2 = StrHTML2 + "<td width=""100""><strong>车次</strong></td>" + vbCrLf
        StrHTML2 = StrHTML2 + "<td width=""100""><strong>起点</strong></td>" + vbCrLf
        StrHTML2 = StrHTML2 + "<td width=""100""><strong>经过</strong></td>" + vbCrLf
        StrHTML2 = StrHTML2 + "<td width=""100""><strong>终点</strong></td>" + vbCrLf
        StrHTML2 = StrHTML2 + "<td width=""100""><strong>详情</strong></td>" + vbCrLf
        StrHTML2 = StrHTML2 + "</tr>" + vbCrLf

        For j = 0 To UBound(busIDList)
            busInfo = getInfoByBusID(busIDList(j))
            For k = 3 To UBound(busInfo)
                If busInfo(k) = busStationList(i) Then
                    StrHTML2 = StrHTML2 + "<tr bgcolor=""#E8F3FF"" onMouseOver = ""this.style.backgroundColor = '#FFF9EE'"" onMouseOut = ""this.style.backgroundColor = ''"">" + vbCrLf
                    StrHTML2 = StrHTML2 + "<td width=""100"">" & busInfo(0) & "</td>" + vbCrLf
                    StrHTML2 = StrHTML2 + "<td width=""100"">" & busInfo(1) & "</td>" + vbCrLf
                    StrHTML2 = StrHTML2 + "<td width=""100""><strong><font color=""#FF0000"">" & busStationList(i) & "</strong></font></td>" + vbCrLf
                    StrHTML2 = StrHTML2 + "<td width=""100"">" & busInfo(2) & "</td>" + vbCrLf
                    StrHTML2 = StrHTML2 + "<td width=""100""><a href=""../busIDInfo/bus" & j & ".htm"" target=_blank><img src=""../../images/detail.gif"" border=""0""></a></td>" + vbCrLf
                    StrHTML2 = StrHTML2 + "</tr>" + vbCrLf
                    Exit For
                End If
            Next
        Next
        StrHTML2 = StrHTML2 + "</table>" + vbCrLf
        fPath = server.MapPath("buffer/busStationInfo/busStation" + CStr(i) + ".htm")
        Set f = fso.CreateTextFile(fPath)
        f.writeline strHTML1
        f.writeline StrHTML2
        f.writeline StrHTML3
    Next
End Function

Function flush_busIDList()
    Dim busIDList
    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:65px;}" + vbCrLf
    strHTML1 = strHTML1 + "</style>" + vbCrLf
    strHTML1 = strHTML1 + "<title>请选择车次</title>" + vbCrLf
    
    strHTML3 = strHTML3 + "<script language=""JavaScript"">" + vbCrLf
    strHTML3 = strHTML3 + "function sendTo(busID){" + vbCrLf
    strHTML3 = strHTML3 + "    window.returnValue = busID;" + vbCrLf
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -