主頁 > 知識(shí)庫 > 5天學(xué)會(huì)asp

5天學(xué)會(huì)asp

呵呵，看到網(wǎng)上有人寫了10天學(xué)會(huì)asp，偶也想寫一個(gè)，他既然叫10天，那我就5天吧，呵呵，新手多看看，高手指出錯(cuò)誤，不要笑話偶??！知
識(shí)只有共享才能發(fā)展，不要吝嗇你的知識(shí)?。。。?
好了我們閑話少說現(xiàn)在就開始吧！
首先，我先把ASP說一下，asp就是 Active Server Pages的簡寫，
我們?yōu)榱朔奖憷斫饽?，就把a(bǔ)sp想成是插入到HTml中的一種腳本語言吧，這樣理解起來方便。
書上都是以hello world的代碼開始的，我們也這樣開始吧！
這里我們就開始以示例講解了：
〈html〉
  title>hello world/title>
body>
%response.write("hello world")%>
/body>
/html>
保存成test.asp，調(diào)試一下就能看到hello world  了。
這里先讓大家看看他是怎么樣插入到HTML中的（asp程序是放在"% %>"中間的）
當(dāng)然我們也可以在response.write中輸出HTML標(biāo)記，比如：
%response.write"font size=20 color=red>你好/font>"%>
就能看到一個(gè)紅色的20號(hào)的"你好"
接下來我們就說
asp中有六大內(nèi)置對(duì)象，分別是：
      Request：負(fù)責(zé)從用戶端接受信息
      Response：傳遞信息給用戶
      Server：  控制asp運(yùn)行環(huán)境
      session：負(fù)責(zé)存儲(chǔ)個(gè)別用戶信息
      Application：負(fù)責(zé)存儲(chǔ)數(shù)據(jù)以提供多個(gè)用戶的使用
      objectcontext：可提供asp程序直接配合MTS進(jìn)行分散事物處理
這其中我們就常用的就是：Request，Response，Server，session，Application
在本文中會(huì)逐一講到，
剛才我們用了六大內(nèi)置對(duì)象中的Response的write方法輸出了hello world
下面我們就用一個(gè)例子來講解request和response的用法：
首先，我們要用到html的form標(biāo)簽來傳遞值：
一,我們先做個(gè)表單頁面，用來輸入數(shù)據(jù)，這個(gè)頁面就叫l(wèi)ogin.asp
html>
title>request和response的演示(值的傳遞和輸出)/title>
body>
     form name=form1 action=checklogin.asp method=post>
   center>
   table with=500>
      tr>
        td colspan="2" align="center">font size=5 color=blue>用戶登錄入口/font>
        /td>
      /tr>
      tr>
          td>font size=2>用戶名：/font>/td>

         td>
         input name=username type="text" maxlength="20">
        /td>
      /tr>
      tr>
        td>font size=2>密nbsp;碼：/font>/td>
         td>
         input type="password" name=password maxlength="20">
          /td>
      /tr>
       tr>
         td colspan="2" align=center>
   input type="submit" value=登錄>nbsp;
   input type="reset" value=重置>
          /td>
      /tr>
/table>
/center>
/form>
/body>
/html>
二，我們?cè)谧鲆粋€(gè)頁面來接受這些數(shù)據(jù)，這個(gè)頁面就叫checklogin.asp
%
'-------------------為防止出錯(cuò)我們定義username和password----------------
dim username
dim password
'--------用request的form方法來接受login.asp頁面?zhèn)鱽淼闹担⒏吨到o我們定義的username和password
username=request.form("username")
password=request.form("password")
'---------判斷傳來的值是不是空值
if username="" then
'用response的write的方法輸出一個(gè)腳本
    response.write"script>alert('用戶名不能為空')/script>"
response.end
end if
if password="" then
response.write"script>alert('密碼不能為空')/script>"
response.end
end if
'----------判斷用戶名和密碼是不是一樣的，如果一樣的輸出"登陸成功"并把session的標(biāo)志給這個(gè)用戶,否則就輸出"登陸失敗"
if username="admin" and password="admin" then
response.write"登陸成功"
session("loginok")=username
else
response.write"登陸失敗"
'重定向到login.asp
response.redirect"login.asp"
end if
%>
這里我們用到了request.form的方法(接受數(shù)據(jù))
response的write(輸出數(shù)據(jù))和redirect(重定向)
session的會(huì)話，這里我先簡單的說說session的作用吧，
就拿我的同學(xué)錄來說吧！這里會(huì)判斷用戶的級(jí)別和權(quán)限(如：沒有審核同學(xué)，通過審核的同學(xué)，班級(jí)管理員)如果用戶登陸成功了，
session就和server產(chǎn)生了會(huì)話，沒有審核同學(xué)就付值為session(userlevel)=1，通過審核的同學(xué)就付值為session(userlevel)=2
班級(jí)管理員就付值為session(userlevel)=3，這樣就有效的區(qū)別的用戶的權(quán)限和級(jí)別。
類似的做用的還有cookies,它也有這樣的作用，不同的是cookise是產(chǎn)生到客戶端的。。。。
我在這個(gè)例子里主要講解了request和response的用法，其實(shí)他們還有一些屬性和方法，
這里我只是講解了常用的，希望大家有空看看這里我沒有提到的屬性方法
這個(gè)例子我沒有把用戶和密碼放到數(shù)據(jù)庫中是為了方便大家的理解，
下一節(jié)我們將講解怎么樣連接數(shù)據(jù)庫和實(shí)現(xiàn)操作數(shù)據(jù)庫的。。。。

