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 %> 北京森菊除虫菊科技有限公司
　
用户登陆
用户名：
密  码：
新用户注册  忘记密码？
　
您是如何知道本网站的？
门户网站搜索
友情链接
熟人介绍
媒体
名片
业务交流

  
　
    会 员 中 心
新用户注册
用户名：
 * 不能小于4个字符（2个汉字）
密码(至少6位)：
 * 区分大小写。 不要使用类似的特殊字符
确认密码(至少6位)：
 * 　
密码问题：
 * 忘记密码的提示问题
问题答案：
 * 忘记密码的提示问题答案，用于取回密码
性别：
 男    女 　
Email地址：
 * 请输入有效的邮件地址
公司网址： 　
公司名称：
 　
邮政编码： * 　
联系电话：
 * 　
传 真： 　
 
北京除虫菊科技有限公司
> © 2006 All Right Reserved

北京森菊除虫菊科技有限公司

京ICP备06016967号