選擇分類
&class=' + this.value">
所有分類
<%sql="select id,c_name,c_code from web_news_class where mn_id="&getvariable("mnid")&" order by c_code"
set rsclass=conn.execute(sql)
do while not rsclass.eof
level=(len(rsclass(2))/4-1)*3
response.write ""
if len(rsclass(2))>4 then response.write "├"
response.write string(level,"-")
response.write rsclass(1)&""
rsclass.movenext
loop
rsclass.close%>
<%
strsql="select top 15 * from web_news where nclass in (select id from web_news_class where c_name='最新訊息') order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,1
while not rs.eof
%>
·" target="_blank"><%=rs("ntitle")%>
<%
rs.movenext
wend
set rs=nothing
%>
<%
strquerystring="&mnid=" & getquerystring("mnid") & "&class=" & getquerystring("class") & "&windowname=" & getquerystring("windowname")
strquery=" where mn_id=" & getquerystring("mnid")
strclass=getquerystring("class")
if strclass<>"" then
sourcode=conn.execute("select c_code from web_news_class where mn_id=" & getquerystring("mnid") & " and id="&strclass)(0)
strquery=strquery & " and c_code like '" & sourcode &"%'"
end if
'從這開始讀資料
strsql="select * from v_web_news " & strquery &" order by id desc"
rs.open strsql,conn,1,1
'分頁顯示初始化
page=getvariable("page")
if page="" then
page=1
else
page=cint(page)
end if
section=getvariable("section")
if section="" then
section=1
else
section=cint(section)
end if
'變數賦值
intpagesize=10 '每頁顯示記錄數
intsectionsize=5 '多少頁為一段，像google一樣
prevsectiontext="7" '上一段的鏈結文字
nextsectiontext="8" '下一段的鏈結文字
prevpagetext="3" '上頁的鏈結文字
nextpagetext="4" '下頁的鏈結文字
strpageurl="?t=" & strquerystring
rs.pagesize=intpagesize
intcount=rs.recordcount
intpagecount=rs.pagecount
intsectioncount=(intpagecount - 1) / intsectionsize + 1
if intcount>0 then
rs.absolutepage=page
end if
%>
<%
'迴圈輸出
for i=1 to intpagesize
if rs.eof then exit for
if i mod 2=0 then
strcolor="#eeeeee"
else
strcolor="#f9f9f9"
end if
%>
">
">">
<%=trim(rs("ntitle"))%>
<%=trim(rs("nauthor"))%>
<%=trim(rs("ntime"))%>
[&action=dele<%=strquerystring%>">刪除][<%=strquerystring%>','','*******=yes,resizable=yes')">修改]
<%
rs.movenext
next
%>
共有<%=intcount%>記錄，分<%=intpagecount%>頁，當前頁<%=page%>，每頁顯示<%=intpagesize%>條記錄
<%
'計算每一段的開始頁
intstarpage=(section-2) * intsectionsize + 1
'前一段
if section<=1 then
response.write(prevsectiontext & " ")
else
response.write("" & prevsectiontext & " ")
end if
'顯示頁碼列表
response.write("第")
intstarpage=(section-1) * intsectionsize + 1
for p=intstarpage to intstarpage + intsectionsize - 1
if p > intpagecount then exit for
if p=page then
response.write("[" & p & "]")
else
response.write("[" & p & "] ")
end if
next
response.write("頁")
'後一段
intstarpage=(section) * intsectionsize + 1
if section>=intsectioncount then
response.write(" " & nextsectiontext)
else
response.write(" " & nextsectiontext & " ")
end if
%>
' + (math.floor((parseint(this.value)-1)/<%=intsectionsize%>)+1) + '<%="&page="%>' + this.value">
" selected>第<%=page%>頁
<%
for i=1 to rs.pagecount
%>
" >第<%=i%>頁
<%
next
%>
tmpid=getvariable("id")
if tmpid="" then
title=""
author=session("realname")
original=""
content=""
classid=getquerystring("class")
else
'取指定id的新聞出來編輯
strsql="select * from web_news where id=" & tmpid
set rs=server.createobject ("adodb.recordset")
rs.open strsql,conn,1,1
tmpid=trim(rs("id"))
title=server.htmlencode(trim(rs("ntitle")))
author=trim(rs("nauthor"))
original=trim(rs("noriginal"))
content=server.htmlencode(trim(rs("nhtmltext")))
classid=trim(rs("nclass"))
rs.close
end if
htmleditcontent = content
editorheight = "90%"
%>
conn.execute strsql,0,1
conn.close
set conn=nothing
ASP資料庫網頁設計基礎
asp資料庫網頁設計基礎 一 關於資料庫網頁設計步驟 1 先建好乙個資料庫放在伺服器中。2 建立資料庫的odbc。3 設計乙個查詢網頁，接收使用者選擇。4 設計乙個處理網頁 asp 根據使用者的請求，從伺服器中選擇部分或全部記錄。5 設計乙個顯示查詢結果網頁。二 建立乙個資料庫 在access97中...
ASP資料庫連線
一 asp的物件訪問資料庫方法 在asp中，用來訪問資料庫的物件統稱ado active data objects 主要含有三種物件 connection recordset command connection 負責開啟或連線資料 recordset 負責訪問資料表 command 負責對資料庫執...
asp資料庫連線
asp資料庫連線 set conn server.createobject adodb.connection conn.open provider sqloledb work library dbmsso data source 127.0.0.1 initial catalog testdb us...