asp寫資料庫

發布時間: 2022-10-25 01:25:49

① asp向資料庫寫入數據

你這個寫法，我都沒用過，也沒見過，第一次見。
你可以考慮寫sql語句插入數據。再看看問題。
如果你使用ASP的這種更新，你可以考慮使用如下方法。
rs("phone") = phone
rs("leixing1") = leixing1
這樣，哪行出錯，都能很明顯的提示出來。

② asp中如何寫資料庫

ASP與Access資料庫連接：
<%
dim conn,mdbfile
mdbfile=server.mappath("資料庫名稱.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver=;uid=admin;pwd=資料庫密碼;dbq="&mdbfile
%>
ASP與SQL資料庫連接：
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL伺服器名稱或IP地址;UID=sa;PWD=資料庫密碼;DATABASE=資料庫名稱
%>

③ asp如何將數組寫入資料庫（在線等） 25分

不能直接保存數組，只能把數組轉換為字元串，讀取的時候，先讀出字元串，然後通過split函數分割，還原數組。舉個例子，比如你定義一個數組Dim MyArray(1,2,3,4,5),存入資料庫的字元串就是1,2,3,4,5

④ ASP網頁欄位如何寫入資料庫

<%
dim startime,conn,connstr,db,rs
startime=timer()
db="jbe.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
username=request.form("username")
...
tel=request.form("tel")
strsql="insert into user(username,password,address,tel) values('"&username&"','"&password&"','"&address&"','"&tel&"')"
conn.execute(strsql)
conn.close()
set conn=nothing
response.redirect "index.asp"
%>
'注意,插入資料至資料庫時,是否給資料庫寫入的許可權(everyone設置為完全控制)

⑤ asp如何編輯寫入資料庫文件

用普通多行文本編輯器就可以.
直接存入資料庫.不過從資料庫讀出來後,先不忙顯示,要先用一個替換函數replace把其中的回車符換為 再顯示就可以換行了.
如果你要把改為 的存到資料庫里,就是這樣的
你肯定會接收輸入資料吧,放到一個變數里,,然後用replace函數替換掉相關內容,再存到資料庫里就可以了.
a=request("cont")
'取得內容,引號裡面的為輸入控制項名稱.
a=replace(a,chr(10)," ")
之後再把a的值存到資料庫里.

⑥ 創建一個資料庫,用ASP怎麼寫

ASP內用SQL語句創建一個帶密碼的ACCESS資料庫
純編碼實現Access資料庫的建立或壓縮
 <%
 '#######以下是一個類文件，下面的註解是調用類的方法################################################
 '# 注意：如果系統不支持建立Scripting.FileSystemObject對象，那麼資料庫壓縮功能將無法使用
 '# Access 資料庫類
 '# CreateDbFile 建立一個Access 資料庫文件
 '# CompactDatabase 壓縮一個Access 資料庫文件
 '# 建立對象方法:
 '# Set a = New DatabaseTools
 '# by (蕭寒雪) s.f.
 '#########################################################################################
 
 Class DatabaseTools
 
 Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)
 '建立資料庫文件
 'If DbVer is 0 Then Create Access97 dbFile
 'If DbVer is 1 Then Create Access2000 dbFile
 On error resume Next
 If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\"
 If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
 If DbExists(SavePath & dbFileName) Then
 Response.Write ("對不起，該資料庫已經存在!")
 CreateDBfile = False
 Else
 Dim Ca
 Set Ca = Server.CreateObject("ADOX.Catalog")
 If Err.number<>0 Then
 Response.Write ("無法建立，請檢查錯誤信息
 " & Err.number & "
 " & Err.Description)
 Err.Clear
 Exit function
 End If
 If DbVer=0 Then
 call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)
 Else
 call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)
 End If
 Set Ca = Nothing
 CreateDBfile = True
 End If
 End function
 
 Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
 '壓縮資料庫文件
 '0 為access 97
 '1 為access 2000
 On Error resume next
 If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\"
 If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
 If DbExists(SavePath & dbFileName) Then
 Response.Write ("對不起，該資料庫已經存在!")
 CompactDatabase = False
 Else
 Dim Cd
 Set Cd =Server.CreateObject("JRO.JetEngine")
 If Err.number<>0 Then
 Response.Write ("無法壓縮，請檢查錯誤信息
 " & Err.number & "
 " & Err.Description)
 Err.Clear
 Exit function
 End If
 If DbVer=0 Then
 call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data
 Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
 Else
 call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
 SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
 SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
 End If
 '刪除舊的資料庫文件
 call DeleteFile(SavePath & dbFileName)
 '將壓縮後的資料庫文件還原
 call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
 Set Cd = False
 CompactDatabase = True
 End If
 end function
 
 Public function DbExists(byVal dbPath)
 '查找資料庫文件是否存在
 On Error resume Next
 Dim c
 Set c = Server.CreateObject("ADODB.Connection")
 c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
 If Err.number<>0 Then
 Err.Clear
 DbExists = false
 else
 DbExists = True
 End If
 set c = nothing
 End function
 
 Public function AppPath()
 '取當前真實路徑
 AppPath = Server.MapPath("./")
 End function
 
 Public function AppName()
 '取當前程序名稱
 AppName = Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
 End Function
 
 Public function DeleteFile(filespec)
 '刪除一個文件
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 If Err.number<>0 Then
 Response.Write("刪除文件發生錯誤!請查看錯誤信息
 " & Err.number & "
 " & Err.Description)
 Err.Clear
 DeleteFile = False
 End If
 call fso.DeleteFile(filespec)
 Set fso = Nothing
 DeleteFile = True
 End function
 
 Public function RenameFile(filespec1,filespec2)
 '修改一個文件
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 If Err.number<>0 Then
 Response.Write("修改文件名時發生錯誤!請查看錯誤信息
 " & Err.number & "
 " & Err.Description)
 Err.Clear
 RenameFile = False
 End If
 call fso.CopyFile(filespec1,filespec2,True)
 call fso.DeleteFile(filespec1)
 Set fso = Nothing
 RenameFile = True
 End function
 
 End Class
 %>
 
 現在已可以壓縮有密碼的資料庫，代碼如下，但是壓縮之後的資料庫密碼就沒有了！如何解決？
 
 <%
 Const JET_3X = 4
 
 Function CompactDB(dbPath, boolIs97)
 Dim fso, Engine, strDBPath
 strDBPath = left(dbPath,instrrev(DBPath,"\"))
 Set fso = CreateObject("Scripting.FileSystemObject")
 
 If fso.FileExists(dbPath) Then
 Set Engine = CreateObject("JRO.JetEngine")
 
 If boolIs97 = "True" Then
 Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
 "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & strDBPath & "temp.mdb;" _
 & "Jet OLEDB:Engine Type=" & JET_3X
 Else
 Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & dbpath, _
 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
 End If
 
 fso.CopyFile strDBPath & "temp.mdb",dbpath
 fso.DeleteFile(strDBPath & "temp.mdb")
 Set fso = nothing
 Set Engine = nothing
 
 CompactDB = "你的資料庫, " & dbpath & ", 已經壓縮成功!" & vbCrLf
 
 Else
 CompactDB = "資料庫名稱或路徑不正確. 請重試!" & vbCrLf
 End If
 
 End Function
 %>

⑦ asp讀取txt文件並寫入資料庫

可以用fSO逐行讀取
<body>
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
Set txtFile=fso.OpenTextFile(Server.MapPath("text.txt"))
While Not txtFile.AtEndOfStream
Response.Write "<center>" & txtFile.ReadLine & "</center> "
。。寫入資料庫
Wend
txtFile.Close
%>
</body>

也可以直接連接資料庫，從文本中直接讀取
insert into tbl select * OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Text;HDR=no;Delimited="::";DATABASE=d:\',tmp#txt)

另外還可以用BCP導入文本到資料庫
類似的樣式：
EXEC master..xp_cmdshell 』bcp "dbname..tablename" in c:「DT.txt -c -Sservername -Usa -Ppassword』

僅供參考，具體寫法請查資料，注意路徑和文件名

⑧ 我的一個ASP頁面怎麼實現寫入資料庫啊

1、你的表單應包含在<form></form>中並且，性別中的兩個option要指定值
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>姓名</title>
</head>

<body>

<div align="left">
<form name="form1" action="save.asp" method="POST">
<table border="0" width="400" id="table1">
<tr>
<td>姓名</td>
<td><input type="text" name="T1" size="20"></td>
</tr>
<tr>
<td>年齡</td>
<td><input type="text" name="T2" size="20"></td>
</tr>
<tr>
<td>性別</td>
<td><select size="1" name="D1">
<option value="男">男</option>
<option value="女">女</option>
</select></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="保存" name="B1"><input type="submit" value="清空" name="B2"></td>
</tr>
</table>
</form>
</div>

</body>

</html>
2、以下是save.asp
<%name=trim(request.form("T1"))
age=trim(request.form("T2"))
sex=trim(request.form("D1"))

dim conn,db
dim connstr
db="db.mdb" '資料庫文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

sql="select * from person"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.addnew
rs["name"]=neme '其中name是person的欄位
rs["age"]=age '同上
rs["sex"]=sex '同上
rs.update
rs.close
set rs=nothing
set conn=nothing
%>

⑨ asp批量寫入資料庫代碼怎麼寫

通過換行的方式來判斷記錄數，你必須得找出數據的分隔符然後得出數組，用for循環就可以了。
文本框中的換行符大概是 ,或者 \r 或者 \n
要看你的具體情況來判別到底是那一個

str="
張三
李四
趙五
劉六
楊七
潘八
"
arr = Split(str,"\r")

For i = 0 To UBound(arr)
set rs=server.CreateObject ("adodb.recordset")
sql="insert into 表 (name) values (arr (i))"
conn.execute sql
Next

大概就是這么個寫法了。

閱讀全文

熱點內容

kindeditor上傳圖片絕對路徑發布：2025-05-14 01:06:27 瀏覽：276

廣數g96編程實例發布：2025-05-14 01:01:56 瀏覽：912

安卓手機如何做一個小程序發布：2025-05-14 01:01:51 瀏覽：969

linux怎麼訪問外網發布：2025-05-14 01:00:24 瀏覽：953

玩dnf什麼配置不卡卡發布：2025-05-14 00:57:02 瀏覽：807

android優秀項目源碼發布：2025-05-14 00:54:58 瀏覽：206

dell伺服器怎麼裝系統發布：2025-05-14 00:50:52 瀏覽：594

csgo怎麼進日本伺服器發布：2025-05-14 00:39:18 瀏覽：748

ip查伺服器商家發布：2025-05-14 00:33:37 瀏覽：213

雲伺服器布發布：2025-05-14 00:27:55 瀏覽：79

asp寫資料庫

與asp寫資料庫相關的資訊