å¦Âä½Âç¨åÂÂéÂÂå®Âç°群èÂÂÃ¥ÂÂæÂÂæÂÂè¯Âï¼Â
<%xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
if Request.Form(“xt”)=”on” thenÃÂ
‘ å¤æÂÂæ¯å¦æÂÂæÂÂè¯Â.
Application.Lock
‘ æ¯æÂÂæÂÂè¯Â,继ç»Âå¾Âä¸Âå¤ÂçÂÂ.
application(session(“username”))=temppos&application(session(“username”))
‘ åªæÂÂÃ¥ÂÂè¨Â人åÂÂÃ¥ÂÂè¨Â对象æÂÂè½çÂÂå°æ¤åÂÂè¨Â,å®Âç°æÂÂæÂÂè¯Â.
ÃÂ ÃÂ application(Request.form(“d1”))=temppos&application(Request.form(“d1”))
ÃÂ ÃÂ Application.UnLock
ÃÂ ÃÂ ElseÃÂ ÃÂ
‘ 群èÂÂ,继ç»Âå¾Âä¸Âå¤ÂçÂÂ.
ÃÂ ÃÂ ÃÂ ÃÂ application(“private”)=temppos
ÃÂ ÃÂ ÃÂ ÃÂ p1=trim(application(“visitorname”))
‘ Ã¥ÂÂä¼Â人æµ称.
ÃÂ dim aa
ÃÂ for k=1 to len(p1)
‘ ç¨application(“visitorname”)æÂ¥åÂÂå¨åÂ
¨é¨èÂÂÃ¥ÂÂæµ称,æ¯Â个æµ称ä¹Âé´ç¨“3éÂÂå¼Â,并ç¨æ¤循ç¯ç¨æ¥读åÂÂæ¯Â个èÂÂÃ¥ÂÂçÂÂæµ称.
ÃÂ ÃÂ p2=mid(p1,k,1)
ÃÂ ÃÂ if p2=”,” then
ÃÂ ÃÂ ÃÂ ÃÂ aa=p3
ÃÂ Application.Lock
ÃÂ ÃÂ application(aa)=application(“private”)&application(aa)
‘ èÂÂ天室çÂÂ人é½ä¼ÂçÂÂå°æ¤åÂÂè¨Â.
ÃÂ Application.UnLock
ÃÂ ÃÂ p3=””
ÃÂ ÃÂ else
ÃÂ ÃÂ p3=p3&p2
ÃÂ ÃÂ end if%>
ÃÂ ÃÂ <%next%>
<%
ÃÂ ÃÂ end if
%>
[1]