<% response.cookies(echsys)("ManageUserName")="" response.cookies(echsys)("ManageKEY")="" response.cookies(echsys)("ManagePurview")="" response.cookies(echsys)("ManageFullName")="" response.cookies(echsys)("ManageReglevel")="" showerr=request("showmess") Function getcode1() Dim test On Error Resume Next Set test=Server.CreateObject("Adodb.Stream") Set test=Nothing If Err Then Dim zNum Randomize timer zNum = cint(8999*Rnd+1000) Session("verifycode") = zNum getcode1= Session("verifycode") Else getcode1= "" End If End Function %> <%=copyright%><%=version%><%=ver%> <%if showerr<>"" then%> <%end if%>
楚雄师范学院学生体能测试查询系统
 
学 号:
密 码:
验证码:

 

 
<%response.end%>