-----------------------------------------------------------------------------------------------------------------------
5天搞定asp
第二天
今天我們主要講解ASP中常用的SQL語句，和怎樣在頁面中執(zhí)行SQl 語句。。。
其實(shí)常用的語句無外乎數(shù)據(jù)的“增，刪，改”好象所有的數(shù)據(jù)處理程序中都有這幾種操作，下面我們先寫sql語句，如果您需要了解更多的請(qǐng)
看我的Blog.91time.com中的SQl語句經(jīng)典或看看SQL的書籍>
-----(一)--查詢---------
1，首先我們要做第一個(gè)查詢>，這是SQl中最基本的語句了，
select * from [表名] where [條件] order by [條件] desc
其中，desc降序，默認(rèn)是asc升序，
例子：select * from news where news_id='"news_id"' order by news_id desc
意思就是查詢news表中的"*"代表所有數(shù)據(jù)，條件是news_id等于 news_id然后按照news_id 的降序排列
在查詢里還能用到group by分組排序等等，這里就不系說了。
2，count()函數(shù)用來計(jì)算記錄的行數(shù)。
例：select count(*) from news
計(jì)算數(shù)據(jù)庫中有多少行
3，sum()函數(shù)用來計(jì)算表達(dá)試中的項(xiàng)目和。
例：select age,sum(number) from person where age>20 group by age
6,top關(guān)鍵字，限制返回記錄的行數(shù)
-----(二)--插入---------
insert 語句
格式如下：
insert into 表名>[字段1>，字段2>……] values[常量1，…………]
例：insert into news(id,news) values(1,'新聞')
---(三)--更新-------
update語句
格式：
update表名> set 列名>=表達(dá)式>，列名1>=表達(dá)式1>……
where 條件>
例：update news set content=最新消息 where news_id='"news_id"'
-----(四)---刪除----------
delete語句
格式：delete from 表名> where 條件
例：delete from news where news_id>20
好了sql語句我們就說這么多吧，下面我們開始創(chuàng)建個(gè)數(shù)據(jù)庫，這里我們就用SQL數(shù)據(jù)庫吧
打開" 查詢分析器"
'創(chuàng)建個(gè)數(shù)據(jù)庫叫news
create database news
use news
create table admin
(
id int primany key,
admin_name varchar(20) not null,
admin_pwd  varchar(20) not null,
)
'然后我們插入一條數(shù)據(jù)
insert into admin values(1,'admin','admin')
'然后我們用select * from 查詢一下
select * from admin
就會(huì)看到我們的數(shù)據(jù)了
好了，我們打開昨天做的登陸嚴(yán)整的代碼，這里我們回顧一下吧，做天我們用了兩個(gè)頁來實(shí)現(xiàn)的會(huì)員登陸的驗(yàn)證，
這兩個(gè)頁分別是(登陸頁login.asp)和(驗(yàn)證頁checklogin.asp)，
現(xiàn)在我們沒有做數(shù)據(jù)庫驗(yàn)證，
(登陸頁login.asp)頁我們不用改動(dòng)，
下面我們只需改動(dòng)(驗(yàn)證頁checklogin.asp)，就行了，
這里我們要做個(gè)連接數(shù)據(jù)庫的頁面文件，名字就叫conn.asp吧
代碼如下
%
dim conn,dbuid,dbpwd,dBName,dbip
dbuid="sa"   '數(shù)據(jù)庫登陸名
dbpwd="123456"   '數(shù)據(jù)庫密碼
dBName="news"   '數(shù)據(jù)庫名稱
dbip="(local)"   '可為IP '數(shù)據(jù)庫所在地址，如果是本地?cái)?shù)據(jù)庫則為：(local)
'---------------------------------------------------------------------------
set conn=Server.CreateObject("adodb.Connection")
Conn.Open  "PROVIDER=SQLOLEDB.1;Data Source="dbip";Initial Catalog="dBName";Persist Security Info=True;User
ID="dbuid";Password="dbpwd";Connect Timeout=30"
If Err Then
err.Clear
set conn=nothing
Response.Write "無法連接MSSQL"
Response.End
End If
%>
打開checklogin.asp代碼，
首先在頁面上我們要引用數(shù)據(jù)庫連接文件
!--#include file=conn.asp-->
%
'-------------------為防止出錯(cuò)我們定義username和password----------------
dim username
dim password
'--------用request的form方法來接受login.asp頁面?zhèn)鱽淼闹?，并付值給我們定義的username和password
username=request.form("username")
password=request.form("password")
'---------判斷傳來的值是不是空值
if username="" then
'用response的write的方法輸出一個(gè)腳本
    response.write"script>alert('用戶名不能為空')/script>"
