📄 reviewmanage.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5
💻 ASP
字号:
<!--#include file = include.asp-->
<%
'==========================================
'
'  
'
'  
'
'==========================================
'程序名称：渐飞商务信息更新程序
'程序作用：
'程序创建时间：18:58 2002-9-7
'程序完成时间：21:50 2002-8-7
'最后修改时间：21:50 2002-8-7
'==========================================
  page=request.querystring("page")
  if page<=1 or page="" then page=1
  Set rs=Server.CreateObject("Adodb.Recordset")
  sql="Select * from Review where FileName='"&request.querystring("FileName")&"' order by ID desc "
  rs.open sql,conn,1,1
  rs.pagesize=20
  for i=1 to rs.pagesize*(page-1)
    if not rs.eof then
	  rs.movenext
	end if
  next
%>
<body background="images/BLogo.gif">
<form name=form method=post action=ReviewSave.asp>
<table width="95%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="3" width="100%" height="25">
	<!--#include file = topMenu.htm--></td>
  </tr>

  <tr bgcolor="#FFFFFF" valign="middle" align="center"> 
    <td height="2" colspan="3" background="images/BLogo.gif">
      <table width="99%" border="0" cellspacing="1" cellpadding="0" bgcolor="#F5F5F5">

<%
  if rs.eof and rs.bof then
%>
        <tr bgcolor="#FFFFFF"> 
          <td width="100%" align="center"><font color=red>暂时没有此商务信息的评论</font></td>
        </tr>
<%
  response.end
  end if
%>
    <tr bgcolor="#FFFFFF"> 
      <td height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>姓名</td>
      <td height=20 width="53%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>内容</td>
      <td height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>时间</td>
      <td height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>IP</td>
      <td height=20 width="7%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>删除</td>
    </tr>
<%
  for i=1 to rs.pagesize
    if rs.eof then exit for
%>
    <tr bgcolor="#FFFFFF"> 
      <td height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("name")%></td>
      <td height=20 width="53%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("Content")%></td>
      <td height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("Date")%></td>
      <td height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("IP")%></td>
      <td height=20 width="7%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><input type="checkbox" name=DelId value=<%=rs("ID")%>></td>
    </tr>
<%
  rs.movenext
  next
%>
  <tr bgcolor="#FFFFFF">
     <td height=20 width="100%" colspan=5 align=right onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
     <input type=hidden name=FileName value=<%=request.querystring("FileName")%>>
	 <input type="checkbox" name="chkall" onclick="CheckAll(this.form)">选中所有
     <input type=submit value=删除 onclick="return Del()">
     </td>    
  </tr>
  <tr bgcolor="#FFFFFF"> 
     <td height=20 width="100%" colspan=5 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
  for i=1 to rs.PageCount
    response.write("<a href=ReviewManage.asp?Page="&i&"&FileName="&request.querystring("FileName")&"><b> "&i&" </b></a>")
  next
  rs.close
  set rs=nothing
%>
     </td>    
  </tr>
      </table>
    </td>
  </tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明

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