<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>联系我们-<% =strSiteName%></title>
<meta name="Keywords" content="重庆信息网" />
<meta name="Description" content="重庆信息网" />
<link href="imger/css.css" type="text/css" rel="stylesheet">
<style type="text/css">
<!--
.STYLE11 {color: #FF0000}
-->
</style>
</head>
<body>
<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td width="26%" valign="top"><table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><iframe name="login" width="172" height="110" src="common/inc_login.asp" scrolling="no" align="middle" border="0" frameborder="0" marginwidth="1" marginheight="1" target="_top">
				浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="imger/announce.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><table border="0" width="100%" cellspacing="0" cellpadding="0"><%
					Dim rdsAffiche
					Dim sqlAffiche
					Dim intAfficheCot
					Dim intAfficheCount
					Dim strAfficheSubject
          
					intAfficheCot = 5
					set rdsAffiche = Server.CreateObject("ADODB.Recordset")
					sqlAffiche = "Select * From Dat_News Where NewsClass = 1 And State = 1 Order By NewsKey Desc"
					rdsAffiche.Open sqlAffiche,Conn,1,1
					if not rdsAffiche.EOF then
					do while not rdsAffiche.EOF 
					%><tr><td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="View_News.asp?Id=<% = rdsAffiche("NewsKey")%>" target="_blank"><% = rdsAffiche("Topic")%></a></td></tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr><%intAfficheCount = intAfficheCount + 1
							if intAfficheCount > intAfficheCot then exit do
							rdsAffiche.MoveNext 
					loop
                    else
                    %>
                    <tr>
                      <td width="100%" height="22"><font color="#FF0000">&nbsp;&nbsp;没有站务公告信息</font>...</td>
                    </tr>
                    <%
                    end if
					rdsAffiche.Close
					set rdsAffiche = nothing
                    %>
                  </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="imger/trade.gif" width="172" height="37"></td>
              </tr>
              <tr>
                <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                      <%
                      Dim rdsInfo1
                      Dim sqlInfo1
                      Dim intInfoCount1
                      Dim strInfoClass1
                      Dim strTopic1
                      
                      set rdsInfo1 = Server.CreateObject("ADODB.Recordset")
                      sqlInfo1 = "Select top "&intNewInfoCot&" infokey,tj,state,infoclass,topic,pic,color,CreateTime From Dat_Information Where State = 1 order by infokey desc"
                      rdsInfo1.Open sqlInfo1,Conn,1,1
                      if not rdsInfo1.EOF then
                        do while not rdsInfo1.EOF
		xxlx3=rdsInfo1("InfoClass")
								strTopic1 =leftt(rdsInfo1("Topic"),24)
							pic=rdsInfo1("pic")
							strcolor=rdsInfo1("color")
							strsjnew=rdsInfo1("CreateTime")
							strsj1new=FormatTime(strsjnew,6)
                      %>
                        <tr> 
                          <td height="25" class="F16"><font color="#FF6600">·</font><a href="<% =gqwebdir%>View_Info.asp?Id=<% = rdsInfo1("InfoKey")%>" target="_blank" class="a01"><%if  strcolor<>""  then%><font color="#<%=strcolor%>"><% = strTopic1%></font><%else%><% = strTopic1%><%end  if%></a>
</td></tr>
						<tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
				      <%
					rdsInfo1.MoveNext
						loop
				      else
				      %>
						<tr>
						  <td width="100%" colspan="2" height="22">&nbsp;<font color="#FF0000">对不起!没有相匹配的信息</font>...</td>
						</tr>
				      <%
				      end if
					  rdsInfo1.Close
					  set rdsInfo1 = nothing
				      %>	
                      </table></td>
              </tr>
          </table></td>
        </tr>
      </table></td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="10" cellpadding="0">
          <tr>
            <td height="24" background="imger/09.gif"><span class="STYLE6">≡</span> <span class="STYLE2"><b>您的位置：</b></span><span class="STYLE4"><b>网站首页 &gt;&gt; 联系我们 </b></span></td>
          </tr>
          <tr>
            <td><table cellSpacing="0" cellPadding="0" border="0">
              <tr>
                <td width="587" height="32" background="images/vxinxi.gif" align="center"><font color="#00007F" class="STYLE2"><b>联系我们</b></font></td>
              </tr>
            </table>
              <table cellSpacing="1" cellPadding="0" width="100%" bgColor="#f1f1f1" border="0">
                <tr>
                  <td bgColor="#ffffff"><table cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="0">
                      <tbody>
                        <tr>
                          <td vAlign="top" width="100%" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                              <tr>
                                <td align="center" valign="top"><%
if UCase(Request.Form("Oper")) = "ADDFEEDBACK" then
	Dim rdsFeedBack
	
	set rdsFeedBack = Server.CreateObject("ADODB.Recordset")
	rdsFeedBack.Open "Dat_FeedBack",Conn,3,3
	
	rdsFeedBack.AddNew
	rdsFeedBack("CompanyName") = Request.Form("CompanyName")
	rdsFeedBack("ContactMan") = Request.Form("ContactMan")
	rdsFeedBack("Tel") = Request.Form("Tel")
	rdsFeedBack("Email") = Request.Form("Email")
	rdsFeedBack("Add") = Request.Form("Add")
	rdsFeedBack("Postalcode") = Request.Form("Postalcode")
	rdsFeedBack("Topic") = Request.Form("Topic")
	rdsFeedBack("Content") = Request.Form("Content")
	rdsFeedBack("Ip") = Request.ServerVariables("REMOTE_ADDR")
	rdsFeedBack("State") = 0
	rdsFeedBack("CreateTime") = now()
	rdsFeedBack.Update
	rdsFeedBack.Close
	set rdsFeedBack = nothing
	
	Response.Write "<table border=""0"" width=""60%"" cellspacing=""0"" cellpadding=""0"" align=""center"">"& VbCRLF
	Response.Write "<tr>"& VbCRLF
	Response.Write "<td width=""100%"" height=""30"" style=""letter-spacing: 1pt;line-height: 160%""><b>非常感谢：</b><br><br>您的信息已经提交成功。<br>我们将尽快与您联系。<br>请您继续浏览网站上的其它页面。</td>"& VbCRLF
	Response.Write "</tr>"& VbCRLF
	Response.Write "</table><br><br><br><br>"& VbCRLF
else
%>
                                    <script language="javascript">
//检查email的合法性
function checkemail(inputstr){
	if(inputstr.indexOf('@') != -1 && inputstr.indexOf('.')!= -1)
		return true;
	else 
   		return false;	
}
//检验表单的合法性
function FeedbackForm() {
	if (document.FeedBackForm.ContactMan.value == "") {
		alert("\请填写联系人姓名！");
		document.FeedBackForm.ContactMan.focus();
	}
	else if (document.FeedBackForm.Email.value == "" || !checkemail(document.FeedBackForm.Email.value)) {
		alert("\请正确填写 E-Mail！");
		document.FeedBackForm.Email.focus();
	}
	else if (document.FeedBackForm.Topic.value == "") {
		alert("\请输入信息主题！");
		document.FeedBackForm.Topic.focus();
	}
	else if (document.FeedBackForm.Content.value == "") {
		alert("\请输入信息内容！");
		document.FeedBackForm.Content.focus();
	}
	else {
        return true;
    }
    return false;
}
                </script>
                                    <table border="0" width="98%" cellspacing="0" cellpadding="0" style="line-height:150%;letter-spacing:1px">
                                      <form method="post" action="FeedBack.asp" OnSubmit="return FeedbackForm()" name="FeedBackForm">
                                        <input type="hidden" name="Oper" value="AddFeedBack">
                                        <tr>
                                          <td width="17%" height="10"></td>
                                          <td width="83%" height="10"></td>
                                        </tr>
                                        <tr>
                                          <td align="right" height="25">公司名称：</td>
                                          <td height="25"><input type="text" name="CompanyName" size="45" class="face"></td>
                                        </tr>
                                        <tr>
                                          <td align="right" height="25"><font color="#FF0000">联 系 人：</font></td>
                                          <td height="25"><input type="text" name="ContactMan" size="20" class="face">　
                                            <span class="STYLE11">*</span></td>
                                        </tr>
                                        <tr>
                                          <td align="right" height="25">电&nbsp;&nbsp;&nbsp;&nbsp;话：</td>
                                          <td height="25"><input type="text" name="Tel" size="20" class="face"></td>
                                        </tr>
                                        <tr>
                                          <td align="right" height="25"><font color="#FF0000">电子邮件：</font></td>
                                          <td height="25"><input type="text" name="Email" size="20" class="face">
                                            　 <span class="STYLE11">*</span></td>
                                        </tr>
                                        <tr>
                                          <td align="right" height="25">地&nbsp;&nbsp;&nbsp;&nbsp;址：</td>
                                          <td height="25"><input type="text" name="Add" size="45" class="face"></td>
                                        </tr>
                                        <tr>
                                          <td align="right" height="25">邮政编码：</td>
                                          <td height="25"><input type="text" name="Postalcode" size="11" class="face"></td>
                                        </tr>
                                        <tr>
                                          <td align="right" height="25"><font color="#ff0000">信息主题：</font></td>
                                          <td height="25"><input type="text" name="Topic" size="46" class="face">
                                            　 <span class="STYLE11">*</span></td>
                                        </tr>
                                        <tr>
                                          <td align="right" height="25" valign="top"><font color="#FF0000">信息内容：</font></td>
                                          <td height="25"><textarea rows="15" name="Content" cols="50" class="face"></textarea>
                                            　 <span class="STYLE11">*</span></td>
                                        </tr>
                                        <tr>
                                          <td align="center" colspan="2" height="30"><input type="submit" value="发 送" name="Submit" class="button">
                                            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                            <input type="reset" value="重 写" name="Reset" class="button"></td>
                                        </tr>
                                        <tr>
                                          <td width="17%" height="10"></td>
                                          <td width="83%" height="10"></td>
                                        </tr>
                                      </form>
                                    </table>
                                  <%end if%>
                                </td>
                              </tr>
                          </table></td>
                        </tr>
                      </tbody>
                  </table></td>
                </tr>
              </table></td>
          </tr>
        </table></td>
      </tr>
    </table>      </td>
  </tr>
</table>
<!--#include file="boot.asp"-->
</body>
</html>
<%
conn.close
set conn=nothing
%>
