手机WAP编程

开发平台：

ASP/ASPX

ROOM_addcl.asp：源码内容

							﻿<!--#include file="conn.inc"-->
<!--#include file="cnscucsb.asp"--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <%
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&cnscu="&cnscu&"&ltid="&ltid&"&dj="&dj&""
end if
rsl.close
set rsl=nothing
%>
<%
'----识别错误并跳转-----
if lttxt="" then response.redirect "ROOM_add.asp?cw=2&cnscu="&cnscu&"&ltid="&ltid&"&dj="&dj&""
if myid="" then response.redirect "ROOM_add.asp?cw=4&cnscu="&cnscu&"&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?cnscu="&cnscu&"&ltid="&ltid&"&dj="&dj&""
'---关闭数据----
rs.close
set rs=nothing
%>

						