<%dim path,pathname,wmltxt,wmlhead,TP wmlhead = "wml.txt" path=trim(request("path")) pathname=trim(request("pathname")) TP=trim(request("TP")) wmltxt=trim(request("wmltxt")) if path="" then Call Error("WML页面地址无效！") end if if pathname="" then Call Error("WML页面名称无效！") end if function uubb(str) str=trim(str) if IsNull(str) then exit function str=replace(str,"&","&") str=replace(str,"<","<") str=replace(str,">",">") str=replace(str,"'","'") str=replace(str,"""",""") uubb=str end function IF TP<>"" then if wmltxt="" then Call Error("WML页面内容不能为空！") end if dim filename filename="/wml/"&pathname call SaveToFile(LoadFile(wmlhead)&wmltxt,filename) Set fso = server.CreateObject("Scripting.FileSystemObject") filesize=fso.GetFile(Server.MapPath(filename)).size response.write"WML页面编辑成功！
" else %> 新WML页面内容:
" emptyok="false"/>
确认提交
2.0编辑WML
删除此WML
<%end if%> 提示:WML页面应从<card到</wml>
[WML页面管理]
[站长工具]
[后台管理]