freeusercompany.asp

英文版全站B2B仿阿里巴巴贸易平台网站,全英文

<%
	if instr(session("EAPurview"),"06")=0 then
		response.redirect "../login.asp"
		response.end
	end if
%>
<!--#include file="../../Inc/DBConn1.asp" -->
<LINK href="../../CSS/style.css" rel="stylesheet" type="text/css"></LINK>

<script language="javascript">
	function show_set(mylink)
	{
		window.open(mylink,'new','top=110,left=280,width=240,height=120,scrollbars=no')
	}
</script>

<%	
	if request("action")="noaud" then
		conn.execute("update UserCompany set Flag=0 where UID=" & request("UID"))
	end if
%>

<%	
	if request("action")="del" then
		conn.execute("delete from UserCompany where UID=" & request("UID"))
	end if
%>
<center>
	<TABLE border="0" cellPadding="0" cellSpacing="0" align="center" width="100%" ID="Table1">
		<Form name="Form1" method="POST" action="FreeUserCompany.asp">
			<TR>
				<td>
					<IMG align=absbottom border="0" src="../../images/search.gif">
					搜索关键字：<input type="text" name="SearchText" size="16" value="<%=trim(request("SearchText"))%>">
					<INPUT align=absmiddle border="0" src="../../images/search1.gif" type="image">
				</td>
			</TR>
			<tr>
				<td height=10></td>
			</tr>
		</Form>
	</TABLE>
	<TABLE border="0" cellspacing="1" width="100%" cellpadding="4" ID="Table2">
		<TR height=30 bgcolor="#F78200"> 
			<TD width="10%" align="center"><font color="#FFFFFF"><b>ID号</b></font></TD>
			<TD width="15%" align="center"><font color="#FFFFFF"><b>用户名</b></font></TD>
			<TD width="30%" align="center"><font color="#FFFFFF"><b>企业名称</b></font></TD>
			<TD width="10%" align="center"><font color="#FFFFFF"><b>企业名片</b></font></TD>
			<TD width="15%" align="center"><font color="#FFFFFF"><b>审核</b></font></TD>
			<TD width="10%" align="center"><font color="#FFFFFF"><b>操作</b></font></TD>
			<TD width="10%" align="center"><font color="#FFFFFF"><b>删除</b></font></TD>
		</TR>
		<%
			SearchText=trim(request("SearchText"))
			
			set Rs=server.CreateObject("ADODB.Recordset")
			Rs.open "Select * from UserCompany where Flag=1 and Grade=1 and (UserName like '%" & SearchText & "%' or CompanyName like '%" & SearchText & "%' or Explain like '%" & SearchText & "%') order by UID desc",Conn,3,3
			Rs_Rows=20
			Rs.PageSize=Rs_Rows
			Rs_Total=Rs.RecordCount
			Page_Total=Rs.PageCount
			CurrentPage=1
			if (request.QueryString("CurrentPage")<>"" and isnumeric(request.QueryString("CurrentPage")) and request.QueryString("CurrentPage")>=1) then CurrentPage=request.QueryString("CurrentPage")
			PageBegin=(CurrentPage-1)*Rs_Rows+1
			PageEnd=PageBegin+Rs_Rows-1
			if PageEnd>Rs.RecordCount then PageEnd=Rs.RecordCount
			if Rs.recordCount<>0 then Rs.AbsolutePage=CurrentPage
			if Not(Rs.bof and Rs.eof) then
				while (not Rs.eof) and (PageBegin<=PageEnd)
		%>
		<TR height=23 <%if PageBegin mod 2=1 then%> bgcolor="#F6F6F6" <%else%> bgcolor="#FFFFFF" <%end if%>> 
			<TD width="10%" align="center"><%=Rs("UID")%></TD>
			<TD width="15%" align="left"><a href="EditUser.asp?UID=<%=Rs("UID")%>"><%=Rs("UserName")%></a></TD>
			<TD width="30%" align="left"><a href="EditCompany.asp?UID=<%=Rs("UID")%>"><%=Rs("CompanyName")%></a></TD>
			<TD width="10%" align="center"><a href="../../Company/CompanyDetail.asp?UID=<%=Rs("UID")%>" target=_blank>企业名片</a></TD>
			<TD width="15%" align="center"><a href="FreeUserCompany.asp?CurrentPage=<%=CurrentPage%>&SearchText=<%=SearchText%>&action=noaud&UID=<%=Rs("UID")%>">撤消审核</a></TD>
			<TD width="10%" align="center"><a href='javascript:show_set("SetGrade.asp?UID=<%=rs("UID")%>")'>设置等级</a></TD>
			<TD width="10%" align="center"><a href="FreeUserCompany.asp?CurrentPage=<%=CurrentPage%>&SearchText=<%=SearchText%>&action=del&UID=<%=Rs("UID")%>" onclick="return confirm('确定要删除此用户吗？')">删除</a></TD>
		</TR>
		<%
					PageBegin=PageBegin+1
					Rs.movenext
				wend
			else
		%>
		<tr height=50>
			<td colspan=7 align=center>没有您查找的用户！</td>
		</tr>
		<%
			end if
			Rs.close
		%>
		<TR height=30 bgcolor="#F78200"> 
			<TD colspan=7 align=center style="color:#FFFFFF;">
				<%
					if Page_Total=0 then
						CurrentPage=0
					end if
				%>
				（共 <%=Page_Total%>  页，第 <%=CurrentPage%> 页，共检索到 <%=Rs_Total%> 条记录）
				<%
					if Cint(CurrentPage)<>1 and Page_Total<>0 then
						response.Write "<a href='FreeUserCompany.asp?CurrentPage=1&SearchText=" & SearchText & "' class=Head1>首页</a>"
					else
						response.Write "首页"
					end if
				%>&nbsp;
				<%
					if Cint(CurrentPage)<>1 and Page_Total<>0 then
						response.Write "<a href='FreeUserCompany.asp?CurrentPage=" & currentPage-1 & "&SearchText=" & SearchText & "' class=Head1>上一页</a>"
					else
						response.Write "上一页"
					end if
				%>&nbsp;
				<%
					if Cint(CurrentPage)<>Page_Total and Page_Total<>0 then
						response.Write "<a href='FreeUserCompany.asp?CurrentPage=" & currentPage+1 & "&SearchText=" & SearchText & "' class=Head1>下一页</a>"
					else
						response.Write "下一页"
					end if
				%>&nbsp;
				<%
					if Cint(CurrentPage)<>Page_Total and Page_Total<>0 then
						response.Write "<a href='FreeUserCompany.asp?CurrentPage=" & Page_Total & "&SearchText=" & SearchText & "' class=Head1>尾页</a>"
					else
						response.Write "尾页"
					end if
				%>&nbsp;
			</TD>
		</TR>
	</table>
</center>