dim sql,objRS,objRS_path
dim sortid
dim i
dim thispath,p,tmp1,tmp2,tmp3
dim tmpid,tmpsortname,comment
dim pagecount,currpage,Spage,Epage,recordcount
sortid = Request.QueryString("sortid")
currpage = request.querystring("currpage")
if sortid = "" or not IsNumeric(sortid) then
Response.Write("错误参数")
Response.End
else
sql = "select * from sort where parentID = " & Clng(sortid)
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open sql,objConn,3,1
sql = "select * from pathform where thispath like '%" & sortid & "'"
Set objRS_path = objConn.Execute(sql)
if not objRS_path.EOF then
tmp1 = objRS_path("thispath")
tmp2 = objRS_path("pathname")
tmp3 = tmp2
p = tmp2
thispath = GetPath(tmp1,tmp2,TRUE)
p = "首页∷" & Replace(p,chr(255),"∷") & ""
p = Server.URLEncode(p)
tmp3 = right(tmp3,len(tmp3) - instrrev(tmp3,chr(255)))
tmp3 = Server.HTMLEncode("" & tmp3 & "")
end if
end if
if currpage = "" or IsNull(currpage) then currpage = 1
if not IsNumeric(currpage) then currpage = 1
currpage = Cint(currpage)
%>
Response.Write("")
Response.Write("document.searchbtmform.submit()")
%>
个人主页搜索系统
form { margin-bottom: 10 }
ul { margin-top: 2; margin-bottom: 2 }
.top { font-size: 10.5pt; color: red; text-decoration: none }
.top:hover { color: yellow; text-decoration: none }
.top:visited{ color: #c0c0c0; text-decoration: underline }
.e1 { color: #c0c0c0; }
-->
function mksure(sortname) {
return(confirm('\n请三思而行！！！\n\n真的要删除 [ ' + sortname + ' ] 及其下面的所有分类和站点吗？\n\n注意，仅此一次确认！\n'));
}
function CheckAll(form)
{
for (var i=0;i {
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function CheckAll2(form)
{
for (var i=0;i {
var e = form.elements[i];
if (e.name != 'chkall2')
e.checked = form.chkall2.checked;
}
}
function mksure2() {
if(confirm("\n真的要删除所有选中的站点吗？ \n\n")) {
delstaform.submit();
}
}
//-->
首页
分类！
(子类:)
编辑|
(子类:)
编辑|
(子类:)
编辑|
objRS.Close()
sql = "select * from stationinfo where ispass = TRUE and parentID = " & sortid & " order by id DESC"
objRS.Open sql, objConn, 3, 1
recordcount = objRS.RecordCount
objRS.PageSize = PAGESIZE
pagecount = objRS.PageCount
if currpage < 1 then
currpage = 1
elseif currpage > pagecount then
currpage = pagecount
end if
%>
相关网站()
登记网站
'========================================实现翻页=============================
if pagecount > 1 then
Response.Write("" & currpage & "/" & pagecount & " " & VbCrlf)
Spage = currpage mod PARTSIZE
if currpage > PARTSIZE then
if Spage = 0 then Spage = PARTSIZE
Spage = currpage - Spage + 1
else
Spage = 1
end if
Epage = Spage + PARTSIZE - 1
if Epage > pagecount then Epage = pagecount
if currpage > PARTSIZE then
response.write("前" & PARTSIZE & "页" & VbCrlf)
end if
for i = Spage to Epage
if i = currpage then
response.write("[" & i & "]" & VbCrlf)
else
response.write("[" & i & "]" & VbCrlf)
end if
next
if Epage < pagecount then
response.write("后" & PARTSIZE & "页" & VbCrlf)
end if
if Spage 1 then response.write("[第一页]")
if Epage pagecount then response.write("[最末页]" & VbCrlf)
response.write("")
end if
%>
选中所有站点
'////////////////////////////////////////////// 输出相关网站 ////////////////////////////////////
Response.Write("" & VbCrlf)
if not objRS.EOF then objRS.AbsolutePage = currpage
for i = 1 to PAGESIZE
if objRS.EOF then exit for
Response.Write("")
Response.Write("[编辑]" & VbCrlf)
Response.Write("" & objRS("stationname") & " " & objRS("stationlang") & "" & VbCrlf)
Response.Write(" " & VbCrlf)
Response.Write(" " & objRS("description") & "—— （" & objRS("whopost") & "）" & objRS("thisdate") & " 点击:" & objRS("visitcount") & "" & VbCrlf)
Response.Write(" " & VbCrlf)
Response.Write("" & VbCrlf)
objRS.MoveNext()
next
Response.Write("" & VbCrlf)
%>
选中所有站点
if pagecount > 1 then
Response.Write("")
Response.Write("" & currpage & "/" & pagecount & " " & VbCrlf)
if currpage > PARTSIZE then
response.write("前" & PARTSIZE & "页" & VbCrlf)
end if
for i = Spage to Epage
if i = currpage then
response.write("[" & i & "]" & VbCrlf)
else
response.write("[" & i & "]" & VbCrlf)
end if
next
if Epage < pagecount then
response.write("后" & PARTSIZE & "页" & VbCrlf)
end if
if Spage 1 then response.write("[第一页]")
if Epage pagecount then response.write("[最末页]" & VbCrlf)
response.write("")
end if
%>
objConn.Close()
Set objRS = nothing
Set objRS_path = nothing
Set objConn = nothing
%>
