inquire.asp

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

<%
	if instr(session("EAPurview"),"05")=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>
	function opendetail(url)
	{  
		var url;         
		window.open(url,'_blank','status=no,scrollbars=yes,top=150,left=200,width=500,height=500');  
	}
</script>

<%	
	if request("action")="del" then
		conn.execute("delete from Inquire where ID=" & request("ID"))
	end if
%>
<center>
	<TABLE border="0" cellPadding="0" cellSpacing="0" align="center" width="100%" ID="Table1">
		<Form name="Form1" method="POST" action="Inquire.asp" ID="Form1">
			<TR>
				<td width=100%>
					<IMG align=absbottom border="0" src="../../images/search.gif">
					搜索关键字：<input type="text" name="SearchText" size="16" value="<%=trim(request("SearchText"))%>" ID="Text1">
					<INPUT align=absmiddle border="0" src="../../images/search1.gif" type="image" ID="Image1" NAME="Image1">
				</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="25%" align="center"><font color="#FFFFFF"><b>询问标题</b></font></TD>
			<TD width="30%" 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")
			RsStr="select * from Inquire Where (Subject like '%" & SearchText & "%' or Message like '%" & SearchText & "%')"
			RsStr=RsStr & " Order By ID desc"
			Rs.open RsStr,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("ID")%></TD>
			<TD width="25%" align="left"><a href="javascript:opendetail('InquireDetail.asp?ID=<%=Rs("ID")%>');"><%=Rs("Subject")%></a></TD>
			<TD width="30%" align="center"><%if Rs("Sex")=true then%>Mr.<%else%>Ms.<%end if%>&nbsp;<%=Rs("FirstName")%>&nbsp;<%=Rs("LastName")%></TD>
			<TD width="15%" align="center"><%=FormatDatetime(Rs("MDate"),2)%></TD>
			<TD width="10%" align="center"><a href="javascript:;" onclick="javascript:window.open('SendMail.asp?ID=<%=Rs("ID")%>','SendMail','status=no,scrollbars=no,top=200,left=250,width=200,height=120')">发邮件</a></TD>
			<TD width="10%" align="center"><a href="Inquire.asp?CurrentPage=<%=CurrentPage%>&SearchText=<%=SearchText%>&action=del&ID=<%=Rs("ID")%>" onclick="return confirm('确定要删除这条信息吗？')">删除</a></TD>
		</TR>
		<%
					PageBegin=PageBegin+1
					Rs.movenext
				wend
			else
		%>
		<tr height=50>
			<td colspan=6 align=center>没有您查找的信息！</td>
		</tr>
		<%
			end if
			Rs.close
		%>
		<TR height=30 bgcolor="#F78200"> 
			<TD colspan=6 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='Inquire.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='Inquire.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='Inquire.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='Inquire.asp?CurrentPage=" & Page_Total & "&SearchText=" & SearchText & "' class=Head1>尾页</a>"
					else
						response.Write "尾页"
					end if
				%>&nbsp;
			</TD>
		</TR>
	</table>
</center>