feedback.asp

狼道公司源码下载

                                width="30%" height=17>所在地区：</TD>
                                                <TD width="70%"><INPUT 
                                name=Address class=MessageBoard_input id="Address" 
                                maxLength=50>
                                                    <FONT 
                                color=red>&nbsp;*</FONT></TD>
                                              </TR>
                                              <TR>
                                                <TD class=MessageBoard_td align=right 
                                width="30%" height=17>您的Email： </TD>
                                                <TD width="70%"><INPUT 
                                name=Email class=MessageBoard_input id="Email" 
                                maxLength=50>
                                                    <FONT 
                                color=red>&nbsp;</FONT></TD>
                                              </TR>
                                              <TR>
                                                <TD class=MessageBoard_td align=right 
                                width="30%" height=17>联系电话： </TD>
                                                <TD width="70%"><INPUT 
                                name=Phone class=MessageBoard_input id="Phone" 
                                maxLength=32>
                                                    <FONT 
                                color=red>&nbsp;*</FONT></TD>
                                              </TR>
                                              <TR>
                                                <TD class=MessageBoard_td align=right 
                                width="30%" height=17>留言主题：</TD>
                                                <TD width="70%"><INPUT 
                                name=Title class=MessageBoard_input id="Title" 
                                maxLength=50>
                                                    <FONT 
                                color=red>&nbsp;*</FONT></TD>
                                              </TR>
                                              <TR>
                                                <TD class=MessageBoard_td align=right 
                                width="30%" height=17>您的留言：</TD>
                                                <TD width="70%"><TEXTAREA name=Content cols=60 rows=5 class=MessageBoard_textarea id="Content"></TEXTAREA>
                                                    <FONT 
                                color=red>*</FONT></TD>
                                              </TR>
                                              <TR>
                                                <TD colSpan=2><DIV align=center>
                                                  <INPUT class=MessageBoard_button type=submit value="确 定" name=actionAdd>
                                                  &nbsp;&nbsp;
                                                  <INPUT name="reset" type=reset class=MessageBoard_button value="重 填">
                                                  &nbsp;&nbsp;</DIV></TD>
                                              </TR>
                                            </TBODY>
                                          </TABLE>
                                          <BR>
                                        </FORM>

                                    <TABLE cellSpacing=1 cellPadding=2 width="95%" 
                              align=center bgColor=#e8e8e8 border=0>
                                            <TBODY>
							<%
Page=Request("Page")
if Page="" then Page=1
if Not isnumeric(Page) then Page=1
if CInt(Page)<1 then Page=1
Page=Abs(Cint(Page))
PCount=0
RCount=0
PSize=2

   SQLStr="select * from Gbook order by UpdateTime Desc" 
Set rs=server.CreateObject("adodb.recordset")


rs.open SQLStr,Conn,1,1
if not rs.eof then
  rs.pagesize=Psize
  RCount=rs.recordcount
  PCount=rs.PageCount
  if Cint(Page)>CInt(PCount) then Page=PCount
  rs.absolutepage=Page
end if
i=0
do while not rs.eof  and i<CInt(PSize)
i=i+1
							%>												
											
                                              <TR>
                                                  <TD width="27%" align=middle bgcolor="#e8e8e8" class=MessageBoard_td_head 
                                style="WORD-BREAK: break-all"><%=rs("UserName")%> (<%=rs("Sex")%>) </TD>
                                                <TD width="73%" align=middle bgcolor="#FFFFFF" class=MessageBoard_td_head>&nbsp;<%=rs("UpdateTime")%></TD>
                                              </TR>
                                              <TR class=MessageBoard_td_content>
                                                <TD width="27%" bgcolor="#e8e8e8">Email：</TD>
                                                <TD width="73%" bgcolor="#FFFFFF"><A 
                                href="mailto:<%=rs("Email")%>"><%=rs("Email")%></A></TD>
                                              </TR>
                                              <TR class=MessageBoard_td_content>
                                                <TD width="27%" bgcolor="#e8e8e8">留言主题：</TD>
                                                <TD width="73%" bgcolor="#FFFFFF">&nbsp;<%=rs("Title")%></TD>
                                              </TR>
                                              <TR class=MessageBoard_td_content>
                                                <TD width="27%" vAlign=top bgcolor="#e8e8e8">留言内容：</TD>
                                                <TD width="73%" bgcolor="#FFFFFF"><TEXTAREA rows=8 readOnly cols=60><%=rs("Content")%></TEXTAREA></TD>
                                              </TR>
                                <%
 rs.movenext
 loop
 rs.close
 set rs=nothing
 %>											  
											  
                                              <TR vAlign=bottom bgColor=#ffffff>
                                                <TD align=middle colSpan=2 
                                height=30><div title="<BR>">
                                                  <table cellspacing=1 width='100%' border=0>
                                                    <form method=Post action=Pictures.asp>
                                                      <tr>
                                                        <td height="79" align=center> 共有 <font COLOR=#FF0000><B><%=RCount%></B></font> 条 &nbsp;<a href="?Page=1">首 页</a>&nbsp;<a href="?Page=<%=Page-1%>">上一页</a>&nbsp;<a href="?Page=<%=Page+1%>">下一页</a>&nbsp;<a href="?Page=<%=PCount%>">尾 页</a> &nbsp;页次：<strong><font color=red><%=Page%></font>/<%=PCount%></strong>页&nbsp; </td>
                                                      </tr>
                                                    </FORM>
                                                  </table>
                                                </div></TD>
                                              </TR>
                                            </TBODY>
                                    </TABLE>
                               
                                  <BR>
                                </DIV></TD>
                              </TR>
                            </TBODY>
                        </TABLE></TD>
                      </TR>
                    </TBODY>
                </TABLE></TD>
              </TR>
            </TBODY>
          </TABLE></TD>
        </TR>
        <TR>
          <TD vAlign=top><BR></TD>
        </TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD><!--#include file="Bottom.htm" --></TD>
  </TR></TBODY></TABLE><!-- ? x p ?-->

<!-- AceCounter(Pro) Version 5.0 END -->
</BODY></HTML>
<SCRIPT language=JavaScript>
<!--
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}

function CheckGBook()
{
   if(checkspace(document.FormMessage.Title.value)) {
	document.FormMessage.Title.focus();
    alert("您没有填写主题！");
	return false;
  }
   if(checkspace(document.FormMessage.UserName.value)) {
	document.FormMessage.UserName.focus();
    alert("请填写您的姓名！");
	return false;
  }
   if(checkspace(document.FormMessage.Address.value)) {
	document.FormMessage.Address.focus();
    alert("请填写您来自哪里！");
	return false;
  }
   if(checkspace(document.FormMessage.Phone.value)) {
	document.FormMessage.Phone.focus();
    alert("请填写您的联系电话！");
	return false;
  }  
     if(checkspace(document.FormMessage.Content.value)) {
	document.FormMessage.Content.focus();
    alert("请填写反馈信息内容！");
	return false;
  }
  
  if(document.FormMessage.Email.value.length!=0)
  {
    if (document.FormMessage.Email.value.charAt(0)=="." ||        
         document.FormMessage.Email.value.charAt(0)=="@"||       
         document.FormMessage.Email.value.indexOf('@', 0) == -1 || 
         document.FormMessage.Email.value.indexOf('.', 0) == -1 || 
         document.FormMessage.Email.value.lastIndexOf("@")==document.FormMessage.Email.value.length-1 || 
         document.FormMessage.Email.value.lastIndexOf(".")==document.FormMessage.Email.value.length-1)
     {
      alert("Email地址格式不正确！");
      document.FormMessage.Email.focus();
      return false;
      }
   }
 else
  {
   alert("Email不能为空！");
   document.FormMessage.Email.focus();
   return false;
   }

}
//-->
</SCRIPT>