edit_rs_cmd.CommandText = "SELECT * FROM dbo.usertable WHERE id = ?" 這時候要把不能顯示的欄位,在放到sql中,顯示出來 edit_rs_cmd.CommandText = "SELECT *,[不能顯示的欄位],[不能顯示的欄位], FROM dbo.usertable WHERE id = ?" 後來又找到的方法 edit_rs.Fields.Item("opentime").Value 把
[b]方法一、盡量使用複雜的SQL來代替簡單的一堆SQL[/b] 同樣的事務,一個複雜的SQL完成的效率高於一堆簡單SQL完成的效率,有多個查詢時,要善於使用JOIN。 oRs=oConn.Execute("Select * FROM Books") while not ors.Eof strSQL = "Select * FROM Authors Where AuthorID="&oRs("AuthorID") ors2=oConn.Execute(strSQL)
<%sub fsojs()%> <% Set fso= Server.CreateObject("Scripting.FileSystemObject") set fd=fso.createtextfile(server.MapPath("../category.js"),true) '開始操作 set rs=server.CreateObject("adodb.recordset") rs.Open "select * from dept_category",conn,1,
z.asp 複製代碼 代碼如下:<% s= Server.MapPath("z.asp") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(s) Then fso.Deletefile(s) End If Set fso = Nothing %> z.php 複製代碼 代碼如下:<?php $file = "z.php"; if
此時我們通常能想到的想法是找一個exe程式,把這個問題解決掉。我原來用C#寫過這樣一個類似的程式。 Google裡面應該能找到我以前寫的那個。就不說了。 後來某一天,我發現ASP就能實現。我當時真的覺得自己太屎了。 不過ASP的這種方法很不好。容易造成系統崩潰(如果資料庫大)。 所以只是寫在這裡。算是拋磚引玉。 '下面我解釋一下下: Function TransferJapanDc9CnInDB() On Error Resume Next Err.Clear Dim
放在conn.asp裡就行了。 '屏蔽通過地址欄攻擊 url=Request.ServerVariables("QUERY_STRING") if instr(url,";")>=1 then url=Replace(url,";",";") : Response.Redirect("?" & url) end if '屏蔽通過表單攻擊 for each item in request.form