ASP的資料搜尋

今天學會了 花了我一個下午3小時
原始碼如下
網頁表單部份
＜！ＤＯＣＴＹＰＥ　ｈｔｍｌ　ＰＵＢＬＩＣ　＂－／／Ｗ３Ｃ／／ＤＴＤ　ＸＨＴＭＬ　１．０　Ｔｒａｎｓｉｔｉｏｎａｌ／／ＥＮ＂　＂ｈｔｔｐ：／／ｗｗｗ．ｗ３．ｏｒｇ／ＴＲ／ｘｈｔｍｌ１／ＤＴＤ／ｘｈｔｍｌ１－ｔｒａｎｓｉｔｉｏｎａｌ．ｄｔｄ＂＞
＜ｈｔｍｌ　ｘｍｌｎｓ＝＂ｈｔｔｐ：／／ｗｗｗ．ｗ３．ｏｒｇ／１９９９／ｘｈｔｍｌ＂＞
＜ｈｅａｄ＞
＜ｍｅｔａ　ｈｔｔｐ－ｅｑｕｉｖ＝＂Ｃｏｎｔｅｎｔ－Ｔｙｐｅ＂　ｃｏｎｔｅｎｔ＝＂ｔｅｘｔ／ｈｔｍｌ；　ｃｈａｒｓｅｔ＝ｂｉｇ５＂　／＞
＜ｔｉｔｌｅ＞無標題文件＜／ｔｉｔｌｅ＞
＜ｓｔｙｌｅ　ｔｙｐｅ＝＂ｔｅｘｔ／ｃｓｓ＂＞
＜！－－
ｂｏｄｙ，ｔｄ，ｔｈ　｛
ｆｏｎｔ－ｓｉｚｅ：　１８ｐｘ；
｝
ｂｏｄｙ　｛
ｂａｃｋｇｒｏｕｎｄ－ｉｍａｇｅ：　ｕｒｌ（ｉｍａｇｅｓ／ｂｇＭａｉｎ３．ｊｐｇ）；
｝
ａ：ｌｉｎｋ　｛
ｆｏｎｔ－ｓｉｚｅ：　２４ｐｘ；
ｆｏｎｔ－ｗｅｉｇｈｔ：　ｂｏｌｄ；
ｃｏｌｏｒ：　＃ＦＦ００００；
ｔｅｘｔ－ｄｅｃｏｒａｔｉｏｎ：　ｎｏｎｅ；
｝
ａ：ｈｏｖｅｒ　｛
ｆｏｎｔ－ｓｉｚｅ：　２４ｐｘ；
ｃｏｌｏｒ：　＃ＦＦＦＦ００；
ｔｅｘｔ－ｄｅｃｏｒａｔｉｏｎ：　ｎｏｎｅ；
｝
ａ：ｖｉｓｉｔｅｄ　｛
ｆｏｎｔ－ｓｉｚｅ：　２４ｐｘ；
ｃｏｌｏｒ：　＃００００ＦＦ；
ｔｅｘｔ－ｄｅｃｏｒａｔｉｏｎ：　ｎｏｎｅ；
｝
－－＞
＜／ｓｔｙｌｅ＞
＜／ｈｅａｄ＞

＜ｂｏｄｙ＞
＜ｐ＞請輸入查詢條件　（例如：單字　，　字串）＜／ｐ＞
＜ｆｏｒｍ　ｉｄ＝＂ｆｏｒｍ１＂　ｎａｍｅ＝＂ｆｏｒｍ１＂　ｍｅｔｈｏｄ＝＂ｐｏｓｔ＂　ａｃｔｉｏｎ＝＂ｓｅａｒｃｈｏｋ．ａｓｐ＂＞
　　＜ｌａｂｅｌ＞
　　＜ｉｎｐｕｔ　ｔｙｐｅ＝＂ｔｅｘｔ＂　ｎａｍｅ＝＂ｍｙｔｅｘｔ＂　ｉｄ＝＂ｍｙｔｅｘｔ＂　／＞
　　＜／ｌａｂｅｌ＞
　　＜ｌａｂｅｌ＞
　　＜ｉｎｐｕｔ　ｔｙｐｅ＝＂ｓｕｂｍｉｔ＂　ｎａｍｅ＝＂ｂｕｔｔｏｎ＂　ｉｄ＝＂ｂｕｔｔｏｎ＂　ｖａｌｕｅ＝＂開始查詢＂　／＞
　　＜／ｌａｂｅｌ＞
　　＜ｌａｂｅｌ＞
　　＜ｉｎｐｕｔ　ｔｙｐｅ＝＂ｒｅｓｅｔ＂　ｎａｍｅ＝＂ｂｕｔｔｏｎ２＂　ｉｄ＝＂ｂｕｔｔｏｎ２＂　ｖａｌｕｅ＝＂重訢輸入＂　／＞
　　＜／ｌａｂｅｌ＞
＜／ｆｏｒｍ＞
＜ｐ＞＆ｎｂｓｐ；＜／ｐ＞
＜／ｂｏｄｙ＞

＜／ｈｔｍｌ＞

結果連結ACCESS部份



＜ｈｅａｄ＞
＜ｍｅｔａ　ｈｔｔｐ－ｅｑｕｉｖ＝＂Ｃｏｎｔｅｎｔ－Ｔｙｐｅ＂　ｃｏｎｔｅｎｔ＝＂ｔｅｘｔ／ｈｔｍｌ；　ｃｈａｒｓｅｔ＝ｂｉｇ５＂＞＜ｓｔｙｌｅ　ｔｙｐｅ＝＂ｔｅｘｔ／ｃｓｓ＂＞
＜！－－
ｂｏｄｙ　｛
ｂａｃｋｇｒｏｕｎｄ－ｉｍａｇｅ：　ｕｒｌ（ｉｍａｇｅｓ／ｂｇＭａｉｎ１＿０２．ｇｉｆ）；
ｂａｃｋｇｒｏｕｎｄ－ｒｅｐｅａｔ：　ｎｏ－ｒｅｐｅａｔ；
ｂａｃｋｇｒｏｕｎｄ－ａｔｔａｃｈｍｅｎｔ：　ｆｉｘｅｄ；
｝
－－＞
＜／ｓｔｙｌｅ＞
＜！－－ｍｓｔｈｅｍｅ－－＞＜ｌｉｎｋ　ｒｅｌ＝＂ｓｔｙｌｅｓｈｅｅｔ＂　ｔｙｐｅ＝＂ｔｅｘｔ／ｃｓｓ＂　ｈｒｅｆ＝＂＿ｔｈｅｍｅｓ／ｃｎａｒｔ／ｃｎａｒ１０１１－１０５．ｃｓｓ＂＞＜ｍｅｔａ　ｎａｍｅ＝＂Ｍｉｃｒｏｓｏｆｔ　Ｔｈｅｍｅ＂　ｃｏｎｔｅｎｔ＝＂ｃｎａｒｔ　１０１１＂＞
＜／ｈｅａｄ＞


＜％　ｍｙｔｅｘｔ＝ｒｅｑｕｅｓｔ（＂ｍｙｔｅｘｔ＂）　
Ｓｅｔ　ｃｏｎｎ　＝　Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（＂ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ＂）
ｃｏｎｎ．Ｏｐｅｎ　＂ＤＲＩＶＥＲ＝｛Ｍｉｃｒｏｓｏｆｔ　Ａｃｃｅｓｓ　Ｄｒｉｖｅｒ　（＊．ｍｄｂ）｝；　ＤＢＱ＝＂　＆　Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（＂９６０４２６．ｍｄｂ＂）　
　ｓｅｔ　ｒｓ＝ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（＂ａｄｏｄｂ．ｒｅｃｏｒｄｓｅｔ＂）　


