<!--#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 review_info"
rst1.open sql,conn,1,3
rst1.addnew
rst1("vid")=vid
rst1("content")=comment
if userid=0 or isnull(userid) then
 rst1("username")=logip
else
 rst1("userid")=userid
 rst1("username")=MemberName
end if
rst1("dtime")=dtime
rst1.update
rst1.close
set rst1=nothing%>
<TABLE class="lh12 c6" style="BORDER-BOTTOM: #e4ecf0 1px solid" width=480 
      align=center border=0>
        <TBODY>
        <TR>
          <TD height=10></TD></TR>
        <TR class=f13>
          <TD width=480><%=comment%></TD></TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD>
		  <%if userid=0 then%>
		  <IMG class=img_of2 style="MARGIN-RIGHT: 10px" src="images/v2_nm.gif" align=left><%
			arrayip=split(logip,".")
			response.write "ÓÎ¿Í:"&arrayip(0)&"."&arrayip(1)&"."&arrayip(2)&".*"
		else
		  set rs1=server.createobject("adodb.recordset")
							  rsql="select photo from user_info where userid="& userid
							  rs1.open rsql,conn,1
							  if not rs1.eof then
							   photo=rs1("photo")
							  end if			
							  rs1.close
							  set rs1=nothing		
		  %>
		  <A href="userinfo.asp?user_id=<%=userid%>" target=_blank><IMG 
            class=img_of2 style="MARGIN-RIGHT: 10px" src="uppic/photo/<%=photo%>" align=left border=0 onload="javascript:this.width=50"></A> ×÷Õß£º<A href="userinfo.asp?user_id=<%=userid%>" target=_blank><%=membername%></A>
		  <%end if%><BR>	
			<SPAN class=c9><%=dtime%></SPAN>		
		</TD></TR>
        <TR>
<TD height=10></TD></TR></TBODY></TABLE>