response.end
end if
if password="" then
response.write"script>alert('密碼不能為空')/script>"
response.end
end if
'----------判斷用戶名和密碼是不是一樣的，如果一樣的輸出"登陸成功"并把session的標(biāo)志給這個(gè)用戶,否則就輸出"登陸失敗"
'------------這里我們就要在數(shù)據(jù)庫里面比較兩個(gè)值了
set rs=server.cerateobject("adodb.recordset")
sql="select * from admin where admin_name='"username"' and admin_pwd='"password"' "
rs.open sql,conn,1,1
'如果用戶不存在
if rs.eof and rs.bof then
response.write"SCRIPT language=javascript>alert('用戶名或密碼不正確！');"
response.write"javascript:history.go(-1)/SCRIPT>"
response.end
'負(fù)責(zé)將用session 產(chǎn)生會(huì)話
else
session("admin")=rs("admin_name")
session("password")=rs("admin_pwd")
session("aleave")=rs("aleave")
response.redirect "admin.asp"
end if
'---------最后不要忘記關(guān)閉數(shù)據(jù)連接，釋放資源
rs.close
set rs=nothing
%>
這里我們做好了一個(gè)簡單的登陸嚴(yán)整，比如我們還可以用session來限制登陸的次數(shù)，或者登陸人的權(quán)限等等，
如有需要來blog看看哦，都有相應(yīng)的文章.http://blog.91time.com

接下來我們做添加把，哈哈哈，這個(gè)和上面的例子一樣的簡單
為了便于理解我都做成了兩個(gè)頁面，在本節(jié)的最后，我會(huì)用"隱藏域的方法做個(gè)(增，刪，改)在一個(gè)頁的例子"
我們繼續(xù)吧
和上一個(gè)例子一樣，這個(gè)頁面還是用來輸入值的，叫add.asp
html>
title>添加示例/title>
body>
     form name=form1 action=adduser.asp method=post>
   center>
   table with=500>
      tr>
        td colspan="2" align="center">font size=5 color=blue>添加/font>
        /td>
      /tr>
      tr>
          td>font size=2>用戶名：/font>/td>

         td>
         input name=username type="text" maxlength="20">
        /td>
      /tr>
      tr>
        td>font size=2>密nbsp;碼：/font>/td>
         td>
         input type="password" name=password maxlength="20">
          /td>
      /tr>
       tr>
         td colspan="2" align=center>
   input type="submit" value=添加>nbsp;
   input type="reset" value=重置>
          /td>
      /tr>
/table>
/center>
/form>
/body>
/html>
下面我們做adduser.asp，這個(gè)頁面就是向數(shù)據(jù)庫中添加值了
!--#include file=conn.asp-->
'這里我們添加一個(gè)判斷，用來判斷是不是管理員，只有管理員才有權(quán)添加用戶
%
if isempty(session("admin")) or session("admin")="" then
response.redirect"login.asp"
end if
%>
%
'-------------------為防止出錯(cuò)我們定義username和password----------------
dim username
dim password
'--------用request的form方法來接受add.asp頁面?zhèn)鱽淼闹?，并付值給我們定義的username和password
username=request.form("username")
password=request.form("password")
'---------判斷傳來的值是不是空值
if username="" then
'用response的write的方法輸出一個(gè)腳本
    response.write"script>alert('用戶名不能為空')/script>"
response.end
end if
if password="" then
response.write"script>alert('密碼不能為空')/script>"
response.end
end if
'----------判斷用戶是不是已經(jīng)存在了，如存在就提示，并返回。
set rs=server.cerateobject("adodb.recordset")
sql="select * from admin where admin_name='"username"'"
rs.open sql,conn,3,3
'如果用戶存在
if not(rs.eof and rs.bof) then
response.write"SCRIPT language=javascript>alert('用戶以存在，請(qǐng)重新選擇！');"
response.write"javascript:history.go(-1)/SCRIPT>"
response.redirect"add.asp"
'添加用戶
else
rs.addnews
rs("admin_name")=username
rs("admin_pwd")=password
rs.update
response.write"SCRIPT language=javascript>alert('添加成功，請(qǐng)返回');"
response.write"javascript:history.go(-1)/SCRIPT>"
response.redirect"add.asp"
end if
'---------最后不要忘記關(guān)閉數(shù)據(jù)連接，釋放資源
rs.close
set rs=nothing
%>

