?? templinklist.asp
字號:
<%Server.ScriptTimeout=500%>
<%
id=1
%>
<!-- #include file=../database.asp -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
function CheckPassword()
sql="select * from ourusers where Ltrim(Rtrim(username))='supervisor'"
rs.open sql,conn,1,1
if not rs.eof then
if trim(rs("pass"))<>session("pass") then
response.write "<br>錯誤的密碼!"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
else
rs.close
end if
else
response.write "錯誤:用戶不存在!"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
end function
checkPassword()
%>
<!-- Design and Edit By QianFengyun 2000-5-20 -->
<!-- #include file=../change.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0041)http://www.china114net.com 中國114網 -->
<html>
<head>
<title><%=titlename%></title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link rel="stylesheet" type="text/css" href="../html/style.css">
<script language="javascript">
function singleDelete(id){
if (confirm('真的要刪除嗎?'))
this.location.href="deljoin.asp?id=<%=id%>&page=&submitType=0&fid="+id
}
function singleAdd2Essence(id){
if (confirm('Sure to add?'))
this.location.href="manage.asp?page=&submitType=1&selAnnounce="+id
}
function submitIt(t,theForm){
theForm.submitType.value=t
if (t==0){
if (confirm('真的要刪除嗎?'))
theForm.submit()
}
else{
if (confirm('Sure to add?'))
theForm.submit()
}
}
</script>
</HEAD>
<BODY topmargin=10 bgcolor=ccbbaa>
<%
pagen=50
page=request("page")
if isNumeric(page)=0 then
page=1
else
if page<1 then
page=1
else
page=int(page)
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from templink order by id"
Rs.open Sql,conn,1,1
dim flag
flag=0
if not Rs.eof then
flag=1
response.write "<form ACTION=deleteuser.asp?page=1 METHOD=POST NAME=frmManage>"
response.write "<input type=hidden name=submitType value=0>"
else
response.write "還沒有用戶"
Rs.close
set Rs=nothing
conn.close
set conn=nothing
response.end
end if
num=Rs.recordcount
maxpage=int(num/pagen)+1
if (num mod pagen)=0 then maxpage=maxpage-1
if int(page)>maxpage then page=maxpage
if int(page)>99999999 then page=int(num/pagen)+1
Rs.pagesize=pagen
Rs.absolutepage=page
Response.Write "<table width='100%' cellpadding='2' cellspacing='2'>"
Response.Write "<tr><td bgcolor='#cccccc'>共有網站: <strong>"&num&"</strong>"
if page>1 then
Response.Write " <a href=templinklist.asp?id="&id&"&page=1>首頁</a> "
else
Response.Write " <font color=888888>首頁</font> "
end if
if page>1 then
Response.Write " <a href=templinklist.asp?id="&id&"&page="&page-1&">前頁</a> "
else
Response.Write " <font color=888888>前頁</font> "
end if
if page<maxpage then
Response.Write " <a href=templinklist.asp?id="&id&"&page="&page+1&">后頁</a> "
else
Response.Write " <font color=888888>后頁</font> "
end if
if page<maxpage then
Response.Write " <a href=templinklist.asp?id="&id&"&page="&maxpage&">尾頁</a> "
else
Response.Write " <font color=888888>尾頁</font> "
end if
response.write " <strong>"&page&"</strong>/<strong>"&maxpage&"</strong> 每頁<strong>"&pagen&"</strong>條記錄 <a href=joinall.asp>全部加入</a> <a href=joinall.asp?flag=1>全部加入并刪除</a> <a href=dellall.asp?flag=1>全部刪除</a>"
response.write "</td></tr></table>"
Response.Write "<table width='100%' cellpadding='0' cellspacing='1'>"
Response.Write "<tr><td bgcolor='#cccccc' width=50>ID</td>"
Response.Write "<td bgcolor='#cccccc'>網站名稱</td>"
Response.Write "<td bgcolor='#cccccc'>網站地址</td>"
Response.Write "<td bgcolor='#cccccc' width=70>時間</td>"
Response.Write "<td bgcolor='#cccccc' width=30>分類</td>"
Response.Write "<td bgcolor='#cccccc' width=30>加入</td>"
Response.Write "<td bgcolor='#cccccc' width=40>加&刪</td>"
Response.Write "<td bgcolor='#cccccc' width=30>修改</td>"
Response.Write "<td bgcolor='#cccccc' width=30>刪除</td></tr>"
n=0
Do While Not Rs.eof and n<pagen
n=n+1
Response.Write "<tr>"
Response.Write "<td><input TYPE='checkbox' VALUE='"&rs("id")&"' NAME='selAnnounce'>"&rs("id")&"</td>"
Response.Write "<td><font title='"&server.htmlencode(trim(rs("sitename")))&"'>"&left(server.htmlencode(trim(rs("sitename"))),10)&"</td>"
Response.Write "<td><font title='"&server.htmlencode(trim(rs("url")))&"'>"&left(server.htmlencode(trim(rs("url"))),10)&"</td>"
Response.Write "<td>"&rs("ndatetime")&"</td>"
Response.Write "<td><a href=../join/chooseassort.asp?fid="&rs("fenleiid")&">分類</a></td>"
Response.Write "<td><a href=join.asp?id="&rs("id")&">加入</a></td>"
Response.Write "<td><a href=join.asp?id="&rs("id")&"&flag=1>加&刪</a></td>"
Response.Write "<td><a href=editjoin.asp?id="&id&"&editid="&rs("id")&">修改</a></td>"
Response.Write "<td><a href='javascript:singleDelete("&rs("id")&")'>刪除</a></td>"
Response.Write "</tr>"
Rs.MoveNext
Loop
Rs.close
set Rs=nothing
conn.close
set conn=nothing
response.write "</table>"
if flag=1 then%>
<!--
<hr>
<p><input class="buttonface" TYPE="button" VALUE=" 刪 除 " NAME="cmdDel" language="javascript" onclick="submitIt(0,document.frmManage)">
<input class="buttonface" TYPE="button" VALUE=" 加入精華區 " NAME="cmdAdd2Essence" language="javascript" onclick="submitIt(1,document.frmManage)"></p>
-->
<hr>
</form>
<%
end if
%>
</BODY>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -