关于ASP制作WAP 查询系统源码问题
我想改个字体转拼音系统，执行文件有2个分别是index.asp和add.asp请高手指点下哪里错了，要改哪里？第一个index.asp代码是<%@LANGUAGE="VB...
我想改个字体转拼音系统，执行文件有2个分别是index.asp和add.asp 请高手指点下哪里错了，要改哪里？
第一个index.asp
代码是<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%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"> <!--#include file="add.asp"--> <wml> <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> <% dim pw,txt,sid sid=request.querystring("sid") pw=request("pw") txt=request("txt") if pw=1 then if txt="" then response.redirect "index.asp" response.write""&add(""&txt&"",0)&"" elseif pw=2 then if txt="" then response.redirect "index.asp" response.write""&add(""&txt&"",1)&"" else %> 输入要转换的字符:
<input type="text" name="txt<%=minute(now)%><%=second(now)%>" title="拼音查询" value="" maxlength="300"/>
<anchor title="查询拼音">查询拼音 <go method="post" href="index.asp?pw=1&sid=<%=sid%>"> <postfield name="txt" value="$(txt<%=minute(now)%><%=second(now)%>)"/> </go></anchor>
<a href="index.asp?pw=0&sid=<%=sid%>&txt=$(txt<%=minute(now)%><%=second(now)%>">拼音转文字</a> <%end if%>
----------
<% response.write "<a href=""../index.asp?sid="&sid&""">返回上级</a>" response.write "
<a href=""/index.asp?sid="&sid&""">网站首页</a>
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "</p></card></wml>" & Chr(13) %>
第二个add.asp代码是
<%function add(m,k) dim n(1),j,i:add=m n(0)="啊呵埃哀" n(1)="啊拼音：a 呵拼音：he 埃拼音：ai 哀拼音：shuai " for i=1 to len(add) j=instr(n(k),mid(add,i,1)) if j>0 then add=left(add,i-1)&mid(n(1-k),j,1)&mid(add,i+1) next end function%> 举例输入 啊 后转换结果显示为 啊拼音：a 。要怎么把它隔开好让查询方式成输入单字转显示一条出来？在线求解答。。。我是新手刚刚学ASP很多内置函数还不怎么会用。望高手指点下 展开
第一个index.asp
代码是<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%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"> <!--#include file="add.asp"--> <wml> <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> <% dim pw,txt,sid sid=request.querystring("sid") pw=request("pw") txt=request("txt") if pw=1 then if txt="" then response.redirect "index.asp" response.write""&add(""&txt&"",0)&"" elseif pw=2 then if txt="" then response.redirect "index.asp" response.write""&add(""&txt&"",1)&"" else %> 输入要转换的字符:
<input type="text" name="txt<%=minute(now)%><%=second(now)%>" title="拼音查询" value="" maxlength="300"/>
<anchor title="查询拼音">查询拼音 <go method="post" href="index.asp?pw=1&sid=<%=sid%>"> <postfield name="txt" value="$(txt<%=minute(now)%><%=second(now)%>)"/> </go></anchor>
<a href="index.asp?pw=0&sid=<%=sid%>&txt=$(txt<%=minute(now)%><%=second(now)%>">拼音转文字</a> <%end if%>
----------
<% response.write "<a href=""../index.asp?sid="&sid&""">返回上级</a>" response.write "
<a href=""/index.asp?sid="&sid&""">网站首页</a>
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "</p></card></wml>" & Chr(13) %>
第二个add.asp代码是
<%function add(m,k) dim n(1),j,i:add=m n(0)="啊呵埃哀" n(1)="啊拼音：a 呵拼音：he 埃拼音：ai 哀拼音：shuai " for i=1 to len(add) j=instr(n(k),mid(add,i,1)) if j>0 then add=left(add,i-1)&mid(n(1-k),j,1)&mid(add,i+1) next end function%> 举例输入 啊 后转换结果显示为 啊拼音：a 。要怎么把它隔开好让查询方式成输入单字转显示一条出来？在线求解答。。。我是新手刚刚学ASP很多内置函数还不怎么会用。望高手指点下 展开
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