----------------------------------------------------------------------------------------------------------------------
5天搞定asp第二天[續(xù)]
哈哈第二天的那頁放不下了就分開了
不要意思了

好了，現(xiàn)在我來做“更新”“刪除”
這里的重點(diǎn)是要取的要?jiǎng)h除的數(shù)據(jù)的編號(hào)，數(shù)據(jù)編號(hào)是唯一的不可重復(fù)的
首先我們把所有的用戶有取出來，并放在一個(gè)頁面上
先寫的是更新哦
呵呵
刪除和這個(gè)基本一樣就是SQL的語句不同，要注意的是新聞的id是怎么樣取得的?。。?！
這才是本文的重點(diǎn)?。。。。。。。?！
---注意數(shù)據(jù)庫中沒有權(quán)限的字段，自己添上就行了----------呵呵--------
------------------------------------------------admin_admin.asp顯示頁---------------------------------
html>
head>
title>管理系統(tǒng)/title>
body>
table width="100%" border="0" cellpadding="0" cellspacing="0">
  tr>
    td>
table width="100%" border="0" cellspacing="0" cellpadding="0">
        tr>
          td>nbsp;/td>
        /tr>
      /table>
      table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
        tr align="center" bgcolor="#ffaaaa">
          td width="15%" height="24"> ID/td>
          td width="15%">用戶/td>
          td width="20%">密碼/td>
          td width="20%">權(quán)限/td>
          td width="15%">修改/td>
          td width="15%">刪除/td>
        /tr>
        %
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from admin order by id"
rs.Open sql,conn,1,1
while not rs.eof
if rs("aleave")="super" then aleave="超級(jí)管理員" end if
if rs("aleave")="check" then aleave="普通管理員" end if
%>
        tr align="center">
          td height="22">%=rs("id")%>/td>
          td>%=rs("admin")%>/td>
          td>%=rs("password")%>/td>
          td>%=aleave%>/td>
          td>a href="admin_AdminModify.asp?id=%=rs("id")%>">修改/a>/td>
          td>a href="admin_AdminDel.asp?id=%=rs("id")%>">刪除/a>/td>
        /tr>
        %
rs.movenext
wend
rs.close
set rs=nothing
%>
      /table>
/body>
/html>
----------------------編號(hào)id的接受頁admin_AdminModify.asp-------------------------

%
!--#include file=conn.asp-->
'QueryString的方法取得用戶id
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where id="id
rs.open sql,conn,1,1
if rs.eof then
response.write"SCRIPT language=javascript>alert('服務(wù)器出錯(cuò)，請(qǐng)聯(lián)系管理員！');"
response.write"javascript:history.go(-1)/SCRIPT>"
else
admin=rs("admin")
password=rs("password")
aleave=rs("aleave")
table>
form method="POST" action="admin_adminSave.asp?id=%=id%>">

    tr>
      td colspan=2 align=center>b>修改管理員資料/b>/td>
/tr>
    tr>
      td width="30%" height="22" align="right">用戶名：/td>
      td width="70%">
        input type="text" name="admin" value="%=admin%>" size="20">/td>
/tr>
    tr bgcolor="#FFFFFF">
      td width="30%" height="22" align="right">密碼：/td>
      td width="70%">
        input type="text" name="password" value="%=password%>" size="20">/td>
/tr>
    tr bgcolor="#FFFFFF">
      td width="30%" height="22" align="right">權(quán)限：/td>
      td width="70%" height="22">
        select name="aleave" style="font-size:9pt" class="input">
option value=super%if aleave="super" then%> selected%end if%>>超級(jí)管理員/option>
option value=check%if aleave="check" then%> selected%end if%>>普通管理員/option>
/select>
/td>
/tr>
    tr align="center" bgcolor="#FFFFFF" height="24">
      td height="30" colspan=2>
        input type="hidden" value="edit" name="act">
input name="cmdok" type="submit" id="cmdok" value=" 修改 ">
        nbsp;
