过期域名预定抢注

 找回密碼
 免费注册

學好ASP編程必會的代碼

[複製鏈接]
發表於 2008-2-26 22:38:54 | 顯示全部樓層 |閱讀模式
下面把這些語法按照程序員常用的模塊方式組合起來,請大家按照模塊來記憶,然後按照模塊來應用,不一定要一個一個字母的背下來,關鍵是用到這些模塊的時候能準確的,拿出來,安上去!
: w0 C# @9 K3 z; I. l
) }- r& X% T, P3 u3 j. y注意下面的標點符號,全部都為英文中的半角符號,如果寫成了全角的就一定運行不起來了,切忌切忌……
/ Q: M$ n7 j* P8 `' U: K/ v0 Y' S, J9 R. I* c8 {# N
1、常用寫法& m5 j# X* k+ T2 t4 o+ p- `
(1)ASP開始結束符語法:<%    %> 文件後綴.asp
9 }5 }. a- ]# b7 q5 x(2)Request.form("title") '獲取表單中的一個輸入框name叫title的值
0 J2 y  N, w* A4 u9 h5 v7 [. J(3)Request.querystring("title") '獲取連接中的一個參數title=後面的值
3 h7 r/ N* U2 R+ B( h# u$ X& y3 S$ H6 d5 O
(4)dim str
; o, d2 N2 k  q, y& }- D   str="我愛你"; M/ x& j/ s3 y+ [. a
   response.write(str)  '向屏幕輸出
; ?( `0 p( t4 j: l; F" N* r(5) response.write "ok 程序運行到這裡了!"
$ Q5 R4 C; g4 f6 v+ g   & Z. o# i! R, i/ K8 ~: a* [
(6) sql="select * from news"
* {3 m( f) X! X    response.write sql
4 r, D, l2 U8 D. v    '調試和查看sql語句寫法是否正確的語句常用到
* y9 N! A4 ]8 h- T! J! p* o. H3 f; y5 d
(7)Response.Redirect("login.asp")  '跳轉到另外一個頁面
; o& U0 T7 C( W( h6 W/ {5 B2 B(8)response.redirect("admin.asp") '轉到後台# c6 @# I% Q5 I) \/ U/ ^( a
(9)Response.end  '程序輸出截至,不顯示該條語句下面的內容了
! X" {& [6 q! H- n. z(10)Response.Write("<script>alert('???!')</script>")'彈出提示窗口* _( f( l! N5 F" H1 P2 G
8 u% z8 A% J/ J) ?
2、判斷語句
2 ^; i) A, M& ?! \2 C(1)判斷表單傳來的用戶名和密碼是否正確,並提示
$ i$ m' ^. ^! P3 j' x) W. HIf  request("username")="admin" then5 Z% j3 M, G" j9 n0 {, n
    Response.write"恭喜,你已經登錄成功"% E: J, h1 z7 I. `
Else
( _! A7 y9 O; j) F  W6 g    Response.write"對不起,您輸入的用戶名錯誤,請返回重輸入"
& I" w+ l! J6 }0 U1 m- i7 nEnd if$ Z( @% c, i+ }2 X( I! j

$ d  C9 P" \0 p7 M( \* `(2)同時判定用戶名和密碼都正確就轉入到後台,否則退回到從新輸入頁面/ o! h9 W9 c+ b+ n6 t
If request("name")="admin" and request("pass")="admin" then
/ B% ]6 @" v) y  q    Response.redirect"admin.asp". i9 e3 B+ j5 {6 ^  b- \- _3 D
Else
1 P3 U7 r4 i4 v/ G# \    Response.redirect"login.asp"
. Y# K6 q4 `) u0 F1 b; s. |5 |8 qEnd if
" x, K5 z$ [6 D4 W7 M$ ]* g% R: q  r) S( ~$ [
(3)變量值和字符串值合起來用&& U/ l& V- K1 G. J2 V# i6 [- [, ^
   a="我"5 W' s1 Y2 X% }* e% S
   b="愛"
2 y4 v8 ?" r) r   c="你"  w) z0 ^3 a) S, t
   response.write a&b&c&"媽媽"4 r' B3 E6 H5 S( u
4 z- v2 t: n- [" c- h
3、循環語句:循環顯示6條數據庫中的記錄
2 a! c  X6 H7 n(1)寫法1:2 c9 ?8 ]  L  t6 ~9 n
do while not rs.eof
3 P9 E# |- k6 G7 q4 U$ s9 z) |" ~' G    response.write  "<br><font color=#000000>"&rs("title")&"</font><br>"- o8 r. J( t0 E2 }6 g9 M2 S/ T
rs.movenext, k( h% |$ t& @& c5 H+ Y! E3 f
loop7 N, _5 U. [. D0 V1 \
(2)寫法二:1 \& g/ ^8 @1 @( K% L( P% [2 b) F
for n=1 to 6
% x+ h5 S! U/ d( z' ]  E* G% q. i    response.write  rs("title")&"<br>"8 b' H, Y/ [( y* l. d3 E
    if  rs.eof then
8 C; u8 |. [! G2 s! t; N; ]        exit for '跳出for循環0 H4 t) W& f3 ?  v* }6 k
    else
8 I0 e( C/ J8 F3 U        rs.movenext '記錄集下移一條' S# H0 N( m$ ?( B6 e6 d1 a
    end if+ ?) ]6 S# z% b
next
  }; v! }. M6 x8 O$ Q8 N0 k; C2 u! ?* D
4、常用變量轉換函數! s; h4 I- k9 x
Now() 函數返回系統時間* m0 \0 N7 s) w1 P$ @! h
Date() 函數返回當前系統日期., S. |" N# d' T4 J) p- Q
CStr(int) 函數轉化一個表達式為字符串, o4 ?1 z3 F$ [$ I! l8 L/ F' K
CInt(string) 將一個表達式轉化為數字類型
* _+ m+ V5 }4 R5 L( rTrim(request("username")) 函數去掉字符串左右的空格
2 p% J% i- g4 K% q& n4 ~6 mLeft(rs("title"),10)&"..." 函數返回字符串左邊第10個字符以前的字符(含第length個字符),一般在限制新聞標題的顯示長度的時候用
3 b7 u4 @# l  P7 F8 r# c* {, DLen(string) 函數返回字符串的長度. 中文字符長度也計為一
3 S8 |( B( `) Qrequest.serverVariables("remote_host")'取得來訪問的IP6 z0 v6 l: O' |8 U1 G4 K
mid(str,起始字符,[讀取長度]):截取字符串中間子字符串 # l, H! P7 X/ Q3 C% G1 D# e
right(str,nlen):從右邊起截取nlen長度子字符串 + h* ]% \8 @( R) ^9 }1 J
Lcase(str):字符串轉成小寫 % e- I/ j; _, ]' t8 D% ?
Ucase(str):字符串轉成大寫 * K( }; F' f% k  D3 n4 N
Ltrim(str):去除字符串左側空格1 P1 L0 H0 f7 V& o# [, v
Rtrim(str):去除字符串右側空格
5 V: P- R9 I) kreplace(str,查找字符串,替代字符串,[起始字符,替代次數,比較方法]):
0 u9 y* U) @7 e! ~8 v替換字符串 / i8 @* t3 H( a! m4 x3 q
註:默認值:起始字符 1;替代次數 不限;比較方法 區分大小寫(0) ) Q' i5 t+ F) z
InStr([起始字符,]str,查找字符串[,比較方法]):檢測是否包含子字符串 可選參數需同時選 返回起始位置 + o' {- b0 X9 v6 h
2 I3 y- l' H' m

, K8 e/ G+ G+ F- S5 o4 B4 }5、Access數據庫連接代碼2 B! Y( J8 Z' Q3 ?4 ~  j- S" \
(1)方法一:: C! A+ a. e. D; K. A4 I
db="mydata.mdb" '如果放在目錄中,就要寫明"database/mydata.mdb"
' \" l. k7 Z7 ]- ?Set conn = Server.CreateObject("ADODB.Connection")( _( \  ?* t3 p! @
cServer.MapPath(db)
, V6 z$ d7 R& m% wconn.Open connstr' x! x- _% [2 |$ o# j1 T  o

3 L) U3 a) b. b5 `% ]8 z) H(2)方法二:
4 a1 N( y/ f$ H5 R- L9 }# F, q'如果你的服務器採用較老版本Access驅動,請用下面連接方法
$ R7 T% X9 M! Y. f: b, F) |' d& b7 cdb="mydata.mdb" '如果放在目錄中,就要寫明"database/mydata.mdb"# H  L* t( o9 y4 F0 a4 l
Set conn = Server.CreateObject("ADODB.Connection")
$ `8 D9 j5 J, V5 T1 {1 Nc & Server.MapPath(db)
. a/ ^! S2 t8 g: G. n! f$ q* vconn.Open connstr
! |1 D' ]5 V4 R5 N/ O. ]
6 u' A+ c, S. \' k6、標準的用Sql語句和asp操作數據的常用寫法
$ D' _, D6 G  h' L1 E包括取全部記錄
! T/ c5 f2 a: ~+ h4 R" j/ _4 ZSet Rs=Server.CreateObject("ADODB.RecordSet")4 `+ F% S/ Q- Y
SqlStr="select * from news"( Y, q" d8 J" a  b: Q
Rs.Open SqlStr,conn,1,1 '運行sql語句,把數據提出到rs對像中/ {& q8 ~+ l) L- k8 e7 c
  P& k: ~3 I. |  t2 c& E& ?
選取幾條數據. M+ e% x+ ^4 h
Set Rs=Server.CreateObject("ADODB.RecordSet")
. d& H, R5 [8 [2 @SqlStr="select top 6 * from news"% N) [6 j$ P% f: K! |6 Q0 j
Rs.Open SqlStr,conn,1,1 '運行sql語句,把6條數據提出到rs對像中
& s( K+ i8 A1 O) S& p% A. V9 o& ]& C$ B$ r3 C/ T
選取一條指定表中id字段數值的數據: e8 s" K; y- \# C2 o
Set Rs=Server.CreateObject("ADODB.RecordSet")
6 s/ f  d+ i6 DSqlStr="select * from news where id="&request("id")
9 W4 Q' \5 x0 s, B4 XRs.Open SqlStr,conn,1,1 '運行sql語句,把6條數據提出到rs對像中$ M/ V9 p3 B$ O  L5 E

. F) |' }/ b1 F, l獲取一條表單傳過來的數據,然後加入到一個表當中0 G$ [$ p  B# i* J# ]
dim a,b,c,d
# D* f3 q9 ]& L$ f  {a=request.form("a")
7 _/ V3 I6 T  j5 U+ u9 zb=request("b")
) [# E* {3 o# Lc=request("c")8 T) c9 k' a7 p4 h2 s
d=request("d")
6 @$ B% s# ^% ssqlstr100000="insert into huiyuanbiao(yonghuming,mima,wenti,daan)    values('"&a&"','"&b&"','"&c&"','"&d&"')"$ o5 X, x/ C" i
conn.execute sqlstr100000' ^- I+ A+ z2 o, @# j
response.write"恭喜,新數據加入成功!"
) C7 C# N4 R; H2 k# l) f4 p0 o0 X: Z$ n: [, s0 n
修改一條指定表中id字段數值的數據,用表單傳過來的數據替換" D: t. ~+ V8 ~' t9 G
dim a,d,e
( u# |# Z4 }0 X: Ya=request("id"), j. k6 a3 S8 V* o- R& G- M
d=request.form("d")
3 h4 ]7 s7 A- b; z$ ge=request.form("e")5 g4 t5 z$ x% D! R) n
sqlstr="update huiyuanbiao set yonghuming='"&d&"',mima='"&e&"' where id="&a9 z& a  Y* g2 r4 q. m+ H
response.write sqlstr, y) [5 j- ^& z1 `+ h$ N
conn.execute sqlstr$ ~9 Y7 M1 E" Q3 e
response.write"恭喜,數據修改成功!"
; R2 u: {( W1 E! g/ B: w8 u
% H3 O6 Q8 z+ _7 y+ K5 P
( H' s: G: \) |. [刪除一條指定表中id字段數值的數據
4 A: r/ N4 o) G0 a2 ldim a* j9 y0 O( Q) \8 T
a=request("delid")
4 b, d+ s6 L3 v& ysqlstr="delete from huiyuanbiao where id="&a
- @" S% |; G; Hconn.execute sqlstr
( P* \8 b! Y0 Oresponse.write"恭喜,刪除成功!"9 f/ h6 |# ]! y9 [1 I$ Q

1 O! Q. Q7 x( R7 a/ P. K7、用Recordset對像和asp操作數據庫的常用寫法
5 b( }( z, o/ ]7 `(1)用sql語句,取出news表中所有的數據放到rs中,按照數據庫默認排序, p' \, u: n+ o+ ]1 _
    Set Rs=Server.CreateObject("ADODB.RecordSet"): H5 \$ U, x. D8 M
    SqlStr="select * from news", V. ?, l% C% z
    Rs.Open SqlStr,conn,1,1. a5 l6 `& O' R/ E  l* l  @
, G  }8 Y7 Q7 i5 Q
(2)取出news表中前6條數據放到rs中,按照數據庫默認排序方式- K$ ^( K# I  [4 o, I6 T
    Set Rs=Server.CreateObject("ADODB.RecordSet")
1 ^- t* k( P8 K. W) @" `    SqlStr="select top 6 * from news"% e6 e. r2 \$ F
    Rs.Open SqlStr,conn,1,1' Y2 G8 u, J& x

6 t7 h) z0 }4 [2 f% f(3)循環顯示6條rs對像中存在的數據,列表顯示, m+ A7 u: a" U  o

& b$ \4 ^* v1 f' y6 ^7 s3 [    不帶連接的寫法) b) q; y5 S5 |  g+ i
    for n=1 to 6( F0 n8 V, X+ @0 b0 l. [- a& f
       response.write  rs("title")&"<br>"/ n% K( V9 f1 W8 G+ _" i
       if  rs.eof then
$ Q$ Y+ @( l$ y0 j+ ]          exit for
! e6 p7 a7 c0 ^# |! s       else
% ^/ z3 |3 A* t, {  h; M* O          rs.movenext- o. q1 [7 Z4 E, x& q4 _$ a! q9 Z
       end if
' `& N+ n  X0 \! y    next6 A0 }8 r" Z. U( ]' i2 w9 ?8 C
- d8 b" ~% ~! J& Q4 ~: C" Y! f9 {
   帶連接的寫法
6 i# o7 @; U& H; S* b& `; O    for n=1 to 6( K" n/ Y( C/ U( c  Z; C4 ^+ w
        response.write "<a href=show.asp?id=rs("id")>"& left(rs("title"),20)&"</a><br>") O1 e% I; @' W9 S% G/ O. [
        if  rs.eof then
1 L; i! j2 ^7 m$ i0 S& b) ?. D: c            exit for
4 Q  E* M' a1 p) ?3 s7 }        else( V  }# \9 {( q/ Y
            rs.movenext1 I  J3 d" k% \
        end if
) `% e9 x% R9 E" `# |    next  @4 l/ q3 P- d5 V

: u& @7 ]' V  ]- d, z/ U$ u(4)向數據庫添加一條數據代碼
/ h* O2 J% k; S3 s! T- ?9 ISet Rs=Server.CreateObject("ADODB.RecordSet")
7 {  j& |! O5 z$ ]* {0 y+ i4 K4 uSqlStr="select * from news"
- U8 U7 F8 K  V1 d; \" Q  ~Rs.Open SqlStr,conn,1,3'注意這裡的1,3代表可以寫入的打開數據表4 @! \2 q7 ]/ N# g/ t
Rs.addnew; \0 o7 w# s, ]7 {
Rs("title")=trim(request.form("title"))/ M/ @% t: B7 M$ N
Rs("neirong")=request.form("neirong")
& G4 V3 L$ x9 d4 cRs("date")=now()
/ v8 p; s$ {9 Frs.update         '真正寫入數據庫( s- \  K8 T/ Q
  Y: }# e3 }* Y2 w) A0 e! x
(5)修改一條記錄的代碼,通過(2)中的連接傳遞過來了id數值
9 y# L- D$ ]6 G& m" x. O% HSet Rs=Server.CreateObject("ADODB.RecordSet")
# B2 _- K* M, s( CSqlStr="select * from news where id="&request("id")5 s( O6 B1 n$ I7 K' |; b
Rs.Open SqlStr,conn,1,3   '注意這裡的1,3代表可以寫入的打開數據表
0 N0 R/ O/ n4 s" Q; a7 GRs("title")=trim(request("title"))8 _3 p0 N& a0 W/ S' ^' u" E# a
Rs("neirong")=request("neirong")2 k# B% X' X$ K7 H1 c* `
Rs("date")=now() 3 J& s  m9 w4 Q, L
rs.update         '真正寫入數據庫% {& d# f( t4 L! ^: y

# x2 g. l9 r# ?: x(6)刪除數據庫中一條記錄,通過連接傳遞過來了數據得id數值4 @0 V: J! U; _9 G, ^/ `; c( v$ W/ }
Set Rs=Server.CreateObject("ADODB.RecordSet")+ p! I; @% q; K& e
SqlStr="select * from news where id="&request("id")
7 `% T4 i' U: r) iRs.Open SqlStr,conn,1,3   '注意這裡的1,3代表可以寫入的打開數據表' f  O( v# O# m5 u3 ^3 e8 H
rs.delete  '刪除該條數據" L$ a; ^* i9 u/ h; r5 _

7 s& _, n" L, {, g# k8、當點擊按鈕時候表單帶著的數據傳送到哪個文件,在哪裡指定?3 M6 T- Q, ?: A0 t1 x
  F% }% B6 k  T1 B! c
<form  method="post" action="addsave.asp">- ~  Y# \# a4 o/ o3 K
  <input type="text" name="a">7 S% s( H  j* _; ?3 Y" A1 g+ F
  <input type="text" name="b">
) H" F! b& X; E; u  <input type="submit" name="Submit" value="提交">5 T1 I2 i& s, Y/ x( \
</form>% E: r9 {4 @" F/ A5 p

9 ?3 P* z5 _; T6 ]' U7 A' D1 y9、表單提交來的數據接收並顯示到屏幕上的代碼
4 D5 v0 i$ [# z! b4 uresponse.write request.form("a")" j9 P: ~. u- a" a* W5 S
response.write now()  v( a, h& G+ o7 `) @
response.write trim(request.form("b"))
8 d5 K  ?$ c2 j! k- E/ u4 G: _5 J# J9 z2 v9 U* B
10、利用Application對像作計數器的語法2 W$ X3 c) E, M' F4 S

; H$ Z0 H+ I4 I3 `( t在網頁的頭部加入
) m: f& X" T0 }6 YApplication.Lock
' n: T: H+ @/ s# s+ r" r9 [8 lApplication("counter") = Application("counter") + 1
1 a3 n4 {! w% n. ?1 Z, e0 w' h$ ZApplication.UnLock( N8 ~) U1 S* b. K: B' ^3 q5 a4 I; V3 A
在需要顯示計數內容的網頁的地方,加入下面的語句
- e$ R4 k( d1 T5 I$ H0 M  m/ eresponse.write Application("counter")7 A' n" l$ g; n

4 o$ D4 |- G$ o; N8 e8 s8 h11、利用Session對像保護後台管理頁面admin.asp,防止未登陸用戶進入6 o8 q) [1 v! i
. B: I9 |% f$ t7 {0 |4 f" \
第一步、在網站後台網頁需要權限保護的所有網頁的頭部加入下面的代碼,
  I( u# \8 W0 p# R, r/ p, m& I  if session("admin")<>"ok" then- D8 s+ T5 w) j2 l5 r2 L5 I9 T
      response.redirect"login.asp"7 E) O. m, S& J4 j  i
      response.end8 {* W- v- r7 Z: G; L6 o( K  C
  end if& V- w5 \$ z2 T6 V$ [" Y

0 J0 t9 g8 S: \( n$ l" t( `  t第二步、在網站後台登陸頁的檢測表單發來的用戶名和密碼驗證部分標準寫法, T+ {! x( [! F% `, w& ?
AdmName=Request.Form("Name")+ N- t8 [; S8 l) K
AdmPass=Request.Form("Pass") / f, P7 k- p2 p# O6 z
Set Rs=Server.CreateObject("ADODB.RecordSet")
& o! \; W( E5 o/ J% I" PSqlStr="Select * from Admin where name='"&AdmName&"' and pass='"&AdmPass&"'"
0 b' F- }! Q! b5 `9 e6 |Rs.Open SqlStr,conn,1,3
1 [1 Z$ y7 b* O7 _: z3 `
; r8 U" r1 L! s  Bif Rs.EOF AND RS.BOF then! P2 D8 N) I- C4 S8 c5 d8 p
    Response.Redirect("login.asp")
+ F8 J# V7 o8 P8 O% y# p    response.end
$ y0 E3 Q1 C; c1 s) o: P# Belse
! g; g" z# U8 d0 i8 s: z    session("admin")="ok"
  M- v0 D( W; W/ s7 O9 F    Response.Redirect("admin.asp")
; x  g  R- ~, K7 @% x   response.end
' x; l6 v8 P8 G: qend if  S0 z+ g* {' t# c
2 }% @8 x5 T" \% j5 y3 L. C8 n
12、分頁代碼
/ v. A2 `/ Q5 z3 [sql = "select……………………省略了你的從表中取出所有數據的sql語句寫法
0 k# h) v  Y5 l+ x9 H Set rs=Server.Createobject("ADODB.RECORDSET")
& `9 d* D+ `' n! S) o3 c7 S rs.Open sql, conn, 1, 1
+ o8 N- N9 H7 {7 V5 E$ g& G if not rs.eof then( D' `6 [  g" O8 z4 z/ F* X
    pages = 30 '定義每頁顯示的記錄數
) k6 {) i! M6 e5 R    rs.pageSize = pages '定義每頁顯示的記錄數
8 Y( z( b& _- [  N. W' n+ i1 h5 A    allPages = rs.pageCount '計算一共能分多少頁
: u9 q; ]* |) p0 Z    page = Request.QueryString("page")'通過瀏覽器傳遞的頁數4 X; x6 z0 O: t, I1 v
    'if語句屬於基本的排錯處理# G- i& _% n& S/ V+ q6 \7 R9 ?
    if isEmpty(page) or Cint(page) < 1 then
( Z1 A' e$ o9 d0 s, T. l$ _       page = 1& o5 H; y. l# B# |
    elseif Cint(page) > allPages then
  u9 {- D4 j) I: k5 ?8 n       page = allPages 9 W9 P' i- W4 D, i( W/ n. |+ d0 p
    end if& o3 t( J( v3 j1 F1 t
    rs.AbsolutePage = page0 P' }7 A8 ?# N; x: {
    Do while not rs.eof and pages > 0
8 s, A& u" e% ~% k       '這裡輸出你要的內容………………$ N) o5 H! V9 p; }
        pages = pages - 1
) @7 t: ?+ T8 c( r* @/ k1 b* k    rs.MoveNext
6 L7 c( A$ @+ }    Loop3 a  g: r. {) M
 else
5 b& [, \1 r# N' o  Response.Write("數據庫暫無內容!")
9 C4 P. `& g, u& i  ?1 t# |+ I, d End if
$ s3 q' @& d; D4 z* y rs.Close+ z; ]3 H  {/ q7 s$ m7 L
 Set rs = Nothing
! j. |! s% F7 q1 k4 }'分頁頁碼連接和跳轉頁碼程序! j1 P2 {- h; ?% Q# I+ ^
<form Action="" Method="GET">  y2 x$ d2 [: y, G6 N5 F
<%
, Y9 s: T6 @6 G   If Page <> 1 Then% X, }* J% v5 D; n
      Response.Write "<A HREF=?Page=1>第一頁</A>」$ Q/ ~6 f! W$ Z* y
      Response.Write "<A HREF=?Page=" & (Page-1) & ">上一頁</A>「
# Q0 ~; Z% W8 z. M9 @4 }+ r   End If' C- R" k* N0 P' k2 B0 w
   If Page <> allPages Then
: J2 Z' i6 F; M8 f# C      Response.Write "<A HREF=?Page=" & (Page+1) & ">下一頁</A>"
% b- m& d2 b! g0 ~: t& n4 S      Response.Write "<A HREF=?Page=" & allPages & ">最後一頁</A>"
! L+ J( l8 ]" V7 q+ Z9 z9 b, _   End If+ B6 s' l* Z+ w7 Z$ s2 [* K
%>
( E; I3 r4 J( j! H  w輸入頁數:<input TYPE="TEXT" Name="Page" SIZE="3"> 頁數:<font COLOR="Red"><%=Page%>/<%=allPages %></font> " D* q0 z: t, J( [
</form>
" h& g" J% r: T5 [- t6 u* }# j13、分行列顯示圖片和產品名稱的代碼(4列x3行=12個)% x) }: }& h) m: {( x% _
<%' J% L) i$ X& t$ K: `* m
Set Rs=Server.CreateObject("ADODB.RecordSet")3 _8 ]; F' s7 Y- @; e6 |5 j
SqlStr="select top 12 * from myproduct", _# _$ |2 Z% ^. ]# C- B3 n
Rs.Open SqlStr,conn,1,1+ {/ U. w8 Y( L
i=16 b( i% ~1 s6 K+ }' G. _: E6 ]
%>
1 |2 \% R% e) x- Y% S% {8 a7 R<table width="90%"  border="1" cellspacing="0" sellpadding="0">
! p# J/ G/ W1 O' ^1 J: t<tr>
/ [$ A9 L8 d2 [2 _1 F<%  
3 j" V) W% ~& h, Y( ^; V. A) qdo  while not rs.eof( f: I3 X/ h' }: j3 w
%>+ ~* W1 }- d& Y6 l1 y7 G
<td align="center">2 t7 x$ K; [" p  y- j( G# I! ?# n
<img src="<%=rs("imgurl")%>" width="52" height="120"><br>1 P8 B( h0 t) e( u1 H/ j6 `) x5 }
<%=rs("productname")%>
) D9 D# m6 h; u8 I+ _+ ^</td>0 }7 }3 a+ H5 V; O
<% if i mod 4=0 then response.write"</tr><tr>"& _2 a$ G  `* g( G' H
i=i+1" n" p# D9 l6 A$ Y4 Y% z+ B) ^2 P2 G3 i
rs.movenext% }  ?! f4 v  V; j( y
loop
; y0 t1 J% ~- R; \# f4 prs.close- n9 R$ Y% y, A* Y$ T. V
%>4 o6 h- k% _; a- d  {0 J: B8 f
      </tr>6 G" ]: m% |% y9 n6 Z# ?8 J
    </table>
1 k6 q, A- D7 o1 [3 g, {  t
4 d/ R' q0 P/ O, F十四、ASP數據庫連接之ACCESS-SQLSERVER
3 o! Y" D' T3 B1 H$ V: o<%
% z! P3 x( t# n8 GIsSqlData=0      『定義數據庫類別,0為Access數據庫,1為SQL數據庫
+ j" Y2 [6 y/ r6 r" o& VIf IsSqlData=0 Then1 c  d+ F# b* Z1 ?6 v! }5 g
Access數據庫
# h( ?) R- ~; b4 M: qdatapath    ="data/"      數據庫目錄的相對路徑
# t2 X# h8 a$ D" _' ~' p, gdatafile    ="data.mdb"      數據庫的文件名
+ n. w" Z& E. B! w% Qc&Server.MapPath(""&datapath&""&datafile&"")
% S" [. ?8 @' h1 IC&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"5 [7 K" l2 X& P4 M* i
Else
' \$ c" U1 U1 Z1 i/ C) ~+ HSQL數據庫
, E# S* f+ Q4 B4 }0 NSqlLocalName   ="(local)"     連接IP  [ 本地用 (local) 外地用IP ]
' N4 D6 y* y/ k* E" xSqlUsername    ="sa"          用戶名2 Q) f' j( L, n, q8 I
SqlPassword    ="1"           用戶密碼
. `3 k+ |' f2 _" o2 R$ NSqlDatabaseName="data"       數據庫名
3 F! e3 K% K  V# H4 w; B, QC & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
9 U5 ~* B* g% J8 FEND IF
* E% `" x8 r" H& [  c, q5 NOn Error Resume Next
6 U) p5 q& J7 E' WSet conn=Server.CreateObject("ADODB.Connection")6 v7 R; w5 L6 n, P2 O
conn.open ConnStr5 `& U+ \2 t( ?$ j- N
If Err Then
" H/ N3 b5 g! t& y+ e2 Yerr.Clear( ?" q2 c  ~% x2 |( R3 s3 J
Set Conn = Nothing4 c0 U1 v! a% j% `
Response.Write "數據庫連接出錯,請檢查連接字串。") n/ l6 p& {& r2 W* p0 I) l: m' Y) e2 O: J
Response.End
$ {+ N' ~2 ]0 x! t4 `End If; L, x2 d5 c  G
%>
您需要登錄後才可以回帖 登錄 | 免费注册

本版積分規則

过期高净值品牌域名预定抢注

點基跨境 數位編輯創業論壇

GMT+8, 2025-7-6 00:56

By DZ X3.5

小黑屋

快速回復 返回頂部 返回列表