<%
SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq="&Server.mappath("./")&";Extensions=csv;Persist Security Info=False"
SET rs = server.CreateObject("ADODB.RecordSet")
rs.Open "Select * From 2004direction.csv", Conn
Do While Not(rs.Eof)
If (INSTR(rs(1), "上海") > 0 ) Then
Response.Write(rs(1) & "<br>")
End If
rs.MoveNext
Loop
rs.Close
%>