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

大概就是这么个写法了。

阅读全文

热点内容

java语言实现发布：2025-05-14 05:34:43 浏览：233

数控系统主轴配置参数有哪些发布：2025-05-14 05:25:55 浏览：819

二级缓存微服务发布：2025-05-14 05:13:55 浏览：101

sqlserverwhencase 发布：2025-05-14 05:11:35 浏览：434

安卓odd是什么意思发布：2025-05-14 04:49:57 浏览：921

安卓哪个app能查询航班发布：2025-05-14 04:49:04 浏览：558

linux定时shell脚本发布：2025-05-14 04:49:00 浏览：684

审计需要什么配置发布：2025-05-14 04:48:55 浏览：550

安卓软件为什么经常自启动发布：2025-05-14 04:38:17 浏览：160

谭浩强c语言第三版课后答案发布：2025-05-14 04:37:31 浏览：60

asp写数据库

与asp写数据库相关的资讯