xuan.asp

WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~WAP BBS程序~

<!--#include file="config.inc"-->
<%
Response.Buffer=true
Response.ContentType ="text/vnd.wap.wml;charset=gb2312"
response.write("<?xml version=""1.0""?>")
response.write("<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">")
response.write("<!-- Source Generated by WML Deck Decoder -->")
%>

<%
id=request.QueryString("id")
set res=server.CreateObject("ADODB.Recordset")
sql="select *  from  gbookmain where  id='"&id&"'"
res.open sql,conn,1,3
%>
<wml>
 
 <%if  request("choice")=""  then %>
 <card id="choice" title="发言">
  <p>
   您认为本栏目的标题：<br/>
   <img src="biao/009.png" alt=""  align="bottom"/><a href="xuan.asp?id=<%=id%>&amp;choice=1" title="确定">写的还可以</a><br/>
   <img src="biao/009.png" alt=""  align="bottom"/><a href="xuan.asp?id=<%=id%>&amp;choice=0" title="确定">实在不怎么样</a><br/>
   <br/>
    <img src="pic/005.png" alt="" align="bottom"/><a href="reply.asp?isrly=0&amp;id=<%=request("id")%>" title="确定">返回上级</a><br/>
    <img src="pic/005.png" alt="" align="bottom"/><a href="">返回部落</a><br/>
	<img src="pic/005.png" alt="" align="bottom"/><a href="">返回首页</a><br/>
  </p>
 </card>
 <%else
       if   request("choice")=1  then
	        sql="update gbookmain set choice1=choice1+1  where  id ='"&id&"'"
       else
	       sql="update gbookmain set choice2=choice2+1  where  id ='"&id&"'"
       end if
	   set res2=server.CreateObject("ADODB.Recordset")
	   
	   res2.open  sql,conn,1,3
	   txturl = "reply.asp?isrly=0&amp;id="&Request("id") 
 %>
 <card ontimer="<%=txturl%>" title="论坛">
		<timer value="10"/>
		<p>
		回复成功，正在记录...<br/>
		 
	</p>
	  </card>
 
 
 
 
 <%end if%>
 
 </wml>