?? reedcl.asp
字號:
?<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%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="config.inc"-->
<!--#include file="ubb.inc"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<!--#include file="admin2.inc"-->
<%
dim newname
newname=usb(request("newname"))
if newname="" then
response.write "<card id='card1' title='投票主題修改'><p align='left'>"
response.write "內容不能為空！！<br/><a href='http://66hc.net'>第六感制作</a><br/><a href='reed.asp?myid=" & myid & "&id=" & id & "&idss=" & idss & "'>[返回重寫]</a><br/>"
%>
<!--#include file="bb.asp"-->
<!--#include file="cc.asp"-->
<%
Response.write "</p></card></wml>"
response.end
else
dim rs,rsstr
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from m where id=1"
rs.open rsstr,myc,1,2
if newname<>"" then rs("name")=newname
rs.Update
rs.close
set rs=nothing
response.write "<card id='card1' title='投票主題修改' ontimer='dalei.asp?myid=" & myid & "&idss=" & idss & "'><timer value='15'/><p>"
response.write"修改成功！！正在返回...<br/><br/>---------<br/>"
%>
<!--#include file="bb.asp"-->
<!--#include file="cc.asp"-->
<%
Response.write "</p></card></wml>"
end if
else
response.write"非法數據!!<br/><a href='http://66hc.net'>第六感</a>制作"
end if
myc.close
set myc=nothing
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -