我自己写的聊天室源代码（九）
日期：2013-05-22 浏览次数：20819 次
*************************表情设置**************************
<%'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
<%'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
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
