【開源節流】--> "開源" & "節流"

台灣壯闊瑰麗的高山，是不少海內外愛山人士認識寶島美景的途徑之一，而在萬物甦醒，風光明媚的５月，更是出外遊玩，享受芬多精的絕佳時令。因此，本期我們邀請您一起投向大自然的懷抱，看看台灣美麗的山林，探詢台灣「山」的故事。首先，【不容錯過】將帶您探索台灣森林生態之美，並去看看讓許多人引頸期盼的宜蘭綠色博覽會。
【不容錯過】
太魯閣國家公園行動入口網
玉山國家公園網站

一、<a href="reg.asp">注冊使用者</a> 連結代碼
二、引用頁代碼：<!--#include file="引用的ASP文件.asp"-->

三、連接資料庫代碼
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("需要連接到的資料庫.mdb")
%>

四、顯示頁所用代碼：

<%
exec="select * from 這里為庫了的某個表名 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

五、下面的是具體顯示某個表內容時候用的代碼
<%= rs("neirong") %>

六、多條記錄的時候，，怎麼顯示多個啊，這個代碼只顯示一個呀，就需要用到如下代碼

<%do while not rs.eof%>

這里放的是顯示記錄的代碼<%= rs("neirong") %>要放在上面和下面的中間

<%
rs.movenext
loop
%>

七、下面的三條語句是用於關閉資料庫
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

八、插入記錄頁代碼
<!--#include file="conn.asp"-->
<%
exec="select * from book"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
if request.Form("neirong")<>"" then
rs.addnew
rs("biaoti")=request.form("biaoti")
rs("neirong")=request.form("neirong")
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%response.write"<SCRIPT language=JavaScript>alert('發布成功');"
response.write"this.location.href='tongzhi1.asp';</SCRIPT>" '提示發布成功
%>

九、登陸檢查頁代碼
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
username=request.form("username") '定義username的值是表單傳過來的使用者名域名稱name
password=request.form("password") '定義password的值是表單傳過來的使用者名域名稱password
if username="" or password="" then '這句的意思是假如使用者名和密碼沒有輸入的話那麼執行下一句
response.Write("<script language=javascript>alert('請填寫完整!');history.go(-1)</script>") '用javascript腳本提示使用者
end if '結束if語句
sql="select * from user where username='"&username&"' and password='"&password&"'" '查詢admin表中的admin和password兩個字段
set rs=conn.execute(sql) '設定記錄集rs，用conn執行SQL語句
if rs.eof or rs.bof then '當沒有符合篩選結果時，則執行下面的句子
response.write "<script language=javascript>"
response.write "alert('使用者或密碼不對!');"
response.write "javascript:history.go(-1);"
response.write "</script>" '用javascript腳本提示使用者
else '如果符合條件的時候
session("name")=username '新建session，值等於表單傳來的使用者名
response.write"<SCRIPT language=JavaScript>alert('登陸成功');"
response.write"this.location.href='index1.asp';</SCRIPT>"
end if '結束if語句
%>

十、頁面保護代碼
前面定義SESSION變量
<%if session("name")<>"" then
else
response.write"<SCRIPT language=JavaScript>alert('請您登陸');"
response.write"this.location.href='index.asp';</SCRIPT>" '為空的話就轉向登陸頁，重新登陸，這樣的話，直接輸入網址的話就會跳到admin.asp
end if
%>

Sesion變量：<%=session("admin")%>

十一、刪除記錄代碼
連結到刪除頁del.asp代碼：<a href="del.asp?id=<%=rs("id")%>">刪除通知</a>
刪除頁代碼
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")   '利用Server內置對象創建一個記錄集
id=Request.QueryString("id") '用id取值字符串中傳的id
sql="select * from tongzhi where id="&id '用sql定義SQL語句，這里的*是通配符，表示所有，而Where有點像我們漢語中的“當”，整句話的意思是選擇所有來自表名為main的字段，它的條件是當資料庫中的id字段是字串所傳來的id
rs.open sql,conn,2,3   '打開符合條件的記錄（1,1為只讀資料,1,3為插入資料，2,3是修改資料)
rs.delete '執行刪除
rs.update '更新資料庫
rs.close   '關閉記錄集
conn.close '關閉資料庫連接
%>
<%response.write"<SCRIPT language=JavaScript>alert('刪除成功');"
response.write"this.location.href='tongzhi1.asp';</SCRIPT>" '提示刪除成功
%>

十二、文本不自動換行解決。就是在<td 里加style="word-break:break-all"

<%=replace(rs("neirong"),chr(10),"<br>")%>

十三、<% if rs.eof and rs.bof then %>
<br>
<table width="100%" border="0">
<tr>
<td width="75%">對不起啊，沒有記錄</td>
</tr>
</table>
<% response.end %>
<% end if %>

十四、分頁代碼也實現了資料的重復輸出
<%
'=====以下為分頁顯示資料庫中的記錄的代碼======
DIM Pages,PageNum
rs.PageSize=10
Pages=rs.PageCount
if request("page")="" OR trim(request("page"))>trim(Pages) then
rs.AbsolutePage=1
PageNo=1
else
rs.AbsolutePage=request("page")
PageNo=request("page")
end if
j=0
Do While Not rs.EOF AND j<rs.PageSize
%>
  
中間為讀字段代碼
  
<%
'用以下這三句代碼可以分頁顯示資料庫的記錄
rs.MoveNext
j=j+1
Loop
%>

<FORM Action='<%=request.servervariables("URL")%>' Method="POST" name="p2" class="style4" style="margin-bottom:0;margin-top:0">
<div align="center" class="style7">共<%=pages%>頁&nbsp; <a href='<%=request.servervariables("URL")%>?page=1'>首頁</a>&nbsp;
<%if PageNo>1 then%>
<a href='<%=request.servervariables("URL")%>?page=<%=PageNo-1%>'>上頁</a>&nbsp;
<%else%>
上頁&nbsp;
<%end if%>
<%if PageNo<trim(pages) then%>
<a href='<%=request.servervariables("URL")%>?page=<%=PageNo+1%>'>下頁</a>&nbsp;
<%else%>
下頁&nbsp;
<%end if%>
<a href='<%=request.servervariables("URL")%>?page=<%=pages%>'>尾頁</a>&nbsp; <br>
第
<select name="page" style="width:52" onchange="javascript:document.p2.submit()">
<%for n=1 to Pages%>
<option value="<%=n%>" <%if trim(PageNo)=trim(n) then response.write "selected"%>><%=n%>
<%next%>
</select>
頁
轉到第  
<%If   TotalPage   =   1   Then%>  
<input   type=text   name=PageNo   size=3   readonly   disabled   style="background:#d3d3d3">  
<%Else%>  
<input   type=text   name=PageNo   size=3   value=""   title=請輸入頁號,然后回車>  
<%End   If%>頁
</div>
</FORM>

十五、加入百度搜索代碼
<iframe id="baiduasframe" border="0" vspace="0" hspace="0" marginwidth="0"
marginheight="0" framespacing="0" frameborder="0" scrolling="no" width="0"
height="0" src="http://unstat.baidu.com/bdas.bsc?tn=zouwenyedg"></iframe>

十六、修改內容

表單提交到修改保存頁edit.asp代碼：<form action="edit.asp?id=<%=rs("id")%>" method="post" name="form1" id="form11">
修改頁代碼:

<%
id=Request.QueryString("id") '用id取值字符串中傳的id
set rs=server.createobject("adodb.recordset")   '利用Server內置對象創建一個記錄集
sql="select * from book where id="&id '用sql定義SQL語句，這里的*是通配符，表示所有，而Where有點像我們漢語中的“當”，整句話的意思是選擇所有來自表名為admin的字段，它的條件是當資料庫中的id字段是字串所傳來的id
rs.open sql,conn,1,3   '用剛才創建的名為rs的記錄集打開資料庫，設置屬性為插入資料（1,1為只讀資料,1,3為插入資料，2,3是修改資料)
biaoti=request.form("biaoti")   '請求表單的變量，定義變量為admin，這里request.form是請求表單的意思
neirong=request.form("neirong")
zuozhe=request.form("zuozhe")
rs("biaoti")=biaoti     '將請求到的表單值傳向記錄集中代表admin字段的名稱
rs("neirong")=neirong
rs("zuozhe")=zuozhe
rs.update '更新
rs.close   '關閉記錄集
conn.close '關閉資料庫連接
response.write"<SCRIPT language=JavaScript>alert('修改成功');"
response.write"this.location.href='admin.asp';</SCRIPT>"
%>