　ｓｑｌ＝＂ｓｅｌｅｃｔ　＊　ｆｒｏｍ　ｍｙｄａｔａ　　ｗｈｅｒｅ　內容　ｌｉｋｅ　＇％＂＆　ｍｙｔｅｘｔ　＆＂％＇　＂

ｒｓ．ｏｐｅｎ　ｓｑｌ，ｃｏｎｎ，１，１
％＞

＜ＨＴＭＬ＞
＜ＢＯＤＹ＞
＜ＣＥＮＴＥＲ＞＜ＴＡＢＬＥ　ｗｉｄｔｈ＝＂９５％＂　ｂｏｒｄｅｒ＝＂１＂　ａｌｉｇｎ＝＂ｃｅｎｔｅｒ＂　ｂｇｃｏｌｏｒ＝＂＃ＦＦＦＦＦＦ＂　ｉｄ＝＂ｔａｂｌｅ１＂＞
＜ＴＡＢＬＥ　ＣＯＬＳＰＡＮ＝８　ＣＥＬＬＰＡＤＤＩＮＧ＝５　ＢＯＲＤＥＲ＝０＞

＜ＴＲ＞

＜ＴＤ　ＡＬＩＧＮ＝ＣＥＮＴＥＲ　ＢＧＣＯＬＯＲ＝＂＃００８０８０＂＞＜ＦＯＮＴ　ＣＯＬＯＲ＝＂＃ＦＦＦＦＦＦ＂＞編號＜／ＦＯＮＴ＞＜／ＴＤ＞

＜ＴＤ　ＡＬＩＧＮ＝ＣＥＮＴＥＲ　ＢＧＣＯＬＯＲ＝＂＃００８０８０＂＞＜ＦＯＮＴ　ＣＯＬＯＲ＝＂＃ＦＦＦＦＦＦ＂＞主旨＜／ＦＯＮＴ＞＜／ＴＤ＞

＜ＴＤ　ＡＬＩＧＮ＝ＣＥＮＴＥＲ　ＢＧＣＯＬＯＲ＝＂＃００８０８０＂＞＜ＦＯＮＴ　ＣＯＬＯＲ＝＂＃ＦＦＦＦＦＦ＂＞內容＜／ＦＯＮＴ＞＜／ＴＤ＞

＜／ＴＲ＞
＜％　Ｄｏ　ｗｈｉｌｅ　ｎｏｔ　ｒｓ．ＥＯＦ　％＞
＜ＴＲ＞

＜ＴＤ　ＢＧＣＯＬＯＲ＝＂ｆ７ｅｆｄｅ＂　ＡＬＩＧＮ＝ＣＥＮＴＥＲ＞＜％＝　ｒｓ（＂編號＂）　％＞＜／ＴＤ＞

＜ＴＤ　ＢＧＣＯＬＯＲ＝＂ｆ７ｅｆｄｅ＂　ＡＬＩＧＮ＝ＣＥＮＴＥＲ＞＜％＝　ｒｓ（＂主文＂）　％＞＜／ＴＤ＞

＜ＴＤ　ＢＧＣＯＬＯＲ＝＂ｆ７ｅｆｄｅ＂　ＡＬＩＧＮ＝ＣＥＮＴＥＲ＞＜％＝　ｒｓ（＂內容＂）　％＞＜／ＴＤ＞

＜／ＴＲ＞　



＜％　

ｒｓ．ＭｏｖｅＮｅｘｔ

Ｌｏｏｐ　

ｒｓ．Ｃｌｏｓｅ

Ｓｅｔ　ｃｏｎｎ　＝　Ｎｏｔｈｉｎｇ

％＞


＜／ＴＡＢＬＥ＞＜／ＣＥＮＴＥＲ＞
＜／ＢＯＤＹ＞
＜／ＨＴＭＬ＞