Music switch and image switch/do not scratch switch operation file admin/dontimg. asp

Music switch and image switch/do not scratch switch operation file admin/dontimg. asp
<%
Option Explicit
Dim room, user, dd, ai, chatdata, sendid, dispstr, dispstr2
User = request. form ("user ")
Dd = request. form ("dd ")
Ai = request. form ("ai ")
Chatdata = application ("chatdata ")
Sendid = finduser (user)
Select case dd
Case "0"
If ai = "on" then
Dispstr = right ("0" & time, 8) & ", system, 0," & user & ", ff0000, 0, you successfully opened the image and Midi"
Dispstr2 = "parent. midisw = true ;"
Else
Dispstr = right ("0" & time, 8) & ", system, 0," & user & ", ff0000, 0, you have successfully disabled images and Midi"
Dispstr2 = "parent. midisw = false ;"
End if
Case "1" 'Do not scratch
If ai = "on" then
If (chatdata (sendid, 4) mod 2) = 1 then' is enabled
Dispstr = right ("0" & time, 8) & ", system, 0," & user & ", ff0000, 0, do not scratch the switch is on"
Else
Chatdata (sendid, 4) = chatdata (sendid, 4) + 1
Application. lock
Application ("chatdata") = chatdata
Application. unlock
Dispstr = right ("0" & time, 8) & ", system, 0," & user & ", ff0000, 0, the Do Not scratch function is successfully enabled"
End if
Else
If (chatdata (sendid, 4) mod 2) = 0 then' has been disabled
Dispstr = right ("0" & time, 8) & ", system, 0," & user & ", ff0000, 0"