'函数名：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