手机WAP编程

开发平台：

ASP/ASPX

zjtjrj.asp：源码内容

							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include FILE="conn.inc"-->
<!--#include file="cnscu_sb.asp"-->
<% Response.ContentType="text/vnd.wap.wml;charset=UTF-8" %>
<?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><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card  title="添加文件">
<p>
<%
response.write "<select name='idp'><option onpick=''>选择大类</option>"
set rse=server.createobject("ADODB.Recordset")
aql="select id,nxn,lx,did from wap_lm where cstr(lx)='12' order by id asc"
rse.open aql,conn,1,2
j=1
do while not rse.eof
 dim namx
namx=rse("nxn")
if len(namx)>8 then namx=left(namx,8)
Response.write "<option value='" & rse("id") & "'>" & ubb(namx) & "</option>"
j=j+1
rse.movenext
loop
rse.close
set rse=nothing
Response.write "</select><br/>"%>
软件名称:<br/>
<input name='nam<%=minute(now)%><%=second(now)%>' title='软件名称'/><br/>
文件地址:<br/>
<input name='url<%=minute(now)%><%=second(now)%>' title='文件地址' value=''/><br/>
文件说明:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='文件说明' value=''/><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<anchor>[确定提交]<go href='lmcl.asp?sb=<%=sb%>&amp;fs=<%=fs%>' method='post' accept-charset='utf-8'>
<postfield name='nam' value='$(nam<%=minute(now)%><%=second(now)%>)'/>
<postfield name='idi' value='1'/>
<postfield name='txt' value='$(txt<%=minute(now)%><%=second(now)%>)'/>
<postfield name='url' value='$(url<%=minute(now)%><%=second(now)%>)'/>
<postfield name='dy' value='$(dy<%=minute(now)%><%=second(now)%>)'/>
<postfield name='yc' value='$(yc)'/>
<postfield name='brr' value='$(brr)'/>
<postfield name='mm' value='$(mm)'/>
<postfield name='lx' value='11'/>
<postfield name='did' value='$(idp)'/>
</go></anchor><br/>
<a href="cnscu.asp?sb=<%=sb%>">上传文件</a><br/>
<a href="admin_index.asp?sb=<%=sb%>">返回管理首页</a><br/>
</p>
</card>
</wml>

						