📄 list.asp
字号:
<tr align="center">
<td colspan="5" class="T01">
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="38%">
<p>
<script language=javascript>
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name == 'shop') e.checked = form.chkall.checked;
}
}
function sum1(){
document.form1.astid.value ="1" ;
{if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}
this.form.submit
}
function sum2(){
document.form1.astid.value ="2" ;
{if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}
this.form.submit
}
//-->
</script>
<input type="checkbox" name="chkall" value="checkbox" onClick="onclick=CheckAll(this.form)">
全选
<input name="Submit" type="submit" class="button" value="删除" onClick="sum1()">
<input name="Submit" type="submit" class="button" value="修改" onClick="sum2()">
<input name="Submit" type="reset" class="button" value="重置">
<input name="astid" type="hidden" size="1" maxlength="10">
<span class="style1">可以显示25条信息</span></p> </td>
<td align="right" width="62%">
<strong>>>分页 </strong>
<a href="?pageno=1&listdgdisplay=<%=listdgdisplay%>">首页</a>
<%
if pageno=1 or pageno="" then
%>
<font color="#a1a1a1">上一页</font>
<%else%>
<a href="?pageno=<%=pageno-1%>&listdgdisplay=<%=listdgdisplay%>">上一页</a>
<%end if%>
<%
'response.write rs02.pagecount
if cint(pageno) = rs02.pagecount then
%>
<font color="#a1a1a1">下一页</font>
<%else%>
<a href="?pageno=<%=pageno+1%>&listdgdisplay=<%=listdgdisplay%>">下一页 </a>
<%end if%>
<a href="?pageno=<%=rs02.pagecount%>&listdgdisplay=<%=listdgdisplay%>">尾页 </a>
页次: <strong><%=pageno%> </strong>/ <strong><%=rs02.pagecount%> </strong>页 <strong>15 </strong>个记录/页 </td>
</tr>
</table>
</td>
</tr>
<%
end sub
%>
<%
sub listguojijp(quomodo)
pageno=request.form("pageno")
if pageno="" then
pageno=request.QueryString("pageno")
if pageno="" then
pageno=1
end if
end if
set rs=server.CreateObject("adodb.recordset")
if cint(quomodo)=1 then
sql="select * from guojijp order by id desc"
elseif cint(quomodo)=2 then
sql="select * from studentjp"
end if
rs.open sql,conn,1,1
rs.pagesize=15
if not rs.eof then
rs.absolutepage=pageno
end if
if cint(pageno)>rs.pagecount and cint(pageno)<> 1 then
response.write "<script language=javascript>"&chr(13)&"alert('分页超出或查询项目为空')"&chr(13)&"history.back()</script>"
response.end
end if
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr align="center" bgcolor="#FFFFFF">
<td class="T01"><input type="checkbox" name="shop" value="<%=rs("id")%>"></td>
<td class="T02">
<select name="display<%=rs("id")%>" class="input" id="display<%=rs("id")%>">
<option value="1" <% if(rs("display")= 1) then response.write "selected" end if%>>是</option>
<option value="2" <% if(rs("display")= 2) then response.write "selected" end if%>>否</option>
</select>
</td>
<td class="T02">
<select name="groom<%=rs("id")%>" class="input" id="groom<%=rs("id")%>">
<option value="1" <% if(rs("groom")= 1) then response.write "selected" end if%>>是</option>
<option value="2" <% if(rs("groom")= 2) then response.write "selected" end if%>>否</option>
</select>
</td>
<td class="T04">
<select name="leaveguoji<%=rs("id")%>" class="input">
<%
set rs01=server.CreateObject("adodb.recordset")
%>
<%
sql01="select cityid from leaveguoji"
rs01.open sql01,conn,1,1
do while not rs01.eof
%>
<option value="<%=rs01("cityid")%>" <% if(rs("cityid")= rs01("cityid")) then response.write "selected" end if%>><%=rs01("cityid")%></option>
<%
rs01.movenext
loop
%>
</select>
</td>
<td class="T04">
<select name="jplist<%=rs("id")%>" class="input">
<option value="顶级分类">顶级分类</option>
<%
set rs3=server.CreateObject("adodb.recordset")
sql="select id,cityid from cityid where getid = 0 and getid02=0"
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<option value="<%=rs3("cityid")&","%>"","","><%=rs3("cityid")%></option>
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select id,cityid from cityid where getid ='"&rs3("id")&"' and getid02=0"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<option value="<%=rs3("cityid")&","%><%=rs1("cityid")&","%>"","> +<%=rs1("cityid")%></option>
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select id,cityid from cityid where getid ='"&rs3("id")&"' and getid02='"&rs1("id")&"'"
rs2.open sql2,conn,1,1
do while not rs2.eof
%>
<option value="<%=rs3("cityid")&","%><%=rs1("cityid")&","%><%=rs2("cityid")&","%>" <%if (rs2("cityid")=rs("cityid02")) then response.write "selected" end if%>> ++<%=rs2("cityid")%></option>
<%
rs2.movenext
loop
%>
<%
rs1.movenext
loop
%>
<%
rs3.movenext
loop
%>
</select>
</td>
<td class="T04">
<select name="aerodrome<%=rs("id")%>" class="input">
<%
set rs02=server.CreateObject("adodb.recordset")
%>
<%
sql02="select aerodrome from aerodrome"
rs02.open sql02,conn,1,1
do while not rs02.eof
%>
<option value="<%=rs02("aerodrome")%>" <% if(rs("aerodrome")= rs02("aerodrome")) then response.write "selected" end if%>><%=rs02("aerodrome")%></option>
<%
rs02.movenext
loop
%>
</select></td>
<td class="T05"><span class="T03">
<input name="oneway<%=rs("id")%>" type="text" class="input" value="<%=rs("oneway")%>" size="6">
</span></td>
<td class="T05"><span class="T03">
<input name="leavetime<%=rs("id")%>" type="text" class="input" size="15" value="<%=rs("leavetime")%>">
</span></td>
<td class="T07"><a href="web_guojijp_edit.asp?id=<%=rs("id")%>">[编辑]</a></td>
</tr>
<%
rs.movenext
next
%>
<tr align="center">
<td colspan="9" class="T01">
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="38%">
<p>
<script language=javascript>
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name == 'shop') e.checked = form.chkall.checked;
}
}
function sum1(){
document.myform.astid.value ="1" ;
{if(confirm('您确定执行的操作吗?')){this.document.myform.submit();return true;}return false;}
this.form.submit
}
function sum2(){
document.myform.astid.value ="2" ;
{if(confirm('您确定执行的操作吗?')){this.document.myform.submit();return true;}return false;}
this.form.submit
}
//-->
</script>
<input type="checkbox" name="chkall" value="checkbox" onClick="onclick=CheckAll(this.form)">
全选
<input name="Submit" type="submit" class="button" value="删除" onClick="sum1()">
<input name="Submit" type="submit" class="button" value="修改" onClick="sum2()">
<input name="Submit" type="reset" class="button" value="重置">
<input name="astid" type="hidden" size="1" maxlength="10">
<span class="style1">可以显示25条信息</span></p> </td>
<td align="right" width="62%">
<strong>>>分页 </strong>
<a href="?pageno=1&listdgdisplay=<%=listdgdisplay%>">首页</a>
<%
if pageno=1 or pageno="" then
%>
<font color="#a1a1a1">上一页</font>
<%else%>
<a href="?pageno=<%=pageno-1%>&listdgdisplay=<%=listdgdisplay%>">上一页</a>
<%end if%>
<%
'response.write rs02.pagecount
if cint(pageno) = rs.pagecount then
%>
<font color="#a1a1a1">下一页</font>
<%else%>
<a href="?pageno=<%=pageno+1%>&listdgdisplay=<%=listdgdisplay%>">下一页 </a>
<%end if%>
<a href="?pageno=<%=rs.pagecount%>&listdgdisplay=<%=listdgdisplay%>">尾页 </a>
页次: <strong><%=pageno%> </strong>/ <strong><%=rs.pagecount%> </strong>页 <strong>15 </strong>个记录/页 </td>
</tr>
</table>
</td>
</tr>
<%
end sub
%>
<%
sub listhangkon(quomodo)
pageno=request.form("pageno")
if pageno="" then
pageno=request.QueryString("pageno")
if pageno="" then
pageno=1
end if
end if
set rs02=server.CreateObject("adodb.recordset")
if cint(quomodo)=1 then
sql02="select * from hangkon"
elseif cint(quomodo)=2 then
sql02="select * from leaveguonei"
end if
rs02.open sql02,conn,1,1
rs02.pagesize=15
if not rs02.eof then
rs02.absolutepage=pageno
end if
if cint(pageno)>rs02.pagecount and cint(pageno)<> 1 then
response.write "<script language=javascript>"&chr(13)&"alert('分页超出或查询项目为空')"&chr(13)&"history.back()</script>"
response.end
end if
for i=1 to rs02.pagesize
if rs02.eof then exit for
if cint(quomodo)=2 then
'cityid=rs02("aerodrome")
else
hangkon=rs02("hangkon")
end if
%>
<tr align="center" bgcolor="#FFFFFF">
<td class="T01"><input name="shop" type="checkbox" id="<%=rs02("id")%>" value="<%=rs02("id")%>"></td>
<td class="T02">
<select name="display<%=rs02("id")%>" class="input" id="display<%=rs02("id")%>">
<option value="1" <% if(rs02("display")= 1) then response.write "selected" end if%>>是</option>
<option value="2" <% if(rs02("display")= 2) then response.write "selected" end if%>>否</option>
</select>
</td>
<td class="T03">
<input name="hangkon<%=rs02("id")%>" type="text" class="input" id="hangkon<%=rs02("id")%>" value="<%=hangkon%>" size="30">
</td>
<td class="T07">
<a href="web_hangkon_edit.asp?id=<%=rs02("id")%>">[编辑]</a> </td>
</tr>
<%
rs02.movenext
next
%>
<tr align="center">
<td colspan="5" class="T01">
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="38%">
<p>
<script language=javascript>
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name == 'shop') e.checked = form.chkall.checked;
}
}
function sum1(){
document.form1.astid.value ="1" ;
{if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}
this.form.submit
}
function sum2(){
document.form1.astid.value ="2" ;
{if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}
this.form.submit
}
//-->
</script>
<input type="checkbox" name="chkall" value="checkbox" onClick="onclick=CheckAll(this.form)">
全选
<input name="Submit" type="submit" class="button" value="删除" onClick="sum1()">
<input name="Submit" type="submit" class="button" value="修改" onClick="sum2()">
<input name="Submit" type="reset" class="button" value="重置">
<input name="astid" type="hidden" size="1" maxlength="10">
<span class="style1">可以显示25条信息</span></p> </td>
<td align="right" width="62%">
<strong>>>分页 </strong>
<a href="?pageno=1&listdgdisplay=<%=listdgdisplay%>">首页</a>
<%
if pageno=1 or pageno="" then
%>
<font color="#a1a1a1">上一页</font>
<%else%>
<a href="?pageno=<%=pageno-1%>&listdgdisplay=<%=listdgdisplay%>">上一页</a>
<%end if%>
<%
'response.write rs02.pagecount
if cint(pageno) = rs02.pagecount then
%>
<font color="#a1a1a1">下一页</font>
<%else%>
<a href="?pageno=<%=pageno+1%>&listdgdisplay=<%=listdgdisplay%>">下一页 </a>
<%end if%>
<a href="?pageno=<%=rs02.pagecount%>&listdgdisplay=<%=listdgdisplay%>">尾页 </a>
页次: <strong><%=pageno%> </strong>/ <strong><%=rs02.pagecount%> </strong>页 <strong>15 </strong>个记录/页 </td>
</tr>
</table>
</td>
</tr>
<%
end sub
%>
<%
sub hangkonlist
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from hangkon where id="&id
rs.open sql,conn,1,1
%>
<form action="admin.asp?getkg=edithangkonmatter&id=<%=id%>" method="post" enctype="application/x-www-form-urlencoded" name="myform" target="_self" id="myform">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="e0e0e0">
<tr align="center" bgcolor="#FFFFFF">
<td width="16%" align="center" class="T02">标题</td>
<td width="84%" align="left" class="T03"><input name="hangkon" type="text" class="input" id="hangkon" value="<%=rs("hangkon")%>"></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td align="center" class="T02">内容</td>
<td width="84%" align="left" class="T03"><textarea name="content" cols="50" rows="6" id="content"><%=rs("matter")%></textarea></td>
</tr>
<tr align="center">
<td colspan="2" class="T01"><input name="Submit" type="submit" class="button" value="添加">
<input name="Submit" type="submit" class="button" value="重置">
</td>
</tr>
</table>
</form>
<%end sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -