📄 feedback.asp

📁 广告策划中心整站程序
💻 ASP
字号:
<!--#include file="comm/conn.asp"-->
<!--#include file="feedbackconfig.asp" -->

<HTML><HEAD>
<TITLE>留言板-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="cycoo15.css" type="text/css">
<style>
.smoothscroll {
	COLOR: #3c3c30; FONT-SIZE: 12px; scrollbar-face-color: #FFFFFF; scrollbar-arrow-color: #68635B; scrollbar-track-color: #ebebe7; scrollbar-shadow-color: #68635B; scrollbar-highlight-color: #68635B; scrollbar-3dlight-color: #ebebe7; scrollbar-darkshadow-color: #ebebe7
}
A.none {	COLOR: #ff3300; TEXT-DECORATION: none}
A {	COLOR: #ff3300; TEXT-DECORATION: none}
A:hover {	COLOR: #ff9900; TEXT-DECORATION: none}
</style>
</HEAD>
<%
if request("action")="" then
wd= 760
%>
<div align=center>  <!--#include file="menu/indextop.asp"--></div>
<BODY bgcolor="#011D32" class=smoothscroll leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
else 
%>
  <BODY bgcolor="#FFFFFF" class=smoothscroll leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

	<%
	wd= 530
	end if
	set rsfeed=Server.CreateObject("ADODB.RecordSet")
	sql="select * from Feedback where online='1' order by Postdate desc"
	rsfeed.open sql,conn,1,3
	if request("send")="ok" then
		if request("name")="" or request("comments")="" then
			response.write "<script language='javascript'>"
			response.write "alert('无效输入！请检查您填写的内容');"
			response.write "location.href='"&pageurl&"feedback.asp';"			
			response.write "</script>"
		else
			rsfeed.Addnew
			rsfeed("username")=Request("name")
			rsfeed("comments")=Request("comments")
			rsfeed("usermail")=Request("mail")
			rsfeed("online")=Request("online")		
			rsfeed.Update
			Response.Redirect "feedback.asp?action="&request("action")

		end if
	end if
	call display()

sub display()
if rsfeed.eof and rsfeed.bof then
	response.write "<table border=""0"" align=""center"" height=150 bgcolor=#ffffff width="&wd&">	<tr><td height=30>目前位置：<a href=""index.asp"">首页</a> > 在线留言 </td></tr><tr><td width="&wd&"  height=1 background=images/bg_xg_01.gif></td></tr><tr><td align=center>留言板上暂时没有留言</td></tr></table>"
else

	if not isempty(request("page")) then   
	pagecount=cint(request("page"))   
	else   
	pagecount=1
	end if
	rsfeed.pagesize=8
	rsfeed.AbsolutePage=pagecount
	if request("action")="" then
	%>

	<TABLE border=0 cellPadding=2 cellSpacing=0 width=<%=wd%> align="center" bgcolor=#ffffff>
		<tr><td height=30>目前位置：<a href="index.asp">首页</a> > 在线留言 </td></tr>
		<tr><td width="569"  align="center" height="1" background="images/bg_xg_01.gif"></td></tr>
		<tr><td height=10></td></tr>
	<%end if%>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=<%=wd%> align="center">
<%
	Do While Not rsfeed.eof 
	content=rsfeed("Comments")
	if content<>"" then content=Autolink(content)
	Replay=rsfeed("Replay")
	if Replay<>"" then Replay=Autolink(Replay)
	UserName=rsfeed("UserName")
	if UserName<>"" then UserName=Autolink(UserName)
	%>
  <TR> 
    <TD bgColor=#ebebe7>&nbsp;<b><%=UserName%>&nbsp;留言：</b></TD>
    <TD bgColor="#ebebe7" align="right"> <%=cstr(rsfeed("Postdate")) %> &nbsp;&nbsp;</TD>
  </TR>
  <TR> 
    <TD colSpan=2 bgcolor="#ffffff" style="padding:5pt"><SPAN class=newstext>
      <%=content%> 
      <%if rsfeed("Replay")<>"" then%>
      </SPAN> 
      <table width="100%" border="0" cellpadding="5" cellspacing="2">
        <tr> 
          <td><B><font color="#ff0000">客服回复：</font></B>&nbsp;&nbsp;<font color="#003399"><%=Replay%></font></td>
        </tr>
        
      </table>
      <%end if%>
      </TD>
  </TR>
<%
	N=N+1  

	rsfeed.movenext
	if n>=rsfeed.pagesize then exit do
	loop
%>	</TABLE>
<%
END IF
%>
<%
if request("action")="" then
%>
<table width=<%=wd%> border="0" cellspacing="1" cellpadding="2" bgcolor=#CCCCCC align="center">
  <form action="<%=pageurl%>" method="post" >
    <tr> 
      <td height="22" bgcolor="#FFFFFF"> 
        <div align="center">页次: <b><font color=red><%=pagecount%></font>/<%=rsfeed.pagecount%></b> 
          <% if pagecount=1 and rsfeed.pagecount<>pagecount and rsfeed.pagecount<>0 then%>
          <a href="<%=pageurl%>?page=<%=cstr(pagecount+1)%>"> 下一页</a> 
          <% end if %>
          <% if rsfeed.pagecount>1 and rsfeed.pagecount=pagecount then %>
          <a href="<%=pageurl%>?page=<%=cstr(pagecount-1)%>"> 上一页</a> 
          <%end if%>
          <% if pagecount<>1 and rsfeed.pagecount<>pagecount then%>
          <a href="<%=pageurl%>?page=<%=cstr(pagecount-1)%>"> 上一页</a> <a href="<%=pageurl%>?page=<%=cstr(pagecount+1)%>"> 
          下一页</a> 
          <% end if%>
          &nbsp; 转到第 
          <select name="page">
            <%for i=1 to rsfeed.pagecount%>
            <option value="<%=i%>"><%=i%></option>
            <%next%>
          </select>
          页 
          <input type="submit" name="go" value="Go">
        </div>
      </td>
    </tr>
  </form>
</table>
<%
else
%>
<br>
<table border=0 cellpadding=3 cellspacing=1 width=<%=wd%> class="dfont" bgcolor="#CCCCCC" align="center">
  <tr>
    <td align=RIGHT bgcolor="#FFFFFF"><a href="feedback.asp" target="_blank">查看更多留言-&gt;&nbsp;</a>&nbsp;</td>
  </tr>
</table>
<%
end if

set rsfeed=nothing
end sub
%>
<table width="<%=wd%>" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td> 
      <table border=0 cellpadding=3 cellspacing=1 width=450 class="dfont" align="center" bgcolor=#ffffff>
        <tr> 
          <td height=10 colspan=2>&nbsp;</td>
        </tr>
        <script language="JavaScript">
  function checkform(){
	if (javaTrim(document.feedback.name.value) ==""){
	alert("您没有正确填写用户名。");
	document.feedback.name.focus();
	document.feedback.name.value="";
	return false;
	}
	if (javaTrim(document.feedback.comments.value) ==""){
	alert("您填写好提交的内容。");
	document.feedback.comments.focus();
	document.feedback.comments.value="";
	return false;
	}
	return true;
}
function javaTrim(str) {
   for (var i=0; (str.charAt(i)==' ') && i<str.length; i++);
   if (i == str.length) return ''; //whole string is space
   var newstr = str.substr(i);
   for (var i=newstr.length-1; newstr.charAt(i)==' ' && i>=0; i--);
   newstr = newstr.substr(0,i+1);
   return newstr;
}
//判断输入文字多少
function textCounter(maxlimit) {
if (document.feedback.comments.value.length > maxlimit) 
{alert("  留言纸太小了，写不下 "+maxlimit+" 个字，另起一页吧！^!^ ");
 document.feedback.comments.value = document.feedback.comments.value.substring(0, maxlimit);
return false; 
 }
return true;
}
</script>
        <form action="<%=pageurl%>" method="post" onSubmit="return checkform();" name="feedback">
          <tr> 
            <td width="80" align="right">姓名： </td>
            <td> <input name="name" class=field size=18 maxlength="10" value="<%=Session("estore_userid")%>">
              * 　信箱： 
              <input name="email" class=field size=18 maxlength="30"> </td>
          </tr>
          <tr> 
            <td align="right" valign="top">方式：</td>
            <td> 公开留言 
              <input name="online" type="radio" value="1" checked> &nbsp;&nbsp;&nbsp;隐藏 
              <input name="online" type="radio" value="0">
              (仅斑竹可见，请留下联系方式) </td>
          </tr>
          <tr> 
            <td align="right" valign="top">内容： </td>
            <td> <textarea class=field cols=50 name=comments rows=4 onKeyDown="textCounter(200);"></textarea> 
            </td>
          </tr>
          <tr align="center"> 
            <td colspan="2"> <input type="submit" name="Submit" value="提交留言"> 
              <input type="hidden" name="send" value="ok"> </td>
          </tr>
        </form>
      </table></td>
  </tr>
</table>
<%
if request("action")="" then
%>
<!--#include file="menu/bottom.asp"-->
<%
end if
%>
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -