% '缓冲面页 response.Expires = -1 'True开启缓冲 False关闭 Response.Buffer=True Dim time1,time2 time1=timer function nothaveChinese(para) dim str nothaveChinese=true str=cstr(para) for i = 1 to Len(para) c=asc(mid(str,i,1)) if c<0 then nothaveChinese=false exit function end if next end function %>
|
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
|
|
|
| 版权所有:美国万邦制药公司 中国国际高血压专研中心 声明:严禁其它非法网站抄袭和假冒,违者追究其法律责任! 咨询热线:010-51654308(5线)(节假日不休息) 查看 地址: 北京平谷区金乡路平安大道128号 网址:www.akgjw.com 广告批号:【京中医广证字[2007]第01-01-116】 京ICP备01021018号 |