% dim db,conn,connstr db="data.mdb" set Conn = server.CreateObject("ADODB.Connection") connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath(db) conn.Open connstr %> <% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "\ntcount\hits.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %>
|
||||||||||||||||
|
对不起!资料正在整理之中!
本站检索:关键词 时间: 年 月 | ||
版权所有:上海桑博电子科技有限公司 | ||
© China.Shanghai Sunbow Technology co,. Ltd. | ||
中国 上海Tel:021-50807785,50273226 Fax:021-50807785-807 | ||
24小时服务电话:13391123210 13816690692 | ||