📄 reply.asp
字号:
<% if Session("id")="" then Response.Redirect("../error3.html") %>
<html>
<!--#INCLUDE FILE="data.asp" -->
<!--#INCLUDE FILE="check.asp" -->
<%
Set Record= Server.CreateObject("ADODB.Recordset")
strSql="select * from user where rule=true and iPageSize=10 "
Record.open strSql,Conn,1,3
NumRec=Record.RecordCount
%>
<%
Session("sub")="写邮件"
if Request.QueryString("op")="back" then
Session("iBackid")=Session("Backid")
Session("iBackcent")=Session("Backcent")
Session("iBackinfo")=Session("Backinfo")
Session("sub")="回复邮件"
end if
%>
<head>
<script language="vbscript" >
function MM_changeProp()
if document.body.clientWidth>400 and document.body.clientHeight>300 then
document.all.layer1.style.left=document.body.clientWidth-350+document.body.scrollLeft
document.all.layer1.style.top=document.body.clientHeight-300+document.body.scrollTop
document.all.Form.info.rows=int((document.body.clientHeight-200)/20)+5
document.all.Form.info.cols=int((document.body.clientWidth)/10)
document.all.Form.cent.size=document.all.Form.info.cols+1
document.all.Form.file.size=document.all.Form.info.cols-9
end if
end function
</script>
<script language="JavaScript">
<!--
function MM_popupMsg(msg) { //v1.0
alert(msg);
}
//-->
</script>
<link name="stsheet" id="stsheet" rel="stylesheet" href="oa1.css">
</head>
<script language="vbscript">
if screen.width>1000 then document.stylesheets("stsheet").href="oa1.css"
</script>
<script language="jscript" runat=server>
var today=new Date()
var nowdate=today.getFullYear()+"-"
if (today.getMonth()+1<10) nowdate+="0"
nowdate=nowdate+(today.getMonth()+1)+"-"
if (today.getDate()<10) nowdate+="0"
nowdate=nowdate+(today.getDate())+" "
if (today.getHours()<10) nowdate+="0"
nowdate=nowdate+(today.getHours())+":"
if (today.getMinutes()<10) nowdate+="0"
nowdate=nowdate+(today.getMinutes())
</script>
<body leftmargin="0" topmargin="0" onload=MM_changeProp() onResize="MM_changeProp()">
<div id="Layer88" style="position:absolute; width:100%; height:33px; z-index:0; left: 0; top: 0"><img src="IMAGES/line.jpg" width="100%" height="100%"></div>
<div id="Layer89" style="position:absolute; width:100%; height:33px; z-index:2; left: 0; top: 0" class="bigtitle"><img src="images/iwrite.gif" width="32" height="32" align="absmiddle"><%=Session("sub")%></div>
<div id="layer2" style="position:absolute; width:100%; height:115px; z-index:1; left: 1px; top: 50px">
<form method="post" name="Form" action="send.asp" enctype="multipart/form-data" >
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="104" height="25" class="css1" align="right" bgcolor="#0066CC" nowrap><b><font color="#FFFFFF">
收件人：</font></b></td>
<td height="20" class="css1" nowrap width="897">
<select name="id" size="1" >
<option value="" selected>--------------请选择收信人---------------</option>
<% for i=1 to NumRec %>
<option value="<%=Record("username")%>"<% if Session("iBackid")=Record("username") then Response.Write(" selected")%>><%=Record("username")%>
</option>
<% Record.MoveNext
next
Record.MoveFirst%>
</select>
</td>
</tr>
<%
Set rs2= Server.CreateObject("ADODB.Recordset")
sql2="select * from learn where id="&request("id")
rs2.open sql2,conn,1,1
%>
<tr>
<td width="104" height="25" class="css1" align="right" bgcolor="#0066CC" nowrap><b><font color="#FFFFFF">主题：</font></b></td>
<td height="20" class="css1" nowrap width="897">
<input type="text" name="cent" value="这是<%=request("reader")%>看了<%=rs2("title")%>文件的回复邮件" maxlength="100" class="css0" size="70">
</td>
</tr>
<tr>
<td width="104" height="25" valign="top" class="css1" bgcolor="#0066CC" nowrap>
<p align="right"><b><font color="#FFFFFF">内容：</font></b></p>
</td>
<td height="100" class="css1" nowrap rowspan="2" width="897" >
<textarea name="info" rows="24" cols="100" class="css0">
<%
content=replace(rs2("content"),"<BR>",chr(13))
content=replace(content," "," ")
writer=rs2("name")
a="文件作者:"
c="文件内容:"
b="阅读时间:"
f="***"
e="***"
response.write a
response.write writer
response.write f
response.write b
response.write now()
response.write e
response.write c
response.write content
%>
</textarea>
<input type="hidden" name="DateTime" value="<%=nowdate%>">
<input type="hidden" name="from" value="<%=Session("id")%>">
<input type="hidden" name="level" value="<%=Session("level")%>">
<input type="hidden" name="op">
</td>
</tr>
<tr>
<td width="104" height="100" valign="top" class="css1" nowrap> </td>
</tr>
<tr>
<td width="104" height="25" class="css1" align="right" bgcolor="#0066CC" nowrap><font color="#FFFFFF"><b>附件:</b></font></td>
<td height="20" class="css1" colspan="2" nowrap width="897">
<input type="file" name="file" class="css0" size="60">
</td>
</tr>
<tr>
<td height="25" width="104" nowrap> </td>
<td height="20" class="css1" nowrap width="897">
<input type="Submit" name="Submit4" class="css0" value="立即发送" IsShowProcessBar="True" onClick=op.value=0>
<input type="reset" name="Submit22" class="css0" value="重写" >
<input type="checkbox" name="check1" value="checkbox" checked>保存副本
<input type="hidden" name="temp">
<input type="hidden" name="sfsdfsdf" value="sdfsdfsfdsfsdf">
</td>
</tr>
</table>
</form>
</div>
<div id="layer1" style="position:absolute; width:200px; height:115px; z-index:0; left: 1000; top: 1000; visibility: visible"><img src="IMAGES/bg.jpg" width="375" height="300" name="bgimg"></div>
</body>
<%
Session("iBackid")=""
Session("iBackcent")=""
Session("iBackinfo")=""
Session("Backid")=""
Session("Backcent")=""
Session("Backinfo")=""
%>
</html>
<% rs2.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -