下载 > 资源分类 >  服务器应用 >  FTP > 一个BBS的源代码

一个BBS的源代码

2013-06-11 上传大小:6KB
一个BBS的源代码
' ####################
' # #
' # 常用函数 #
' # #
' ####################

Function SqlStr( NormalString )

SqlStr = Replace( NormalString , "'" , "''" )

End Function

Functi
on 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

' ####################
' # #
' # 变量说明 #
' # #
...展开收缩
综合评分:0(0位用户评分)
直接下载 开通VIP会员 免积分下载

评论共有0条

评论资源

您不能发表评论,可能是以下原因:

登录后才能评论

待评论资源
 

热门专辑

服务器应用热门标签

VIP会员动态

关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

CSDN VIP年卡 4000万程序员的必选现在开通,立省522元
为了良好体验,不建议使用迅雷下载
下载
img

一个BBS的源代码

会员到期时间: 剩余下载个数: 剩余C币:200 剩余积分:6726
为了良好体验,不建议使用迅雷下载
VIP下载

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP年卡
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img
资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
(仅够下载10个资源)
VIP年卡
全站1200个资源免积分下载
为了良好体验,不建议使用迅雷下载
下载
img
资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
VIP年卡
全站1200个资源免积分下载
C币充值开通VIP年卡
img
资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
VIP年卡
全站1200个资源免积分下载
为了良好体验,不建议使用迅雷下载
下载
下载

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可奖励20下载分

  • 举报人:
  • 被举报人:
  • 举报的资源分:
  • *类型:
  • *详细原因: