Recommended: Asp reads text files and displays them html head http-equiv=Content-Type content=text/html; charset=gb2312 title/title /head body % LANGUAGE = VBScript % % Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse
| < % set rs=server.CreateObject(adodb.recordset) db=db.mdb 'Just change the database name directly and you will see the effect. set conn=server.CreateObject(adodb.connection) connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(db) conn.open connstr Set rs=Conn.OpenSchema(20) Do Until rs.EOF If rs(3)=TABLE Then response.write table name:&rs(2)&<br /> Set rs1=server.CreateObject(adodb.recordset) sql=select * from &rs(2) Set rs1=conn.execute(sql) response.write field name: For i=0 To rs1.fields.count-1 response.write rs1.fields(i).name& Next response.write <br /> Do While Not rs1.eof response.write For i=0 To rs1.fields.count-1 t=rs1.fields(i).name response.write rs1(t)& Next response.write rs1.movenext Loop response.write End If rs.MoveNext Loop Set rs=Nothing Set conn=nothing % > |
Share: How to use InstrRev() to get filenames in asp The InstrRev function starts from the last search of the string, and is the preceding string. % Dim strTXT,pos strTXT=www.webjx.com pos=instrRev(strTXT,.) Response.Write pos % The beginning of our search is in reverse order, from a point before com. The length of the starting character, including this point, has ten characters in total, and the result returned will be 9. pass