Set conn = Server.CreateObject("ADODB.Connection"))、执行 SQL 语句(conn.Execute("SQL 查询"))、获取表单数据(Request.Form("name"))、输出内容到页面(Response.Write("Hello World"))。### 获取系统时间

“`asp
<%=now()%>
“`
这行代码会输出服务器当前的系统时间,格式通常为日期和时间的组合。
### 获取来访用户的IP地址
“`asp
<%=request.serverVariables("remote_host")%>
“`
通过Request对象的ServerVariables方法获取客户端的IP地址。
### 获得系统、浏览器版本信息
“`asp
window.document.write("浏览器名: " + navigator.appName + " " + navigator.appVersion)
“`
该段代码用于检测浏览器名称和版本,通过navigator.appName和navigator.appVersion来获取。
### 去除IE滚动条
“`asp
“`
或者
“`asp
“`
这些CSS属性用于阻止页面的垂直滚动条显示,确保内容不滚动。
### 进入网站时跳出广告
“`asp
window.open('http://www.XXXXXX.com','','height=200,width=300,top=0,left=30');
//-->
“`
这段JavaScript代码用于打开一个指定URL的新窗口,并设置窗口大小、位置等属性。
### 随机数生成
“`asp
<%randomize%><%=(int(rnd()*n)+1)%>
“`
n`为可改变的整数,该代码初始化随机数生成器,并生成1到`n`之间的随机整数。
### 向上滚动代码
“`asp
“`
`
### 自动关闭网页
“`asp
setTimeout('window.close();', 10000); //60秒后关闭
//-->
本页10秒后自动关闭,请注意刷新页面
“`
通过setTimeout函数在设定的时间后关闭当前窗口。
### 随机背景音乐播放

“`asp
<%randomize%> if (document.images){ var parselimit=limit.split(":") parselimit=parselimit[0]*60+parselimit[1]*1 function beginrefresh(){ if (!document.images) return if (parselimit==1) window.location.reload() else{ parselimit-=1 curmin=Math.floor(parselimit/60) cursec=parselimit%60 if (curmin!=0) curtime=curmin+"分"+cursec+"秒后重刷本页!" else curtime=cursec+"秒后重刷本页!" window.status=curtime setTimeout("beginrefresh()",1000) window.onload=beginrefresh file://--> “` 此代码使用JavaScript的`setTimeout`函数,设置间隔后触发页面刷新。 ### ACCESS数据库连接 “`asp <% 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 %> “` 该代码示例展示了如何连接到ACCESS数据库,首先创建数据库连接对象,然后设置连接字符串并打开连接。 ### SQL数据库连接 “`asp <% option explicit dim startime,endtime,conn,connstr,db startime=timer() connstr=”driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs” Set conn = Server.CreateObject(“ADODB.Connection”) conn.Open connstr function CloseDatabase Conn.close Set conn = Nothing End Function %> “` 此代码用于连接到SQL Server数据库,同样需要先创建连接对象,设置连接字符串,然后打开连接。 ### 用键盘打开网页代码 “`asp function ctlent(eventobject) if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83)) window.open('网址','','') “` 这是Ctrl+Enter和Alt+S的代码,可根据需要查下键盘的ASCII码进行修改。 ### 让层不被控件复盖代码 “`asp # 前面 # 后面
