if InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml")>0 then
    response.redirect  "wap.asp" '如果是手机访问则跳转到wap.asp
    response.end
else
    response.redirect  "default.asp" '如果电脑访问跳转到首页
    response.end
end if

<%
'==================================================================
'程序说明：用于自动生成新闻静态页，手动添加分页功能，自动生成页码
'
'程序作者：Www.Leadbbs.Com 简体中文版 QQ: 7275244
'
'程序用途：演示用，CopyLeft :p
'
'时间：2005年9月28日

<%
'调用方法：
'获取10个1到100之间的整数
Response.Write GetrndNumber(1,100,10)

Function GetrndNumber(intStart,intEnd,intCount)
     Rem 取指定范围内不同的随机整数
     Rem intStart:起始值
     Rem intEnd:结束值
     Rem intCount:值个数

Randomize
dim i,DispRecord
i=0
DispRecord=10 '设置显示的随机记录数量

sql="select id,caption from table"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3

<%
'为班级排名
j=0
i=0
thesame=0
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select stu_no,cj_all from student where class_no="&banji&" order by cj_all desc"
rs.open sql,conn,1,1

do while not rs.eof
'如果分数相同，则名次相同。如：两个并列第一名，则没有第二名，下一个为第三名
             if rs("cj_all")=thesame then
                 i=i
                   j=j+1
             else
                 i=i+j+1
                   j=0
             end if
             thesame=rs("cj_all")
sql="update student set cj_banxu="&i&" where stu_no='"&rs("stu_no")&"'"
conn.execute(sql)
rs.movenext
loop

rs.close
%>