inbody.asp

在线考试系统的设计与实现

<br>
<%
Function getcounterfilename()
dim fullpath,pointposition
fullpath=Request.ServerVariables("PATH_TRANSLATED")
Pointposition=InstrRev(fullpath,"\")
getcounterfilename=Mid(fullpath,1,pointposition)&"regpost.cnt"
end function

Function mycounterfilename()
dim fullpath,pointposition
fullpath=Request.ServerVariables("PATH_TRANSLATED")
Pointposition=InstrRev(fullpath,"\")
mycounterfilename=Mid(fullpath,1,pointposition)&"postcon.cnt"
end function

set obj=createobject("scripting.filesystemobject")
filename=getcounterfilename()
set read=obj.opentextfile(filename,1,0,0)
newone=read.readline
read.close

set obj=createobject("scripting.filesystemobject")
filename=mycounterfilename()
set read=obj.opentextfile(filename,1,0,0)
num=read.readline
read.close%>
<TABLE border=0 width="95%" align=center>
  <TBODY> 
  <TR> 
    <TD vAlign=top width=26% height="54" rowspan="3"><font size="7" face="华文彩云">
	网上书店</font></TD>
    <TD valign=middle align=top height="12" width="26%">&nbsp;</TD>
    <TD valign=middle align=top height="12" width="1%"><img src="images/pmlogin.gif" width="23" height="22"></TD>
    <TD valign=middle align=top height="12" width="47%">主题总数:<font color="#FF0000"><%=num%> 
      </font>在线人数:<%=application("online")%></TD>
  </TR>
  <TR> 
    <TD valign=middle align=top height="12" width="26%">&nbsp;</TD>
    <TD valign=middle align=top height="12" width="1%">&nbsp;</TD>
    <TD valign=middle align=top height="12" width="47%">欢迎新用户<a href=javascript:doPopUp("userinfo.asp?name=<%=newone%>")><font color="#FF0000"><%=newone%></font></a>的加入!</TD>
  </TR>
  <TR> 
    <TD valign=middle align=top height="4" width="26%">&nbsp;</TD>
    <TD valign=middle align=top height="4" width="1%">&nbsp;</TD>
    <TD valign=middle align=top height="4" width="47%"><b>今日站点公告</b>:新的论坛投入使用!</TD>
  </TR>
  </TBODY> 
</TABLE>