input name="cmdcance" type="reset" id="cmdcance" value=" 清除 ">
/td>
/tr>
/form>
/table>
%
end if
rs.close
set rs=nothing
%>
%>
-----------------------------------------------------------------
下面我們看看接收頁怎么寫的吧！這頁面就是功能頁了！
!--#include file=conn.asp-->
%
admin=request.form("admin")
password=request.form("password")
aleave=request.form("aleave")
if admin="" or password="" then
response.write"SCRIPT language=javascript>alert('管理員名稱和密碼都不能為空！');"
response.write"javascript:history.go(-1)/SCRIPT>"
Response.End
end if
set rs=server.CreateObject("ADODB.RecordSet")
if request("act")="edit" and request.QueryString("id")>"" then
id=request("id")
sql="select * from admin where id=" request.QueryString("id")
rs.open sql,conn,3,2
if not rs.eof then
rs("aleave")=aleave
rs("admin")=admin
rs("password")=encrypt(password)
rs.update
end if
rs.close
elseif request("act")="add" then
sql="select * from admin where admin_name='"admin"'"
rs.open sql,conn,3,2
if (rs.eof and rs.bof) then
rs.addnew
rs("aleave")=aleave
rs("admin")=admin
rs("password")=password
rs.update
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_admin.asp"
%>
--------------------------------刪除------------------------------------
有了上面的基礎(chǔ)寫刪除就更簡單了，我們繼續(xù)哦
是不是很簡單哦
!--#include file="conn.asp" -->
%
if isempty(session("admin")) or session("admin")="" then
response.redirect"login.asp"
end if
%>
%
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "delete * from admin where id="request.QueryString("id"),conn,1
set rs=nothing
response.redirect "admin_admin.asp"
%>
最后我們把今天說的東西在總結(jié)一下，今天我們做了增，刪，改
這里，增加我們主要是用到了數(shù)據(jù)庫的操作，在寫添加的時(shí)候用sql的insert語句直接添加也行，我們用的是rs.addnew的方法
喜歡怎么用就怎么用了，，，呵呵
隨心情了，
在就是修改和刪除，這兩個(gè)功能最總要的就是怎么樣鎖定要修改的那條記錄，
這里的方法就多了，可以用QueryString的方法取得用戶id，也可以用"隱藏域的方法取的id"
我們也可以把增，刪，改寫在一個(gè)頁面中這樣顯得整潔一些，
呵呵，這個(gè)也就看個(gè)人愛好了，剛開始學(xué)的話就好用多個(gè)頁實(shí)現(xiàn)功能，
等時(shí)間常了熟練了在用一個(gè)頁面寫
下面大家就來看看我是怎么樣用隱藏域的方法來實(shí)現(xiàn)一頁完成這寫功能的和怎么樣用"隱藏域的方法取的id"的？？？？？？？

-------------------------------一個(gè)頁面的增，刪，改------------------------------------
!--#include file="conn.asp"-->
%
info=trim(request("info"))
Set rs=Server.CreateObject("ADODB.Recordset")
select case info
case "add"
sql="SELECT * FROM link"
rs.Open sql,conn,1,3
rs.Addnew
rs("name")=trim(request("webname"))
rs("url")=trim(request("url"))
rs.Update
Response.Redirect"mody.asp"
case "mod"
sql="SELECT * FROM link where id="trim(request("id"))
rs.Open sql,conn,1,3
rs("name")=trim(request("webname"))
rs("url")=trim(request("url"))
rs.Update
Response.Redirect"mody.asp"
case "del"
sql="delete * FROM link where id="trim(request("id"))
rs.Open sql,conn,1,3
Response.Redirect"mody.asp"
case else
Set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM link order by id asc"
rs.Open sql,conn,1,3
%>
table border="1" width="500" align=center cellspacing="0">
    tr>
      td width="33%" align="center">網(wǎng)站名稱/td>
      td width="33%" align="center">網(wǎng)站地址/td>
      td width="34%" align="center">操作/td>

      form method="POST" action="mody.asp">
    tr>
      td width="33%">input type="hidden" name="info" value="add">input type="text" name="webname" size="20">/td>
      td width="33%">input type="text" name="url" size="20">/td>
      td width="34%">input type="submit" value="  添加  " name="B1">/td>
    /tr>/form>
    %do while not rs.eof%>form method="POST" action="mody.asp">

    tr>
      td width="33%">input type="hidden" name="info" value="mod">input type="hidden" name="id" value="%=rs("id")%
>">input type="text" name="webname" size="20" value="%=rs("name")%>">/td>
      td width="33%">input type="text" name="url" size="20" value="%=rs("url")%>">/td>
      td width="34%">input type="submit" value="修改" name="B1">    input type="button" name="Submit" value="刪除"
onClick="javascript:location='mody.asp?info=delid=%=rs("id")%>'">/td>
    /tr>/form>%rs.movenext
    loop%>
  /table>
%end select%>
%rs.close%>
呵呵今天就說到這吧，講的東西有點(diǎn)多，大家仔細(xì)的看看，有什么不懂的，給我留言吧QQ:21427143  ||  54151107
現(xiàn)在都午夜了哦  哈哈哈哈哈哈
明天我們總結(jié)一下吧，這兩天的東西在大學(xué)里要學(xué)大半的學(xué)期呢，
希望大家都能高興，開心了

