Chat Room | Source code ************************* expression Settings **************************
<% ' optionbq.asp%>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> Facial Settings </title>
<meta name= "generator" content= "Microsoft FrontPage 3.0" >
<meta name= "Microsoft Theme" content= "None, Default" >
<meta name= "Microsoft Border" content= "None" >
<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 "Add expression"
If Trim (Request.Form ("T1")) <> "" Then
what = replace (Trim (Request.Form ("T1")), "<", "<"
SQL1 = "SELECT * from User_bq_table where (user_name= ' all people ' 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= ' everyone ' or user_name= '" + Sc_name + ""
Set rs3 = Conn.execute (SQL)
For i = 1 to 100
SC_BQQ (i) = ""
Next
j = 0
Do as 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 "Confirm deletion"
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= ' everyone ' or user_name= '" + Sc_name + ""
Set rs3 = Conn.execute (SQL)
For i = 1 to 100
SC_BQQ (i) = ""
Next
j = 0
&
