文本数据库操作

最新推荐文章于 2025-10-19 12:31:11 发布

原创最新推荐文章于 2025-10-19 12:31:11 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #microsoft #csv #border #sql #table

ASP 专栏收录该内容

15 篇文章

订阅专栏

博客展示了数据库文件“test.txt”内容，还给出测试文件“test.asp”代码。通过代码连接数据库，使用 SQL 语句查询“test.txt”数据，并将结果以表格形式输出，涉及数据库操作与数据展示。

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 "<table border=1 width=400>"
Response.Write "<tr><td>编号</td><td>用户名</td><td>密码</td><td>金钱</td></tr>"
Do While Not oRs.Eof
Response.Write "<tr><td>" & oRs(0) & " </td><td>" & oRs(1) & " </td><td>" & oRs(2) & " </td><td>" & oRs(3) & " </td></tr>"
oRs.MoveNext
Loop
Response.Write "</table>"
%>