手机WAP编程

开发平台：

ASP/ASPX

bj_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">
<%
id=request.form("id")
nam=request.form("nam")
mm=request.form("mm")
if mm="" then mm="0"
idi=request.form("idi")
txt=request.form("txt")
brr=request.form("brr")
xx=request.form("xx")
dy=request.form("dy")
did=request.form("did")
url=request.form("url")
yc=request.form("yc")
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>")
end if
'---开始增加----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from wap_lm where id="&id
rs.open rspl,conn,1,2
if not rs.eof then
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 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()
end if
'---关闭数据----
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>

						