class.asp

啊彬列车查询系统3.0

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Class Cls_Ncrs
   Public Conn
     '连接数据库
        Public Sub Convert()
		    Set Conn=Server.CreateObject("Adodb.Connection")
			Connstr="Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.Mappath("Data/Data.mdb")
			Conn.open Connstr
		End Sub
	  'Execute
        Public Function Execute(Sql)
		  If Isobject(Conn) then
		      Set Execute=Conn.Execute(Sql)
			 Else
			  Convert()
			  Set Execute=Conn.Execute(Sql)
		  End If
		End Function

	    Public Sub Proccess(Sql,stype)
		 Set Rs=Server.CreateObject("Adodb.Recordset")
         Convert()
		   Rs.Open Sql,Conn,1,1
		  If Stype="Checi" then
		    If Rs.eof Or Rs.bof then
		      Response.Write("对不起，没找到你搜索的车次，可能你输入的车次不存在。<br>")
			  Else
			  Response.Write("搜索到以下列车车次：<br>")
			  'response.Write(Rs.recordcount)
			  For i = 1 to Rs.Recordcount
		        Response.Write("<a href=./"&Rs("Url")&">"&Rs("Checi")&"</a><br>")
				Rs.Movenext
			  Next
		    End If
		  ElseIf Stype="Zname" then
		    If Rs.eof Or Rs.bof then
		      Response.Write("对不起，没找到你搜索的车次，可能你输入的车次不存在。<br>")
			  Else
			  Response.Write("搜索到以下列车车次：<br>")
			  'response.Write(Rs.recordcount)
			  For i = 1 to Rs.Recordcount
		        Response.Write("<a href=./"&Rs("Url")&">"&Rs("Checi")&"</a> 线路："&split(rs("Zname"),"@")(1)&"--->"&split(rs("Zname"),"@")(ubound(split(rs("Zname"),"@"))-1)&"<br>")
				Rs.Movenext
			  Next
		     End If
		  ElseIf Stype="Zhanzhan" then
		    If Rs.eof Or Rs.bof then
		      Response.Write("对不起，没找到你搜索的车次，可能你输入的车次不存在。<br>")
			  Else
			  Response.Write("搜索到以下列车车次：<br>")
			  'response.Write(Rs.recordcount)
			  For i = 1 to Rs.Recordcount
		        Response.Write("<a href=./"&Rs("Url")&">"&Rs("Checi")&"</a> 线路："&split(rs("Zname"),"@")(1)&"--->"&split(rs("Zname"),"@")(ubound(split(rs("Zname"),"@"))-1)&"<br>")
				Rs.Movenext
			  Next
		   End If
		  End If
		End Sub
	  '车次查询
	  Public Sub Scheci(Checi)
	      Proccess "Select * From [Checi] Where Checi = '"&Checi&"' Or Checi like '"&Checi&"/%' Or Checi like '%/"&Checi&"' Or Checi Like '%/"&Checi&"/%'","Checi"
	  End Sub
	  '站名查询
	  Public Sub Szhanming(Zname)
	      Proccess "Select * From [Checi] Where Zname Like '%@"&Zname&"@%'","Zname" 
	  End Sub
	  '站站查询
	  Public Sub Szhanzhan(Fname,Dname)
	      'Proccess "Select * From [Checi] Where Zname Like '%@"&Fname&"@%' and Zname Like '%@"&Dname&"@%'","Zhanzhan" 
		  Proccess "Select * From [Checi] Where Zname Like '%@"&Fname&"@%@"&Dname&"@%'","Zhanzhan" 
	  End Sub
End Class

%>