inquiry.asp

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

<!-- #include virtual="/admin/admin_head.asp" -->
<%
'*********************************************************************
	If Request("page")="" Then
		Page=1
	Else
		Page=Request("page")
	End If
	if request("sort")="" then
	sort=0
	else
	sort = request("sort")
	end if
'*********************************************************************	
	
	sql = "EXEC usp_mailtoadmin_list_01s "
	sql = sql & " @Page=" & Cstr(page)  
	Set Rs = DbCon.Execute (sql)
		
If Not (Rs.Eof OR Rs.Bof) Then
		TotalPage=Rs("TotalPage")
		PreviousPage=Rs("PreviousPage")
		NextPage=Rs("NextPage")
		CurrentRecord=Rs("CurrentRecord")
		RecordCount=Rs("RecordCount")
	Else
		TotalPage=0
		PreviousPage=0
		NextPage=0
		CurrentRecord=0
		RecordCount=0
	End If	
		
'=========================================================
  If Not (rs.Eof OR rs.Bof) Then
 	
 		Rs.Move 10 - Cint(CurrentRecord)
		Dim IndexCount
		IndexCount=(page*10+1)-10
%>  

<SCRIPT LANGUAGE="JavaScript">
<!--
 // Trim 窃荐
	function trim(str)
	{
		var trimstr = str;
		for (var i=0; i< str.length;i++)
		{
			trimstr = trimstr.replace(' ' ,'');
		}
		return trimstr;
	}		
	// 其捞瘤 捞悼窃荐
	function go_page(page)
	{
		thisform=document.frmList
    	frmList.page.value=page;
    	frmList.action="inquiry.asp"
    	frmList.submit();
	}
//-->
</SCRIPT>

<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>

<form name="frmList" method="post">	
<input type="hidden" name="page" value="<%=Page%>">
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr> 
		<td  height="26"> 
			<table width="750"  border="0" cellspacing="0" cellpadding="0" height="26" class="boardtext03">
				<tr> 
					<td width="30">&nbsp;</td>
					<td>雀盔俊霸 罐篮 巩狼 皋老 格废涝聪促. 溜矫 翠函秦林矫扁 官而聪促.</td>
				</tr>
			</table>
		</td>
	</tr>
	<tr> 
		<td height="26"> 
			<table width="500" border="0" cellspacing="0" cellpadding="0" height="26" class="boardtext03">
				<tr> 
					<td width="30">&nbsp;</td>
					<td>傈眉 巩狼皋老扒荐:<%=RecordCount%>扒 泅犁<%=page%>/<%=TotalPage%>其捞瘤</td>
				</tr>
			</table>
		</td>
	</tr>
	<tr> 
		<td height="25" align="center"> 
			<table width="740" border="0" cellspacing="1" cellpadding="0" class="boardtext03">
				<tr bgcolor="skyblue">
					<td width="100" height="30" align="center">巩狼盒具</td>
					<td width="350" align="center">力格</td>
					<td width="150" align="center">巩狼 朝楼</td>
					<td width="100" align="center">巩狼磊</td>
					<td width="50" align="center">翠函咯何</td>
				</tr>

			<%DO UNTIL rs.Eof OR rs.Bof
				idx = rs("idx")
				qdate = rs("qdate")
				title = rs("title")
				userid = rs("userid")
				category = rs("category")
				ansyorn = rs("ansyorn")
				%>

				<tr bgcolor="#CCCCCC">
					<td width="100" height="25" align="center">
					<%
					select case category
					case 1
					response.write "荤捞飘捞侩"
					case 2
					response.write "霸烙角青"
					case 3
					response.write "滚弊府器飘"
					end select
					%></td>
					<td width="350" align="left">&nbsp;<a href="inquiry_view.asp?idx=<%=idx%>&page=<%=page%>"><%=title%><%if cstr(left(now,10))=cstr(left(qdate,10)) then %>&nbsp;<img src="/community/images/new.gif" border=0><%end if%></a></td>
					<td width="150" align="center"><%=qdate%></td>
					<td width="100" align="center"><%=userid%></td>
					<td width="50" align=center> 
						<%
						select case ansyorn
						case 0
						response.write "X"
						case 1
						response.write "O"
						end select
						%>
					</td>
				</tr>

				<%
				IndexCount=IndexCount+1
				rs.MOVENEXT
				LOOP
				%>
				
				<tr bgcolor="#CCCCCC">
					<td colspan=7 align=center>
					<br>

					<% 	
					Blockpage=Int((Page-1)/10)*10 + 1
					If Blockpage = 1 Then
					%> 
					⑿
					<%		
					Else
					%>
					<a href="javascript:go_page('1')">1Page</a>
					<a href="javascript:go_page('<%=blockPage-10%>')">⑿</a>
					<%
					End If	

					Count=1

					Do Until (Count > 10 Or Blockpage > Cint(TotalPage))

					If Blockpage=Cint(Page) Then
					%>
					&nbsp;[<font class=blue><%=Blockpage%></font>]&nbsp;
					<%
					Else
					%> 
					&nbsp;<a href="javascript:go_page('<%=Blockpage%>')"><%=Blockpage%></a>&nbsp;
					<%
					End If

					Blockpage=Blockpage+1
					Count = Count + 1	
					Loop

					If Blockpage > Cint(TotalPage) Then
					%> 
					⒀
					<%				
					Else
					%> 
					<a href="javascript:go_page('<%=Blockpage%>')">⒀</a> 
					<a href="javascript:go_page('<%=TotalPage%>')">	Last page</a>
					<%
					End If

					Set Conn	=	Nothing
					%>

					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</form>
	
<%
else%>

	鞠帛滴 矿栋咯~~~!!!

<%
end if%>
                              
<!-- #include virtual="/admin/admin_bottom.asp" -->