评论留言增加邮箱网址及博主回复通知评论留言人 For Pj3  157（11/2日修改网址判断）

                <tr id="passArea">
                    <td align="right" width="70"><strong>密　码:</strong></td>
                    <td align="left" style="padding:3px;"><input name="password" type="password" size="18" class="userpass" maxlength="24"/> 游客发言不需要密码.</td>
                </tr>

                <tr>
                    <td align="right" width="70"><strong>邮　箱:</strong></td>
                    <td align="left" style="padding:3px;"><input name="myblogemail" type="text" size="18" class="userpass" maxlength="24"/> 博主回复后，系统将发送通知邮件到您的邮箱，可不填.</td>
                </tr>
                <tr>
                    <td align="right" width="70"><strong>网　址:</strong></td>
                    <td align="left" style="padding:3px;"><input name="myblogsiteurl" type="text" size="18" value="http://" class="userpass" maxlength="24"/></td>
                </tr>

    password = Trim(CheckStr(request.Form("password")))

    dim email,tsiteurl
    email=trim(CheckStr(request.form("myblogemail")))
    tsiteurl=trim(CheckStr(request.form("myblogsiteurl")))    

    If (memName=empty or blog_validate=true) and (cstr(lcase(Session("GetCode")))<>cstr(lcase(validate)) or IsEmpty(Session("GetCode"))) Then

    if memName=empty and email<>"" and IsValidEmail(email)=false then
            ReInfo(0)="评论发表错误信息"
            ReInfo(1)="<b>邮箱格式错误</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
            ReInfo(2)="ErrorIcon"
            postcomm=ReInfo
            exit function
    end if

    if memName=empty and tsiteurl<>"" and tsiteurl<>"http://" and IsRightUrl(tsiteurl)=false then
            ReInfo(0)="评论发表错误信息"
            ReInfo(1)="<b>网址格式错误</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
            ReInfo(2)="ErrorIcon"
            postcomm=ReInfo
            exit function
    end if

    AddComm = Array(Array("blog_ID", post_logID), Array("comm_Content", post_Message), Array("comm_Author", username), Array("comm_DisSM", post_DisSM), Array("comm_DisUBB", post_DisUBB), Array("comm_DisIMG", post_disImg), Array("comm_AutoURL", post_DisURL), Array("comm_PostIP", getIP), Array("comm_AutoKEY", post_DisKEY)))

    AddComm = Array(Array("blog_ID", post_logID), Array("comm_Content", post_Message), Array("comm_Author", username), Array("comm_DisSM", post_DisSM), Array("comm_DisUBB", post_DisUBB), Array("comm_DisIMG", post_disImg), Array("comm_AutoURL", post_DisURL), Array("comm_PostIP", getIP), Array("comm_AutoKEY", post_DisKEY),Array("email",email),Array("siteurl",tsiteurl))