以下源**為乙個檔案
'由gbk向unicode轉換
function gbtou(binstr,bytenum)
gbtou=""
for j=1 to bytenum
gbcode1=ascb(midb(binstr,j,1))
if gbcode1>&h80 then
gbcode2=ascb(midb(binstr,j+1,1))
a=gbcode1-&h81
b=gbcode2-&h40
if gbcode2>&h7f then b=b-1
gbtou=gbtou & chrw(gb2u(a*190+b)) 'gb2u為轉換表
j=j+1
else
gbtou=gbtou & chrw(ascb(midb(binstr,j,1)))
end if
next
end function
'得到邊界字串
boundary=mid(request.servervariables("content_type"),31)
'form中資料的位元組數
bytecount=request.totalbytes
'form中的二進位制資料
binread=request.binaryread(bytecount)
'邊界ascii字串
endstr=chrb(13)&chrb(10)&chrb(45)&chrb(45)
for i=1 to len(boundary)
endstr=endstr&chrb(ascb(mid(boundary,i,1)))
next
dim formvalue(31,3)
dim bytei '位元組指標
e=0bytei=37+len(boundary) '第乙個元素資料開始處
do while bytei'根據元素名來檢索元素資料
'如果表單元素為文字資料直接返回其值
'如果表單元素為二進位制資料檔案，則返回一3元素陣列，第乙個元素為檔案的二進位制資料，
'第二個元素為檔案的路徑，第三個為檔案的型別。
function getvalue(name)
for i=0 to 31
if strcomp(formvalue(i,0),name,1)=0 then
if formvalue(i,3)="" then
getvalue=formvalue(i,1)
else
getvalue=array(formvalue(i,1),formvalue(i,2),formvalue(i,3))
end if
exit function
end if
next
getvalue=null
end function
%>
二 資料庫的讀寫分離
二 資料庫的讀寫分離 1，實現原理 讀寫分離簡單的說是把對資料庫讀和寫的操作分開對應不同的資料庫伺服器，這樣能有效地減輕資料庫壓力，也能減輕io壓力。主資料庫提供寫操作，從資料庫提供讀操作，其實在很多系統中，主要是讀的操作。當主資料庫進行寫操作時，資料要同步到從的資料庫，這樣才能有效保證資料庫完整性...
ASP中時間函式的使用 二
dateserial 函式 描述 對於指定的年 月 日，返回 date 子型別的 variant。語法 dateserial year,month,day year 從 100 到 9999 之間的數字或數值表示式。month 任意數值表示式。day 任意數值表示式。說明 要指定日期，如 1991 ...
ASP中資料的增 刪 改 查
ms sql鏈結資料庫配置語句 dim dbtype dbtype mssql dim strconn strconn driver server local uid sa pwd database 資料庫名 dim db set db server.createobject adodb.conne...