<%
function kjfilecounter(counter_file)
dim fs,txt,file,jiaguo
application.lock
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("counter_file")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
kjfilecounter=clng(txt.readline)
end if
if not session("jiaguo") then
kjfilecounter=kjfilecounter+1
session("jiaguo")=true
end if
txt.close
set txt=fs.createtextfile(file,true)
txt.writeline kjfilecounter
txt.close
application.unlock
end function
function gcounter(counter)
dim s,i,g
s=cstr(counter)
'for i=1 to len(s)
' g=g&""
'next
gcounter=s
end function
%>
吴江市众恒丝绸有限公司--桃皮绒系列|麂皮绒系列|春亚纺系列|塔丝隆系列|色丁系列|尼丝纺系列|仿真丝系列|涤塔夫系列|棉类
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 3 * from news order by shijian desc"
rs.open sql,conn,3,2
if rs.eof and rs.bof then
response.Write "
![](../images/t"&mid(s,i,1)&".gif)
"
'next
gcounter=s
end function
%>