开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
viewreturn.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：21k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

viewreturn.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <!--#include file="config.asp"-->
  3. <html>
  4. <head>
  5. <title>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。--意见反馈</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <link href="skin/skin<%=skinid%>/css.css" rel="stylesheet" type="text/css">
  8. </head>
  9. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
  10. <!--#include file="include/head.asp"-->
  11. <table width="1000" border="0"  align="center" cellspacing="0" cellpadding="0">
  12.   <tr>
  13.     <td width="41" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
  14.       <tr>
  15.         <td height="30" align="right" valign="top"><img src="skin/skin<%=skinid%>/jiao.gif" width="15" height="17"></td>
  16.       </tr>
  17.       <tr>
  18.         <td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
  19.       </tr>
  20.       <tr>
  21.         <td height="30">&nbsp;</td>
  22.       </tr>
  23.     </table></td>
  24. <td width="190" valign="top"style="BORDER-bottom:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;">
  25. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  26.   <tr>
  27.         <td><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
  28.           <tr>
  29.               <td align="center" valign="middle" background="skin/skin<%=skinid%>/index_2.gif"><!--#include file="userinfo.asp"--></td>
  30.           </tr>
  31.         </table></td>
  32.       </tr>
  33.       <tr>
  34.         <td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
  35.       </tr>
  36.       <tr>
  37.         <td><!--#include file="shopcart.asp"--></td>
  38.       </tr>
  39.       <tr>
  40.         <td>&nbsp;</td>
  41.       </tr>
  42.     </table></td>
  43.     <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  44.       <tr>
  45.         <td height="28" background="skin/skin<%=skinid%>/pdbg01.gif"><div align="center">尊敬的客户，留下您宝贵的建议，我们愿为您提供更好的服务！</div></td>
  46.       </tr>
  47.       <tr>
  48.         <td><span class="b">
  49.           
  50.         </span>
  51.           <table width="100%" align="center" border="0" cellspacing="0" cellpadding="0"  bordercolor="#CCCCCC">
  52.               <tr> 
  53.                 <td bordercolor="#FFFFFF" bgcolor="#FFFFFF"><br>
  54.                   <table width="95%"  border="0" cellspacing="0" cellpadding="0">
  55.                     <tr> 
  56.                       <td valign="top"> <table width="100%"  border="0" cellspacing="0" cellpadding="0">
  57.                           <tr> 
  58.                             <td background="img/bg1_4color_.jpg"><img src=img/bg1_4color_.jpg" width="1" height="3"></td>
  59.                           </tr>
  60.                         </table>
  61.                          
  62.                         </p>
  63.                         <table width="100%" border="0" cellspacing="0" cellpadding="0">
  64.                           <tr> 
  65.                             <td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
  66.                                 <tr> 
  67.                                   <td height="1" bgcolor="cccccc"><img src="img/dot_03.gif" width="9" height="1" border="0"></td>
  68.                                 </tr>
  69.                                 <tr> 
  70.                                   <td height="25" bgcolor="efefef"> <strong>&nbsp;&nbsp; 
  71.                                     </strong><b>留言信息</b></td>
  72.                                 </tr>
  73.                                 <tr> 
  74.                                   <td height="1" bgcolor="cccccc"><img src="img/dot_03.gif" width="9" height="1" border="0"></td>
  75.                                 </tr>
  76.                               </table>
  77.                               <table width="98%" border="0" align="center">
  78.                                 <tr> 
  79.                                   <td align="center"> 
  80.                                     <%
  81. Function unHtml(content)
  82. ON ERROR RESUME NEXT
  83. unHtml=content
  84. IF content <> "" Then
  85. unHtml=Server.HTMLEncode(unHtml)
  86. unHtml=Replace(unHtml,vbcrlf,"<br>")
  87. unHtml=Replace(unHtml,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
  88. unHtml=Replace(unHtml," ","&nbsp;")
  89. End IF
  90. IF Err.Number <>0 Then
  91. unHtml= "HTML转换中出错请联系管理员<br>"
  92. Err.Clear
  93. End IF
  94. End Function
  95. %>
  96.                                     <%
  97. set rs=server.createobject("adodb.recordset")
  98. rs.open "select * from guestbook where online=1 order by id desc",conn,3,2
  99. 'dim page
  100. 'dim e_page
  101. 'e_page=5 '每页显示留言数
  102. 'rs.pagesize=e_page
  103. 'if request.querystring("page")="" or request.querystring("page")=0 then
  104. 'page=1
  105. 'else
  106. 'page=request.querystring("page")
  107. 'rs.absolutepage=trim(request.querystring("page"))
  108. 'end if
  109. %>
  110.                                     <SCRIPT language=JavaScript>
  112. function is_number(str)
  113. {
  114. exp=/[^0-9()-]/g;
  115. if(str.search(exp) != -1)
  116. {
  117. return false;
  118. }
  119. return true;
  120. }
  122. function CheckInput(){
  124. if(form.name.value==''){
  125. alert("您没有填写昵称！");
  126. form.name.focus();
  127. return false;
  128. }
  129. if(form.name.value.length>20){
  130. alert("昵称不能超过20个字符！");
  131. form.name.focus();
  132. return false;
  133. }
  135. if(!is_number(document.form.qq.value)){
  136. alert("QQ号必须是数字！");
  137. form.qq.focus();
  138. return false;
  139. }
  141. if(form.content.value==''){
  142. alert("您没有填写留言内容！");
  143. form.content.focus();
  144. return false;
  145. }
  146. if(form.content.value.length>255){
  147. alert("留言内容不能超过255个字符！");
  148. form.content.focus();
  149. return false;
  150. }
  152. return true;
  153. }
  154. </SCRIPT>
  155.                                     <br> 
  156.                                     <%
  157. if rs.eof and rs.bof then
  158. %>
  159.                                     <table width="380" border="0" align="center" cellpadding="4" >
  160.                                       <tr> 
  161.                                         <td height="40" align="center"> <p>还没有任何留言！</p></td>
  162.                                       </tr>
  163.                                     </table>
  164.                                     <%else%>
  165.                                     <%
  166.    rs.PageSize =10 '每页记录条数
  167. iCount=rs.RecordCount '记录总数
  168. iPageSize=rs.PageSize
  169.      maxpage=rs.PageCount 
  170.      page=request("page")
  171.      per_page=rs.PageSize
  172.     
  173.     if Not IsNumeric(page) or page="" then
  174.         page=1
  175.     else
  176.         page=cint(page)
  177.     end if
  178.     
  179.     if page<1 then
  180.         page=1
  181.     elseif  page>maxpage then
  182.         page=maxpage
  183.     end if
  184.     
  185.     rs.AbsolutePage=Page
  187. if page=maxpage then
  188. x=iCount-(maxpage-1)*iPageSize
  189. else
  190. x=iPageSize
  191. end if
  192. %>
  193.                                     <table width="100%" border="0">
  194.                                       <tr> 
  195.                                         <td colspan="12" height="25" align="center" bgcolor="#FFFFFF" > 
  196.                                        
  197.                                         </td>
  198.                                       </tr>
  199.                                     </table>
  200.                                     <%
  201. For i=1 To x
  202. 'do while not rs.eof and e_page>0
  203. %>
  204.                                     <TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=1 bgcolor="#CCCCCC">
  205.                                       <TBODY>
  206.                                         <TR> 
  207.                                           <TD bgcolor="f1f1f1"><TABLE width="100%" border=0 cellpadding="0" cellspacing="0">
  208.                                               <TBODY>
  209.                                                 <TR bgcolor="f1f1f1"> 
  210.                                                   <TD width="67" height="23" align="center" bgcolor="f1f1f1"><font color="#FF0000">&nbsp;</font></TD>
  211.                                                   <TD width="464" align="right"> 
  212.                                                     <%if rs("qq")<>"" then%>
  213.                                                     <img src="images/qq.gif" width="16" height="16" border="0"> 
  214.                                                     <%=rs("qq")%> 
  215.                                                     <%end if%>
  216.                                                     &nbsp; 
  217.                                                     <%if rs("email")<>"" then%>
  218.                                                     <a href="mailto:<%=rs("email")%>" target="_blank" title=Email：<%=rs("email")%>><img src="images/email.gif" width="14" height="15" border="0"></a> 
  219.                                                     <a href="mailto:<%=rs("email")%>" target="_blank" title=Email：<%=rs("email")%>><%=rs("email")%></a> 
  220.                                                     <%end if%>
  221.                                                     <%if rs("url")<>"" then%>
  222.                                                     <a href="<%=rs("url")%>" target="_blank" title=主页：<%=rs("url")%>><img src="images/url.gif" width="16" height="16" border="0"></a> 
  223.                                                     <a href="<%=rs("url")%>" target="_blank" title=主页：<%=rs("url")%>><%=rs("url")%></a> 
  224.                                                     <%end if%>
  225.                                                     &nbsp;</TD>
  226.                                                 </TR>
  227.                                               </TBODY>
  228.                                             </TABLE></TD>
  229.                                         </TR>
  230.                                         <TR> 
  231.                                           <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  232.                                               <TBODY>
  233.                                                 <TR> 
  234.                                                   <TD bgcolor="#FFFFFF"> <TABLE width="100%" border=0 style="table-layout:fixed;word-break:break-all">
  235.                                                       <TBODY>
  236.                                                         <TR> 
  237.                                                           <TD width="109"><img src="images/<%=rs("sex")%>.gif"></TD>
  238.                                                           <TD colspan="2"> <strong><font color="<%=flzhbt%>">姓名：</font></strong><font color="<%=flzhzt%>"><%=rs("name")%></font><br> 
  239.                                                             <strong><font color="<%=flzhbt%>">内容：</font></strong><font color="<%=flzhzt%>"><%=unHtml(rs("content"))%></font></TD>
  240.                                                         </TR>
  241.                                                         <TR> 
  242.                                                           <TD colspan="2">&nbsp;</TD>
  243.                                                           <TD width="250" align="right"><%=rs("time")%></TD>
  244.                                                         </TR>
  245.                                                       </TBODY>
  246.                                                     </TABLE></TD>
  247.                                                 </TR>
  248.                                               </TBODY>
  249.                                             </TABLE></TD>
  250.                                         </TR>
  251.                                         <%if rs("reply")<>"" then%>
  252.                                         <TR> 
  253.                                           <TD bgColor=#f2f2f2> <table width="100%" border="0" style="table-layout:fixed;word-break:break-all">
  254.                                               <tr> 
  255.                                                 <td width="10">&nbsp;</td>
  256.                                                 <td width="567"><font color="#FF0000">管理员回复：</font><br> 
  257.                                                   <%=unHtml(rs("reply"))%></td>
  258.                                               </tr>
  259.                                             </table></TD>
  260.                                         </TR>
  261.                                         <%end if%>
  262.                                       </TBODY>
  263.                                     </TABLE>
  264.                                     <br> 
  265.                                     <%
  266. 'e_page=e_page-1
  267. 'rs.movenext
  268. 'loop
  269. RS.MoveNext
  270. next
  271. %>
  272.                                     <table width="100%" border="0">
  273.                                       <tr> 
  274.                                         <td> 
  275.                                          <%
  276. call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
  278. Sub PageControl(iCount,pagecount,page,table_style,font_style)
  279. '生成上一页下一页链接
  280.     Dim query, a, x, temp
  281.     action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
  282.     query = Split(Request.ServerVariables("QUERY_STRING"), "&")
  283.     For Each x In query
  284.         a = Split(x, "=")
  285.         If StrComp(a(0), "page", vbTextCompare) <> 0 Then
  286.             temp = temp & a(0) & "=" & a(1) & "&"
  287.         End If
  288.     Next
  289.     Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 >" & vbCrLf )        
  290.     Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR >" & vbCrLf )
  291.     Response.Write("<TD align=center height=40>" & vbCrLf )
  292.     Response.Write(font_style & vbCrLf )    
  293.     if page<=1 then
  294.         Response.Write ("首 页 " & vbCrLf)        
  295.         Response.Write ("上一页 " & vbCrLf)
  296.     else        
  297.         Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首 页</A> " & vbCrLf)
  298.         Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
  299.     end if
  300.     if page>=pagecount then
  301.         Response.Write ("下一页 " & vbCrLf)
  302.         Response.Write ("尾 页 " & vbCrLf)            
  303.     else
  304.         Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
  305.         Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾 页</A> " & vbCrLf)            
  306.     end if
  307.     Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
  308.     Response.Write(" 共有" & iCount & "条留言" &  vbCrLf)
  309.     Response.Write(" 转到" & "<INPUT CLASS=wenbenkuang TYEP=TEXT NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
  310.     Response.Write("</TD>" & vbCrLf )                
  311.     Response.Write("</TR></form>" & vbCrLf )        
  312.     Response.Write("</table>" & vbCrLf )        
  313. End Sub
  314. %>
  315.                                         </td>
  316.                                       </tr>
  317.                                     </table>
  318.                                     <%
  319. rs.close
  320. set rs=nothing
  321. end if
  322. %>
  323.                                   </td>
  324.                                 </tr>
  325.                                 <tr> 
  326.                                   <td align="center"><FORM action=fksave.asp method=post name="form" id="form">
  327.                                       <br>
  328.                                       <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
  329.                                         <tr> 
  330.                                           <td height="1" bgcolor="cccccc"><img src="img/dot_03.gif" width="9" height="1" border="0"></td>
  331.                                         </tr>
  332.                                         <tr> 
  333.                                           <td height="25" bgcolor="efefef"> <strong>&nbsp;&nbsp;<img src="img/dot_03.gif" width="9" height="9" border="0"> 
  334.                                             </strong><strong>用户留言</strong></td>
  335.                                         </tr>
  336.                                         <tr> 
  337.                                           <td height="1" bgcolor="cccccc"><img src="img/dot_03.gif" width="9" height="1" border="0"></td>
  338.                                         </tr>
  339.                                       </table>
  340.                                       <TABLE width="100%" border=0 cellPadding=0 cellSpacing=1>
  341.                                         <TBODY>
  342.                                         <TD height="30">&nbsp;&nbsp; 姓名： 
  343.                                           <input name=name class="wenbenkuang" id="name">
  344.                                             邮箱： 
  345.                                             <input  name=email class="wenbenkuang" id="email2"></TD>
  346.                                         </TR>
  347.                                         <TR> 
  348.                                           <TD height="30"> &nbsp;&nbsp; OICQ： 
  349.                                             <input name=qq class="wenbenkuang" id="qq3">
  350.                                             性别： 
  351.                                             <label> 
  352.                                             <input name="sex" type="radio" value="boy" checked>
  353.                                             先生</label> <label> 
  354.                                             <input type="radio" name="sex" value="girl">
  355.                                             小姐</label></TD>
  356.                                         </TR>
  357.                                         <TR> 
  358.                                           <TD height="30">&nbsp;&nbsp; 网址： 
  359.                                             <input name=url class="wenbenkuang" id="url" value="http://">
  360.                                             验证码： 
  361.                                             <input class="wenbenkuang" name="verifycode" type="text" value="<%If GetCode=9999 Then Response.Write "9999"%>" maxlength="4" size="6" /> 
  362.                                             <img src="GetCode.asp" /> </TD>
  363.                                         </TR>
  364.                                         <TR> 
  365.                                           <TD height="30">&nbsp;&nbsp; 留言内容：</TD>
  366.                                         </TR>
  367.                                         <TR> 
  368.                                           <TD height="130" noWrap> &nbsp;&nbsp; 
  369.                                             <textarea name=content cols=60 rows=8 id="content" class="wenbenkuang"></textarea> 
  370.                                           </TD>
  371.                                         <TR> 
  372.                                           <TD height="30" colspan="2"> &nbsp;&nbsp; 
  373.                                             <input name="submit" type=submit class="go-wenbenkuang" id="submit" value=我要留言> 
  374.                                             &nbsp;&nbsp; <input name="submit3" type=reset class="go-wenbenkuang" id="submit3" value=清除重来> 
  375.                                             <%
  376. Randomize '初始代随机数种子
  377. num1=rnd() '产生随机数num1
  378. num1=int(26*num1)+65 '修改num1的范围以使其是A-Z范围的Ascii码，以防表单名出错
  379. session("antry")="test"&chr(num1) '产生随机字符串
  380. %>
  381.                                             <input name="temp" type="hidden" id="temp" value="<%=session("antry")%>"> 
  382.                                           </TD>
  383.                                         </TR>
  384.                                       </TABLE>
  385.                                     </FORM></td>
  386.                                 </tr>
  387.                               </table></td>
  388.                           </tr>
  389.                         </table>
  390.                       
  391.                       </td>
  392.                     </tr>
  393.                   </table>
  394.                   <br>
  395.                 </td>
  396.               </tr>
  397.             </table></td>
  398.       </tr>
  399.     </table></td>
  400. <td width="68"style="BORDER-left:<%=skincolor%> 1px solid;">&nbsp;</td>
  401.   </tr>
  402. </table>
  403. <!--#include file="include/foot.asp"-->
  404. </body>
  405. </html>
  406. <SCRIPT LANGUAGE="JavaScript">
  407. <!--
  408. function checkspace(checkstr) {
  409.   var str = '';
  410.   for(i = 0; i < checkstr.length; i++) {
  411.     str = str + ' ';
  412.   }
  413.   return (str == checkstr);
  414. }
  415. function checkfk()
  416. {
  417.    if(checkspace(document.fkinfo.fksubject.value)) {
  418. document.fkinfo.fksubject.focus();
  419.     alert("您没有填写主题！");
  420. return false;
  421.   }
  422.    if(checkspace(document.fkinfo.fkusername.value)) {
  423. document.fkinfo.fkusername.focus();
  424.     alert("请填写您的姓名！");
  425. return false;
  426.   }
  427.    if(checkspace(document.fkinfo.fklaizi.value)) {
  428. document.fkinfo.fklaizi.focus();
  429.     alert("请填写您来自哪里！");
  430. return false;
  431.   }
  432.      if(checkspace(document.fkinfo.fkcontent.value)) {
  433. document.fkinfo.fkcontent.focus();
  434.     alert("请填写反馈信息内容！");
  435. return false;
  436.   }
  437.   if(document.fkinfo.fkemail.value.length!=0)
  438.   {
  439.     if (document.fkinfo.fkemail.value.charAt(0)=="." ||        
  440.          document.fkinfo.fkemail.value.charAt(0)=="@"||       
  441.          document.fkinfo.fkemail.value.indexOf('@', 0) == -1 || 
  442.          document.fkinfo.fkemail.value.indexOf('.', 0) == -1 || 
  443.          document.fkinfo.fkemail.value.lastIndexOf("@")==document.fkinfo.fkemail.value.length-1 || 
  444.          document.fkinfo.fkemail.value.lastIndexOf(".")==document.fkinfo.fkemail.value.length-1)
  445.      {
  446.       alert("Email地址格式不正确！");
  447.       document.fkinfo.fkemail.focus();
  448.       return false;
  449.       }
  450.    }
  451.  else
  452.   {
  453.    alert("Email不能为空！");
  454.    document.fkinfo.fkemail.focus();
  455.    return false;
  456.    }
  457. }
  458. //-->
  459. </script>