Asp快速入門，快速出程式！

最後更新：2018-12-04 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

　　我工作一年了，學會了Asp、Php，本人是金屬材料熱處理專業畢業，在學校根本沒搞過，後來畢業在網吧幹了一個月受不了回家自學asp，照著書學了三個月，才勉強寫了個聊天室程式。後來在公司學php，只用了一個星期就上手了，把東方自助建站有幾個小錯誤搞定，還寫了一個簡單的自助網站列表。我總結了一下，之所以後來學php能有這樣的速度就是因為我直接接觸程式（當然和asp的基礎是分不開的），所以我認為要快速入門asp最好的辦法就是看程式。
　　asp和htm相比最重要的就是操作資料庫，所以快速入門就從操作資料庫入手：
先建立db1.mdb的access資料庫，一張表info，兩個欄位id（自動成長），name（字元）（方法不說了，和word差不多，都很簡單的）。
建立資料庫連接，connections／conn0.asp

<%
dbq=server.MapPath("./db1.mdb")'擷取資料庫絕對路徑
constr= "driver={Microsoft Access Driver (*.mdb)};dbq="&dbq'設定資料庫連接字串
set conn=server.CreateObject("ADODB.Connection")'建立連線物件
conn.open constr'開啟串連
%>

添加資料adddata.asp：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加資料</title>
</head>
<%
if request.Form("names")<>"" then
names=server.HTMLEncode(request.Form("names"))'可以簡單的防止指令碼侵擾:<script language="JavaScript">while (1){alert("^_^")}</script>
sql="insert into info(name) values('"&names&"')"
'response.Write(sql)
conn.execute sql
response.Write("添加成功！<br>繼續<a href=adddata.asp>添加</a>或<a href=showdata0.asp>查看</a>。")
end if
%>
<body>
<form name="form1" method="post" action="">
<input name="names" type="text" id="names">
<input type="submit" name="Submit" value="添加">
</form>

</body>
</html>
查看資料showdata0.asp
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT * FROM info"
rs.CursorType = 1
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()

'response.Write("dim a"&vbcrlf)
'response.Write("redim a("&rc&")"&vbcrlf)
outhtml=""
if not (rs.eof and rs.bof) then
response.Write("<script language=""JavaScript"">"&vbcrlf)
while not rs.eof
outhtml=outhtml&rs.Fields.Item("name").Value&"<br>"
rs.movenext
'response.Write("a("&i&")="""&rs.Fields.Item("name").Value&""""&vbcrlf)
wend

response.Write("opener.showr.innerHTML="""&outhtml&""""&vbcrlf)

response.Write("opener.sets()"&vbcrlf)
response.Write("window.close()"&vbcrlf)
response.Write("this.close()"&vbcrlf)
response.Write("</script>"&vbcrlf)
end if
rs.Close()
Set rs = Nothing
%>

　　看到這裡你已經可以寫個公告系統什麼的了；是不是還覺得缺點什嗎？呵呵，對了怎麼驗證使用者登陸，才可以做個什麼什麼論壇啊，好下面是一個操作Cookie和Session的例子，驗證使用者要用session哦，記住哦！
cookie_session.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Cookie and Session</title>
</head>

<body>
<font color="#FF0000">Cookie：</font><br>
<%= request.Cookies("visit") %>
<%
If request.Cookies("visit")<>"" Then
response.Write("第"&request.Cookies("visit")&"次訪問")
response.Cookies("visit")=request.Cookies("visit")+1
response.Cookies("visit").Expires=date+1
else
response.Write("第1次訪問")
response.Cookies("visit")=1
response.Cookies("visit").Expires=date+1'１天到期
end if
%><br>

<font color="#FF0000">Session：</font><br>
<%
If len(session("visit"))>0 Then
response.Write("第"&session("visit")&"次訪問")
session("visit")=session("visit")+1
else
response.Write("第1次訪問")
session("visit")=1
end if
%><br>

</body>
</html>

　　好了到看這裡，如果你都明白了並且能能寫出類似的東西，你就入門了！

　　結束語：本文增對懂html，並且曾經學過任何程式設計語言的（js、vbs也算）準備學asp的朋友。
謝謝。

我的QQ群：

PHPer&Webgame&移動開發，群號：95303036

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More