当前位置 博文首页 > 文章内容

    asp学习,学习ASP常用的代码整理

    作者:dlxiaoyu01 栏目:服务器基础知识 时间:2021-03-09 17:12:55

    本站于2023年9月4日。收到“大连君*****咨询有限公司”通知
    说我们IIS7站长博客,有一篇博文用了他们的图片。
    要求我们给他们一张图片6000元。要不然法院告我们

    为避免不必要的麻烦,IIS7站长博客,全站内容图片下架、并积极应诉
    博文内容全部不再显示,请需要相关资讯的站长朋友到必应搜索。谢谢!

    另祝:版权碰瓷诈骗团伙,早日弃暗投明。

    相关新闻:借版权之名、行诈骗之实,周某因犯诈骗罪被判处有期徒刑十一年六个月

    叹!百花齐放的时代,渐行渐远!



        1、数据库连接。
        ASP与Access数据库连接:
        <%@ language=VBscript%>
        <%
        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
        %>
        ASP与SQL数据库连接:
        <%@ language=VBscript%>
        <%
        dim conn
        set conn=server.createobject("ADODB.connection")
        con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
        %>
        DW中用字符串连接代码:
        "Driver={Microsoft Access Driver (*.mdb)};DBQ=数据库的绝对路径"
        等做完后再打开数据库服务器,把
        "Driver={Microsoft Access Driver (*.mdb)};DBQ=数据库的绝对路径"
        换成
        "Provider=Microsoft.Jet.OLEDB.4.0;data source="& server.mappath("服务器根目录下所在数据库路径")
        并把本地服务器修改成测试服务器


        2、加载别的页面。
        <!--#include file = "页面的路径和名称"-->


        3、显示数据库中的数据。
        <%=rs("字段")%>


        4、输出。
        Response.Write("文字或者字符串");


        5、打开数据库并建立数据集对象。
        set conn=server.CreateObject("ADODB.connection")
        conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("***/photodata.mdb") '更改您的数据库文件存放路径
        set rs=server.createobject("ADODB.recordset") '建立数据集
        sql="SELECT * FROM data" '更改您的数据库表名
        rs.Open sql,conn,1,1


        6、获得系统的时间。
        <%=now()%>


        7、取得来访问的IP。
        <%=request.serverVariables("remote_host")%>


        8、随机数。
        <%randomize%>
        <%=(int(rnd()*n)+1)%>
        N为可改变数


        9、跳转页面。
        Response.Redirect("页面")


        10、弹出消息框。
        Response.Write("<script>alert('消息框!')</script>")


        11、用hidden类型来传递变量。
        < % form method="post" action="mynextpage.asp" >
        < % for each item in request.form % >
        < input namee="< %=item% >" type="HIDDEN"
        value="< %=server.HTMLEncode(Request.form(item)) % >" >
        < % next % >
        < /form >


        12、常用SQL语句整理。
        (1) 数据记录筛选:
        sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]"
        sql="select * from 数据表 where 字段名 like ''%字段值%'' order by 字段名 [desc]"
        sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]"
        sql="select * from 数据表 where 字段名 in (''值1'',''值2'',''值3'')"
        sql="select * from 数据表 where 字段名 between 值1 and 值2"
        (2) 更新数据记录:
        sql="update 数据表 set 字段名=字段值 where 条件表达式"
        sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"
        (3) 删除数据记录:
        sql="delete from 数据表 where 条件表达式"
        sql="delete from 数据表" (将数据表所有记录删除)
        (4) 添加数据记录:
        sql="insert into 数据表 (字段1,字段2,字段3 …) values (值1,值2,值3 …)"
        sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)
        (5) 数据记录统计函数:
        AVG(字段名) 得出一个表格栏平均值
        COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
        MAX(字段名) 取得一个表格栏最大的值
        MIN(字段名) 取得一个表格栏最小的值
        SUM(字段名) 把数据栏的值相加
        引用以上函数的方法:
        sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
        set rs=conn.excute(sql)
        用 rs("别名") 获取统的计值,其它函数运用同上。
        (5) 数据表的建立和删除:
        CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )
        例:CREATE TABLE tab01(name varchar(50),datetime default now())
        DROP TABLE 数据表名称 (永久性删除一个数据表)