<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/const.asp"-->
<%
dim comment,vid

comment=request("comment")
vid=request("vid")
logip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If logip = "" Then logip = Request.ServerVariables("REMOTE_ADDR") 

dtime=now()
set rst1=server.createobject("adodb.recordset")
sql="select * from tbjypl"
rst1.open sql,conn,1,3
rst1.addnew
rst1("tbid")=vid
rst1("content")=comment
rst1("ip")=logip
rst1("userid")=userid
rst1("username")=MemberName
rst1("dtime")=dtime
rst1.update
rst1.close
set rst1=nothing%>
<table width="100%" border="0" cellspacing="0" cellpadding="00">
                      <tr>
                        <td height="5" colspan="3"></td>
                      </tr>
                      <tr>
                        <td width="16">&nbsp;</td>
                        <td width="458" height="28"><a href="userinfo.asp?user_id=<%=userid%>" class="ll"><%=MemberName%></a> IP£º<SPAN 
id=ip_3BVMM9K40026251N_3C12EBDH><%arrayip=split(logip,".")
			response.write arrayip(0)&"."&arrayip(1)&"."&arrayip(2)&".*"%></SPAN></td>
                        <td width="166"><%=dtime%> ·¢±í</td>
                      </tr>
                      <tr>
                        <td height="32">&nbsp;</td>
                        <td height="32" colspan="2"><%=comment%></td>
                      </tr>                      
                      <tr>
                        <td height="5" colspan="3"></td>
                      </tr>
                      <tr>
                        <td height="1" colspan="3" background="images/line2.gif"></td>
                      </tr>
                      <tr>
                        <td height="6" colspan="3" ></td>
                      </tr>
                    </table>