-------------------------------------------------------------------------------------------------------------------
第三天
上一節(jié)我們講解了ASP中應(yīng)用最廣泛的操作，其實(shí)那就是個(gè)網(wǎng)站的后臺(tái)的管理中（用戶的管理），
新聞管理，投票管理也都是這樣做的，不用的就是他們的功能更復(fù)雜，數(shù)據(jù)更多，
其中留言板就是數(shù)據(jù)的存儲(chǔ)和讀取的過程，不過是我們把這個(gè)過程復(fù)雜化了，
第一天，我們講解了數(shù)據(jù)和值的傳遞過程，用form>來將值傳遞到下一個(gè)頁面中，并用Request.form來接受，用response.write的方法來輸出
，這里主要是讓大家理解值的傳遞過程，當(dāng)然我們也可以在一個(gè)頁面中傳遞。
第二天，我們講解了SQL的常用的語句，和在ASP中怎么樣執(zhí)行SQL語句，
今天我們主要講一下：SESSION和cookies，回顧以下response，request。
    首先，登陸模塊的程序都會(huì)用到檢測(cè)是不是用戶已經(jīng)登陸這個(gè)步驟。這就用到了SESSION和cookies，
我們還是用代碼來說明(在上面的程序中我們已經(jīng)用到了)：
---------------------------------------------------
1>這是session的寫法：
%
'如果用戶存在
session("aleave")=rs("aleave")
%>
------------------------------------------------
2>這是cookies的寫法：
%
response.cookies("adminok")=true
%>
這樣我們就能在我們需要的地方進(jìn)行判斷了
代碼如下：
%
  if session("aleave")="" then
      response.redirect "adminlogin.asp"
   response.end
  end if