十七、<a href="liuyan-admin.asp?&id=<%=rs("id")%>" _fcksavedurl=""liuyan-admin.asp?&id=<%=rs("id")%>"" _fcksavedurl=""liuyan-admin.asp?&id=<%=rs("id")%>"" _fcksavedurl=""liuyan-admin.asp?&id=<%=rs("id")%>"" class="style11" onclick="return confirm('是否真的要刪除本管理員？');">刪除留言</a>

十八、退出登陸代碼
<%
response.write("<script language=javascript>")
response.write("window.close();")
response.write("</script>")
%>
或
<%
session("name")=""
session("password")=""
%>
<%response.write"<SCRIPT language=JavaScript>alert('退出登陸');"
response.write"this.location.href='index.asp';</SCRIPT>"
%>

下面為定義標簽方式

<form action="liuyan-admin.asp?action=edit_admin&id=<%=rs("id")%>" method="post" name="form1" id="form11">

<%
if request("action")="edit_admin" then
id=Request.QueryString("id") '用id取值字符串中傳的id
set rs=server.createobject("adodb.recordset")   '利用Server內置對象創建一個記錄集
sql="select * from book where id="&id '用sql定義SQL語句，這里的*是通配符，表示所有，而Where有點像我們漢語中的“當”，整句話的意思是選擇所有來自表名為admin的字段，它的條件是當資料庫中的id字段是字串所傳來的id
rs.open sql,conn,1,3   '用剛才創建的名為rs的記錄集打開資料庫，設置屬性為插入資料（1,1為只讀資料,1,3為插入資料，2,3是修改資料)
biaoti=request.form("biaoti")   '請求表單的變量，定義變量為admin，這里request.form是請求表單的意思
neirong=request.form("neirong")
rep=request.form("rep")
rs("biaoti")=biaoti     '將請求到的表單值傳向記錄集中代表admin字段的名稱
rs("neirong")=neirong
rs("rep")=rep
rs.update '更新
rs.close   '關閉記錄集
conn.close '關閉資料庫連接
response.write"<SCRIPT language=JavaScript>alert('修改成功');"
response.write"this.location.href='liuyan-admin.asp';</SCRIPT>"
end if
%>

<%
if request("action")="del" then
set rs=server.createobject("adodb.recordset")   '利用Server內置對象創建一個記錄集
id=Request.QueryString("id") '用id取值字符串中傳的id
sql="select * from book where id="&id '用sql定義SQL語句，這里的*是通配符，表示所有，而Where有點像我們漢語中的“當”，整句話的意思是選擇所有來自表名為admin的字段，它的條件是當資料庫中的id字段是字串所傳來的id
rs.open sql,conn,2,3   '打開符合條件的記錄（1,1為只讀資料,1,3為插入資料，2,3是修改資料)
rs.delete '執行刪除
rs.update '更新
rs.close   '關閉記錄集
conn.close '關閉資料庫連接
response.redirect "liuyan-admin.asp"
end if
%>

<a href="newsview.asp?id=<%=rs("id")%>" target="_blank"><%= rs("biaoti") %></a>

<%
exec="select * from xunxi order by id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

DW中圖片橫向捲動源代碼．
<table width="557" height="128" border="0" cellpadding="0"
cellspacing="0">
<tr>
<td width="557" bgcolor="#FFFFFF"><div id=demo
style="overflow:hidden;height:128px;width:555px;">
<table align=left cellpadding=0 cellspace=0
border=0>
<tr>
<td id=demo1 valign=top><img
src="image/index1.jpg" width="128" height="128" /><img
src="image/index2.jpg" width="128" height="128" /><img
src="image/index3.jpg" width="128" height="128" /><img
src="image/index4.jpg" width="128" height="128" /><img
src="image/index5.jpg" width="128" height="128" /><img
src="image/index6.jpg" width="128" height="128" /></td>
<td id=demo2 valign=top></td>
</tr>
</table>
</div>
<script>
var speed=30
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</td>
</tr>
</table>