辽宁快乐12任3最大遗漏

 找回密碼
 請使用中文注冊

QQ登錄

只需一步,快速開始

搜索
新手快速入門新手學發貼無法收到EMAIL郵件禁發廣告貼
舊版論壇老用戶無法登錄版主申請維修聯盟網站大事記 
查看: 484|回復: 0
打印 上一主題 下一主題
收起左側

辽宁快乐12彩: ASP

[復制鏈接]
  • TA的每日心情
    擦汗
    2019-8-20 10:33
  • 辽宁快乐12任3最大遗漏 www.qebcbt.com.cn 簽到天數: 279 天

    [LV.8]以壇為家I

    跳轉到指定樓層
    1#
    發表于 2003-2-2 17:08:00 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
    分享到:

    馬上登錄【中國家電維修聯盟論壇】獲取更多更全面的信息!

    您需要 登錄 才可以下載或查看,沒有帳號?請使用中文注冊

    x
    首先在數據庫中新建立一個表
    --------------
    表名:ads
    id  自動編號
    class  類型 varchar(50)
    linkurl 連接地址 varchar(150)
    css  連接css,如果有的話,允許空值 varchar(150)
    tips 連接提示 varchar(100)
    title 廣告內容 varchar(200)
    sid  int
    adstop int
    --------------

    然后將以下代碼插入dispbbs.asp文件 鮮花雞蛋位置,大約在450行左右
    ----------------
    dim rsads
    set rsads=conn.execute("select * from ads "&" Order by sid asc")
    response.Write rsads("class")&"<a href=""url.asp?id="&""&rsads("id")&""&"&sid="&""&rsads("sid")&""&"&top="&""&rsads("adstop")&""" target=""_blank"" "&rsads("css")&" title="""&rsads("tips")&""">"&rsads("title")&"</a>"&""
    dim ssql,srs
    set srs=server.createobject("adodb.recordset")
    ssql="update ads set sid=sid+1 where id="&rsads("id")
    srs.open ssql,conn,1,1

    -----------
    最后拷貝下面的代碼另建立一個文件"URL.ASP"放在同一目錄下
    ---------------------------------------
    <!--#include file="conn.asp"-->
    <%
    dim sql,url,rs,id
    id=request("id")

    set rs=server.createobject("adodb.recordset")
    sql="update ads set adstop=adstop+1 where id="&ID
    rs.open sql,conn,1,1

    set rs=server.createobject("adodb.recordset")
    sql="select * from ads where id="&id
    rs.open sql,conn,3,2

    url=rs("linkurl")
    response.redirect url
    rs.close
    set rs=nothing
    conn.close
    conn=nothing
    %>
    ----------------------------------------



    [此貼子已經被作者于2003-2-2 21:56:40編輯過]
    您需要登錄后才可以回帖 登錄 | 請使用中文注冊

    本版積分規則

    QQ|Archiver|手機版|網站地圖|資料列表|網站XML|板塊XML|辽宁快乐12任3最大遗漏 ( 粵ICP備09021106號  
    深圳市深威志電子有限公司 版權所有 站長QQ:17158聯系站長請點這里
    粵ICP備09021106號

    GMT+8, 2019-11-18 14:29 , Processed in 0.065061 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2013 Comsenz Inc.

    快速回復 辽宁快乐12任3最大遗漏 返回列表