📄 index.asp
字号:
<%
function opendb(DBPath,sessionname,dbsort)
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
set opendb=session(sessionname)
end function
%>
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<script>
</script>
<!--#include file="check.asp"-->
<!--#include file="const.inc"-->
<html>
<head>
<title>scroll menu</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/eintrdemo.css">
<script>
<!--
function js_openpage(url) {
var newwin=window.open(url,"NewWin","toolbar=no,resizable=yes,location=no,directories=no,status=no,menubar=no,scrollbars=yes,top=220,left=220,width=500,height=310");
// newwin.focus();
return false;
}
function del(url)
{
if (confirm("是否要删除此电话信息"))
{
window.open(url,"NewWin","toolbar=no,resizable=yes,location=no,directories=no,status=no,menubar=no,scrollbars=yes,top=220,left=220,width=450,height=200");
}
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0"
onLoad="MM_preloadImages('images/add_on.gif','images/modify_on.gif','images/delete_on.gif','images/add_on.gif','images/search_on.gif','images/showall_on.gif')">
<% if request.querystring("sele")="all" then
session("sqlstr_food")=""
end if
if not isempty(request.querystring("page")) then
currpage=cint(request.querystring("page"))
end if
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set rs=server.CreateObject ("adodb.recordset")
sqlstr="select * from pubfood "
if session("sqlstr_food")<>"" then
sqlstr=sqlstr & session("sqlstr_food")
else
if not isempty(request.form("seler")) then
sqlstr=sqlstr & " where "
select case request.form("seler")
case "hname"
sqlstr_add=" hname like '%"&request.form("selecttext")&"%' "
case "city"
sqlstr_add=" city like '%"&request.form("selecttext")&"%' "
end select
session("sqlstr_food")=" where " &sqlstr_add
sqlstr=sqlstr & sqlstr_add
end if
end if
rs.open sqlstr,conn,1,1
alls=rs.Recordcount
if Request.QueryString("allnum")<>"" OR Request.QueryString("allnum")<>null then
session("maxpage")=Cint(Request.QueryString("allnum"))
else
session("maxpage")=18
end if
maxpage=session("maxpage")
'判断共有几页
if (alls mod maxpage)=0 then
pagesum=alls\maxpage
else
pagesum=alls\maxpage+1
end if
'判断当前页
if Request.QueryString("page")<>"" or Request.QueryString("page")<>null then
session("currpage")=Cint(Request.QueryString("page"))
else
session("currpage")=1
end if
currpage= session("currpage")
'把光标移到当前页的第一条记录
if Not rs.Eof then
rs.Move (currpage-1)*maxpage
end if %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="heading" bgcolor="#4e5960" colspan="2" height="4"></td>
</tr>
<tr>
<td class="heading" bgcolor="#4e5960" colspan="2"> <font color="#FFFFFF"><b>衣食住行</b></font></td>
</tr>
<tr>
<form method="post" name="sele" action="index.asp" onsubmit="return ckse()">
<td valign="top" height="332">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr bgcolor="#999999">
<td colspan="6" class="heading">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="2%" align="right"><img src="images/adorn.gif" width="10" height="18"></td>
<td align="left">
<% if foot_admin=1 then %>
<a href="add.asp" onClick='return js_openpage(this.href);' onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image5','','images/add_on.gif',1)">
<img name="Image5" border="0" src="images/add_off.gif" width="60" height="19" hspace="5"></a>
<% end if %>
</td>
<td align="right">
<% if (currpage > 1) then%>
<a href="index.asp?page=<%=currpage-1%>">上页
<%end if%>
</a>
<% if (currpage < pagesum) then %>
<a href="index.asp?page=<%=currpage+1%>">下页
<% end if %>
</a> 第<%=currpage%>页/共<%=pagesum%>页 共<%=alls%>条
</td>
<td width="3%"><img src="images/adorn.gif" width="10" height="18"></td>
</tr>
</table>
</td>
</tr>
<% If alls>0 then %>
<tr bgcolor="#bfbfbf">
<td width="20%"><b>宾馆名称</b></td>
<td width="15%"><b>所在城市</b></td>
<td width="15%"><b>联系电话</b></td>
<td width="30%"><b>地址</b></td>
<% if foot_admin=1 then %>
<td width="10%" align="center"><b>修改</b></td>
<td width="10%" align="center"><b>删除</b></td>
<% end if %>
</tr>
<% for i=1 to maxpage
if rs.eof then
exit for
else %>
<tr>
<td width="20%" bgcolor="#efefef"><%=rs("Hname")%></td>
<td width="15%" bgcolor="#efefef"><%=rs("city")%></td>
<td width="15%" bgcolor="#efefef"><%=rs("phone")%></td>
<td width="30%" bgcolor="#efefef"><%=rs("address")%></td>
<% if foot_admin=1 then %>
<td width="10%" align="center" bgcolor="#efefef"><a href="modify.asp?id=<%=rs("id")%>" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image<%=i+20%>','','images/modi_2.gif',1)" onClick='return js_openpage(this.href);'><img name="Image<%=i+20%>" border="0" src="images/modi_1.gif" width="14" height="16"></a></td>
<td width="10%" align="center" bgcolor="#efefef"><a href="javaScript:del('delete.asp?id=<%=rs("id")%>')" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image<%=i+100%>','','images/dele_2.gif',1)"><img name="Image<%=i+100%>" border="0" src="images/dele_1.gif" width="14" height="16"></a></td>
<% end if %>
</tr>
<% rs.movenext
end if
next%>
<!--记录数为零时-->
<% else %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="#efefef" align="right" > 没有找到任何信息 请按 </td>
<td bgcolor="#efefef" align="left"><a href="index.asp?sele=all" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image81','','images/showall_on.gif',1)"><img name="Image81" border="0" src="images/showall_off.gif" width="85" height="19"></a>
</td>
</tr>
<% response.end
end if%>
</table>
<table width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td bgcolor="#BFBFBF" valign="middle" align="center" width="11%">
<p align="left">
<% if session("sqlstr_food")<>"" then %>
<a href="index.asp?sele=all" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image7','','images/showall_on.gif',1)"><img name="Image7" border="0" src="images/showall_off.gif" width="85" height="19">
<% else %>
</a>
<script language="Javascript">
function ckse() {
if (sele.selecttext.value=="") { alert ("请输入查询内容！"); sele.selecttext.focus(); return false; }
}
</script>
查询：
</p>
</td>
<td bgcolor="#BFBFBF" valign="middle" align="center" width="16%">
<select size="1" name="seler">
<option value="hname">宾馆名称</option>
<option value="city">所在城市</option>
</select>
</td>
<td bgcolor="#BFBFBF" valign="middle" align="center" width="4%">为</td>
<td bgcolor="#BFBFBF" valign="middle" align="center" width="16%">
<input type="text" name="selecttext" size="10" maxlength="12">
</td>
<td bgcolor="#BFBFBF" valign="middle" width="53%"> <a href="javascript:document.sele.submit();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image8','','images/search_on.gif',1)"><img name="Image8" border="0" src="images/search_off.gif"></a>
<% end if %>
</td>
</tr>
</table>
</form>
<!--判断是否要继续添加数据-->
<% if request.querystring("add")="judge" then %>
<script Language="javaScript">
if (confirm(" ** 是否要继续添加信息 **"))
{
newwin=window.open("add.asp","NewWin","toolbar=no,resizable=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,top=220,left=220,width=450,height=200");
}
</script>
<% end if %>
</table>
</body>
<% rs.close
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -