wap_add.asp

新的简单易用的公司管理系统

<%@LANGUAGE="VBSCRIPT"  CODEPAGE="65001"%>
<%
response.ContentType="text/vnd.wap.wml;charset=gb2312"
Response.Expires = "-1"
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
%>
<!--#include file=wap_chkpass.asp-->
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<!--#include file=conn.asp-->
<!--#include file=inc/function.asp-->
<card id="wapadd" title="<%=ewap(ewap_(7))%>">
<onevent type="onenterbackward">
<refresh>
<setvar name="title" value=""/>
<setvar name="detail" value=""/>
</refresh>
</onevent>
<p align="left">
<%=ewap(ewap_(10))%><br/>
<input type="text" name="title" emptyok="false" size="12" maxlength="20" format="M*m" value="" /><br/>
<%=ewap(ewap_(11))%><br/>
<input type="text" name="detail" emptyok="false" size="12" maxlength="100" format="M*m"  value="" /><br/>
<%
dim rs,sql
set rs=server.createobject("ADOdb.Recordset")
sql="select * from class where p_class=0"
rs.open sql,cn,1,1
%><%=ewap(ewap_(59))%><br/>
<select name="class">
<%
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=ewap("〓")%><%=ewap(rs("class_name"))%></option>
<%
dim rs22,sql22
set rs22=server.createobject("ADOdb.Recordset")
sql22="select * from class where p_class="&rs("id")
rs22.open sql22,cn,1,1
do while not rs22.eof
%>
<option value="<%=rs22("id")%>"><%=ewap(rs22("class_name"))%></option>
<%
rs22.movenext
loop
rs.movenext
loop
rs22.close
	set rs22=nothing
	rs.close
	set rs=nothing
%>
</select><br/>
<anchor title="<%=ewap(ewap_(13))%>"><%=ewap(ewap_(13))%>
<go href="wap_save.asp" method="post" accept-charset="utf-8">
<postfield name="title" value="$(title)" />
<postfield name="detail" value="$(detail)" />
<postfield name="class" value="$(class)" />
</go>
</anchor><br/>
<a title="<%=ewap(ewap_(8))%>" href="wap_index.asp"><%=ewap(ewap_(8))%></a><br/>
</p>
</card>
</wml>