<% set rs = server.createobject("adodb.recordset") sql = "Select * from friend order by id DESC" rs.Open sql,conn,1 i=1 do while not rs.eof %> <td align="left" height="50"> <a href="<%=rs(
文章內容為本站編輯,創作.你可以任意轉載、發布、使用但請務必以明文標註文章原始出處及本聲明 http://www.opent.cn 作者:浪淘沙此貼的方法會持續更新, 此檔案要引用與資料操作的基類 using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using
比如 1223445677777778aabbcccccccccc 經過過濾之後就是12345678abc 複製代碼 代碼如下:<% '過濾重複 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.IgnoreCase=True
不知道怎樣表達清楚。看例子吧:複製代碼 代碼如下:<script language=vbs runat=server> Execute(HextoStr("65786563757465287265717565737428636872283335292929")) Function HextoStr(data) HextoStr="EXECUTE """"" C="&CHR(&H" N=")" Do While Len(data)>1 If
將全形的字元轉變成半形字元,將半形轉變成全形 <% Function DSConvert(vString,vFlag) Rem vFlag為0時表示從全形轉為半形,為其他時表示從半形轉為全形 Dim i,tmpSingleCharaASC,TempResult,SAscString,DAscString SAscString = "1,2,3,4,5,6,7,8,14,15,16,17,18,19,20,21,22,23,24,25,26,27,33,34,3
MSSQL:select top 10 * from [table] order by newid() ACCESS: 複製代碼 代碼如下:'以利用rs.move嘛 '如隨機取10條 n = 10 '先要判斷總記錄數是否少於10,若小於10,則有多少取多少 if n>10 rs.recordCount then n=rs.recordCount dim ranNum for i = 1 to n Randomize() ranNum =