寻找ASP高手给时时聊天小模块加个注释

来源：百度知道 编辑：UC知道 时间：2024/05/11 13:51:45
<%
const ItemNum=50

nShowIP=Request.Form("ShowIp")
strName=Request.Form("Name")
strComment=Request.Form("comment")
strMeeting=Request.Form("Meeting")
strPassword=Request.Form("Password")
strDate=MID(Now(),1,8)

strMeetingID = strMeeting & strPassword & strDate & "Meet"
strTotalCount = strMeeting & strPassword & strDate & "Count"

strIPID = strMeeting & strPassword & strDate & "ID"
strIP = "<OPTION>" & Request.ServerVariables("REMOTE_ADDR") & "-" & CStr(Now()& "<BR>")
Application.Lock()
Application(strIPID)= Application(strIPID)& strIP
Application.UnLock()

If Len(strComment) > 0 Then

if strName="" then strName="匿名"

Application.Lock()
If Application(strTotalCount) = 0 Then
Application(strMeetingI

const ItemNum=50

nShowIP=Request.Form("ShowIp")
strName=Request.Form("Name")
strComment=Request.Form("comment")
strMeeting=Request.Form("Meeting")
strPassword=Request.Form("Password")
strDate=MID(Now(),1,8)

strMeetingID = strMeeting & strPassword & strDate & "Meet"
strTotalCount = strMeeting & strPassword & strDate & "Count"
''以上为得到传递参数值.----------这些参数都是自己定义的.各表示什么你要看完全文
strIPID = strMeeting & strPassword & strDate & "ID"
strIP = "<OPTION>" & Request.ServerVariables("REMOTE_ADDR") & "-" & CStr(Now()& "<BR>")
Application.Lock()
Application(strIPID)= Application(strIPID)& strIP
Application.UnLock()
''Application为网站公共对象,用于记录整个网站的信息.其中Lock()加锁UnLock()解锁,给这种参数赋值必须这样做.

If Len(strComment) > 0 Then
''Len为求参数长度.其实这句Len(