Tek 發表
一個簡單的範本，告訴您如何把文字檔儲存進資料庫
將文字檔存進資料庫的做法不難... 有網友問我說會不會... 其實只要稍微瞭解ASP的filesystemobject和ado操作資料庫的話...不難...
在這裡面您的資料庫必須要自做...
資料庫類型:Microsoft Access
資料庫檔案名稱為:storage.mdb
資料庫table name:data
column:content
網頁檔名為:convert.asp
<%
If Request.QueryString("launch") = "yes" then
if Request.Form("selection") = "todatabase" then
call(execution(1))
elseif Request.Form("selection") = "showup" then
call(execution(2))
end if
Sub execution(mode)
select case mode
case 1
Dim objconn
Dim rs
Set objconn = Server.CreateObject("ADODB.CONNECTION")
Set rs = Server.CreateObject("ADODB.RECORDSET")
objconn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("storage.mdb")
rs.open "select *from data",objconn,1,3
filename = Request.Form("filename")
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile = fs.OpenTextFile(Server.MapPath(filename),1,false)
x = txtfile.readall
if rs.eof = true then
rs.addnew
rs("content") = x
rs.update
Response.Write "已經將資料儲存至資料庫了<br>"
else
rs("content") = x
rs.update
Response.Write "已經將資料儲存至資料庫了"
end if
rs("content") = replace(rs("content"),">",">")
rs("content") = replace(rs("content"),"<","<")
rs("content") = replace(rs("content"),vbCrLf,"<br>")
response.Write "資料:<br>"
response.write rs("content")
case 2
Dim filename
Dim fs
Dim txtfile
Dim x
filename = Request.Form("filename")
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile = fs.OpenTextFile(Server.MapPath(filename),1,false)
x = txtfile.readall
Response.Write "<textarea rows='18' cols='65' style='border: 1px solid
#808080'>"& x &"</textarea>"
End Select
End Sub
End if
%>
<form method="post" action="convert.asp?launch=yes">
File Name: <input type="text" value="" name="filename" size="20">
<select size="1" name="selection">
<option value="todatabase">儲存進資料庫</option>
<option value="showup">顯示至網頁</option>
</select>
<input type="submit" value="launch">
</form>