📄 shouji_save.asp

📁 admin/admin.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'>警告：你的权限不足!</p>"
		response.end
	end if
  end if

%>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<%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="conn.asp"-->
<!--#include file="char.asp"-->
<%
set myc=Server.CreateObject("ADODB.Connection")
myc.ConnectionString="DBQ="+server.mappath("ysqlp.asa")+";DRIVER={Microsoft Access Driver (*.mdb)};"
myc.open

set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from SqlIn",myc,1,2
rs.addnew
rs("SqlIn_IP")=request("shuoji")
rs("SqlIn_TIME")=Now
rs.update
rs.close
set rs=Nothing
myc.close
set myc=nothing
%>
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="操作成功">
<p>
封锁，即该手机号以后将无法访问本站！<br/>
解锁，请进入SQL安全中删除该号即可！<br/>
----------<br/>
<a href="main.asp">返回后台管理</a><br/>
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -