'**************************************************

'[在数据库中插入字段值]

'函数名：InterTbValue

'作 用：创建数据表

'参 数：ConnStrs ---- 数据库链接字串

'参 数：Tabnamestr ---- 数据表名称

'参 数：CvArrstr ---- 字段表 (写法： Fname1#Value|Fname2#Value|...) 最后一个不要写“|”

'参 数：SqlType ---- Sql语句类型 (0 Access 1 Mssqlserver)

' Fname,Value 说明：字段名称,字段值

'返回值：如果插入成功返回 True 否则 False

'示 例：InterTbValue(basicDB(3),"cs","fa#t|fb#c|fc#n#")

'**************************************************

Public Function InterTbValue(ByVal ConnStrs,ByVal Tabnamestr,ByVal CvArrstr,ByVal SqlType)

InterTbValue=False

On Error GoTo 0

On Error Resume Next

Dim def_kh_l,def_kh_r,Filarray,Valuearray,Temparraya,Temparrayb,TempSqlStr1

def_kh_l =""

def_kh_r =""

Temparraya=Split(CvArrstr,"|")

For fai = LBound(Temparraya) To UBound(Temparraya)

Temparrayb=Split(Temparraya(fai),"#")

If (fai UBound(Temparraya)) Then

Filarray =Filarray & "[" & Temparrayb(0) & "],"

Valuearray=Valuearray & "'" & Temparrayb(1) & "',"

Else

Filarray =Filarray & "[" & Temparrayb(0) & "]"

Valuearray=Valuearray & "'" & Temparrayb(1) & "'"

End If

Next

TempSqlStr1="INSERT INTO [" & Tabnamestr & "] (" & Filarray & ") VALUES (" & Valuearray & ")"

set fu1_Conn=server.createobject("ADODB.Connection")

fu1_Conn.open ConnStrs

fu1_Conn.Execute TempSqlStr1

fu1_Conn.Close

Set fu1_Conn=Nothing

If Err.Number = 0 Then

InterTbValue=True

End If

On Error GoTo 0

End Function