mail.asp

来自「本程序开发的是一个论坛系统」· ASP 代码 · 共 30 行

<!--#INCLUDE FILE="config.inc" -->
<!--#INCLUDE FILE="top.inc" -->

<%
set my_conn= Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
my_Conn.Open ConnString

StrSql = "Select * From Members Where Member_ID = "  & Request.QueryString("ID")

rs = my_conn.Execute (StrSQl)

%>

<font face="<% =DefaultFontFace %>" size=3>
<center>
<p>Click to send <a href="mailto:<%= rs("m_email")%>"><%= rs("M_name")%></a> an email</p>
<font size=2>
<p><a href="javascript:history.go(-1)">Back To Forum</a></p>
</font>
</center>


<%

set rs = nothing
my_conn.Close
set my_conn = nothing

%>