room_addcl.asp

wap系统程序源码 用户名密码:admin

<!--#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
%>
<%
'----识别错误并跳转-----
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")="对"&idp&"说:"&lttxt&""
if t<>"" and idp="" then rs("fnr")="说:(img)"&t&"(/img)"&lttxt&""
if t<>"" and idp<>"" then rs("fnr")="对"&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&""
'---关闭数据----
rs.close
set rs=nothing
%>