<!-- #include file="inc/config.asp" -->
<link type="text/css" href="css/index.css" rel="stylesheet">
<title>留言建議</title>
<!-- #include file="top.asp" -->
<%
sqlstr="select * from [Message] order by qmmessage_id desc"
rs.open sqlstr,conn,1,3
if not rs.eof then
	rs.pagesize=6
	page_num=message_count/6
	page_now=1
if trim(request.QueryString("page"))<>"" then	
	call CheckNum(request.QueryString("page"))
	page_now=cint(trim(request.QueryString("page")))
end if
if page_now>rs.pagecount or page_now<0 then
	page_now=1
end if
rs.absolutepage=page_now
	i=1
while (not rs.eof) and i<7
%>
<div id="div_7"><%=rs("qmmessage_usname")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("qmmessage_usadddate")%></div>
<div id="div_5"><%=rs("qmmessage_usinfo")%><br /></div>
<%if rs("qmmessage_admreinfo")<>"" then%>
<div id="div_8"><%=rs("qmmessage_admredate")%></div>
<div id="div_5"><font color="#FF0000"><%=rs("qmmessage_admreinfo")%></font><br><br></div>
<%end if%>
<%
rs.movenext
i=i+1
wend
%>
<div id="div_6"><br>
<form name="form2" action="" method="get" onSubmit="return Check_Num(this)">
   當(dāng)前第<%=page_now%>頁
  <%if page_now=1 then%>首頁
  <%else%>
  <a href="writemsg.asp?page=1">首頁</a>
  <%end if%>
  <%if page_now>1 and rs.pagecount>1 then%>
  <a href="writemsg.asp?page=<%=page_now-1%>">上一頁</a>
  <%else%>上一頁
  <%end if%>
  <%if page_now<rs.pagecount then%>
  <a href="writemsg.asp?page=<%=page_now+1%>">下一頁</a>
  <%else%>下一頁
  <%end if%>
  <%if page_now<>rs.pagecount then%>
  <a href="writemsg.asp?page=<%=rs.pagecount%>">尾頁</a>
  <%else%>尾頁
  <%end if%>
  共<%=rs.pagecount%>頁/<%=message_count%>條
  轉(zhuǎn)到：
  <input name="Num" type="text" size="2">&nbsp;頁
  <input type="button" value="GO" class="class6" onclick="javascript:location.href='writemsg.asp?page='+Num.value;">
  <input name="Max" type="hidden" value="<%=rs.pagecount%>">&nbsp;&nbsp;
</form>
</div>
  <%else%>
    <div id="div_4"><br />暫無留言！<br /><br /></div>
<%
end if
rs.close
%>
<script language="javascript" type="text/javascript">
<!--
function Check_form1(obj){
    if (obj.message_usname.value==""){
	  alert("請(qǐng)留下您的稱呼！");
	  obj.message_usname.focus();
	  return false;
	}
	if (obj.message_usname.value.length<2 || obj.message_usname.value.length>16){
	  alert("留言者稱呼必須在2—16個(gè)字符之間");
	  obj.message_usname.select();
	  return false;
	}
	if (obj.message_email.value==""){
	  alert("請(qǐng)留下您的email！");
	  obj.message_email.focus();
	  return false;
	}
	var reg2 = /^.+@[^\.].*\.[a-z]{2,}$/
	if (!reg2.test(obj.message_email.value)){
		alert("郵箱格式不對(duì)！");
		obj.message_email.value.focus();
		return false;
	}
	if (obj.message_usinfo.value==""){
	  alert("留言內(nèi)容不能夠?yàn)榭眨?quot;);
	  obj.message_usinfo.focus();
	  return false;
	}
	if (obj.message_usinfo.value.length>500){
	  alert("對(duì)不起，留言內(nèi)容需要控制在500個(gè)字符內(nèi)！");
	  obj.message_usinfo.select();
	  return false;
	}
}
-->
</script>
<%
if request.Form.count>0 then
  message_usname=request.Form("message_usname")
  message_usinfo=request.Form("message_usinfo")
  message_email=request.Form("message_email")
  str0=message_usname
  str=message_usinfo
  str0=replace(str0,"<","")
  str0=replace(str0,">","")
  str0=replace(str0,"%","")
  str0=replace(str0,"/","")
  str=replace(str,"<","")
  str=replace(str,">","")
  str=replace(str,"%","")
  str=replace(str,"/","")
  sqlstr="select * from [Message]"
  rs.open sqlstr,conn,1,3
  rs.addnew
    rs("qmmessage_usname")=str0
    rs("qmmessage_usinfo")=str
	rs("qmmessage_email")=message_email
  rs.update
  rs.close
call ShowErr("留言添加成功！","writemsg.asp")
end if
%>
<div id="div_9">填寫你的意見或者建議或糾正路線留言</div>
<div id="div_5">
<form name="form1" method="post" action="" onsubmit="return Check_form1(this)">
請(qǐng)留稱呼：<input type="text" name="message_email" /><br /><br />
&nbsp;&nbsp;&nbsp;EMAIL：<input type="text" name="message_usname" /><br /><br />
留言內(nèi)容：<textarea name="message_usinfo" style="width:360px; height:100px;"></textarea>
<br /><br />
<center><input type="submit" value="添加留言" class="class6" /></center>
</form>
</div>
<!-- #include file="bottom.asp" -->