default.asp

利用php编码

            <%if option1=3 then%><a href="show.asp?id=<%=rs("guest.id")%>"><%=rs("subject")%></a>
            <%else%>
            <a href="show.asp?id=<%=rs("id")%>"><%=rs("subject")%></a>
            <%end if%> 
            <%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%>
            <%if option1=3 then%><a href="show.asp?PageNo=<%=i%>&id=<%=rs("guest.id")%>"><%else%><a href="show.asp?PageNo=<%=i%>&id=<%=rs("id")%>"><%end if%><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" bgcolor="#EDFBFF"><font color=#000000><%=rs("hf")%></font></td>
          <td width="40" align="center" bgcolor="#EDFBFF"><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"><%if option1=3 then%><input name="<%=rs("guest.id")%>" type="checkbox" id="<%=rs("guest.id")%>3" value="on"><%else%><input name="<%=rs("id")%>" type="checkbox" id="<%=rs("id")%>3" value="on"><%end if%></td>
          <%end if%>
        </tr>
        <%
RowCount = RowCount - 1
	  i=i-1
      rs.MoveNext 
      Loop%>
      </table>
<TABLE width=100% height="5" border=0 align=center cellPadding=3 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD width="74%" style="LETTER-SPACING: 1px">跳转到第：[ <strong> 
        <%for i=PageNo to TSum%>
        <%if j>9 then%>
		  ....<a href="default.asp?PageNo=<%=TSum%>"><%response.write TSum%></a>
		  <%exit for%>
		  <%end if%>
		<a href="default.asp?PageNo=<%=i%>"><%response.write i%></a><%response.write " "%>
        <%  j=j+1 
			next
			%>
        </strong>]页
        </TD>
      <TD width="26%" align=middle style="LETTER-SPACING: 1px"><div align="right">
              <% 
if TSum>1 Then
 If PageNo=TSum or PageNo<>1 Then 
   PrwePage=PageNo-1
   Response.Write "<A HREF=default.asp?Pageno=1"&"&text="&text&"&option="&option1&"&jinghua="&jinghua
   Response.Write ">第一页</A>  "         
   Response.Write "<A HREF=default.asp?Pageno="&PrwePage&"&text="&text&"&option="&option1&"&jinghua="&jinghua
   Response.Write ">上一页</A>  "              
 End If        
 If pageno=1 or TSum>PageNo Then 
   NextPage=PageNo+1             
   Response.Write "<A HREF=default.asp?PageNo="&NextPage&"&text="&text&"&option="&option1&"&jinghua="&jinghua
   Response.Write ">下一页</A>  "
   Response.Write "<A HREF=default.asp?Pageno="&rs.PageCount&"&text="&text&"&option="&option1&"&jinghua="&jinghua
   Response.Write ">末一页</A>  "          
 End If                    
End If          
%>
        </div></TD>
    </TR>
	<%if (session("admin")=1) or (session("admin")=2) then%>
    <TR> 
      <TD colspan="2" style="LETTER-SPACING: 1px"><div align="right"><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="2">固定顶端</option>
                  <option value="3">锁定留言</option>
                  <option value="4">提到最前</option>
                  <option value="5">取消固顶</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="确定">
        </div></TD>
    </TR>
	<%end if%>
  </TBODY>
</TABLE>
</form>
<tbody>
  <tr>
      <table width="100%" 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>
                注册名称 
                <INPUT name="submit" type=submit class=input2 value=" 搜 索 ">
              </div>
          </form></td>
        </tr>
      </table>
    <table border=0 width=100% align=center>
      <tr> 
        <td width="100%" height=12><HR SIZE=1 WIDTH=100% NOSHADE COLOR=#C0C0C0></td>
      </tr>
      <tr> 
        <td align=center> 
          <!--#INCLUDE FILE="bottom.asp"-->
      </tr>
    </table>
</html>
<%
'rs.close
rs1.close
'rs2.close
set rs=nothing
set rs1=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>