<!--#include file="Conn.asp" -->
<!--#include file="Comm/Site_Class.asp" -->
<!--#include file="Comm/Function.asp" -->
<%
Dim strMenu,PageTitle
strMenu = ""

Set Qsite = New Site_Class

Qsite.SiteConfig()
Qsite.GotoErrPage()

PageTitle = Qsite.SiteName & " - 留言反馈"

%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=PageTitle%> - 胶州人才网</title>
 <meta name="keywords" content="关于胶州人才网站,胶州招聘网站,胶州人力资源,胶州人才市场,胶州找工作,胶州兼职,胶州培训,胶州职业顾问,胶州职业规划,胶州人事代理">
 <meta name="description" content="胶州人才网是胶州地区内最具影响力的人才网站之一，为企业提供一站式的人才招聘服务，帮助个人求职者与企业搭建最佳互动平台，打造胶州地区权威求职招聘网站!！">
<!--#include file="top.asp" -->
<script language="javascript">
function chkForm()
{
	if(FeedForm.Title.value == "")
	{
		alert("请输入主题");
		return false;
	}
	if(FeedForm.Content.value == "")
	{
		alert("请输入内容");
		return false;
	}
	if(FeedForm.UserName.value == "")
	{
		alert("请输入姓名");
		return false;
	}
	if(FeedForm.Tel.value == "")
	{
		alert("请输入电话");
		return false;
	}
	if(FeedForm.GetCode.value == "")
	{
		alert("请输入验证码");
		return false;
	}
	return true;
}
</script>

    <table width="974" height="198" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr> 
        <td width="194" align="center" valign="top"><table width="194" height="185" border="0" cellpadding="0" cellspacing="0">
            <tr> 
              <td height="22" background="images/AboutUs_r5_c3.jpg"><img src="space.gif" height="1"></td>
            </tr>
            <tr>
              <td height="157" align="center" valign="top" background="images/AboutUs_r33_c2.jpg">
<!-- #include file="About_LeftMenu.asp" -->
</td>
            </tr>
            <tr>
              <td height="13" background="images/AboutUs_r35_c2.jpg"><img src="space.gif" height="1"></td>
            </tr>
          </table></td>
        <td width="774" valign="top" style="padding-left:8px;"> 
          <table width="764" height="28" border="0" cellpadding="0" cellspacing="0">
            <tr> 
              <td width="156" background="images/AboutUs_20000.jpg">&nbsp;</td>
              <td width="624" background="images/AboutUs_r3_c10.jpg">&nbsp;</td>
            </tr>
          </table>
          <table width="99%" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr height="10" >
              <td height="6" ></td>
            </tr>
          </table>





<%
Dim Rs
Set Rs = server.CreateObject("ADODB.recordset")

Dim FeedbackId,Title,Content,UserName,Tel,Email

If Request.Form <> "" Then
	Title = Qsite.chgStr(Trim(Request.Form("Title")))
	Content = Qsite.chgStr(Trim(Request.Form("Content")))
	UserName = Qsite.chgStr(Trim(Request.Form("UserName")))
	Tel = Qsite.chgStr(Trim(Request.Form("Tel")))
	Email = Qsite.chgStr(Trim(Request.Form("Email")))
	
	Conn.Execute("insert into Feedback (Title , Content , UserName , Tel , Email) values ('"& Title &"' , '"& Content &"' , '"& UserName &"' , '"& Tel &"' , '"& Email &"')")
	
	Qsite.ShowMsg "添加成功" , "Feedback.asp"
End If

%>
<%
Dim Sql,i,CurrentPage,FileName,Issh

Set Rs = server.createobject("ADODB.Recordset")

Sql = "select * from Feedback where Issh = '0' order by AddDate desc"

FileName = "Feedback.asp?FeedbackId="& FeedbackId
%>

 <form id="FeedForm" name="FeedForm" method="post" action="Feedback.asp" style="margin:0" onSubmit="return chkForm();">
          <table width="100%" border="0" align="center" cellpadding="5" cellspacing="2" >
            <tr>
              <td width="93" height="30" align="center" bgcolor="#F9F9F9">主题</td>
              <td width="531" height="30" bgcolor="#F9F9F9"><input name="Title" type="text" id="Title" size="60" class="input_bk_D2D2D2" />
                (最多50个字符)</td>
            </tr>
            <tr>
              <td height="30" align="center" bgcolor="#F9F9F9">内容</td>
              <td height="30" bgcolor="#F9F9F9"><textarea name="Content" cols="60" rows="5" class="input_bk_D2D2D2" id="Content"></textarea></td>
            </tr>
            <tr>
              <td height="30" align="center" bgcolor="#F9F9F9">姓名</td>
              <td height="30" bgcolor="#F9F9F9"><input name="UserName" type="text" id="UserName" size="30" class="input_bk_D2D2D2" /></td>
            </tr>
            <tr>
              <td height="30" align="center" bgcolor="#F9F9F9">电话</td>
              <td height="30" bgcolor="#F9F9F9"><input name="Tel" type="text" id="Tel" size="30" class="input_bk_D2D2D2" /></td>
            </tr>
            <tr>
              <td height="30" align="center" bgcolor="#F9F9F9">信箱</td>
              <td height="30" bgcolor="#F9F9F9"><input name="Email" type="text" id="Email" size="30" class="input_bk_D2D2D2" />
                (可不填)</td>
            </tr>
            <tr>
              <td height="30" align="center" bgcolor="#F9F9F9">验证码</td>
              <td height="30" bgcolor="#F9F9F9"><input name="GetCode" type="text" id="GetCode" class="input_bk_D2D2D2" size="10" maxlength="4" />
                      <img src="Code/code.asp" /></td>
            </tr>
            <tr>
              <td height="30" align="center" bgcolor="#F9F9F9">&nbsp;</td>
              <td height="30" bgcolor="#F9F9F9"><font color="#FF0000">信息审核后会显示在下方</font></td>
            </tr>
            <tr>
              <td height="30" bgcolor="#F9F9F9">&nbsp;</td>
              <td height="30" bgcolor="#F9F9F9"><input type="submit" name="Submit" value="提交" />
                &nbsp;
                <input type="reset" name="Submit" value="重置" /></td>
            </tr>
          </table>
</form>
          <br />
<%
Rs.Open Sql , Conn , 1 , 1
If Rs.Eof Then
%>

<%
Else
	Rs.PageSize = 24
	CurrentPage = Clng(Request("page"))
	If CurrentPage < 1 Then CurrentPage = 1
	If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
	Rs.AbsolutePage = CurrentPage
	i = 0

	Do While Not Rs.Eof
%>
          <table width="100%" border="0" align="center" cellpadding="5" cellspacing="2">
            <tr>
              <td width="84" height="30" align="right" bgcolor="#F9F9F9">姓名：</td>
              <td width="259" height="30" bgcolor="#F9F9F9"><%=Rs("UserName")%></td>
              <td align="right" bgcolor="#F9F9F9">电话：</td>
              <td width="218" bgcolor="#F9F9F9"><%=Rs("Tel")%></td>
            </tr>
            <tr>
              <td height="30" align="right" bgcolor="#F9F9F9">信箱：</td>
              <td height="30" bgcolor="#F9F9F9"><%if Rs("Email")="" then%>无<%else%><%=Rs("Email")%><%end if%></td>
              <td align="right" bgcolor="#F9F9F9">时间：</td>
              <td bgcolor="#F9F9F9"><%=Qsite.FormatDate(FormatDateTime(Rs("AddDate") , 2))%></td>
            </tr>
            <tr>
              <td height="30" align="right" bgcolor="#F9F9F9">主题：</td>
              <td height="30" colspan="3" bgcolor="#F9F9F9"><%=Rs("Title")%></td>
            </tr>
            <tr>
              <td height="30" align="right" bgcolor="#F9F9F9">内容：</td>
              <td height="30" colspan="3" bgcolor="#F9F9F9" style="line-height:20px;"><%=Rs("Content")%></td>
            </tr>
<%if Rs("Issh")="0" then%>			
            <tr>
              <td height="30" align="right" bgcolor="#F9F9F9">管理员回复：</td>
              <td height="30" colspan="3" bgcolor="#F9F9F9" style="line-height:20px;"><font color=red><%=Rs("hf")%></font></td>
            </tr>
<%end if%>			
          </table><br />
<%
	i = i + 1
	Rs.MoveNext
	If i >= Rs.PageSize Then Exit Do
	If i Mod 2 = 0 Then
	End If
	Loop
%>
          <br />
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td align="center"> <%
				Qsite.Page_Cn CurrentPage , Rs.PageCount , Rs.RecordCount , FileName
				%></td>
            </tr>
          </table>
<%
End If
Rs.Close
%>
 
</td>
      </tr>
    </table>  
    <table width="990" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr height="8"> 
        <td height="8"></td>
      </tr>
    </table>
 <!--#include file="foot.asp" -->
