ASP函数库

n Str2Num(str,base)
  dim ret
  ret = 0
  for i=1 to len(str)
      ret = ret *base + cint(mid(str,i,1))
  next
  Str2Num=ret
End Function
Function Num2Str(num,base,lens)
  dim ret
  ret = ""
  while(num>=base)
  ret = (num mod base) & ret
  num = (num - num mod base)/base
  wend
  Num2Str = right(string(lens,"0") & num & ret,lens)
End Function
'**************************************************''''
'函数ID：0029[将本地文件进行二进制分析，并保存到服务器的指定目录下]
'函数名：TxtBinInfo
'作 用：将本地文件进行二进制分析，并保存到服务器的指定目录下
'参 数：Filestr ---- 被分析文件路径及文件命名
'参 数：WebSvFile ---- 分析信息保存文件路径及文件命名
'返回值：成功返回 True 否则 False
'示 例：  TempSj=Request.Form("Tfile")
'示 例：  If Trim(TempSj)<>"" Then CALL TxtBinInfo(TempSj,"d:\aa.txt")
'示 例：  Response.write "<form method='POST' action='test.asp'><input type='file' name='Tfile'><input type='submit' value='提交' name='B1'></form>"
'**************************************************''''
Public Function TxtBinInfo(ByVal Filestr,ByVal WebSvFile)
  TxtBinInfo=False
  DIM Wtempxx
  Wtempxx=""
  SET Tempsm = Server.CreateObject("ADODB.Stream")
  Tempsm.Mode=3
  Tempsm.Type=1
  Tempsm.Open
  Tempsm.LoadFromFile (Filestr)
  tempRedImg=Tempsm.Read
  for i = lenb(tempRedImg) to 1 step -1
      Wtempxx=Wtempxx& "地址号：" &i &"地址十六进制："& Hex(ascb(midb(tempRedImg,i,1))) &"  十进制："&ascb(midb(tempRedImg,i,1))&vbCrlf
  next
  Wtempxx=Wtempxx&vbCrlf&"大小："&lenb(tempRedImg)&"字节 该文件名称为：" &Filestr
  Set M_fso = CreateObject("Scripting.FileSystemObject")
  Set FnameN= M_fso.OpenTextFile(WebSvFile,2,True)
  FnameN.Write Wtempxx
  FnameN.Close
  Set M_fso = Nothing
  Tempsm.Close
  SET Tempsm=nothing
  TxtBinInfo=True
End Function
'**************************************************''''
'函数ID：0030[将本地数据表或库上传并导入到服务器数据库的表中]
'函数名：ReadCdbToServ
'作 用：将本地数据表或库上传并导入到服务器数据库的表中
'参 数：CdbFileUp  ---- 被上传的库或表文件路径及文件名
'参 数：SdbConnStr ---- 服务器数据库链接字串
'参 数：SdbTbname  ---- 服务器将打开的表名
'参 数：FildStrArr ---- 导入的数据字段串(各字段用","隔开)
'返回值：成功返回 True 否则 False
'注可导入的文件类型有(0:Excel 1:Access 2:Text 3:DBF/FoxPro)
'注：Excel 的表为Sheet名称，文本及DBF/FoxPro的表名为数据文件的全名，如 aa.txt 或 aa.dbf
'注：Text 文本数据表是以","为分隔的格式 ，重点：被导入的数据库只能包含一个表，并且导入的字段应和服务器数据库的表相一致
'示 例：  CALL ReadCdbToServ(TempSj,"DRIVER=SQL Server;UID=sa;DATABASE=temp;SERVER=127.0.0.1;PWD=mzy1029;","img","mc,lx,mem")
'示 例：  Response.write "<form method='POST' action='test.asp' enctype='multipart/form-data'><input type='file' name='Tfile'><input type='submit' value='提交' name='B1'></form>"
'**************************************************''''
Public Function ReadCdbToServ(ByVal CdbFileUp,ByVal SdbConnStr,ByVal SdbTbname,ByVal FildStrArr)
  ReadCdbToServ=False
  Dim MbDir,Mbwjmc,aryTemp,VrCdb_Conn_Str,ofu_Conn,ofu_Rs,sfu_Conn,sfu_Rs,ofu_sql_str,sfu_sql_str,oaryTemp,TpTrs,Gtlx,CdbTbname
  VrCdb_Conn_Str=""
  MbDir=Readsyspath(1)
  If Right(MbDir,1)<>"\" Then MbDir=MbDir&"\"
  Mbwjmc=CdbFileUp
  aryTemp = Split(Mbwjmc,"\")
  Mbwjmc=aryTemp(UBound(aryTemp))
  aryTemp=Split(Mbwjmc,".")
  Gtlx=UCase(aryTemp(UBound(aryTemp)))
  If UpFsRn(100,MbDir,"temp."&Gtlx) Then
     If Gtlx="XLS" Then VrCdb_Conn_Str ="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="&MbDir&"temp."&Gtlx&";"             '' Excel [Tbname$]
     If Gtlx="MDB" Then VrCdb_Conn_Str ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&MbDir&"temp."&Gtlx&";Jet OLEDB:Database Password=;"              '' Access
     If Gtlx="TXT" Then VrCdb_Conn_Str ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&MbDir&";Extended Properties='text;HDR=Yes;FMT=Delimited'"        '' Text(,分割)
     If Gtlx="DBF" Then VrCdb_Conn_Str ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&MbDir&";Extended Properties=dBASE IV;User ID=Admin;Password="    '' DBF/FoxPro
     Set sfu_Conn=server.createobject("ADODB.Connection")
     Set sfu_Rs  =server.createobject("ADODB.Recordset")
     sfu_Conn.open SdbConnStr
     sfu_sql_str="select "&FildStrArr&" from "&SdbTbname
     Set ofu_Conn=server.createobject("ADODB.Connection")
     Set ofu_Rs  =server.createobject("ADODB.Recordset")
     ofu_Conn.open VrCdb_Conn_Str
     Set  TpTrs=ofu_Conn.OpenSchema(20)
     CdbTbname=TpTrs(2)
     TpTrs.Close
     Set TpTrs = Nothing
     If Gtlx="XLS" Then CdbTbname="["&CdbTbname&"]"
     ofu_sql_str="select "&FildStrArr&" from "&CdbTbname
     oaryTemp = Split(FildStrArr,",")
     sfu_Rs.open sfu_sql_str,sfu_Conn,1,3
     ofu_Rs.open ofu_sql_str,ofu_Conn,1,3
     Do While Not ofu_Rs.Eof
        sfu_Rs.addnew
        For i = LBound(oaryTemp) To UBound(oaryTemp)
            sfu_Rs(oaryTemp(i))=ofu_Rs(oaryTemp(i))
        Next
        sfu_Rs.update
        ofu_Rs.MoveNext
     Loop
     ofu_Rs.Close
     ofu_Conn.Close
     Set ofu_Rs = Nothing
     Set ofu_Conn=Nothing
     sfu_Rs.Close
     sfu_Conn.Close
     Set sfu_Rs = Nothing
     Set sfu_Conn=Nothing
     ReadCdbToServ=True
     DelFile(MbDir&"temp."&Gtlx)
  End If
End Function
'**************************************************
'函数ID：0031[返回服务器信息]
'函数名：GetServerInfo
'作 用：返回服务器信息
'参 数：Lx ---- 返回信息代码类
' 0 : 服务器的域名
' 1 : 服务器的IP地址
' 2 : 服务器操作系统
' 3 : 服务器解