ASP语言应用小技巧
作者:admin 日期:2008-11-27
1:调用文件物理路径
<%= Server.MapPath("\")%>
2:检查是不是微软的浏览器
<%
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") <> 0 Then
Response.redirect("是.asp")
Else
Response.redirect("不是.htm")
End If
%>
3:随即显示图片
<% dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)
dpic=""&p&".gif"
%>
显示
<img src="<%=dpic%>">
4:返回上层页面
<a href="<%=request.serverVariables("Http_REFERER")%>">返回上层页面</a>
5:ASP与Access数据库连接:
<%@ language=VBs cript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
6:ASP与SQL数据库连接
<%@ language=VBs cript%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>
建立记录集对象:
set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2
<%= Server.MapPath("\")%>
2:检查是不是微软的浏览器
<%
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") <> 0 Then
Response.redirect("是.asp")
Else
Response.redirect("不是.htm")
End If
%>
3:随即显示图片
<% dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)
dpic=""&p&".gif"
%>
显示
<img src="<%=dpic%>">
4:返回上层页面
<a href="<%=request.serverVariables("Http_REFERER")%>">返回上层页面</a>
5:ASP与Access数据库连接:
<%@ language=VBs cript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
6:ASP与SQL数据库连接
<%@ language=VBs cript%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>
建立记录集对象:
set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2
[本日志由 admin 于 2022-12-31 00:15 AM 编辑]
文章来自: 本站原创
引用通告地址: http://www.cn-sohu.com/bolg/trackback.asp?tbID=175
Tags:



评论: 0 | 引用: 128 | 查看次数: 507
发表评论
你没有权限发表留言!