<%@ LANGUAGE = VBScript.Encode %>
<% userid=session("yourid")
if session("yourid")<>"" then
yy=1
else
yy=0
end if
if yy=1 then
welcome=""&session("yourid")&" 身份：会员 退出"
else
welcome="身份：非会员 注册"
end if
%>
<%
Set fs =server.CreateObject("Scripting.FileSystemObject")
path=server.MapPath ("counter.txt")
Set thisfile = fs.OpenTextFile(path, 1, False)
number=thisfile.readline
number=number+1
thisfile.close
set outfile=fs.createtextfile(path)
outfile.writeline number
%>
常州康普药业 站点地图
