default.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

        </tr>
        <% DO WHILE NOT rs.EOF AND RowCount>0%>
        <tr class="tablebg<%=skin%>d"> 
          <td width="40" align="center"> 
            <%if rs11("show") and not rs("mark") then%>
            <img src="images/folder1.gif" alt="未审核讨论"> 
            <%else if rs("top1")=true then%>
            <img src="images/top.gif" alt="固顶讨论"> 
            <%else if rs("lock")=true then%>
            <img src="images/lock.gif" alt="锁定讨论"> 
            <%else if rs("hf")>=10 then%>
            <img src="images/hotfolder.gif" alt="热点讨论"> 
            <%else if DateDiff("d",rs("lastdate"),Now)=0 then%>
            <img src="images/newfolder.gif" alt="新讨论"> 
            <%else%>
            <img src="images/folder.gif" alt="普通讨论"> 
            <%end if%>
            <%end if%>
            <%end if%>
            <%end if%>
          <%end if%>          </td>
          <td width="40" height="28" align="center"><img src="images/<%=rs("pic")%>" ></td>
          <td width="348" class="tablebg<%=skin%>c" onmouseover="this.className='tablebg<%=skin%>d'" onmouseout="this.className='tablebg<%=skin%>c'"> 
            <%if rs("subject")="" then %>
            <a href="show.asp?id=<%=rs("id")%>">无标题</a> 
            <%else%>
            <a href="show.asp?id=<%=rs("id")%>"><font color="<%=rs("fontcolor")%>"><%=rs("subject")%></font></a>
            <%end if%>
            <%if rs("hf")>10 then%>
            [<img src="images/page.gif" width="10" height="12"> 
            <%if rs("hf") mod 10=0 then end1=rs("hf")/10 else end1=rs("hf")/10+1 end if%>
            <%for i=1 to end1%>
            <a href="show.asp?PageNo=<%=i%>&id=<%=rs("id")%>"><strong><font color="#FF0000">	
            <%response.write i%>
            </font></strong></a> 
            <%response.write " "%>
            <%next%>
            ] 
          <%end if%> <%if rs("jinghua") then response.Write("<img src='images/jh.gif' border=0>")%>         </td>
          <td width="100" align="center" class="jnfont5"> <div align="center"><font color=#000000> 
              <%if rs("username")<>"" then%>
              <%=rs("username")%> 
              <%else%>
              无名氏 
              <%end if%>
              <%
			  Set rs2=server.createobject("ADODB.RECORDSET")
			  sql2="SELECT * FROM register where username='"&rs("username")&"'"
			  rs2.open sql2,conn,1,1
			  if not rs2.eof then			  
			  %>
              <%if Instr(rs2("level1"),"嘉宾")>0 then%>
              <img src="images/fbz.gif" alt="嘉宾" width="16" height="16"> 
              <%end if%>
              <%if Instr(rs2("level1"),"版主")>0 then%>
              <img src="images/bz.gif" alt="版主" width="16" height="16"> 
              <%end if%>			  
              <%if rs2("level1")="管理员" then%>
              <img src="images/gly.gif" alt="管理员" width="15" height="18"> 
              <%end if
			  end if
			  %>
          </font> </div></td>
          <td width="40" align="center" class="tablebg<%=skin%>c"><font color=#000000><%=rs("hf")%></font></td>
          <td width="40" align="center" class="tablebg<%=skin%>c"><font color=#000000><%=rs("yd")%></font></td>
          <td width="250" align="center" > 
            <div align="left">
              <%=rs("lastdate")&" <font color=#FF0000>|</font> "&rs("lastname")%>        
          </div></td>
          <%if (session("admin")=1) or (session("admin")=2) then%>
          <td width="39" align="center"><input name="<%=rs("id")%>" type="checkbox" id="<%=rs("id")%>3" value="on"></td>
          <%end if%>
        </tr>
        <%
RowCount = RowCount - 1
	  i=i-1
      rs.MoveNext 
      Loop%>
      </table>
    <TABLE width=760 height="5" border=0 align=center cellPadding=3 cellSpacing=0>
      <TBODY>
        <TR> 
          <TD width="40%" style="LETTER-SPACING: 1px"><div align="left"><%if (session("admin")=1) or (session("admin")=2) then%><a href=### onClick=checkAll()>全选</a> <a href=### onClick=checkNone() >全不选</a> <a href=### onClick=checkRev() >反选</a>
                <select name=act class=input2>
                  <option value="1">删除讨论</option>
			      <option value="4">提到最前</option>
                  <option value="2">固定顶端</option>
			      <option value="5">取消固顶</option>
                  <option value="3">锁定讨论</option>
			      <option value="6">解除锁定</option>
                  <option value="7">审核讨论</option>
                  <option value="8">取消审核</option>
                  <option value="9">设为精华</option>
                  <option value="10">取消精华</option>
                </select>
                <input name="goto" type=submit class=input2 id="goto2" value="确定">
          <%end if%></div></TD>
          <TD width="60%" style="LETTER-SPACING: 1px">
            <div align="right">
                <% call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"条主题") %>
          </div></TD>
        </TR>
	    <%if (session("admin")=1) or (session("admin")=2) then%>
        <TR> 
          <TD colspan="2" style="LETTER-SPACING: 1px"><div align="center"></div></TD>
        </TR>
	    <%end if%>
      </TBODY>
    </TABLE>
    </form>

      <table width="760" border="0" align="center">
        <tr> 
          <td width="100%" height="39"> <form action="default.asp" method="post" name="form" id="form">
              <div align="center">
              <div align="center"><IMG src="images/search.gif" width="16" height="16" align=absMiddle> 
                搜索： 
                  <INPUT 
      class=input1 size=25 name=text>
                  <INPUT name=option type=radio value=1 CHECKED>
                发言主题 
                <INPUT type=radio value=2 name=option>
                发言内容 
                <INPUT type=radio value=3 name=option>
回复内容
<input type=radio value=4 name=option>
                注册名称
                <%if (session("admin")=1) or (session("admin")=2) then%>
                <input type=radio value=5 name=option>
待审讨论
<%end if%>                
<INPUT name="submit" type=submit class=input2 value=" 搜 索 ">
              </div>
          </form></td>
        </tr>
      </table>

          <!--#INCLUDE FILE="bottom.asp"--></td>
      </tr>
    </table>
</html>
<%
set rs=nothing
set rs2=nothing
%>
<script language="JavaScript">
function checkAll()
{
	var objID;
	objID=document.forms[0].elements;
	for (var i=0 ;i<objID.length-2;i++)
	{
		objID[i].checked=true;
	}
}

function checkNone()
{
	var objID;
	objID=document.forms[0].elements;
	for (var i=0 ;i<objID.length-2;i++)
	{
		objID[i].checked=false;
	}
}

function checkRev()
{
	var objID;
	objID=document.forms[0].elements;
	for (var i=0 ;i<objID.length-2;i++)
	{
		if (objID[i].checked==true)
			objID[i].checked=false;
		else
			objID[i].checked=true;
	}
}
</script>