我自己寫的聊天室原始碼(九)

來源:互聯網
上載者:User
聊天室|原始碼 *************************表情設定**************************
<%'optionbq.asp%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>表情設定</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="Microsoft Theme" content="none, default">
<meta name="Microsoft Border" content="none">
</head>

<body>
<%
dim sc_bqq(100)
sc_name = session("ss_name")
set conn = server.createobject("adodb.connection")
conn.open "chat","chat","chat001"
select case request.form("b1")
    case "添加表情"
        if trim(request.form("t1")) <> "" then
            what = replace(trim(request.form("t1")),"<","<")
            sql1 = "select * from user_bq_table where (user_name='所有人' and user_bq='" + what + "') or (user_name='" + sc_name +"' and user_bq='" + what + "')"
            set rs1 = conn.execute(sql1)
            if rs1.eof then
                sql = "insert user_bq_table values('" + sc_name +"','" + what + "')"
                set rs2 = conn.execute(sql)
                sql = "select user_bq from user_bq_table where user_name='所有人' or user_name='" + sc_name + "'"
                set rs3 = conn.execute(sql)
                for i = 1 to 100
                    sc_bqq(i) = ""
                next
                j = 0
                do while not rs3.eof
                    j = j + 1
                    sc_bqq(j) = rs3(0)
                    rs3.movenext
                loop
                session("ss_bq") = sc_bqq
                rs3.close
            else
                rs1.close
            end if
        end if
    case "確認刪除"
        sql = "delete user_bq_table where user_name='" + sc_name + "' and user_bq='" + request.form("d1") + "'"
        set rs2 = conn.execute(sql)
        sql = "select user_bq from user_bq_table where user_name='所有人' or user_name='" + sc_name + "'"
        set rs3 = conn.execute(sql)
        for i = 1 to 100
            sc_bqq(i) = ""
        next
        j = 0
 &



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。