?? add.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">
<%
dim text,md5text,ip
if request("action")="add" then
text=request("text")
md5text=request("md5text")
ip=request("IP")
if text<>"" then
Set Rs = Server.CreateObject("Adodb.RecordSet")
sql="select * from md5 where text='"&text&"' order by id desc"
Rs.Open sql,conn,1,3
if rs.EOF And rs.BOF Then
rs.addnew
rs("text")=text
rs("md5text")=md5text
rs("ip")=IP
rs("adddate")=date()
rs.update
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
else
Response.write "添加失敗"
end if
end if
%>
<table align='center' border="0" width="657" cellspacing="0" cellpadding="5">
<form action="?action=add" method="post" name="add" >
<tr>
<td colspan="5" align='center'><font size='3'> 添 加 MD5 </font>
<input type="submit" name="add" class="add" value="增加數值" onClick="location.href='?action=add'" >
<input type="button" value="返回列表" name="back" onClick="location.href='edit.asp'">
<hr width='95%'>
</td>
</tr>
<tr>
<td width="16%" align="right">原始數據?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -