📄 save2.asp

📁 wap版的论坛

💻 ASP

字号:

<!--#include file="config.inc"-->
<%
Response.Buffer=true
Response.ContentType ="text/vnd.wap.wml"
response.write("<?xml version=""1.0"" encoding=""gb2312""?>")
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 -->")
%>
<wml>
   <head>
    <meta http-equiv="Cache-control" content="no-cache" 
  forua= "true" />
  </head>
<%


	txtname =Request("txtname")
	isrly=request.QueryString("isrly")
	pict=request.QueryString("pict")

if isrly=0 then
		sql="update gbookmain set pic="&request.QueryString("pict")&" where name ='"&request("txtname")&"'"

		conn.execute(sql)
		conn.Close
		set conn = nothing
%>		<card title="论坛" ontimer="index.asp">
		<timer value="10"/>
		<p>
		发言成功，正在记录...<br/>
<%	'Response.write sql

Else
	

		sql="update gbookrly set pic="&pict&" where name ='"&txtname&"'"
		conn.execute(sql)
		conn.Close
		set conn = nothing
		txturl = "reply.asp?isrly=0&amp;id="&Request("id")
%>		<card ontimer="<%=txturl%>" title="论坛">
		<timer value="10"/>
		<p>
		回复成功，正在记录...<br/>
<%		
	
End if

%>
	</p>
	  </card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -