add_email.asp

很强大的一款医药管理软件很强大的一款医药管理软件很强大的一款医药管理软件很强大的一款医药管理软件很强大的一款医药管理软件

<!--#include file="dbconn.asp"-->
<%
dim rs
dim sql

set rs=server.createobject("adodb.recordset")
sql="select * from maillist where email is null"
rs.open sql,conn,3,3
rs.addnew
rs("email")=request("email")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('订阅成功!');" & Chr(13)
		response.write "window.document.location.href='index.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
%>