一个BBS的源代码(一)

一个BBS的源代码
<%@ Language=VBScript %>
<%
'==================================================================================================
' 说明部分
'
' #####################
' # #
' # 数据库结构 #
' # #
' #####################
'
' bbs
' 序号 INT NOT NULL IDENTITY
' 作者 VARCHAR(80)
' 题目 VARCHAR(255)
' 回复 INT NOT NULL DEFAULT 0
' 点击 INT NOT NULL DEFAULT 0
' 时间 DATETIME DEFAULT GETDATE()
' 内容 TEXT
' 邮件通知 BIT DEFAULT 0
'
' bbsreply
' 序号 INT NOT NULL IDENTITY
' 原文 INT
' 作者 VARCHAR(80)
' 题目 VARCHAR(255)
' 时间 DATETIME DEFAULT GETDATE()
' 内容 TEXT
'
' bbsmember
' 序号 INT NOT NULL IDENTITY
' 账号 VARCHAR(80)
' 密码 VARCHAR(80)
' 邮件 VARCHAR(80)
' 文章数 INT DEFAULT 0
'

' ####################
' # #
' # 常用函数 #
' # #
' ####################

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

' ####################
' # #
' # 变量说明 #
' # #
' ####################

ASP_FILE_NAME = "board.asp" ' 程序文件名：board.asp
ListSize = 20 ' 每页显示文章数 ListSize