<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<%
Call SiteInfo()
If ISHTML = 1 Then
    Response.expires = 0
    Response.expiresabsolute = Now() - 1
    Response.addHeader "pragma", "no-cache"
    Response.addHeader "cache-control", "private"
    Response.CacheControl = "no-cache"
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>留言反馈 - <% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
<!--#include file="Message_head.Asp" --> 
<%
Dim MesName, Content, SecretFlag, mMemID, mLinkman, mSex, mCompany, mAddress, mZipCode, mTelephone, mFax, mMobile, mEmail
If session("MemName")<>"" And session("MemLogin") = "Succeed" Then
    Call MemInfo()
Else
    mSex = "先生"
    mMemID = 0
    SecretFlag = "<font color=""red"">会员功能，请先注册会员。</font>"
End If
%>
<div class="intropg_banner_bg_4">
    <div class="intropg_banner"> <img src="/template/shenbi2012_mrs/images/message_bg.jpg" alt="在线留言" /> </div>
</div>
<div class="news_bg">
  <div class="news">
    <div class="new_roll" id="roll"> <%=News("0,")%></div>
    <script type="text/javascript" src="script/news.js"></script>
    <div class="location" ><%=WebLocation()%></div>
  </div>
</div>
<div class="main">
     <div class="main_bg_top"></div>
	 <div class="main_bg_zh">
	   <div class="about_us"><img src="/images/about_us_15.jpg" /></div>
	   <div class="about_us_lei">
	     <ul>
                 <%=WebMenu()%>
		   <li><a href="/Contact.html"  title="联系我们">联系我们</a></li>
		 </ul>
	   </div>
	 <div class="about_us_tt"></div>
	 <div class="about_top">

<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="hg" style="padding-top:10px">
        <tr>
		<td  style="font-size:12px;width:100%; line-height:200%;text-align:justify;text-justify:inter-ideograph">

<table width="100%" height="113" border="0" align="center" cellpadding="3" cellspacing="5" class="jobmain2">
              <form action="MessageSave.Asp?MemberID=<%=mMemID%>" method="post" name="formWrite" id="formWrite">
                <tr>
                  <td width="314" align="right"><strong>留言主题：</strong></td>
                  <td width="1241"><input name="MesName" type="text" id="MesName" size="40" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td height="113" align="right"><strong>留言内容：</strong></td>
                  <td ><textarea name="Content" cols="60" rows="9"></textarea>
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>称呼：</strong></td>
                  <td><input name="Linkman" type="text" id="Linkman" value="<%=mLinkman%>" size="20" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>性别：</strong></td>
                  <td><input name="Sex" type="radio" value="先生" class="inputnoborder" <%if mSex="先生" then response.write ("checked")%> />
                    先生
                    <input type="radio" name="Sex" value="女士" class="inputnoborder" <%if mSex="女士" then response.write ("checked")%> />
                    女士 <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>公司名称：</strong></td>
                  <td><input name="Company" type="text" value="<%=mCompany%>" size="50" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>联系地址：</strong></td>
                  <td><input name="Address" type="text" value="<%=mAddress%>" size="50" maxlength="100" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>邮政编码：</strong></td>
                  <td><input name="ZipCode" type="text" value="<%=mZipCode%>" size="20" maxlength="20" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>联系电话：</strong></td>
                  <td><input name="Telephone" type="text" id="Telephone" value="<%=mTelephone%>" size="20" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>传真号码：</strong></td>
                  <td><input name="Fax" type="text" id="Fax" value="<%=mFax%>" size="20" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>手机号码：</strong></td>
                  <td><input name="Mobile" type="text" id="Mobile" value="<%=mMobile%>" size="20" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>电子信箱：</strong></td>
                  <td><input name="Email" type="text" id="Email" value="<%=mEmail%>" size="30" maxlength="50" />
                    <font color="red">*</font></td>
                </tr>
                <tr>
                  <td align="right"><strong>验证码：</strong></td>
                  <td><input name="CheckCode" type="text" size="6" maxlength="6" />
                    <a href="javascript:refreshimg()" title="看不清楚，换个图片。"><img src="Include/CheckCode/CheckCode.Asp" name="checkcode" align="absmiddle" id="checkcode" style="border: 1px solid #ffffff" /></a> <font color="red">*</font></td>
                </tr>




                <tr>
                  <td align="right">&nbsp;</td>
                  <td><input name="Submit" type="submit" value="发表留言" /></td>
                </tr>
              </form>
            </table>

        </td>	
	</tr>
</table>

	 </div>
     </div>
	 <div class="main_bg_bottom"></div>
   </div>
<!--#include file="End.Asp"-->
<%
Function WebMenu()
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select ID,AboutName from Shenbi_About where ViewFlag and not ChildFlag order by Sequence asc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "<center>暂无相关信息</center>"
    Else
        Do
            If ISHTML = 1 Then
                AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "About.Asp?ID="&rs("ID")&""
            End If
            response.Write "<li><a href="""&AutoLink&""">"&rs("AboutName")&"</a></li>"&vbCrLf
            response.Write "<li><img src=""/images/about_dian_15.jpg"" /></li>"
            rs.movenext
        Loop Until rs.EOF
    End If
    rs.Close
    Set rs = Nothing
End Function

Function WebLocation()
    WebLocation = "&nbsp;当前位置：<a href=""index.html"" class=""pink"">首页</a> - 留言反馈 - 签写留言"&vbCrLf
End Function

Function News(SortPath)
    Dim rs, sql, NewsName, NewFlag
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top 10 * from Shenbi_News where NoticeFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        Response.Write "  <tr>"&vbCrLf
        Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&vbCrLf
        Response.Write "  </tr>"&vbCrLf
    Else
        Do While Not rs.EOF
            If Now() - rs("AddTime")<= 2 Then
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = " <img src=""Images/new.gif"" align=""absmiddle"">"
            Else
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = ""
            End If
            If ISHTML = 1 Then
                AutoLink = "News/"&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "NewsView.Asp?ID="&rs("id")&""
            End If
            Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"">"
            Response.Write "<tr>"
            Response.Write "<td class=""news_title""><a href="""&AutoLink&""" title="""&NewsName&""" style = ""color:;"" target=""_blank"">"&NewsName&"</a> ["&FormatDate(rs("Addtime"), 13)&"]</td>"
            Response.Write "<td><div id=""new_icon""></div></td>"
            Response.Write "</tr>"
            Response.Write "</table>"
            rs.movenext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Function

Sub MemInfo()
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_Members where MemName='"&session("MemName")&"'"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "<center>参数错误</center>"
    Else
        mMemID = rs("ID")
        If Not rs("RealName") = "" Then
            mLinkman = rs("RealName")
        Else
            mLinkman = rs("MemName")
        End If
        mSex = rs("Sex")
        mCompany = rs("Company")
        mAddress = rs("Address")
        mZipCode = rs("ZipCode")
        mTelephone = rs("Telephone")
        mFax = rs("Fax")
        mMobile = rs("Mobile")
        mEmail = rs("Email")
        SecretFlag = "<input type=""checkbox"" name=""SecretFlag"" value=""1"" class=""inputnoborder"">"
    End If
    rs.Close
    Set rs = Nothing
End Sub
%>
<script language="javascript">
<!--
function refreshimg(){document.all.checkcode.src="Include/CheckCode/CheckCode.Asp";}
//-->
</script>