%>
這里是cookies的驗(yàn)證判斷：
%
if request.cookies("adminok")="" then
response.redirect"login.asp"
end if
%>
這樣沒有session和cookies標(biāo)志的用戶是無法打開這個(gè)頁面。
最后我們說一下response.redirect，它是重定向的意思，
后面的"login.asp"就是轉(zhuǎn)向的文件。這樣沒有登陸的管理員是無法看到后面的內(nèi)容的。
下面總結(jié)一下
response常用的就是response.write () ， response.redirect() 分別是寫字符串和轉(zhuǎn)向的作用
request基本就是request.form()，request.querystring() 分別是接受post,get方法傳來的信息
這里我給大家一個(gè)常用的(Access)數(shù)據(jù)庫連接代碼(Sql的在上面的例子中有哦，我就不寫了)：
以后大家只要改換“數(shù)據(jù)庫”就可以直接用了，
----------
%
'數(shù)據(jù)庫連接程序conn.asp
strSQL="DBQ="+server.mappath("db/news.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open strSQL
%>
為了保證數(shù)據(jù)庫的安全呢，我們可以把數(shù)據(jù)庫的擴(kuò)展名換成.asp的，也可以是asa，
最好把數(shù)據(jù)庫的名字弄的復(fù)雜點(diǎn)，
在就是數(shù)據(jù)庫的字段也要弄的復(fù)雜點(diǎn)哦，要不然人家用軟件猜解也是很容易的哦
并在頁面中過濾掉非法的字符，這樣能安全點(diǎn)（網(wǎng)站有很多的防SQL注入的代碼哦，也有很多的注入工具）
還是自己把網(wǎng)站弄的安全點(diǎn)吧，
  并且用例子來演示了怎么樣實(shí)現(xiàn)整個(gè)功能，希望大家能多看看代碼，多動(dòng)手來打打代碼，還有就是盡量用“記事本”編寫代碼，
不要上來就用一些開發(fā)工具和代碼提示的軟件，這樣不利于我們對(duì)代碼的理解和記憶。
今天就到這里，多看看我們第二天講的東西那是asp數(shù)據(jù)管理最重要的地方
明天我們講解asp中的分頁
呵呵大家明天見哦晚安！

---------------------------------------------------------------------------------------------------
第四天
利用ASP分頁顯示實(shí)例
這里我們要說的就是ASP中比較復(fù)雜的分頁技術(shù)了，代碼有點(diǎn)多，但是不是很復(fù)雜，
大家多看幾便就能理解了，
首先我們先理解一下分頁的原理：
在前幾天我們了解了Recordset對(duì)象的以上屬性和方法后，
我們來考慮一下，如何運(yùn)用它們來達(dá)到我們分頁顯示的目的。
我們可以為PageSize屬性設(shè)置一個(gè)值，從而指定從記錄組中取出的構(gòu)成一個(gè)頁的行數(shù)；
然后通過RecordCount屬性來確定記錄的總數(shù)；
再用記錄總數(shù)除以PageSize就可得到所顯示的頁面總數(shù)；
最后通過AbsolutePage屬性就能完成對(duì)指定頁的訪問。
好象很并不復(fù)雜呀，下面讓我們來看看程序該如何實(shí)現(xiàn)呢？
代碼主要用到Connection、RecordSet這兩個(gè)對(duì)象，程序中的數(shù)據(jù)庫為Access庫，
采用OLEDB方式連接庫。
%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source=" _
server.mappath("mdb.mdb")
conn.Open strcon
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rs.Open sql, conn, 1
page=1 ' 設(shè)置變量PAGE=1
rs.PageSize = 5 '每頁顯示記錄數(shù)
if Not IsEmpty(Request("Page")) then '如果Page已經(jīng)初始化...
Page = CInt(Request("Page")) '接收Page并化為數(shù)字型賦給Page變量
if Page > rs.PageCount then '如果接收的頁數(shù)大于總頁數(shù)
rs.AbsolutePage = rs.PageCount '設(shè)置當(dāng)前顯示頁等于最后頁
elseif Page = 0 then '如果page小于等于0
Page = 1 '設(shè)置PAGE等于第一頁
else
rs.AbsolutePage = Page '如果大于零,顯示當(dāng)前頁等于接收的頁數(shù)
end if
End if
Page = rs.AbsolutePage
%>
%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循環(huán)依次讀出記錄
%>
'一個(gè)頁中顯示多少條數(shù)據(jù)Rs.pagesize=5,
把5改為你想顯示的記錄數(shù).比如說
改為10.那么每頁就是顯示10頁.還需要修改的是select語句.就是你要檢索的數(shù)據(jù)庫了.
也就是說放到任何一個(gè)系統(tǒng)中上面的代碼只需很小的改動(dòng)都可以直接拿過來用.
然后:就是要循環(huán)讀出記錄的顯示內(nèi)容了..............比如

table width=50 border=1 align=center>tr>TD>% =rs("內(nèi)容") %>/td>/tr>/table>%rs.MoveNextnext%>
　　當(dāng)然也可以改為response.write輸出.
　　最后,添加"下一頁,上一頁"的鏈接:

%if request("page")>1 then%>a Href="test.asp?Page=% = 1%>">首頁/a> a Href="test.asp?Page=% =request("page") -1 %>">上一
頁/a>%end if %>%if request("page")>rs.pagecount then %>a Href="test.asp?Page=% =request("page") + 1%>">下一頁/a> a
Href="test.asp?Page=% = rs.PageCount%>">尾頁/a> % end if %>
　　上面的代碼只管復(fù)制粘貼.只需把"page.asp"改成你自己的文件名就可以了。
隨便把這段代碼放在什么地方?就是你想讓它出現(xiàn)下一頁下一頁鏈接的地方吧.
　　最后.關(guān)閉記錄集釋放資源：
%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>
--------------------------------------------------------------------------------
要克服最后一頁中的＂下一頁＂仍處于連接狀態(tài)有一個(gè)辦法．就是把程序中稍加改動(dòng)如下：
%if request("page")>rs.pagecount then %>
a Href="test.asp?Page=% =request("page") + 1%>">下一頁/a>
% else response.write"下一頁"%>
就是此時(shí)把＂下一頁＂設(shè)置成非連接狀態(tài)

For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循環(huán)依次讀出記錄
使用的是Do while。
分頁代碼的示例：：：
-----------------------------------------------------------------------------------
%
db="數(shù)據(jù)地址.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conns="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  Server.MapPath(""db"")
conn.Open conns
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from 表名 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write("沒有記錄")
else
Page=Int(Abs(Request("page")))
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1
rs.pagesize = 10 '每頁顯示記錄數(shù)
total = rs.RecordCount
mp = rs.pagesize
rs.absolutepage = page
i=0:k=0
do while not rs.eof and mp>0:k=k+1
response.write("顯示第"rs("id")"條記錄")
i=i+1
mp=mp-1
rs.movenext
loop
if page>rs.pagecount then Response.redirect("index.asp?page="rs.pagecount)
if page>1 then
response.Write("a href='index.asp?page=1' title='首頁'>首頁/a>")
response.Write(" a href='index.asp?page="page-1"' title='上一頁'>上一頁/a> ")
end if
response.Write("第"page"/"rs.pagecount"頁共"total"條記錄本頁顯示第"(page-1)*rs.pagesize+1"條到第"(page-1)
*rs.pagesize+k"條 ")
if pagers.pagecount then
response.Write("a href='index.asp?page="page+1"' title='下一頁'>下一頁/a>")
response.Write(" a href='index.asp?page="rs.pagecount"' title='尾頁'>尾頁/a>")
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
這樣一個(gè)分頁的程序就算是做好了，這個(gè)程序非常簡單而且便于理解，是個(gè)學(xué)習(xí)的好例子。
大家在做一個(gè)程序前應(yīng)該多想想怎么樣實(shí)現(xiàn)這個(gè)功能，然后在動(dòng)手去寫這個(gè)代碼，
這樣才能做到胸有成竹。
呵呵，有時(shí)候?qū)W點(diǎn)東西真的很不爽哦，
又快到新的一天了
明天我們粗率的講解一下ASP的組件，這樣asp的精華我們也就全部講完了，
以后的學(xué)習(xí)過程就要靠我們自己努力了，
最好的學(xué)習(xí)方法就是多看示例，呵呵
美好的明天一定會(huì)來的~~~~~~~~~~~~~~~~~~~blog.91time.com

