www.gusucode.com > 盐城分类信息网asp源码程序 > admin/com_editmail.asp
<!--#include file=conn.asp--> <!--#include file=cookies.asp--> <% dim rs,sql,id id=trim(request("id")) if not isnumeric(id) or id="" then response.write "<li>参数错误!" response.end end if set rs = Server.CreateObject("ADODB.RecordSet") sql="select email from [com] where id="&cstr(id) rs.open sql,conn,1,1 if rs.eof then response.write "<li>参数错误!" response.end end if %> <meta http-equiv="Content-Language" content="zh-cn"> <link href="inc_style.css" rel="stylesheet" type="text/css"> <title>发送邮件</title> <body topmargin="3" leftmargin="0"> <div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="352" height="64"> <form action="user_editmailchk.asp?id=<%=id%>" method="POST"> <tr> <td width="80" height="25"> <p align="center"><font color="#FF0000">邮件标题:</font></td> <td width="273" height="25"> <input type="text" name="mailbiaoti" size="39" maxlength="50"></td> </tr> <tr> <td width="80" height="25"> <p align="center"><font color="#FF0000">用户地址:</font></td> <td width="273" height="25"> <input type="text" name="maildizhi" size="39" value="<%=rs("email")%>" maxlength="40"></td> </tr> <tr> <td width="80" height="25"> <p align="center"><font color="#FF0000">邮件内容:<br> (纯文字)</font></td> <td width="273" height="25"> <textarea rows="16" name="S1" cols="37"></textarea></td> </tr> <tr> <td width="353" height="35" colspan="2"> <p align="center"> <input type="submit" value="提交" name="B1" style="color: #FFFFFF; border: 1px solid #000000; background-color: #666666"></td> </tr> </form> </table> </center> </div> <% rs.close set rs=nothing closedb %>