<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="ExeConn.Asp" -->
<%
Dim Key
Key=Request.QueryString("key")
cms=Request.QueryString("cms")
If Key<>"" Then
Set rs = Server.CreateObject("adodb.recordset")
rs.open"Select * from [keyd] Where keyname='"&key&"' order by id desc",conn,1,1
If not(rs.eof and rs.bof) Then
  Response.Write "不添加错误"
  Response.End()
Else
  If cms="jajacool" Then
  Conn.Execute("Insert into keyd (keyname) Values ('"&key&"')")
  End if
  Response.Write "已添加错误"
  Rs.Close:Set rs=Nothing:Conn.Close:Set Conn=Nothing
End if 
Else
Response.Write "操作错误"
End if 
%>
