📄 add_key.asp
字号:
<!--#include File="Pass.asp"-->
<% If Request("Action")="add" Then
if Request("key")="" then
response.write("<script>alert(""都不能为空！"");history.back();</script>")
response.End
end if
Set rstuser = Server.CreateObject("ADODB.Recordset")
sqlstr = " select * from Ckk_BaiDu where key='"&Request("key")&"'"
rstuser.Open sqlstr,dsn,1,1
if not rstuser.eof then
response.write("<script>alert(""这个关键字已经存在！"");history.back();</script>")
response.End
end if
rstuser.close
set rstuser=nothing
sql="select * from Ckk_BaiDu"
set rs=server.createobject("adodb.recordset")
rs.open sql,dsn,3,2
rs.addnew
rs("Url")="http://www.baidu.com/baidu?cl=3&tn=cenkaikai123_pg&wd="&Request("Key")
rs("Key")=Request("Key")
rs("AddDate")=Date
rs("NeiRong")=""
rs("NeiRongs")=""
rs("Go_Url")=""
rs("Hots")=8
rs("Ind")=1
rs.update
rs.close
response.write("<script>alert(""添加成功！"");location.href=""Key.asp"";</script>")
response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Language content=zh-CN>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Images/Admin/admin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<BODY text=#000000>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center border=0>
<TBODY>
<TR>
<TD height=5></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=3 height=3><IMG height=3
src="Images/O_angle_up_left.gif" width=3></TD>
<TD width="100%" bgColor=#6795b4></TD>
<TD width=3><IMG height=3
src="Images/O_angle_up_right.gif"
width=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD bgColor=#6795b4 height=25> </TD>
</TR>
<TR>
<TD class=form_border> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD colSpan=3 height=5></TD>
</TR>
<TR>
<TD> </TD>
<TD> <TABLE class=form_in cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD height=5></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TH colSpan=2 height=25>添加WEB</TH>
</TR>
<TR>
<TD align=middle height=23><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#1BA3D6">
<form method="post" action="?Action=add" name="myform" id="myform" OnSubmit="return checkkk()">
<tr bgcolor="#FFFFFF">
<td height="25"> 关键字： </td>
<td> <input name="key" type="text" id="Url5" size="30">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2"><div align="center">
<input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</form>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=5></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD> </TD>
</TR>
<TR>
<TD> </TD>
<TD> </TD>
<TD> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=3><IMG height=3
src="../Images/Admin/O_angle_down_left.gif" width=3></TD>
<TD width="100%" background=../Images/Admin/O_angle_bottom.gif
height=3></TD>
<TD width=3><IMG height=3
src="../Images/Admin/O_angle_down_right.gif"
width=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>
<!--#include File="../Close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -