📄 fvisitor.asp

📁 网上商场帐户管理方面　　　 1.实现了购物车和收藏夹的功能。　　　 2.实现了历史订单查询以及即时订单跟踪。　　　 3.实现了个人资料修改,查询以及送货人信息修改和查询。　

💻 ASP

字号:

<!-- #Include File=Conn.asp -->
<%
Response.Expires=0
Dim Conn,Sql,Rs
Dim Rows,i

Sql="Select Top 30 * From Visitor Order By Id DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
   Assay=Rs.GetRows
   Rows=Ubound(Assay,2)
Else
   Rows=-1
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
%>
<HTML>
<HEAD><TITLE><%=Name%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="image/style.css" rel=stylesheet type=text/css>
<BODY leftMargin=0 rightMargin=0 topMargin=0 vLink=#000000>
<br>
<table align=center border=0 cellpadding=0 cellspacing=0 width=500 height="24">
  <tbody> 
  <tr> 
    <td colspan=3><img src="Image/photoup.gif"></td>
  </tr>
  <tr height=30> 
    <td class=backs width=1></td>
    <td class=backq width=489 valign="top"> 
      <table border=0 cellpadding=3 cellspacing=0 width="100%">
        <tbody> 
        <tr> 
          <td align=left width="14%" height="36"> 
            <div align="center">日期</div>
          </td>
          <td align=left width="16%" height="36"> 
            <div align="center">时间</div>
          </td>
          <td align=left width="26%" height="36"> 
            <div align="center">地址</div>
          </td>
          <td align=left colspan="3" width="44%" height="36"> 
            <div align="center">链接页面</div>
          </td>
        </tr>
        <%for i=0 to Rows%>
        <tr> 
          <td align=left width="14%"> 
            <div align="center"><%=Assay(1,i)%></div>
          </td>
          <td align=left width="16%"> 
            <div align="center"><%=FormatDateTime(Assay(2,i),4)%></div>
          </td>
          <td align=left width="26%"> 
            <div align="center"><%=Assay(4,i)%></div>
          </td>
          <td align=left colspan="3" width="44%"> 
            <div align="center"> 
              <% If Assay(8,i)="直接输入或书签导入" Then%>
              <%=Left(Assay(8,i),40)%> 
              <%Else%>
              <a href=http://<%=Assay(8,i)%>  target="_blank"><%=Left(Assay(8,i),40)%></a> 
              <%End If%>
            </div>
          </td>
        </tr>
        <%Next%>
        </tbody> 
      </table>
    </td>
    <td class=backs width=1></td>
  </tr>
  <tr> 
    <td colspan=3><img 
src="Image/photodown.gif"></td>
  </tr>
  </tbody> 
</table>
<br>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -