📄 m_email.asp
字号:
<!-- #include file="conn.asp"-->
<%
sqlstr="select * from 用户表 where 权限='管理'"
my_rs.open sqlstr,my_Conn,1,3
%>
<html>
<head>
<title>发送邮件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
font-size: 9pt;
}
body {
background-image: url(image/bg.gif);
}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body>
<form name="form1" method="post" action="sendemail.asp">
<table width="430" border="1" align="center" cellspacing="0" bordercolor="#FF0000" bgcolor="#00FF00">
<tr>
<td width="50" align="center">收件人</td>
<td width="367"><label>
<select name="to" id="to">
<option selected>--请选择--</option>
<% if not my_rs.eof then
do while not my_rs.eof%>
<option><%=my_rs("用户名")%></option>
<%my_rs.movenext
loop
end if
my_rs.close%>
</select>
</label></td>
</tr>
<tr>
<td align="center">发件人</td>
<td><label>
<input name="from" type="text" id="from" readonly value="<%=session("Username")%>" size="50">
</label></td>
</tr>
<tr>
<td align="center">邮件主题</td>
<td><label>
<input name="yjzt" type="text" id="yjzt" size="50">
</label></td>
</tr>
<tr>
<td align="center">邮件内容</td>
<td><textarea name="yjnr" cols="50" rows="5" id="yjnr"></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><label>
<input type="submit" name="Submit" value="提交">
</label>
<label>
<input type="reset" name="Submit2" value="重置">
<input name="Submit3" type="button" onClick="MM_callJS('self.close()')" value="关闭窗口">
</label></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -