ASP中几个非常有用的代码例子

2008-09-26 0 条评论 4,390 次阅读被赞了 0 次

1.计算每天的平均反复访问人数
< % startdate=DateDiff("d",Now,"09/04/1985" if strdate< 0 then startdate=startdate*-1 avgvpd=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,dpic ppic=12 randomize p=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=0 strimagename="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,mdbfile mdbfile=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 conn set 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%>

<%循环调用结束%>
———————————–
VB的语法格式
loop
end loop
而且JAVA一般多用CASE循环
孙彬 10:02:31
VB的语法就是开始就会有结束标记
孙彬 10:02:44
而JAVA不需要
——————————————-
<% Dim mRs '定义mrs Set mRs=ExecuteCmd("select id,SortName from CB_ProductSort where Recycled=0 order by Depth asc,id desc") If Not mRs.eof Then Do While Not mRs.eof %>