📄 index.asp
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "e"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.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 ID,Name 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=20
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" type="text/css" href="../css/main.css">
</head>
<BODY bgColor=#996600>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="../image/top_2.jpg" width="750" height="80"></td>
</tr>
</table>
<div align="center"></div>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 width=750>
<TR>
<TD align=middle
style="BORDER-BOTTOM: #996600 1px solid; BORDER-LEFT: #996600 1px solid; BORDER-RIGHT: #996600 1px solid; BORDER-TOP: #996600 1px solid"
vAlign=top width="100%" bgcolor="#FFCC33" height="368">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR bgcolor="#FF9900">
<TD align=middle
style="BORDER-BOTTOM:1 solid #996600;" height="2"> </TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="362">
<tr>
<td width="17%" height="391" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="362">
<tr>
<td width="17%" height="391" valign="top">
<div align="center">
<br>
<!--#include file="../inc/Rights.asp"-->
</div>
</td>
<td width="83%" valign="top" align="center" height="391" style="border-left: 1px solid #996600" bgcolor="#FFFFCC">
<table width="520" border="0" cellspacing="0" cellpadding="0" style="BORDER-BOTTOM: 1px solid #996600">
<tr>
<td valign="bottom"><img src="../image/yezhu-1.gif" width="111" height="24"></td>
</tr>
</table>
<table width="520" border="0" cellspacing="0" cellpadding="0">
<form name=Searchform method=post action="">
<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>
<td valign="bottom" align="left" width=100>
<img src="../image/sub.gif" width="53" height="19" onclick="OpenWindow('AddYeZhu.asp','AddYeZhu');" style="cursor:hand">
</td>
</tr>
<TR>
<TD align="center" colspan=2>共<%=rs.recordcount%>条/<%=rs.pagecount%>页 每页<%=rs.pagesize%>条，第<%=absolutepage%>页
<% if cint(absolutepage)>1 then %>
<a href="index.asp?SearchText=<%=SearchText%>&absolutepage=1">第一页</a>
<% else %>
<font color=#888888>第一页</font>
<% end if %>
<% if cint(absolutepage)>1 then %>
<a href="index.asp?SearchText=<%=SearchText%>&absolutepage=<%=absolutepage-1%>">上页</a>
<% else %>
<font color=#888888>上页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="index.asp?SearchText=<%=SearchText%>&absolutepage=<%=absolutepage+1%>">下页</a>
<% else %>
<font color=#888888>下页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="index.asp?SearchText=<%=SearchText%>&absolutepage=<%=pagecount%>">最后一页</a>
<% else %>
<font color=#888888>最后一页</font>
<% end if %></TD>
</TR>
</form>
</table>
<table width="520" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#996600">
<tr bgcolor="#FF9900" align=center>
<td style="border-left:1 solid #996600;border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;" width="10%"><font color="#ffffff"><b>序号</b></font></td>
<td style="border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;" width="60%"><font color=#ffffff><b>业主名称</b></font></td>
<td style="border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;" width="15%"><font color=#ffffff><b>修改</b></font></td>
<td style="border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;" width="15%"><font color=#ffffff><b>删除</b></font></td>
</tr>
<%
if not rs.eof then
for i=1 to 20
if not rs.eof then
num=num+1
%>
<tr align=center>
<td style="border-left:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><%=Num%></td>
<td style="border-right:1 solid #996600;border-bottom:1 solid #996600;"><a href=# onclick="OpenWindow1('Detail.asp?ID=<%=rs("ID")%>&SearchText=<%=SearchText%>','Detail');"><%=replace(trim(rs("Name")),SearchText,"<font color=red>"&SearchText&"</font>")%></a></td>
<td style="border-right:1 solid #996600;border-bottom:1 solid #996600;"><a href=# onclick="OpenWindow('UpdateYeZhu.asp?ID=<%=rs("ID")%>','UpdateYeZhu');">修改</a></td>
<td style="border-right:1 solid #996600;border-bottom:1 solid #996600;"><a href="index.asp?ID=<%=rs("ID")%>&dele=yes" onclick="return CheckDelete();">删除</a></td>
</tr>
<%
rs.movenext
else
exit for
end if
next
end if
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="520" >
<TR>
<TD width="100%" align="center">共<%=rs.recordcount%>条/<%=rs.pagecount%>页 每页<%=rs.pagesize%>条，第<%=absolutepage%>页
<% if cint(absolutepage)>1 then %>
<a href="index.asp?SearchText=<%=SearchText%>&absolutepage=1">第一页</a>
<% else %>
<font color=#888888>第一页</font>
<% end if %>
<% if cint(absolutepage)>1 then %>
<a href="index.asp?SearchText=<%=SearchText%>&absolutepage=<%=absolutepage-1%>">上页</a>
<% else %>
<font color=#888888>上页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="index.asp?SearchText=<%=SearchText%>&absolutepage=<%=absolutepage+1%>">下页</a>
<% else %>
<font color=#888888>下页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="index.asp?SearchText=<%=SearchText%>&absolutepage=<%=pagecount%>">最后一页</a>
<% else %>
<font color=#888888>最后一页</font>
<% end if
rs.close
%></TD>
</TR>
<TR >
<TD><B>说明：</B>修改、添加项目业主的时候，要保证项目业主<font color="red">不重复</font>。</TD>
</TR>
</table>
</td>
</tr>
</table>
</TD>
</TR>
<td bgcolor="#FF9900" height="23">
</TABLE>
<script language=javascript>
function CheckDelete(){
return confirm("确实删除吗？");
}
function OpenWindow(url,windowname){
window.open(url,windowname,'left=100,top=100,height=220,width=580,toolbar=no,menubar=no,scrollbars=no')
}
function OpenWindow1(url,windowname){
window.open(url,windowname,'left=100,top=100,height=168,width=580,toolbar=no,menubar=no,scrollbars=no')
}
</script>
</BODY>
</HTML>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -