所以對應的asp處理代碼如下複製代碼 代碼如下:dedearr=split(xiangguanid2,chr(13)) '分割成數組for dede=0 to ubound(dedearr)-1 '數組長度減一,因為最後有兩個chr(13)換行。dedearr2=split(dedearr(dede),"|") dedetitle=dedearr2(1) dedeurl=dedearr2(0) if dedetitle<>"" and dedeurl<>"" then
複製代碼 代碼如下: <% dim fso,objFolder,objFiles dim filelist Set fso=Server.CreateObject("scripting.FileSystemObject") Set objFolder=fso.GetFolder(server.MapPath("thumbs")) Set objFiles=objFolder.Files '迴圈輸出檔案夾path下的檔案的檔案名稱 For each objFile in objFiles
<% '處理接收分頁得參數,顯示頁數 也就預設第一頁 'page這個參數就是讓變數pagenum去顯示第一也得值:0 if Request("page")="" then pageNum=0 '下面就是page接參數 else pageNum=Request("page") if not isnumeric(pageNum) then
在後台添加中一般我們都設定了一個“關鍵字”,而且一般輸入可能如下: 娃娃,毛絨娃娃,日本充氣娃娃 我們將根據這個來做,具體實現如下: 先看一條SQL語句: 複製代碼 代碼如下:select top 3 sid,sname from product where keywords like '%娃娃%' or keywords like '%毛絨娃娃%' or keywords like '%日本充氣娃娃%'
複製代碼 代碼如下:<% sql="select * from serr where order by id asc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %><style type="text/css"> <!-- body,td,th { font-size: 12px; } --> </style> <table width=""100%"