網上搜到的代碼,千篇一律是這個 Function Sort(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then
<% a="日本是中國的一個省|我們美麗中國的張家界!" b="中國,我們,張家界,日本,美國,蘋果" b=split(b,",") a=split(a,"|") for k=0 to ubound(a) s="" n="" for i=0 to ubound(b) if instr(a(k),b(i))>0 then s=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & ","
ASP亂碼確實棘手,這個說明比較權威。有待研究。哪的資料都不如官方資料權威。今天總算從MSDN中擇出了ASP編碼問題的解決方案。... ASP亂碼確實棘手,這個說明比較權威。有待研究。哪的資料都不如官方資料權威。今天總算從MSDN中擇出了ASP編碼問題的解決方案。下面是MSDN中的一段話。Setting @CODEPAGE explicitly affects literal strings in a single response. Response.CodePage affects
方法一:createtextfile組建檔案方法 function WriteToFile(FileName,FileContent) set fso=server.createobject("scripting.filesystemobject") set fp=fso.createtextfile(server.mappath(FileName),,True) fp.write(FileContent) end function
很多時候,我們總是按照行的方式訪問文字檔,使用foreach語句能夠極大地簡化訪問邏輯:例如: foreach (string line in new LineReader(”c:\abc.txt”)) Console.WriteLine(line); 完整代碼如下: using System; using System.IO; using System.Text; using System.Collections; namespace Forks.Utils.IO {
1、 SELECT TOP PAGESIZE NEWSTITLE FORM NEWSINFO WHERE NEWSID NOT IN (SELECT TOP (PAGE-1)* PAGESIZE NEWSID FROM NEWSINFO WHERE Auditing=1 and NEWSBREED='企業新聞' order by NEWSID DESC) AND Auditing=1 and NEWSBREED='企業新聞' order by NEWSID DESC