ASP函数库(全部可以直接调用，非常方便) 8

浅浅的花香味﹌ 2021-11-02 16:01 328阅读 0赞

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
'函数ID：0045\[在数据库中插入字段值\]  
'函数名：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  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
'函数ID：0046\[Cookie防乱码写入时用\]  
'函数名：CodeCookie  
'作 用：Cookie防乱码写入时用  
'参 数：str ---- 字符串  
'返回值：整理后的字符串  
'示 例：  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
Public Function CodeCookie(str)  
If isNumeric(str) Then str=Cstr(str)  
Dim newstr  
newstr=""  
For i=1 To Len(str)  
newstr=newstr & ascw(mid(str,i,1))  
If i<> Len(str) Then newstr= newstr & "a"  
Next  
CodeCookie=newstr  
End Function  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
'函数ID：0047\[Cookie防乱码读出时用\]  
'函数名：DecodeCookie  
'作 用：Cookie防乱码读出时用  
'参 数：str ---- 字符串  
'返回值：整理后的字符串  
'示 例：  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
Public Function DecodeCookie(str)  
DecodeCookie=""  
Dim newstr  
newstr=Split(str,"a")  
For i = LBound(newstr) To UBound(newstr)  
DecodeCookie= DecodeCookie & chrw(newstr(i))  
Next  
End Function  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
'函数ID：0048\[检测用户名和密码是否正确\]  
'函数名：DecodeCookie  
'作 用：检测用户名和密码是否正确  
'参 数：ConnStrs ---- 数据库链接字串  
'参 数：Tabnamestr ---- 数据表名称  
'参 数：Tumc ---- 用户名称字段名称  
'参 数：Cumc ---- 用户名称  
'参 数：TCumm ---- 用户密码字段名称  
'参 数：Cumm ---- 用户密码  
'参 数：TUid ---- 用户ID（标识）字段名称  
'返回值：检测成功返回 用户ID 否则 空字符串  
'示 例：  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
Public Function CKUSMCMM(ByVal ConnStrs,ByVal Tabnamestr,ByVal Tumc,ByVal Cumc,ByVal Tumm,ByVal Cumm,ByVal TUid)  
CKUSMCMM=""  
On Error GoTo 0  
On Error Resume Next  
Set sfu\_Conn=server.createobject("ADODB.Connection")  
Set sfu\_Rs =server.createobject("ADODB.Recordset")  
sfu\_Conn.open ConnStrs  
sfu\_sql\_str="select " & TUid & "," & Tumc & "," & Tumm & " from " & Tabnamestr  
sfu\_Rs.open sfu\_sql\_str,sfu\_Conn,1,1  
If sfu\_Rs.RecordCount >0 Then  
Do While Not sfu\_Rs.Eof  
If (sfu\_Rs(Tumc)=Cumc) AND (exmw(sfu\_Rs(Tumm))=Cumm) Then  
CKUSMCMM=sfu\_Rs(TUid)  
Exit Do  
End If  
sfu\_Rs.MoveNext  
Loop  
End If  
sfu\_Rs.Close  
sfu\_Conn.Close  
Set sfu\_Rs = Nothing  
Set sfu\_Conn=Nothing  
On Error GoTo 0  
End Function  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
'函数ID：0049\[生成时间的整数\]  
'函数名：GetMyTimeNumber()  
'作 用：生成时间的整数  
'参 数：lx ---- 时间整数的类型  
' lx=0 到分钟 lx=1 到小时 lx=2 到天 lx=3 到月  
'返回值：生成时间的整数值(最小到分钟)  
'示 例：  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
Public Function GetMyTimeNumber(lx)  
If lx=0 Then GetMyTimeNumber=Year(Date)\*12\*30\*24\*60+Month(Date)\*30\*24\*60+Day(Date)\*24\*60+Hour(Time)\*60+Minute(Time)  
If lx=1 Then GetMyTimeNumber=Year(Date)\*12\*30\*24+Month(Date)\*30\*24+Day(Date)\*24+Hour(Time)  
If lx=2 Then GetMyTimeNumber=Year(Date)\*12\*30+Month(Date)\*30+Day(Date)  
If lx=3 Then GetMyTimeNumber=Year(Date)\*12+Month(Date)  
End Function  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
'函数ID：0050\[获得栏目的所有子栏目字符串并用","隔开\]  
'函数名：GTLMfunLM  
'作 用：获得栏目的所有子栏目字符串并用","隔开  
'参 数：LMid ---- 栏目代码  
'参 数：ConnStrArray ---- 栏目数据链接串  
'返回值：子栏目字符串并用","隔开  
'示 例：hh="数据表链接字串|父栏目字段名|栏目字段名|表名"  
'示 例：GTLMfunLM(22,basicDB(3) & "|FTitId|TitId|TITS")  
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
Public Function GTLMfunLM(ByVal LMid,ByVal ConnStrArray)  
Dim LMstrxx,zdbz,Nlm  
zdbz=False  
LMstrxx=""  
aTempstr=GTLMfunLM\_whil(LMid,ConnStrArray)  
LMstrxx=LMstrxx & aTempstr  
If InStrRev(aTempstr,",") > 0 Then  
Do While Not zdbz  
bTempstr=GTLMfunLM\_Fj(aTempstr,ConnStrArray)  
LMstrxx=LMstrxx & bTempstr  
If bTempstr="" Then zdbz=True  
aTempstr=bTempstr  
Loop  
Else  
LMstrxx=aTempstr  
End If  
LMstrxx=Trim(LMstrxx)  
If LMstrxx<>"" Then If Mid(LMstrxx,Len(LMstrxx),1) = "," Then LMstrxx=Mid(LMstrxx,1,Len(LMstrxx)-1)  
GTLMfunLM=LMstrxx  
End Function  
Public Function GTLMfunLM\_whil(ByVal LMidstr,ByVal ConnStrArray)  
ppTemp=Split(ConnStrArray,"|")  
GTLMfunLM\_whil=""  
Set telm\_Conn=server.createobject("ADODB.Connection")  
Set telm\_Rs =server.createobject("ADODB.Recordset")  
telm\_Conn.open ppTemp(0)  
telm\_sql\_str="SELECT " & ppTemp(1) & "," & ppTemp(2) & " FROM " & ppTemp(3) & " WHERE (" & ppTemp(1) & "='" & LMidstr & "')"  
telm\_Rs.open telm\_sql\_str,telm\_Conn,1,1  
If telm\_Rs.RecordCount >0 Then  
Do While Not telm\_Rs.Eof  
GTLMfunLM\_whil=GTLMfunLM\_whil & Trim(telm\_Rs(ppTemp(2))) & ","  
telm\_Rs.MoveNext  
Loop  
End If  
telm\_Rs.Close  
telm\_Conn.Close  
Set telm\_Rs = Nothing  
Set telm\_Conn=Nothing  
End Function  
Public Function GTLMfunLM\_Fj(ByVal str,ByVal ConnStrArray)  
Dim templjid  
templjid=""  
If Trim(str)<>"" Then  
fjTemp=Split(str,",")  
For i = LBound(fjTemp) To UBound(fjTemp)  
If Trim(fjTemp(i))<>"" Then  
templjid=templjid & GTLMfunLM\_whil(fjTemp(i),ConnStrArray)  
End If  
Next  
End If  
GTLMfunLM\_Fj=templjid  
End Function

转载于:https://www.cnblogs.com/leevane/archive/2008/03/11/1100443.html