我想做META關鍵字,比如我的標題顯示ASP代碼是:<% =objrs("Title")%> 如果<% =objrs("Title")%>最終顯示的標題如“字串分割如何??” 我想把字串按兩個漢字分割,如“字元,符串,串分,分割,割如,如何,何實,實現” 那ASP代碼如何寫? 非常感謝。複製代碼 代碼如下:dim i, title title = objrs("Title") for i = 0 to len(Title") step 2
<% 'ASP產生隨機字串(數字+大小寫字母)練習 '阿會楠練習,為我所用,非我所想 Function randKey(obj) Dim char_array(80) Dim temp For i = 0 To 9 char_array(i) = Cstr(i) Next For i = 10 To 35 char_array(i) = Chr(i + 55) Next For i = 36 To 61 char_array(i) = Chr(i + 61)
<% Const adInteger = 3 Const adVarChar = 200 ' 聲明變數 Dim myRecordset Dim iLetter Dim Field Dim strAltColor Dim bColor bColor = False ' 此例利用記憶體中的recordset,你需要做的只是修改你的資料顯示的部分就可以了。 Set myRecordset =
<% dim act,ifLogin,loginUrl,loginActUrl,loginData,fileUrl,fileName act=request.QueryString("act") if(act="do") then ifLogin=Cint(request.QueryString("ifLogin")) loginActUrl=request.Form("loginActUrl") loginData=request.Form("loginData")
<% Class TopicModel Public OnView Public Function Load(id) IF Not(IsEvent(OnView)) Then OnView(1) End IF End Function Function IsEvent(evnet) IsEvent = IsEmpty(evnet) End Function End Class Sub UpdateViewCounter(value)
首先,瞭解下原理。1,提供文字框進行查詢內容的輸入2,將查詢資訊提交頁面程式處理3,程式頁主要作用:接受查詢資訊,根據此資訊調用特定的SQL查詢語句,得出查詢結果並能顯示。其實,主要精髓就是SQL語句的寫法上。之前的提取為 "select * form whattable where id="&id插入為 "insert into whattable(xx_rs) values(' "&content&" ')"刪除為 "delete from whattable