文件名称：一个BBS的源代码
文件大小：6KB
文件格式：ZIP
更新时间：2016-07-01 14:25:14
BBS 源代码
一个BBS的源代码 ' #################### ' # # ' # 常用函数 # ' # # ' #################### Function SqlStr( NormalString ) SqlStr = Replace( NormalString , "'" , "''" ) End Function Function FormStr( NormalString ) FormStr = Replace( NormailString , """" , """""" ) End Function Function CheckEmail( Email ) Dim MailIsRight Dim Mail Dim MailLength Dim AtPosition Dim LastPointPosition Mail = Email AtPosition = InStr( Mail , "@" ) LastPointPosition = InStrRev( Mail , "." ) MailLength = Len( Mail ) MailIsRight = True If AtPosition <= 1 OR AtPosition = MailLength Then MailIsRight = False If LastPointPosition <= 1 OR LastPointPosition = MailLength Then MailIsRight = False If AtPosition > LastPointPosition - 2 Then MailIsRight = False CheckEmail = MailIsRight End Function Function GetID( StringID ) Dim TempID TempID = StringID Do While Not IsNumeric( Left( TempID , 1 ) ) If Len( TempID ) > 1 Then TempID = Mid( TempID , 2 ) Else TempID = "" Exit Do End If Loop GetID = TempID End Function ' #################### ' # # ' # 变量说明 # ' # #
【文件预览】：
新建 文本文档.txt