| 以下是引用片段: <%=now()%> |
| 以下是引用片段: <%=request.serverVariables("remote_host")%> |
| 以下是引用片段: |
| 以下是引用片段: 或 |
| 以下是引用片段: |
| 以下是引用片段: <%randomize%> <%=(int(rnd()*n)+1)%> |
7.向上混动代码:
| 以下是引用片段: |
8.自动关闭网页:
| 以下是引用片段: 本页10秒后自动关闭,请注意刷新页面 |
9.随机背景音乐:
| 以下是引用片段: <%randomize%> |
10.自动刷新本页面:
| 以下是引用片段: |
| 以下是引用片段: <% option explicit dim startime,endtime,conn,connstr,db startime=timer() '更改数据库名字 db="data/dvBBS5.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) '如果你的服务器采用较老版本Access驱动,请用下面连接方法 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) conn.Open connstr function CloseDatabase Conn.close Set conn = Nothing End Function %> |
最新相关文章
发表评论