edit1.asp

一个笑话的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"-->
<%
id=request("id")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from jiudian where id="&id
rs.open sql,conn,3,3
%>
<wml>
<card id="jiudianfl" title="文章修改">
<p align="left">
文章类型:<input name="level" value="<%=rs("level")%>"/><br/>
文章名:<input name="name" value="<%=rs("name")%>"/><br/>
作者:<input name="address" value="<%=rs("address")%>"/><br/>
文章内容:<input name="tel" value="<%=rs("tel")%>"/>
<br/>
</p>
<p>
<anchor>修改<br/>
<go href="edit2.asp?id=<%=id%>" method="post">
<postfield name="level" value="$(level)"/>
<postfield name="name" value="$(name)"/>
<postfield name="address" value="$(address)"/>
<postfield name="tel" value="$(tel)"/>
</go>
</anchor>
</p>
<p>
<a href="index.asp">返回笑口常开</a><br/>
<a href="admin.asp">返回管理页面</a><br/>
<a href="/">返回网站首页</a>
</p>
</card>
</wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>