📄 selectyezhu.asp
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "b"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Date.asp"-->
<%
SearchText=replace(trim(request("SearchText")),"'","''")
set rs=Server.CreateObject("ADODB.RecordSet")
if trim(request("dele"))="yes" then
conn.execute("delete from tblYeZhuBase where ID="&trim(request("ID")))
end if
sql="select * from tblYeZhuBase where Name like '%"&SearchText&"%' or Zerenren like '%"&SearchText&"%' or Lianxiren like '%"&SearchText&"%' or Tel like '%"&SearchText&"%' or Address like '%"&SearchText&"%' or Fax like '%"&SearchText&"%' or EMail like '%"&SearchText&"%' or PostCode like '%"&SearchText&"%' or LoginName like '%"&SearchText&"%' order by ID"
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=16
pagesize=rs.pagesize
pagecount=rs.pagecount
absolutepage=trim(request("absolutepage"))
if absolutepage=empty then
absolutepage=1
else
rs.absolutepage=absolutepage
end if
total=rs.recordcount
end if
Num=cint(absolutepage-1)*pagesize
%>
<html>
<head>
<title>选择业主</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../css/main.css">
<style>
td {font-size:9pt;
font-family:宋体;
}
</style>
<script language="JavaScript" src="../../Script/CommFunc.js"></script>
<script language="JavaScript">
//判断是否选择，如果已选择则不加入；
function CheckRepeat()
{
for(var i=0;i<frm.LoginName.length;i++){
if(frm.LoginName[i].checked){
window.opener.form1.LoginName.value=window.frm.LoginName[i].value;
window.opener.form1.YeZhu_Unit.value=window.frm.Name[i].value;
window.opener.form1.Yezhu_Zerenren.value=window.frm.Zerenren[i].value;
window.opener.form1.YeZhu_Lianxiren.value=window.frm.Lianxiren[i].value;
window.opener.form1.Yezhu_Tel.value=window.frm.Tel[i].value;
window.opener.form1.Yezhu_Add.value=window.frm.Address[i].value;
window.opener.form1.Yezhu_PostCode.value=window.frm.PostCode[i].value;
window.opener.form1.Yezhu_Fax.value=window.frm.Fax[i].value;
window.opener.form1.Yezhu_EMail.value=window.frm.EMail[i].value;
}
}
}
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="2" topmargin="2">
<form action="SelectYeZhu.asp" name="frm" method="POST">
<table width="332" border="1" cellspacing="0" cellpadding="3" bordercolorlight="#6699FF" bordercolordark="#FFFFFF" align="center">
<tr>
<td align=center><input type=text name=SearchText value="<%=SearchText%>" size=20 style="font-size:9pt;">
<input type=submit name=submit value="查询" style="font-size:9pt;"></td>
</tr>
<TR>
<TD align="center" colspan=2 style="line-height:12pt;"><%=rs.recordcount%>条/<%=rs.pagecount%>页 每页<%=rs.pagesize%>条，第<%=absolutepage%>页
<% if cint(absolutepage)>1 then %>
<a href="SelectYeZhu.asp?SearchText=<%=SearchText%>&absolutepage=1">第一页</a>
<% else %>
<font color=#888888>第一页</font>
<% end if %>
<% if cint(absolutepage)>1 then %>
<a href="SelectYeZhu.asp?SearchText=<%=SearchText%>&absolutepage=<%=absolutepage-1%>">上页</a>
<% else %>
<font color=#888888>上页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="SelectYeZhu.asp?SearchText=<%=SearchText%>&absolutepage=<%=absolutepage+1%>">下页</a>
<% else %>
<font color=#888888>下页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="SelectYeZhu.asp?SearchText=<%=SearchText%>&absolutepage=<%=pagecount%>">最后一页</a>
<% else %>
<font color=#888888>最后一页</font>
<% end if %></TD>
</TR>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
if not rs.eof then
for i=1 to 16
if not rs.eof then
num=num+1
%>
<tr>
<td width="3%" align=right><%=num%></td>
<td width="5%" align=center><input type="radio" name="LoginName" value="<%=trim(rs("LoginName"))%>"></td>
<td align=left><a href="#" onclick="OpenNewWin('Detailw.asp?ID=<%=rs("ID")%>&SearchText=<%=SearchText%>','Detailw','left=100,top=100,height=180,width=580,toolbar=no,menubar=no,scrollbars=no');"><%=replace(trim(rs("Name")),SearchText,"<font color=red>"&SearchText&"</font>")%></a>
<input type="hidden" name="Name" value="<%=trim(rs("Name"))%>">
<input type="hidden" name="Zerenren" value="<%=trim(rs("Zerenren"))%>">
<input type="hidden" name="Lianxiren" value="<%=trim(rs("Lianxiren"))%>">
<input type="hidden" name="Tel" value="<%=trim(rs("Tel"))%>">
<input type="hidden" name="Fax" value="<%=trim(rs("Fax"))%>">
<input type="hidden" name="Address" value="<%=trim(rs("Address"))%>">
<input type="hidden" name="PostCode" value="<%=trim(rs("PostCode"))%>">
<input type="hidden" name="EMail" value="<%=trim(rs("EMail"))%>">
</td>
</tr>
<%
rs.movenext
else
exit for
end if
next
end if
%>
</table>
</td>
</tr>
<TR>
<TD align="center" colspan=2 style="line-height:12pt;"><%=rs.recordcount%>条/<%=rs.pagecount%>页 每页<%=rs.pagesize%>条，第<%=absolutepage%>页
<% if cint(absolutepage)>1 then %>
<a href="SelectYeZhu.asp?SearchText=<%=SearchText%>&absolutepage=1">第一页</a>
<% else %>
<font color=#888888>第一页</font>
<% end if %>
<% if cint(absolutepage)>1 then %>
<a href="SelectYeZhu.asp?SearchText=<%=SearchText%>&absolutepage=<%=absolutepage-1%>">上页</a>
<% else %>
<font color=#888888>上页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="SelectYeZhu.asp?SearchText=<%=SearchText%>&absolutepage=<%=absolutepage+1%>">下页</a>
<% else %>
<font color=#888888>下页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="SelectYeZhu.asp?SearchText=<%=SearchText%>&absolutepage=<%=pagecount%>">最后一页</a>
<% else %>
<font color=#888888>最后一页</font>
<% end if
rs.close
%></TD>
</TR>
<tr>
<td align="right">
<input type="button" value="确定" OnClick="JavaScript:CheckRepeat();self.close();"></td>
</tr>
</table>
</form>
</body>
</html>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -