手机WAP编程

开发平台：

ASP/ASPX

lmcl.asp：源码内容

							﻿<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html>
<!--#include file="admin_sb.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body bgcolor="#fcefff">
<%
nam=usb(request.form("nam"))
idi=usb(request.form("idi"))
if idi="" then idi="0"
txt=usb(request.form("txt"))
xx=usb(request.form("xx"))
did=usb(request.form("did"))
dy=usb(request.form("dy"))
mm=usb(request.form("mm"))
url=usb(request.form("url"))
yc=request.form("yc")
brr=request.form("brr")
if brr="" then brr="0"
lx=request.form("lx")
if lx="" then lx="0"
did=request.form("did")
'----识别错误并跳转-----
if nam="" then 
Response.Write ("<script>alert('标题不能为空');history.back();</script>")
elseif idi="" then 
Response.Write ("<script>alert('排序不能为空');history.back();</script>")
elseif txt="" then 
Response.Write ("<script>alert('内容不能为空');history.back();</script>")
elseif lx="" then 
Response.Write ("<script>alert('类型不能为空');history.back();</script>")
end if
'---开始增加----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from wap_lm order by pid asc"
rs.open rspl,conn,1,2
if nam=rs("nxn") then response.redirect "tjlmok.asp?sb="&sb&"&cw=5&ok="&lx&""
rs.addnew()
if nam<>"" then rs("nxn")=nam
if did<>"" then rs("did")=did
if idi<>"" then rs("pid")=idi
if txt<>"" then rs("txt")=txt
if lx<>"" then rs("lx")=lx
if dy<>"" then rs("dy")=dy
if brr<>"" then rs("brr")=brr
if url<>"" then rs("url")=url
if mm<>"" then rs("mm")=mm
if yc<>"" then rs("yc")=yc
rs.update()
'---关闭数据----
rs.close
set rs=nothing
Response.Write ("<script>alert('成功增加名为["&nam&"]的栏目');history.back();</script>")
%>
<script language="javascript">
<!--
function clock(){i=i-1
document.title="本窗口将在"+i+"秒后自动关闭!";
if(i>0)setTimeout("clock();",1000);
else self.close();}
var i=1
clock();
//-->
</script>
</table>
</body>
</html>

						