?<!--#include file="conn.inc"-->
<!--#include file="66hcsb.asp"-->
<%
ltid=usb(request("ltid"))
idp=ubb(request("idp"))
lttxt=usb(request("lttxt"))
djjg=usb(request("djjg"))
if djjg="" then djjg="0"
ldid=usb(request("ldid"))
if ldid="" then ldid="0"
dj=usb(request("dj"))
t=usb(request("t"))
set rsl=Server.CreateObject("ADODB.Recordset")
rspll="select * from [ltid] where cstr(fnr)='"&lttxt&"' and cstr(fid)='"&myid&"'"
rsl.open rspll,conn,1,2
if not rsl.eof then
response.redirect "ROOM_add.asp?cw=3&glsb="&glsb&"&ltid="&ltid&"&dj="&dj&""
end if
rsl.close
set rsl=nothing
%>
<%
'----識(shí)別錯(cuò)誤并跳轉(zhuǎn)-----
if lttxt="" then response.redirect "ROOM_add.asp?cw=2&glsb="&glsb&"&ltid="&ltid&"&dj="&dj&""
if myid="" then response.redirect "ROOM_add.asp?cw=4&glsb="&glsb&"&ltid="&ltid&"&dj="&dj&""
'---開始增加----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from [ltid] order by id desc"
rs.open rspl,conn,1,2
rs.addnew
if t="" and idp="" then rs("fnr")="說:"&lttxt&""
if t="" and idp<>"" then rs("fnr")="對(duì)"&idp&"說:"&lttxt&""
if t<>"" and idp="" then rs("fnr")="說:(img)"&t&"(/img)"&lttxt&""
if t<>"" and idp<>"" then rs("fnr")="對(duì)"&idp&"說:(img)"&t&"(/img)"&lttxt&""
if myni<>"" then rs("fnc")=myni
if myid<>"" then rs("fid")=myid
rs("ltid")=ltid
rs.update
response.redirect "ROOM.asp?glsb="&glsb&"&ltid="&ltid&"&dj="&dj&""
'---關(guān)閉數(shù)據(jù)----
rs.close
set rs=nothing
%>