📄 trust_score.asp

📁 OA最新破解2008版全新破解希望大家用着舒服
💻 ASP
字号:
<%@ codepage ="936" %>
<%
if instr(session("flag"),"31")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#include file="../../conn/dbconn2.asp" -->
<!--#include file="../../inc/safe.asp"-->
<HTML><HEAD><TITLE>易商通指数管理</TITLE>
<META content=zh-cn http-equiv=Content-Language>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="../style.css" rel=stylesheet type=text/css>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" align="center">
  <tr> 
                <td bgcolor="#666666"><font color="#FFFFFF">易商通指数管理</font></td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF"> 
<% 
sql="select * from trustadv order by ID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
msg_per_page=10 '定义每页显示记录条数
%>
                  <!--#include file="../../inc/headpage.asp"--> 
                  <%
if rs.eof then
response.write"暂无信息"
else
do while not rs.eof and rowcount > 0
%>
                  
      <table width="100%" border="0" cellspacing="2" cellpadding="2" align="center" style="word-wrap: break-word; word-break: break-all;">
        <tr> 
                      
                      <td width="84%" valign="top">  
                        评价人：
						<%set rs1=conn.execute("select id,qymc,url from corporation where id="&rs("pjrid")&"")%>
						<a href="../../<%=rs1("url")%>" target="_blank"><%=rs1("qymc")%></a>
						； 评价身份：<%=rs("role")%>； 评价类型：<%=rs("type")%><Br><Br>
						<font color="#FF0000">
						被评人：</font>
						<%set rs2=conn.execute("select id,qymc,url from corporation where id="&rs("bprid")&"")%>						
						<a href="../../<%=rs2("url")%>" target="_blank"><font color="#FF0000"><%=rs2("qymc")%></font></a><Br><Br>
						评价内容：<%=rs("content")%></td>
										
          <td width="10%" align="center" valign="top" bgcolor="#f0f0f0"> 
            <%if rs("type")="好评" then%>
			<%if rs("pass")=true then %>
            <a href="pass.asp?id=<%=rs("id")%>&bprid=<%=rs("bprid")%>&type=<%=rs("type")%>">已加分</a>
            <%else%>
            <a href="pass1.asp?id=<%=rs("id")%>&bprid=<%=rs("bprid")%>&type=<%=rs("type")%>">没加分</a>
            <%end if%>
			<%elseif rs("type")="批评" then%>
			<%if rs("pass")=true then %>
            <a href="pass.asp?id=<%=rs("id")%>&bprid=<%=rs("bprid")%>&type=<%=rs("type")%>">已减分</a>
            <%else%>
            <a href="pass1.asp?id=<%=rs("id")%>&bprid=<%=rs("bprid")%>&type=<%=rs("type")%>">没减分</a>
            <%end if%>
			<%end if%>
          </td>
          <td width="6%" align="center" valign="top" bgcolor="#f0f0f0"><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
                    </tr>

                  </table>
				  <hr>
                  <% 
  rowcount=rowcount-1
  rs.movenext
  loop
  end if
%>
                  
                  

<table width="100%" border="0" cellspacing="2" cellpadding="2" align="center">
                    <tr> 
                      <td width="6%" valign="top">
                        <%=listPages("trust_score.asp")%>
                      </td>
                    </tr>
                    
                  </table>

                </td>
              </tr>
            </table>
</BODY>
</HTML>
⌨️ 快捷键说明

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