save.asp

wap手机笑话大全源码(无密码保护) wap手机网站

<%@ Language=VBScript %>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0"  encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<%
name=request("name")
level=request("level")
address=request("address")
tel=request("tel")
%>
<%
if name="" then 
  response.redirect "error.asp?id=1"
end if

if address="" then 
  response.redirect "error.asp?id=4"
end if

if level="" then 
  response.redirect "error.asp?id=2"
end if

if tel="" then 
  response.redirect "error.asp?id=3"
end if

set rs=server.createobject("adodb.recordset")
 sql="select * from jiudian"
 rs.open sql,conn,3,3
 rs.addnew
 rs("level")=level
 rs("name")=name
 rs("address")=address
 rs("tel")=tel
 rs.update
%>
<wml>
<card id="jiudianfl" title="祈求愿望添加" ontimer="useradd.asp">
<timer value="15"/>
<p align="center">祈求愿望成功!
<br/>
<a href="index.asp">返回祈愿首页</a><br/>
<a href="/">返回网站首页</a>
</p>
</card>
</wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>