共计 1198 个字符,预计需要花费 3 分钟才能阅读完成。
1.计算每天的平均反复访问人数
< % startdate=DateDiff("d",Now,"09/04/1985"if strdate< 0 then startdate=startdate*-1avgvpd=Int((usercnt)/startdate) % >
显示:< % response.write(avgvpd) % >
2.查看使用者所用的浏览器
strBrowser=Request.ServerVariables(“HTTP_USER_AGENT”
If Instr(strBrowser,”MSIE” < > 0 Then
Response.redirect(“ForMSIEOnly.htm”
Else
Response.redirect(“ForAll.htm”
End If
3.显示随机图象
< % dim p,ppic,dpicppic=12randomizep=Int((ppic*rnd)+1)dpic="graphix/randompics/"&p&".gif"% >
显示:< img src="< %=dpic% >” >
4.回到先前的页面
< a href="< %=request.serverVariables("Http_REFERER"% >” >preivous page< /a >
5.ASP判断网站的虚拟物理路径
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath(""% >
< /font >< /p >
6.传递变量
< % form method="post" action="mynextpage.html" >
< % for each item in request.form % >
< input namee="< %=item% >” type=”HIDDEN”
value=”< %=server.HTMLEncode(Request.form(item)) % >” >
< % next % >
< /form >
7.强迫输入密码对话框
< % response.status="401 not Authorized"response.end% >
8.链结图片
< % @Languages=vbs cript % >
< % response.expires=0strimagename="graphix/errors/erroriamge.gif"response.redirect(strimagename)% >
9.从一个ASP页面传到另一个页面
Response.Redirect(“second.html?” & Request.ServerVariables(“QUERY_STRING”)
10.ASP与Access数据库连接
<%@ language=VBs cript%>
<%dim conn,mdbfilemdbfile=server.mappath("数据库名称.mdb"set conn=server.createobject("ADODB.connection"conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile%>
11.ASP与SQL数据库连接
<%@ language=VBs cript%>
<%dim connset conn=server.createobject("ADODB.connection"conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称%>
11、ASP语言中ACCESS数据库的连接及其几个操作:
数据库的连接:
<% datafile="data.mdb" set rs=server.createobject("adodb.connection") conn="DRIVER={Microsoft Access Driver (*.mdb)}; data source=" & server.mappath(""& datafile &"") rs.open conn %>
添加数据:
<% set rs=server.createobject("adodb.recordset") sql="select*from tablename" 'tablename为数据中表的名称 rs.open sql,conn,1,1 rs.addnew rs("data1")="new1" rs("data2")="new2" rs("data3")="new3" …… rs("datan")="newn" rs.update rs.close conn.close set rs=nothing set sql=nothing %>
删除数据:
<% set rs=server.createobject("adodb.recordset") sql="select*from tablename where del=del" '第二个del为你想要删除的数据 rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "数据不存在" else rs.delete response.write "数据已经删除" end if %>
数据查询:
<% set rs=server.createobject("adodb.recordset") sql="select*from tablename where data=data" '第二个data为你想要查询的数据,也可为多个,用“,”号分开 rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "数据不存在" else rs.delete response.write rs("data") '如果有多个相同的数据,这可用for ……next 循环语句 end if %>
数据显示:
<% set rs=server.createobject("adodb.recordset") sql="select*from tablename" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "数据库中没有数据" else while not rs.eof response.write rs("data1") response.write rs("data2") response.write rs("data3") …… response.write rs("datan") rs.movenext wend end if%>
——————————————
所以必须<%定义变量a、b、c 等等调用数据库中的位置%>
<%a%> | ||
<%b%> | ||
<%c%> |
· | ” class=”newpro” title=”<%=mRs("SortName")%>“><%=CutoffStr(mRs("SortName"),20)%> |