d>" & vbcrlf strSuccess=strSuccess & "" & vbcrlf strSuccess=strSuccess & "" & vbcrlf response.write strSuccess end sub function getFileExtName(fileName) dim pos pos=instrrev(filename,".") if pos>0 then getFileExtName=mid(fileName,pos+1) else getFileExtName="" end if end function sub ShowAnnounce(AnnounceNum) dim sqlAnnounce,rsAnnounce,i if AnnounceNum>0 and AnnounceNum<=10 then sqlAnnounce="select top " & AnnounceNum else sqlAnnounce="select top 10" end if sqlAnnounce=sqlAnnounce & " * from affiche order by ID Desc" Set rsAnnounce= Server.CreateObject("ADODB.Recordset") rsAnnounce.open sqlAnnounce,conn,1,1 if rsAnnounce.bof and rsAnnounce.eof then AnnounceCount=0 response.write "

  没有公告

" else AnnounceCount=rsAnnounce.recordcount do while not rsAnnounce.eof response.Write "  " &rsAnnounce("title") & "" rsAnnounce.movenext i=i+1 loop end if rsAnnounce.close set rsAnnounce=nothing end sub %> 忘记密码
忘记密码 >> 第一步：输入用户名
请输入你的用户名：