📄 type.asp

📁 这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

💻 ASP

字号:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>1 then
		response.write "<br/><p align='center'>&#x60A8;&#x6CA1;&#x6709;&#x64CD;&#x4F5C;&#x7684;&#x6743;&#x9650;</p>"
		response.end
	end if
  end if

%>
<!-- #include file="conn.asp" -->
<!-- #include file="char.asp" -->
<%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">
<wml> 
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='main' title='&#x7C7B;&#x522B;&#x7BA1;&#x7406;' >
<p>
  <%
  set rs=server.createobject("adodb.recordset")
  sql="select * from Aclass order by classtop"
  rs.open sql,conn,3,3
if rs.eof and rs.bof then
		response.write "&#x4F60;&#x8FD8;&#x6CA1;&#x6709;&#x6DFB;&#x52A0;&#x4EFB;&#x4F55;&#x5927;&#x7C7B;!<br/>"
	else
  rs.movefirst
	do while not rs.eof
if rs("classon")=0 then
	response.write ""&rs("classtop")&".<a href='ztype.asp?id="&rs("id")&"'>"&rs("class")&"</a><br/>"
        end if 
        rs.movenext
        loop 
        end if
        set rs=nothing   
	conn.close
	set conn=nothing
  %> 
-------------
<br/>&#x589E;&#x52A0;&#x5927;&#x7C7B;:
<br/><input type='text' name='class<%=minute(now)%><%=second(now)%>' size='8' maxlength='20'/>
<br/>&#x4E2A;&#x6027;&#x8BDD;&#x8BED;:
<br/><input type='text' name='classurl<%=minute(now)%><%=second(now)%>' size='10' maxlength='300'/>
<br/>&#x6362;&#x884C;:<select name='br'><option value='\'>&#x6362;&#x884C;</option><option value='&nbsp;'>&#x7A7A;&#x683C;</option></select>
<br/><anchor>[-&#x63D0;&#x4EA4;-]
<go href='typesave.asp' method='post' accept-charset='utf-8'>
<postfield name='class' value='$(class<%=minute(now)%><%=second(now)%>)'/>
<postfield name='classurl' value='$(classurl<%=minute(now)%><%=second(now)%>)'/>
<postfield name='classtop' value='0'/>
<postfield name='classon' value='0'/>
<postfield name='br' value='$(br)'/>
<postfield name='types' value='addclass'/>
</go>
</anchor>
<br/><a href='main.asp'>&#x7BA1;&#x7406;&#x9996;&#x9875;</a>
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -