因工作需求,需要一個統一編號的檢查function,找不到ASP的寫法,於是找了javascript的寫法,改寫成ASP。
可以參考參考,順便記錄。
2011年11月15日 星期二
ASP 16進位轉成10進位
為了將色碼轉成RGB,費了一些功夫。
假設色碼為 #123456。
那麼ASP照這樣寫就可以轉了。
其實就跟VB一樣,參考以下網址
假設色碼為 #123456。
那麼ASP照這樣寫就可以轉了。
Red = CLng("&h" & (mid("#123456",2,2)))
Green = CLng("&h" & (mid("#123456",4,2)))
Blue = CLng("&h" & (Right("#123456",2)))
其實就跟VB一樣,參考以下網址
http://www.programmer-club.com.tw/ShowSameTitleN/vb/26403.html
2011年9月8日 星期四
asp取得當月最後一天
' 取月的最後一天
dim m,y,nextDate,bylastdate
m=mid(month(date()))
y=year(date())
if m=12 then m=1:y=y+1 else m=m+1
nextDate=y & "-" & m & "-" & "1" '下個月的第一天
bylastdate=dateAdd("d",-1,nextDate) '這個月的最後一天
參考: http://hi.baidu.com/lauplay/blog/item/c5654c59d387f3212934f061.html
2011年9月6日 星期二
2011年9月5日 星期一
2011年1月2日 星期日
2010年10月13日 星期三
防 sql injection的asp語法
用來記錄用。
response.Charset="utf-8"
' 防SQL 非法注入
dim sql_injdata1
SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
'過濾get
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
Response.Write "<script language=JavaScript>alert('error! 齁~~~抓到了喔! 不要亂測試啦,拜託');history.back(-1)</Script>"
Response.end
end if
next
Next
End If
' 防SQL 非法注入 ,過濾post
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
Response.Write "<script language=JavaScript>alert('error! 齁~~~抓到了喔! 不要亂測試啦,拜託');history.back(-1)</Script>"
Response.end
end if
next
next
end if
2010年8月31日 星期二
2010年8月30日 星期一
conn.execute 一次執行兩次
到新公司上班一個多月了,很努力的修改原先網站的bugs,大部分都算是順利的暫時性解決(實在是滿亂的程式碼,只能先解決先前問題),但是,卻遇到一個讓我頭很大的問題,bug怎麼樣都找不到...每次送出訂單之後,會出現錯誤畫面,說主索引鍵不可重複....
2010年6月20日 星期日
[ASP] SQL server Insert datetime欄位時 發生 從字元 (char) 字串轉換到 datetime 的語法錯誤
在ASP中,要將時間寫進SQL server欄位(datetime),如果格式不正確,會出現錯誤。
2010年6月15日 星期二
2010年6月8日 星期二
訂閱:
文章 (Atom)