刚开始学wap开发，有个小程序请教大家
我做了两个页面index.wml 和qycx.wml，代码分别如下
index.wml
<?xml version= "1.0 " encoding= "gb2312 "?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN " "http://www.wapforum.org/DTD/ wml_1.1.xml ">
<wml>
<card id= "qycx " title= "大家好 ">
<p>
请输入查询资料 <input name= "qycx " type= "text " maxlength= "16 " />
<anchor title= "确定 "> 确定
<go href= "qycx.wml " method= "post ">
<postfield name= "qycx " value= "$qycx "/>
</go>
</anchor>
<br/> <br/>
大家好
</p>
</card>
</wml>
qycx.wml代码如下
<?xml version= "1.0 "?>
<!-- created by WAPtor (http://www.waptop.net/) -->
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN " "http://www.wapforum.org/DTD/wml_1.1.xml ">
<wml>
<!-- THIS IS THE FIRST CARD IN THE DECK -->
<card id= "MainCard " title= "This is a first card ">
<%
id=request.form( "qycx ")
response.write id
response.end
set conn=server.createobject( "adodb.connection ")
conn.open "driver={microsoft access driver (*.mdb)};dbq= "&server.mappath( "qycx.mdb ")
sql= "select * from info where name like '% "&id& "% ' "
set rs=server.createobject( "adodb.recordset ")
rs.open sql,conn,1,1
do while not rs.eof
bh=response.write( "id ")
mc=rs( "name ")
%>
<a href= "detail.wml?id= <%response.write bh%> "> <%response.write mc%> </a>
<%
rs.movenext
loop
rs.close
%>
<p align= "center ">
This is a sample text
</p>
</card>
</wml>
数据库结构表info ,字段 id,name
现在问题是index.wml显示正常，输入查询条件后，按确定后，出现错误HTTP Error: 405，请问这是怎么回事呢？
[解决办法]
<% 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 ">
ASP+WML 你少个头：
<% Response.ContentType = "text/vnd.wap.wml; charset=utf-8 "%>
改改加进去吧
[解决办法]
qycx.wml 页的头
[解决办法]
你用的是asp qycx.wml就不能是wml后缀的
应该改为asp后缀,然后记得要加上asp输出wml的头信息,就可以了另外你的文件是gb2312的话 确保你的asp也是gb2312
[解决办法]
好象不可以`
我就是用的ASP但是静态的显示是对的
动态从数据库读出的数据就不可以了
它就直接的把我写的代码给写出来拉
我用的是Opera浏览器测试的
结果就是这样
<%@LANGUAGE= "VBSCRIPT " CODEPAGE= "65001 "%> <% Function outHTM(str) ' 把字符串进行HTM解码,输出字符串 Dim sTemp sTemp = str outHTM = " " If IsNull(sTemp) Then Exit Function End If sTemp = Replace(sTemp, " ' ", " ' ") '还原单引号 sTemp = Replace(sTemp, "& ", "& ") sTemp = Replace(sTemp, " < ", " < ") sTemp = Replace(sTemp, "> ", "> ") sTemp = Replace(sTemp, "$ ", "$$ ") sTemp = Replace(sTemp, " ", " ") sTemp = Replace(sTemp, Chr(10), "
") outHTM = sTemp End Function Sql = "SELECT * FROM ly ORDER BY lyid DESC " Set Rs = Server.CreateObject( "Adodb.Recordset ") Rs.Open Sql,conn,1,3 page = Request.QueryString( "Page ") Rs.PageSize = 6 '一页6条记录 IF Not IsEmpty(Page) Then IF Not IsNumeric(Page) Then '判断Page是否为数字 Page=1 Else Page=Cint(Page) '转换成短整形Integer End IF IF Page > Rs.PageCount Then Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页 ElseIF Page <= 0 Then Rs.AbsolutePage = 1 '设置当前页等于第一页 Else Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 End IF Else Rs.AbsolutePage = 1 End IF Page = Rs.AbsolutePage %> <% Response.ContentType= "text/vnd.wap.wml;charset=gb2312 " %>
发表新贴
<% For i=1 to Rs.PageSize If Rs.Eof Then Response.Write "没有留言了！
" Exit For End If %> ( <%=Rs( "lyid ")%> ) <%=outHTM(Rs( "lytitle "))%>
内容： <%=outHTM(Rs( "lycontent "))%>
留言者： <%=outHTM(Rs( "lyusername "))%>
时间： <%=outHTM(Rs( "lytime "))%>
回复： <% if Rs( "replay ") <> " "then Response.Write outHTM(Rs( "replay ")) else Response.Write "“暂无回复” " end if %>
－－－－－－
<% Rs.MoveNext Next if page> =Rs.PageCount then 'Response.Write ( "[下一页] ") else Response.Write( "[下一页] ") end if if page <=1 then 'Response.Write ( "[上一页] ") else Response.Write( "[上一页] ") end if %>
发表新贴
请问怎么测试ASP后缀的WAP网
