手机WAP编程

开发平台：
ASP/ASPX

tjlmok.asp：源码内容
							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="cnscu_sb.asp"-->
<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="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card id="main" title="网站设计-添加项目" >
<p>
<%
cw=dlubb(request("cw"))
did=dlubb(request("did"))
ok=dlubb(request("ok"))
ttt=dlubb(request("ttt"))
if ok="1" then mmlx="文本菜单<br/>本菜单不支持UBB语法、WML语法"
if ok="2" then mmlx="链接菜单<br/>即超级链接"
if ok="3" then mmlx="图片菜单<br/>即显示图片"
if ok="4" then mmlx="图片菜单<br/>即图片型超级链接"
if ok="5" then mmlx="页面菜单<br/>即新的页面菜单。"
if ok="6" then mmlx="页面内容<br/>简便型的文章，支持UBB语法。"
if ok="7" then mmlx="WML页面<br/>支持WML语法的页面。"
if ok="8" then mmlx="UBB标签<br/>支持UBB语法，不支持WML语法，"
if ok="9" then mmlx="WML标签<br/>支持WML语法，不支持UBB语法。"
if ok="10" then mmlx="文章系统<br/>文章栏目"
if ok="11" then mmlx="添加文件<br/>盗链其他站点文件"
if ok="12" then mmlx="文件系统<br/>用于储存文件的栏目"
if ok="13" then mmlx="图片系统<br/>用于储存图片的专用栏目"
if ok>13 or ok<0 then mmlx="未知类型<br/>可能是传递数据错误！"
%>
当前位置:首页<br/>
项目类型:<%=mmlx%><br/>
<%if cw="1" then%>
*********<br/>
啊哦，出错了<br/>
栏目标题不能为空<br/>
*********<br/>
<%elseif cw="2" then%>
*********<br/>
啊哦，出错了<br/>
栏目排序不能留空<br/>
*********<br/>
<%elseif cw="3" then%>
*********<br/>
啊哦，出错了<br/>
栏目内容不能为空！<br/>
*********<br/>
<%elseif cw="4" then%>
*********<br/>
啊哦，出错了<br/>
不可识别的栏目类型<br/>
*********<br/>
<%elseif cw="5" then%>
*********<br/>
啊哦，出错了<br/>
已经添加成功，请不要重复添加<br/>
*********<br/>
<%end if%>
<%if ok="1" then%>
----------<br/>
项目名称<br/>
<input name='nam' title='项目名称'/>用于标识文本菜单，必须输入<br/>
文本内容<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='文本内容'/>显示出来的内容，最大8000字<br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="2" then%>
----------<br/>
链接名称:<br/>
<input name='nam' title='链接名称'/>用于显示的链接名称，必须输入<br/>
链接地址:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='链接地址' value='<%=ttt%>'/><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="3" then%>
----------<br/>
图片名称:<br/>
<input name='nam' title='图片名称'/>用于标识图片菜单，必须输入<br/>
图片地址:<br/>
<input name='url' title='图片地址'/><br/>
图片说明:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='图片说明'/><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="4" then%>
----------<br/>
页面名称:<br/>
<input name='nam' title='页面名称'/>用于标识图片链接，必须输入<br/>
链接地址:<br/>
<input name='url' title='链接地址'/><br/>
图片地址:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='图片地址'/><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="5" then%>
----------<br/>
项目名称:<br/>
<input name='nam' title='项目名称'/>用于标识图片链接，必须输入<br/>
页面介绍:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='页面介绍'/><br/>
对齐方式:<select name='dq' value='0'>
<option value="left">居左</option>
<option value="center">居中</option>
<option value="right">居右</option>
</select><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
查看密码:<br/>
<input name='mm' title='查看密码'/>密码不为0时有效<br/>
<%elseif ok="6" then%>
----------<br/>
页面名称:<br/>
<input name='nam' title='页面名称'/>用于标识页面内容，显示在当前位置上，必须输入<br/>
页面内容:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='页面内容'/>支持UBB语法，最大8000字<br/>
对齐方式:<select name='dq' value='1'>
<option value="left">居左</option>
<option value="center">居中</option>
<option value="right">居右</option>
</select><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
查看密码:<br/>
<input name='mm' title='查看密码'/>密码不为0时有效<br/>
<%elseif ok="7" then%>
----------<br/>
页面名称:<br/>
<input name='nam' title='页面名称'/>用于标识页面内容，显示在当前位置上，必须输入<br/>
页面内容:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='页面内容'/>支持Wml语法<br/>
对齐方式:<select name='dq' value='1'>
<option value="left">居左</option>
<option value="center">居中</option>
<option value="right">居右</option>
</select><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
查看密码:<br/>
<input name='mm' title='查看密码'/>密码不为0时有效<br/>
<%elseif ok="8" then%>
----------<br/>
项目名称:<br/>
<input name='nam' title='项目名称'/>用于标识UBB标签，必须输入<br/>
标签内容:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='标签内容'/>显示出来的内容，最大8000字<br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="9" then%>
----------<br/>
项目名称:<br/>
<input name='nam' title='项目名称'/>用于标识WML标签，如"下拉框","返回"等，必须输入<br/>
标签内容:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='标签内容'/>显示出来的内容，最大8000字<br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="10" then%>
----------<br/>
后台标识:<br/>
<input name='nam' title='后台标识'/>用于后台标识<br/>
标题名称:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='标题名称'/>显示标题名称<br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="11" then%>
软件名称:<br/>
<input name='nam' title='软件名称'/><br/>
软件地址:<br/>
<input name='url' title='软件地址'/><br/>
软件介绍:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='软件介绍'/><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="12" then%>
项目名称:<br/>
<input name='nam' title='项目名称'/>用于标识图片链接，必须输入<br/>
页面介绍:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='页面介绍'/><br/>
对齐方式:<select name='dq' value='0'>
<option value="left">居左</option>
<option value="center">居中</option>
<option value="right">居右</option>
</select><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%elseif ok="13" then%>
栏目名称:<br/>
<input name='nam' title='栏目名称'/>用于显示的链接，必须输入<br/>
栏目说明:<br/>
<input name='txt<%=minute(now)%><%=second(now)%>' title='栏目说明'/>支持UBB，可以写广告<br/>
对齐方式:<select name='dq' value='0'>
<option value="left">居左</option>
<option value="center">居中</option>
<option value="right">居右</option>
</select><br/>
内容后面:<select name='brr' value='1'>
<option value='1'>自动换行</option>
<option value='0'>不换行</option>
</select><br/>
显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='' size='2' emptyok='false'/><br/>
公开方式:<select name='yc' value='0'>
<option value='0'>正常显示</option>
<option value='1'>隐藏显示</option>
</select><br/>
<%else%>
未知类型
<%end if%>
后面调用:<select name='dy<%=minute(now)%><%=second(now)%>' value='0'>
<option value='0'>无须调用</option>
<option value='1'>动态新闻</option>
<option value='2'>动态首链</option>
<option value='3'>动态广告</option>
<option value='4'>最新帖子</option>
<option value='5'>动态友链</option>
<option value='6'>热门帖子</option>
<option value='7'>最新文章</option>
<option value='8'>最热文章</option>
<option value='9'>最新上传</option>
</select><br/>
<anchor>[确定提交]<go href='lmcl.asp?sb=<%=sb%>&amp;fs=<%=fs%>' method='post' accept-charset='utf-8'>
<postfield name='nam' value='$(nam)'/><postfield name='idi' value='$(idi)'/>
<postfield name='txt' value='$(txt<%=minute(now)%><%=second(now)%>)'/>
<postfield name='url' value='$(url)'/>
<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='<%=ok%>'/>
<postfield name='did' value='<%=did%>'/>
</go></anchor><br/>
----------<br/>
<a href="tjlm.asp?fs=<%=fs%>&amp;sb=<%=sb%>">重新选择类型</a><br/>
<a href="cnscu_lm.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回网站设计</a><br/>
<a href="admin_index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回管理首页</a><br/>
<a href="../index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回网站首页</a><br/>
报时:<%=time%>
</p></card></wml>

						