CreateHtml所有文章產生,好用資源大 第一種方法:複製代碼 代碼如下: '開始HTML產生方式 Set Rs=Server.Createobject("Adodb.Recordset") Sql="Select KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record From KQIQI_CY Order By KQIQI_ID Desc" Rs.Open Sql,Conn,1,3
程式碼: 複製代碼 代碼如下: '關鍵字的搜尋 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j if keyArr(i)<>"" then redim preserve keystrArr(t) strfilter="(empZw like '%"
我昨天晚上在做相簿的時候突然又發現,iis下cookies裡的中文又出現問題了,顯示亂碼。 費了好一段時間,才解決: //寫入cookies時 string t =HttpUtility.UrlEncode(要寫入到cookies的中文值); HttpCookie c = new HttpCookie("user_realname", t); Response.Cookies.Add(c); //讀取cookies時
因為要寫個東西用到,所以百度了一下,居然有朋友亂寫,而且比較多,都沒有認真測試過,只對字元可以,但是對數字就不可以,而且通用性很差,需要修改才可以真正使用。沒辦法就自己寫了,經過測試完全沒有問題,而且思路很方便,代碼很短,如下: 複製代碼 代碼如下: <% function cxarraynull(cxstr1,cxstr2) if isarray(cxstr1) then cxarraynull = "對不起,參數1不能為數組" Exit Function end if if
看到新浪微博、百度百家等平台上都帶有文章“打賞”功能,覺得很新鮮,於是也想在自己的部落格中加入“打賞”功能。 當然,加入打賞功能並非是真的想要讓別人打賞。因為只有那些真正能引起共鳴,發人深思,讓人受益匪淺的文章才值得打賞,值得點贊。而我的部落格站僅僅是用作記錄筆記,當做自己的知識庫(如果能不經意間協助別人那是再好不過了)。 加入打賞功能純粹是“覺得好玩”,就是這麼簡單,Just have a
直接用正則替換,但沒有判斷功能 Function FormatImg(content) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(script)" Content=re.Replace(Content,"script") re.Pattern="<img.[^>]*src(=| )(.[^>]*)>"