<%
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)
%>
<%
connstr="DBQ="+server.mappath("asp/webdatabase.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
dim nonenews,j
set rs=server.createobject("adodb.recordset")
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
sql="select * from news order by newsdate desc"
rs.open sql,conn,1,1
rs.PageSize=8
if rs.eof and rs.bof then
nonenews = true
end if
if not nonenews = true then
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
dim i
i=0
end if
set rsvote=server.createobject("adodb.recordset")
set rsvote_title=server.createobject("adodb.recordset")
sqlvote=" SELECT sum(pitemnum) from items "
sqlvote_title=" select * from descrip "
'set TOTAL=conn.execute(sql)
'TOTAL=TOTAL(0)
sqlvote="SELECT * from items order by pitem"
rsvote.open sqlvote,conn,1,1
rsvote_title.open sqlvote_title,conn,1,1
%>
安彩照明
