?? xinxi_mail.asp
字號:
<!--#include file=conn.asp-->
<%
dim rs,sql,id,username,emailto,useremail
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>參數(shù)錯誤！"
cl
response.end
end if
if request.cookies("cnmai")("username")="" or request.cookies("cnmai")("domain")="" or request.cookies("cnmai")("id")="" then
response.write "<br>"
response.write "<li>你還沒有登陸！"
cl
response.end
end if
username=trim(request.cookies("cnmai")("username"))
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select email from [user] where username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>參數(shù)錯誤！"
cl
response.end
end if
useremail=rs("email")
rs.close
sql="select email from [xinxi] where id="&cstr(id)
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>參數(shù)錯誤！"
cl
response.end
end if
emailto=rs("email")
rs.close
set rs=nothing
closedb
%>
<meta http-equiv="Content-Language" content="zh-cn">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<title>發(fā)送郵件</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="xinxi_mailchk.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="15" value="<%=useremail%>" maxlength="40">
方便收信人用EMAIL聯(lián)系你！<input type="hidden" name="emailto" size="15" value="<%=emailto%>" 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>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 2000)">
<%end sub%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -