📄 edit.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../md5.asp"-->
<%
if request.Cookies("admin")<>"guoxue" and session("administrator")<>"administrator" then
Response.Redirect("index.asp")
end if
%>
<html>
<head>
<style type="text/css">
<!--
td { font-size: 12px; line-height: 17px }
body { font-size: 12px; line-height: 17px }
p { margin-top: 1; margin-bottom: 1 }
a:link { text-decoration: none; color: black }
a:visited { text-decoration: none; color: black }
a:active { text-decoration: none }
a:hover { text-decoration: underline; color: red }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>编辑</title>
<%
dim text,md5text,ip,adddate,mdelse,id,tj
dim ntop
if Request.QueryString("ntop")="" then
ntop=cint("50")
else
ntop=cint(Request.QueryString("ntop"))
end if
'text=request(dtext)
''md5text=request(dmd5text)
'ip=request(dip)
'id=request(did)
if request("action")="find" then
call find()
end if
if Request.QueryString("action")="del" then
call del()
end if
sub del()
id=Request.QueryString("id")
Set Rs = Server.CreateObject("Adodb.RecordSet")
sql="delete from md5 where id="&id
Rs.Open sql,conn,1,3
'if rs.EOF And rs.BOF Then
'rs.delete
'rs.updata
'end if
'rs.close
'Set rs=Nothing
response.write "<script language='javascript'>" & chr(13)
response.write "alert('删除成功!');" & Chr(13)
response.write "window.document.location.href='javascript:history.back()';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end sub
sub delsame()
id=Request.QueryString("id")
Set Rs = Server.CreateObject("Adodb.RecordSet")
sql="Select * from md5 where text like '%"&deltext&"%' order by id desc"
'sql="delete from md5 where id="&id
Rs.Open sql,conn,1,3
'if rs.EOF And rs.BOF Then
'rs.delete
'rs.updata
'end if
'rs.close
'Set rs=Nothing
response.write "<script language='javascript'>" & chr(13)
response.write "alert('批量删除成功!');" & Chr(13)
response.write "window.document.location.href='javascript:history.back()';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end sub
if Request.QueryString("action")="add" then
call add()
end if
sub find()
%>
<table align='center' border="0" width="99%" cellspacing="0" cellpadding="5">
<form action="" method="post" name="ret" >
<tr>
<td colspan="6" align='center'><font size='3'> 查 询 结 果 </font>
<hr width='95%'>
</td>
</tr>
<tr>
<td width="14%" align="right">
<div align="center">原始数据</div>
</td>
<td width="36%">
<div align="center">对应MD5值</div>
</td>
<td width="14%">
<div align="center">添加人IP</div>
</td>
<td width="14%">
<div align="center">添加时间</div>
</td>
<td width="10%">
<div align="center">ID</div>
</td>
<td width="12%">
<div align="center">操作！</div>
</td>
</tr>
<%
text=request.form("dtext")
md5text=request.form("dmd5text")
ip=request.form("dip")
id=CSTR(request.form("did"))
adddate=request.form("ddate")
dim objrs,objsql
Set objRs = Server.CreateObject("Adodb.RecordSet")
'==========
dim findtext
if text<>"" then
findtext=text
objsql="Select TOP 100 * from md5 where text like '%"&findtext&"%' order by id desc"
else
if md5text<>""then
findtext=md5text
objsql="Select TOP 100 * from md5 where md5text like '%"&findtext&"%' order by id desc"
else
if ip<>""then
findtext=ip
objsql="Select TOP 100 * from md5 where ip LIKE '%"&findtext&"%' order by id desc"
else
if id<>"" then
findtext=id
objsql="Select TOP 100 * from md5 where id like '%"&findtext&"%' order by id desc"
else
if adddate<>"" then
findtext=adddate
objsql="Select TOP 100* from md5 where adddate like '%"&findtext&"%' order by id desc"
else
objsql="Select top "&ntop&" * from md5 order by id desc"
end if
end if
end if
end if
end if
'=============
objRs.Open objsql,conn,1,3
do while not objrs.eof
text=objrs("text")
md5text=objrs("md5text")
IP=objrs("ip")
id=objrs("id")
adddate=objrs("adddate")
%>
<tr>
<td align="right" width="14%">
<div align="center">
<input type="text" name="text" size="12" value="<%=text%>">
</div>
</td>
<td width="36%">
<div align="center">
<input type="text" name="md5text" size="32" value="<%=md5text%>">
</div>
</td>
<td width="14%">
<div align="center">
<input type="text" name="ip" size="12" value="<%=IP%>">
</div>
</td>
<td width="14%">
<div align="center">
<input type="text" name="date" size="12" value="<%=adddate%>">
</div>
</td>
<td width="10%">
<div align="center">
<input type="text" name="id" size="8" value="<%=id%>">
</div>
</td>
<td width="12%">
<div align="center"><a href="?action=del&id=<%=id%>">删除</a> <a href="bianji.asp?action=edit&id=<%=id%>">编辑</a></div>
</td>
</tr>
<%
objrs.movenext
' i=i+1
loop
%>
<tr>
<td align="right" width="14%">
<div align="center"></div>
</td>
<td width="36%">
<div align="center"></div>
</td>
<td width="14%">
<div align="center"></div>
</td>
<td width="14%">
<div align="center"></div>
<div align="center"></div>
</td>
<td width="10%">
<div align="center"></div>
</td>
<td width="12%">
<div align="center"></div>
</td>
</tr>
<tr>
<td align="right" colspan="6">
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"> </div>
<p align="center">
</td>
</tr>
</form>
</table>
<%
objrs.close
Set objrs=Nothing
end sub
%>
<table align='center' border="0" width="99%" cellspacing="0" cellpadding="5">
<form action="edit.asp?action=find" method="post" name="form" >
<tr>
<td colspan="6" align='center'><font size='3'> 查询MD5条件 </font>
<hr width='95%'>
</td>
</tr>
<tr>
<td width="14%" align="right">
<div align="center">原始数据</div>
</td>
<td width="32%">
<div align="center">对应MD5值</div>
</td>
<td width="18%">
<div align="center">添加人IP</div>
</td>
<td width="13%">
<div align="center">添加时间</div>
</td>
<td width="11%">
<div align="center">ID</div>
</td>
<td width="12%">
<div align="center">指令</div>
</td>
</tr>
<tr>
<td align="right" width="14%">
<div align="center">
<input type="text" name="dtext" size="12" value="">
</div>
</td>
<td width="32%">
<div align="center">
<input type="text" name="dmd5text" size="32" value="">
</div>
</td>
<td width="18%">
<div align="center">
<input type="text" name="dip" size="12" value="">
</div>
</td>
<td width="13%">
<div align="center">
<input type="text" name="ddate" size="12" value="">
</div>
</td>
<td width="11%">
<div align="center">
<input type="text" name="did" size="8" value="">
</div>
</td>
<td width="12%">
<div align="center"></div>
</td>
</tr>
<%
'rs.movenext
' i=i+1
'loop
' end if
%>
<tr>
<td align="right" width="14%">
<div align="center"></div>
</td>
<td width="32%">
<div align="center"></div>
</td>
<td width="18%">
<div align="center"></div>
</td>
<td width="13%">
<div align="center"></div>
<div align="center"></div>
</td>
<td width="23%" colspan="2">
<div align="center"></div>
<div align="center"></div>
</td>
</tr>
<tr>
<td align="right" colspan="6">
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"> </div>
</td>
</tr>
<tr>
<td colspan="6">
<p align="center">
<input type="submit" name="find" class="find" value="查询数值" onclick="location.href='?action=find'" >
<input type="button" name="add" class="add" value="增加数值" onclick="location.href='add.asp'" >
<input type="button" name="edit" class="edit" value="编辑数值" onclick="location.href='bianji.asp?action=edit'" >
<input type="reset" value="重新填写" name="reset">
<input type="button" value="批量添加" name="back" onclick="location.href='addmd5.asp'">
<input type="button" value="返回列表" name="back" onclick="location.href='../index.asp'">
</td>
</tr>
<tr>
<td colspan="6">
<div align="right"><a href="pass.asp" target="_blank">修改密码</a> <a href="login.asp?action=logout">退出</a></div>
</td>
</tr>
</form>
</table>
<!--#include file="../copy.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -