net_member_list.asp

泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.

<!-- #include file="net_head.asp" -->

<%
stype = trim(request("stype"))
searchstr = trim(request("searchstr"))

tmp_year = left(now, 4)
tmp_month = int(mid(now, 6, 2))
if len(tmp_month) = 1 then tmp_month = "0" & tmp_month
tmp_day = int(mid(now, 9, 2))
if len(tmp_day) = 1 then tmp_day = "0" & tmp_day

today = tmp_year &"-"& tmp_month &"-"& tmp_day

sql = "Select count(*) as count from ib_member where partner_tag = 'NM'"
if stype = "UserID" then
	sql = sql & " and userid like '%NMB123456_" & searchstr & "%' "
end if
set cnt_rs = DbCon.Execute(sql)
totalNum = cnt_rs("count")

PageSize = 50
curPage = request("page")
if curPage = "" then curPage = 1

sql = "SELECT Top " & PageSize * curPage & "userid, GaipDate, partner_tag FROM ib_member where partner_tag = 'NM'"
if stype = "UserID" then
	sql = sql & " and userid like '%NMB123456_" & searchstr & "%' "
end if
sql = sql & " ORDER BY idx desc"
set rs = DbCon.Execute (sql)

if not rs.EOF then
	rs.Move ((curPage-1) * PageSize)
	LastPage = Round((totalNum-1) / PageSize + 0.51)%>

	<table width="750" border="0" cellspacing="1" cellpadding="1" align="center">
	  <tr> 
		<td bgcolor="#CCCCCC" height="50">
		  <div align="center"><font size="5" face="蹈框"><b>齿付喉 - 航霸烙 雀盔 沥焊</b></font></div>
		</td>
	  </tr>
	</table><br>

	<table width="750" border="0" cellspacing="0" cellpadding="0" align="center" class="boardtext03">
	<tr> 
		<td  height="26" align="right"><a href="netmarble.asp"><b>&lt&lt Main...</b></a></td>
	</tr>
	  <tr> 
         <td  height="26"> 
		  <form name="search" action="net_member_list.asp" method="post">
           <table width="100%" border="0" cellspacing="0" cellpadding="0" height="26" class="boardtext03">
             <tr> 
               <td width="350"><font class=blue>泅犁<%=curPage%>/<%=LastPage%>其捞瘤 (其捞瘤寸 <%=PageSize%> 疙)</font></td>
               <td width="400">
			      <div align="center"> 
					<select size="1" name="stype" >
					  <option value="">急琶窍技夸</option>
					  <option value="UserID"<%if stype="UserID" then response.write(" selected")%>>雀盔 酒捞叼 八祸</option>
					  <option value="NM"<%if stype="NM" then response.write(" selected")%>>盔贰 府胶飘肺..</option>
					</select>
					<input type="text" name="searchstr" size="20">
					<input type="submit" value="八 祸" name="Search">
			     </div>
			  </td>
             </tr>
           </table>
		  </form>
         </td>
       </tr>
       <tr> 
         <td height="25" align="center" class="boardtext03">
		   <table width="500" border="0" cellspacing="1" cellpadding="0" class="boardtext03">
			 <tr bgcolor="skyblue"> 
			   <td width="200" align="center" height="30"><b>ID</b></td>
			   <td width="300" align="center"><b>啊涝老</b></td>
			 </tr>

		   <%     
			i=1     
			while not rs.EOF
				userid = rs("userid")
			%>

			<tr bgcolor="#CCCCCC"> 
			  <td align="center" height="25"><%=replace(userid,"NMB123456_","")%></td>
			  <td align="center"><%= rs("GaipDate")%></td>
			</tr>

			<%  
			rs.MoveNEXT    
			i=i+1    
			wend   

			rs.close
			set	rs = nothing	
			%>

			 <tr bgcolor="#CCCCCC">
			   <td colspan=8 align=center height="40">
				 <!-- page 何盒 甸绢哎 镑 -->
				<%
					count = 0
					start = curPage - 5
					if start < 1 then start = 1
					response.write ("<a href=""net_member_list.asp?page=1&stype=" & stype & "&searchstr=" & searchstr & """>" & "[贸澜]</a>&nbsp;")
					for i=start to LastPage
						if (CLng(i) <> CLng(curPage)) then
							response.write ("<a href=""net_member_list.asp?page=" & i & "&stype=" & stype & "&searchstr=" & searchstr & """>[" & i & "]</a>&nbsp;")
						else
							response.write ("<font color=red size=3>[" & i & "]</font>&nbsp;")
						end if
						count = count + 1
						if (count > 10) then exit for
					next
					response.write ("<a href=""net_member_list.asp?page=" & LastPage & "&stype=" & stype & "&searchstr=" & searchstr & """>[付瘤阜]</a>")
				%>
				 <!-- page 何盒 甸绢哎 镑 -->
			  </td>
			</tr>
		  </table>
	    </td>
	  </tr>
   </table>
    
<%
else
%>
	<script language="JavaScript">
	<!--
		alert('八祸 搬苞啊 绝嚼聪促.');
		history.back();
	// -->
	</script>
<%
end if
%>

<!-- #include file="net_bottom.asp" -->