savemaillistadd.asp

来自「人民医院眼科全站」· ASP 代码 · 共 27 行

<!-- #include file="../include/bkconn.asp "-->
<!--#include file="checkUser.asp"-->
<%
dim sql
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       Set InsertCursor = Server.CreateObject("ADODB.Recordset")
       cmdTemp.CommandText = "SELECT * FROM mailList WHERE (id is null)"
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn
       InsertCursor.Open cmdTemp, , 1, 3
       InsertCursor.addnew 
       InsertCursor("email") =Request("email")
       InsertCursor("name") =Request("name")
       InsertCursor("remark") =Request("remark")
       InsertCursor("mailListSort") =0
       InsertCursor.Update
       InsertCursor.close
	   conn.close
       set InsertCursor=nothing
       set conn=nothing
%>
<script language=Javascript>
<!--
this.document.location="<%=session("adminOldUrl")%>";
-->
</script>