----------------------------------------------------------------------------------------------------------------
第五天

今天我們來說說ASP組件，
asp的組件的功能是十分強(qiáng)大的，今天我們就來簡單的說說
要用asp組件就要?jiǎng)?chuàng)建asp組件
在一個(gè)asp頁面中創(chuàng)建asp組件，需要使用server內(nèi)置對(duì)象的createobject的方法，
我們來看例子：
%
Set JMail = Server.CreateObject("JMail.Message")
%>
上面我們創(chuàng)建了JMail組件對(duì)象的示例，并付值給JMail
有的asp組件還要求注冊(cè)的哦，而且，每個(gè)asp組件都有自己屬性和方法，
這個(gè)就要大家自己平時(shí)多看看了哦
用什么組件就多了解那個(gè)組件吧
呵呵
下面我們用現(xiàn)在常用的Jmail組件來詳細(xì)說明組件的用法：
在Asp程序中用Jmail發(fā)郵件的比較多，主要是因?yàn)槎鄶?shù)虛擬主機(jī)支持他，其它的支持的較少。下面是一
個(gè)Jmail發(fā)郵件的例子代碼：
如果您在自己的機(jī)器上試，請(qǐng)下載Jmail.dll，下載解壓后，雙擊Setup.bat 即可完成安裝！
%
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 郵件字符集，默認(rèn)為"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否進(jìn)行ISO編碼，默認(rèn)為True
' 發(fā)送者信息（可用變量方式賦值）
JMail.From = "email@net118.com" ' 發(fā)送者地址
JMail.FromName = "XX" ' 發(fā)送者姓名
JMail.Subject = "郵件主題" ' 郵件主題
' 身份驗(yàn)證
JMail.MailServerUserName = "myusername" ' 身份驗(yàn)證的用戶名
JMail.MailServerPassword = "mypassword" ' 身份驗(yàn)證的密碼
' 設(shè)置優(yōu)先級(jí)，范圍從1到5，越大的優(yōu)先級(jí)越高，3為普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一個(gè)收件人【變量email：收件人地址】可以同一語句重復(fù)加入多個(gè)
JMail.AddRecipient("webmaster@net118.com")
' 加入附件【變量20051027171159.htm：附件文件的絕對(duì)地址，確保用戶IUSR_機(jī)器名有訪問的權(quán)限】
' 【參數(shù)設(shè)置是(True)否(False)為Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
' 郵件主體（HTML(注意信件內(nèi)鏈接附件的方式)）
JMail.HTMLBody = "html>head>META content=zh-cn http-equiv=Content-Language>meta http-
equiv=""Content-Type"" content=""text/html; charset=gb2312"">style type=text/css>A:link {
FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-
DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION:
underline}BODY {FONT-SIZE: 9pt} -->/style>/head>body>font color=red>郵件正文
/font>br>font color=green>郵件正文/font>br>b>郵件正文/b>/body>/html>"
' 郵件主體（文本部分）
JMail.Body = "我們的郵件采用了HTML格式，但是您的郵件查看軟件可能不支持。。。郵件正文,郵件正
文,郵件正文"
' 發(fā)送【調(diào)用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("smtp.163.com")
' 關(guān)閉并清除對(duì)象
JMail.Close()
Set JMail = Nothing
if err.number>0 then
response.write "發(fā)送發(fā)送失??！"
else
response.write "郵件發(fā)送成功！"
end if
%>
如果想要Jmail的詳細(xì)方法就來我的博客看看吧！http://blog.91time.com
呵呵這樣就可以用jmail來發(fā)郵件了
能發(fā)郵件的組件還有 Cdonts組件等等，
asp 的功能遠(yuǎn)遠(yuǎn)不只這些，象用asp的fso（文件系統(tǒng)組件）等等，很多強(qiáng)大的功能都等我們?nèi)W(xué)習(xí)，
五天搞定ASP就是給出學(xué)的朋友領(lǐng)條路，
這五天說的都是ASP的精華，大家有空多看看，就能理解了，
謝謝大家的支持，
如果有什么問題請(qǐng)來我的博客http://blog.91time.com
※※※※※呵呵，
如果那個(gè)高手看到哥們有寫錯(cuò)的地方請(qǐng)指出，
我一定改正，※※※※※※※※※※

標(biāo)簽：衢州萍鄉(xiāng) 衡水廣元大理蚌埠棗莊江蘇

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《5天學(xué)會(huì)asp》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

佳木斯湛栽影视文化发展公司

5天學(xué)會(huì)asp

QQ咨詢

電話咨詢