Pertukaran data antara file teks dan file database di ASP
Aplikasi database jaringan adalah komponen yang sangat penting dari www. Dapat dikatakan bahwa jika database hilang, jaringan akan kehilangan jiwanya. Anda dapat membayangkan betapa sulitnya menemukan tujuan online tanpa mesin pencari seperti Yahoo dan Sohu. Setiap orang menjadi bingung dan kehilangan jalan mereka di lautan internet yang luas. Faktanya, mesin pencari ini adalah aplikasi database jaringan yang paling khas. Ada banyak operasi langsung pada database dalam teknologi ASP (Halaman Server Aktif). Berikut ini menjelaskan metode memberikan data dari file teks ke file database.
Formulir teks ini dikumpulkan dan ditransmisikan ke direktori tetap server oleh terminal. Server membaca data dan menyimpannya di database lokal. Setelah konversi, file teks dihapus. Dengan cara ini, terminal bertanggung jawab untuk mengumpulkan data dan mengunggahnya ke direktori yang ditunjuk server dalam format yang diberikan. Basis data sisi server sepenuhnya buram ke terminal, memastikan keamanan server, dan mungkin agak membantu untuk aplikasi database jaringan saat ini.
Txttolib.asp
<Html>
<head>
<meta http-equiv = refresh content = 30; url = deltext.asp>
<meta http-equiv = tipe konten
konten = teks/html; Charset = GB_2312-80>
<meta name = generator konten = Microsoft FrontPage Express 2.0>
<title> [Konversi file teks ke file database] </iteme>
</head>
<body bgcolor =#ffffff>
<align = center>
<p align = center> <font color =#ff0000> data sedang diproses, harap tunggu!
<br>
</font> <font color =#000000> <align = center> <%
str = server.mappath (/) 'Dapatkan direktori root dari server
Atur fso = createObject (scripting.filesystemObject)
Set f = fso.getFolder (str & /thetext)
Atur fc = f.files
k = 1
Untuk setiap F1 di FC
file (k) = f1.name 'Dapatkan semua nama file di bawah jalur ini
K = K+1
Berikutnya
%> <%ii = 1%> <%
atur fs = createObject (scripting.filesystemObject)%> <%
sementara ii <k
response.write file (ii) & <br>
Set TextInstance = fs.opentextFile (str & / thetext / & file (ii), 1, false, false) 'Buka file untuk membaca data
Sedangkan TextInstance.atendOfStream <> true 'jika file tidak berakhir
vis vis visnum = textInstance.readline 'Baca baris data
j = 0
CD = Len (Visitornum)
Untuk I = 1 ke CD
Jika Mid (Visitornum, I, 1) =, maka 'Data dipisahkan oleh ","
j = j+1
kalau tidak
Pilih case j 'memperoleh setiap nilai data secara terpisah
Kasus 0
Me1 = Me1+Mid (Visitornum, I, 1)
Kasus 1
Me2 = Me2+Mid (Visitornum, I, 1)
Kasus 2
ME3 = ME3+Mid (Visitornum, I, 1)
Kasus 3
ME4 = ME4+Mid (Visitornum, I, 1)
Kasus 4
ME5 = ME5+Mid (Visitornum, I, 1)
Kasus 5
ME6 = ME6+Mid (Visitornum, I, 1)
Akhiri Pilih
akhiri jika