?? default.asp
字號(hào):
<!--#include file="../Session.asp"-->
<html>
<head>
<title>熱點(diǎn)管理</title>
<script language=javascript>
<!--
function change(ckb,tag){
if (ckb.checked)
{tag.value=1;
}
else
{
tag.value=0;form1.selectall.checked=false;}
}
function checkall(form){
if (form.selectall.checked==true){ val = 1; } else { val = 0; }
for (var i=0; i<form.elements.length; i++){
var e = form.elements[i];
var t = e.name;
if (t.substr(0,4) == 'ckb_') { e.checked = form.selectall.checked; }
if (t.substr(0,4) == 'Tag_') { e.value = val; }
}
}
/* --- 刪除所選取的期號(hào) --- */
function del_sel(form) {
var delcount = 0
for (var i=0; i<form.elements.length; i++) {
var e = form.elements[i];
var t = e.name;
if (t.substr(0,4) == 'ckb_'){
if (e.checked == true){
delcount = 1;
break;
}
}
}
if (delcount<=0)
{
window.alert("你到底要?jiǎng)h除那一條呢！");
return false;
}
if (!confirm("你確實(shí)想刪除所選取的紀(jì)錄嗎？"))
{ return false; }
form.action ="Del.asp";
form.submit();
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="form1" method="post" action="Default.asp">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="50" colspan="7" align="center" class="tdstyle"><strong><font color="#000000" size="3">熱點(diǎn)管理｜</font><font size="3"><a href="Add.asp"><strong>添加</strong></a></font></strong></td>
</tr>
<%sql="select * from hotpro where TextId=0 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td height=25 colspan=7 align=center class=text>沒有紀(jì)錄，請(qǐng)及時(shí)添加！</td></tr>"
'response.end
else
rs.pagesize=18
countpage=rs.pagecount
if request("page")="" or IsNumeric(request("page"))=False then
page = 1
else
page=int(request("page"))
end if
if int(page)>countpage then
page=countpage
end if
rs.absolutepage=page%>
<tr>
<td width="40%" height="25" align="center" class="tdstyle"><strong>標(biāo) 題</strong></td>
<td width="30%" align="center" class="tdstyle"><strong>鏈 接</strong></td>
<td width="12%" align="center" class="tdstyle"><strong>位 置</strong></td>
<td width="10%" align="center" class="tdstyle"><strong>顯 示</strong></td>
<td width="8%" align="center" class="tdstyle"><strong>刪 除</strong></td>
</tr>
<% do while not rs.eof
Id=rs(0)%>
<tr>
<td height="20" align="center" class="tdstyle" ><a href=../../<%=rs("links")%> target="_blank"><%= rs("texts")%></a> </td>
<td align="center" class="tdstyle"> <%=rs("links")%></td>
<td align="center" class="tdstyle">
<%if rs("BigId")<>"0" then
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql="select BCName from BigClass where BigId="&rs("BigId")&""
rs2.open sql,conn,0,1
Response.Write(""&rs2("BCName")&"")
rs2.close
else
Response.Write("首頁")
end if%>
</td>
<td align="center" class="tdstyle">
<%ifshow=rs("ifshow")
if ifshow=True then
%>
<input name="submit1" type="button" class="button5" value="是" onClick="if(confirm('您確定要改變嗎?')) location.href='Ifshow.asp?id=<%=Id%>&ifshow=<%=ifshow%>&page=<%=page%>'">
<%else%>
<input name="submit1" type="button" class="button4" value="否" onClick="if(confirm('您確定要改變嗎?')) location.href='Ifshow.asp?id=<%=Id%>&ifshow=<%=ifshow%>&page=<%=page%>'">
<%end if%>
</td>
<td align="center" class="tdstyle">
<input type="checkbox" name="ckb_<%=i%>" onClick="change(ckb_<%=i%>,Tag_<%=i%>)">
<input type="hidden" name="ID_<%=i%>" value="<%=Id%>">
<input type="hidden" name="Tag_<%=i%>" value="0"></td>
</tr>
<%i=i+1
rs.movenext
if i>=rs.pagesize then exit do
loop
%>
<tr>
<td height="30" colspan="3" align="center" class="tdstyle"> 共[<strong><font color="#FF0000"><%=countpage%></font></strong>]頁 現(xiàn)處于[<strong><font color="#FF0000"><%=page%></font></strong>]頁 <a href=Default.asp?page=1><font face="Arial, Helvetica, sans-serif">首頁</font></a>
<font face="Arial, Helvetica, sans-serif"><a href=Default.asp?page=<%if page-1<1 then response.write page else response.write page-1 end if%>>上一頁</a>
<a href=Default.asp?page=<%if page+1>countpage then response.write page else response.write page+1 end if%>>下一頁</a>
<a href=Default.asp?page=<%=countpage%>>尾頁</a>
轉(zhuǎn)到 </font>
<input name="page" type="text" class="input1" size="3">
<input name="Submit" type="submit" class="button" value="轉(zhuǎn)到">
</td>
<td colspan="3" align="center" class="tdstyle">全部選取
<input type="checkbox" value="on" name="selectall" onClick="checkall(this.form)">
<input name="delselect" type="button" class="button" onClick="return del_sel(this.form)" value="刪除">
</td>
</tr>
</table>
<%end if%>
</form>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -