一聚教程网:一个值得你收藏的教程网站

热门教程

文本数据库操作

时间:2022-06-30 10:30:26 编辑:袖梨 来源:一聚教程网

1。数据库文件“test.txt”,内容如下:
1,"1,2,3,4","111",
2,"4,3,5","111111",
3,"1,2","22222222",
4,"1","2",
30,"f rom","admin",
31,"f rom","admin",
32,"f rom","admin",
33,"f rom","admin",
34,"fr om","admin",
37,"askf","aslkjf",123
35,"fro m","admin",
36,"f r om","admin",
2。测试文件“test.asp”,与“test.txt”文件在同一目录
<%
Dim oRs
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & Server.Mappath("/") & ";Extensions=asc,csv,tab,txt;"
Sql = "Select * From test.txt"
Set oRs = Server.CreateObject("ADODB.RecordSet")
oRs.Open Sql, oConn, 1, 1
Response.Write ""
Response.Write ""
Do While Not oRs.Eof
Response.Write ""
oRs.MoveNext
Loop
Response.Write "
编号用户名密码金钱
" & oRs(0) & " " & oRs(1) & " " & oRs(2) & " " & oRs(3) & " 
"
%>

热门栏目