ASP中怎样把文本里面的数据加到数据库

'函数名：FSOFileRead

'作 用：使用FSO读取文件内容的函数

'参 数：filename ----文件名称

'返回值：文件内容

'

function FSOFileRead(filename)

Dim objFSO,objCountFile,FiletempData

Set objFSO = ServerCreateObject("ScriptingFileSystemObject")

Set objCountFile = objFSOOpenTextFile(ServerMapPath(filename),1,True)

FSOFileRead = objCountFileReadAll

objCountFileClose

Set objCountFile=Nothing

Set objFSO = Nothing

End Function

'

'函数名：FSOlinedit

'作 用：使用FSO读取文件某一行的函数

'参 数：filename ----文件名称

' lineNum ----行数

'返回值：文件该行内容

'

function FSOlinedit(filename,lineNum)

if linenum < 1 then exit function

dim fso,f,temparray,tempcnt

set fso = serverCreateObject("scriptingfilesystemobject")

if not fsofileExists(servermappath(filename)) then exit function

set f = fsoopentextfile(servermappath(filename),1)

if not fAtEndofStream then

tempcnt = freadall

fclose

set f = nothing

temparray = split(tempcnt,chr(13)&chr(10))

if lineNum>ubound(temparray)+1 then

exit function

else

FSOlinedit = temparray(lineNum-1)

end if

end if

end function

'

'函数名：FSOlinewrite

'作 用：使用FSO写文件某一行的函数

'参 数：filename ----文件名称

' lineNum ----行数

' Linecontent ----内容

'返回值：无

'

function FSOlinewrite(filename,lineNum,Linecontent)

if linenum < 1 then exit function

dim fso,f,temparray,tempCnt

set fso = serverCreateObject("scriptingfilesystemobject")

if not fsofileExists(servermappath(filename)) then exit function

set f = fsoopentextfile(servermappath(filename),1)

if not fAtEndofStream then

tempcnt = freadall

fclose

temparray = split(tempcnt,chr(13)&chr(10))

if lineNum>ubound(temparray)+1 then

exit function

else

temparray(lineNum-1) = lineContent

end if

tempcnt = join(temparray,chr(13)&chr(10))

set f = fsocreatetextfile(servermappath(filename),true)

fwrite tempcnt

end if

fclose

set f = nothing

end function

OleDbConnection conn = new OleDbConnection();

connConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=|DataDirectory|db1mdb";

OleDbCommand comm = new OleDbCommand();

connOpen();

commConnection = conn;

commCommandText = "Insert Into [Time] ([begin],[over]，[name]) Values (@begin,@over,@name)";

commParametersAddWithValue("@begin", a);

commParametersAddWithValue("@over", b);

commParametersAddWithValue("@name", c);

commExecuteNonQuery();

connClose();

注意：

1、以上代码是以access数据为例。

2、如果表里面有其他不能为空的字段存在，需要给他们提供值，自动增加的字段除外。

3、db1mdb文件的只读属性去掉，在文件的属性-安全性里面，添加 everyone帐号和NETWORK Service 帐号可修改权限。

只要表单的中的多条记录控件的name是一样的 那可以用for i=1 to requestForm("id")count来循环对每一条记录进行 *** 作

例子：

for i=1 to requestform("id")count

id=requestForm("id")(i)

对数据库进行 *** 作

next

<%

textarea=Request("textarea")'获取输入框的内容

If inStr(textarea,chr(13)&chr(10))>0 then'判断是否有换行符

textarea=Split(textarea,chr(13)&chr(10), -1, 1)'用换行符把内容分割成数组

For i=0 to UBound(textarea)'循环数组

ConnExecute "Insert Into [表名] (username,shuju,password) Values ('username值','"&textarea(i)&"','password值')" '写入数据库

Next

End If

%>

1字符串链接不要用

+

，用

&

。

2。请确定request的数据内容类型和书库中字段类型相同，也要确定不为空。

3。再不会弄就用记录集添加

rsopen

sql,conn,3,3

rsaddnew

rs("id")=id

rsupdate

rsupdatebatch

rsclose

set

rs=nothing

假设你单选按钮的名称是 "check" ,值分别就是1,2,3哈

check=requestform("check")

sql="select from [tongji]"

set rs=servercreateobject("adodbrecordset")

rsopen sql,conn,3,3

rsaddnew

if check="1" then

rs("yjs")="yes"

elseif check="2" then

rs("yns")="yes"

else

rs("yys")="yes"

end if

rsupdate

rsclose

set rs=nothing

如果说你添加数据的控件是textbox，数据库是sqlserver

在button_click中添加以下代码：

string aa=textboxtext;

sqlconnection conn=new sqlconnection("server=(服务器名称);database=(数据库名称);uid=(登录用户名);pwd=(登录密码)");

sqlcommand cmd=new sqlcommand("insert into [表名](字段名) values ('"+aa+"')",conn);

cmdExecuteNonQuery();

connclose();

conndispose();

这样就可以将数据保存到服务器上的数据库中了

以上就是关于ASP中怎样把文本里面的数据加到数据库全部的内容，包括:ASP中怎样把文本里面的数据加到数据库、asp 怎么写入数据库、asp如何同时插入多条数据进数据库 急等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！