<%
response.buffer = true
with response
.expires = -1
.addheader "pragma","no-cache"
.addheader "cache-ctrol","no-cache"
end with
dim a(10,10)
a(0,1) = "0x3c" '數字0
a(0,2) = "0x66"
a(0,3) = "0xc3"
a(0,4) = "0xc3"
a(0,5) = "0xc3"
a(0,6) = "0xc3"
a(0,7) = "0xc3"
a(0,8) = "0xc3"
a(0,9) = "0x66"
a(0,10)= "0x3c"
a(1,1) = "0x18" '數字1
a(1,2) = "0x1c"
a(1,3) = "0x18"
a(1,4) = "0x18"
a(1,5) = "0x18"
a(1,6) = "0x18"
a(1,7) = "0x18"
a(1,8) = "0x18"
a(1,9) = "0x18"
a(0,10)= "0x7e"
a(2,1) = "0x3c" '數字2
a(2,2) = "0x66"
a(2,3) = "0x60"
a(2,4) = "0x60"
a(2,5) = "0x30"
a(2,6) = "0x18"
a(2,7) = "0x0c"
a(2,8) = "0x06"
a(2,9) = "0x06"
a(2,10)= "0x7e"
a(3,1) = "0x3c" '數字3
a(3,2) = "0x66"
a(3,3) = "0xc0"
a(3,4) = "0x60"
a(3,5) = "0x1c"
a(3,6) = "0x60"
a(3,7) = "0xc0"
a(3,8) = "0xc0"
a(3,9) = "0x66"
a(3,10)= "0x38"
a(4,1) = "0x38" '數字4
a(4,2) = "0x3c"
a(4,3) = "0x36"
a(4,4) = "0x33"
a(4,5) = "0x33"
a(4,6) = "0x33"
a(4,7) = "0xff"
a(4,8) = "0x30"
a(4,9) = "0x30"
a(4,10)= "0xfe"
a(5,1) = "0xfe" '數字5
a(5,2) = "0xfe"
a(5,3) = "0x06"
a(5,4) = "0x06"
a(5,5) = "0x3e"
a(5,6) = "0x60"
a(5,7) = "0xc0"
a(5,8) = "0xc3"
a(5,9) = "0x66"
a(5,10)= "0x3c"
a(6,1) = "0x60" '數字6
a(6,2) = "0x30"
a(6,3) = "0x18"
a(6,4) = "0x0c"
a(6,5) = "0x3e"
a(6,6) = "0x63"
a(6,7) = "0xc3"
a(6,8) = "0xc3"
a(6,9) = "0x66"
a(6,10) ="0x3c"
a(7,1) = "0xff" '數字7
a(7,2) = "0xc0"
a(7,3) = "0x60"
a(7,4) = "0x30"
a(7,5) = "0x18"
a(7,6) = "0x18"
a(7,7) = "0x18"
a(7,8) = "0x18"
a(7,9) = "0x18"
a(7,10)= "0x18"
a(8,1) = "0x3c" '數字8
a(8,2) = "0x66"
a(8,3) = "0xc3"
a(8,4) = "0x66"
a(8,5) = "0x3c"
a(8,6) = "0x66"
a(8,7) = "0xc3"
a(8,8) = "0xc3"
a(8,9) = "0x66"
a(8,10)= "0x3c"
a(9,1) = "0x3c" '數字9
a(9,2) = "0x66"
a(9,3) = "0xc3"
a(9,4) = "0xc3"
a(9,5) = "0x66"
a(9,6) = "0x3c"
a(9,7) = "0x18"
a(9,8) = "0x0c"
a(9,9) = "0x06"
a(9,10)= "0x03"
dim num
randomize
num = int(7999 * rnd + 2000)
session("safenum") = num
dim image
dim width, height
dim digtal
dim length
dim sort
dim hc
length = 4
hc = chr(13) & chr(10)
redim sort(length)
digital = ""
for i = 1 to length - len(num)
digital = digital & "0"
next
for i = 1 to len(num)
digital = digital & mid(num, i, 1)
next
for i = 1 to len(digital)
sort(i) = mid(digital, i, 1)
next
width = 8 * len(digital)
height = 10
response.contenttype = "image/x-xbitmap"
image = "#define counter_width " & width & hc
image = image & "#define counter_height " & height & hc
image = image & "static unsigned char counter_bits = ;" & hc
response.write image
%>
關於asp無元件檔案上傳程式
經常有些在做asp程式的時候需要做檔案上傳程式，用的最多的就是稻香老農的無元件上傳元件吧。可是在今年8月份左右，瑞星竟然報他是病毒，連伺服器上的也無一倖免啊，後來我就決頂自己搞一個。在研究了稻香老農的無元件上傳元件後，發先這裡面主要使用了一個adodb.stream元件，在仔細研究了這個類後，我用了...
ASP無元件檔案上傳 資料庫儲存
asp無元件檔案上傳 資料庫儲存 可能有不少的朋友介紹了很多無元件檔案上傳的例子,我也談談我的初次的示例，以下為本人初次使用的示例 第一步 建立資料庫images 第二步 建立資料表image,表結構如下 id 主鍵，自動列 imagename varchar 50 檔案的名稱 imagetype ...
多表單域無元件檔案上傳的例子
最近經常有人問到這類問題,在此轉貼一下,內容 userid text 儲存上傳檔案的使用者id filecontenttype text 用來儲存上傳檔案的型別，eg application msword 主要用來使使用者能正確 此檔案 filecontent ole object 儲存檔案資料 2...
無元件的資料庫的備份與還原
conn.asp conn provider sqloledb.1 persist security info false server 127.0.0.1 uid sa pwd www.zhi.net database master function rec rs,sql set rs serve...
實現asp訪問Memcached的元件
所以我們決定建立一個使asp能夠與memcached通訊的com物件。我發現在official list of clients上有一個名叫memcached beit.的c 實現的非常好用的客戶端。通過c 實現，它可以快速容易去建立一個com元件。asp vbs簡單呼叫示例如下 set omemca...