[ 變換順序 ]
[我要回覆]
|
|||||
|
|||||
樓主 Huang Yi 
 發送站內信 |
<% Set Cnn =db_connection("db/T95.mdb") SQL= "Select * from list " Set rs=open_recordset(cnn,sql,3,3) c=request.servervariables("Query_String") k=mid(c,11,3) if right(k,1)="="then q=replace(k,"=","") else q=replace(k,"=%","") end if if rs.absoluteposition=q then rs.addnew rs("return")="return" rs.update rs.close Cnn.Close end if %> <% function db_connection(dbn) dim provider,db_path,ds,cns,conn provider = "Provider = Microsoft.Jet.OLEDB.4.0; " db_path= server.mappath(dbn) ds= "Data Source= "& db_path cns= provider&ds set conn= server.createobject("ADODB.Connection") conn.open cns set db_connection = conn end function function open_recordset(cnn,sql,cs,ltype) dim rs 'on error resume next set rs= server.createobject("ADODB.Recordset") rs.open sql,cnn,cs,ltype set open_recordset = rs if err.number <> 0 then response.write "["&SQL&"]<br>" response.end end if end function %>
搜尋相關Tags的文章：
[ rs.addnew 新增某一行欄位資料 ] ,
本篇文章發表於2017-03-14 21:14 |
||||
0
1
22
0
