publiclist.asp

很好的OA办公系统

<%
sub listemail(sql,errorstr,recordtype)
	set conn=opendb("oabusy","conn","accessdsn")
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1
	if rs.eof or rs.bof then
		conn.close
		set rs=nothing
		response.write("<p align=""center""><font color=""#dd0000"">"&errorstr&"</font></p>")
	else
%>
<script language="javascript">
function lookemail(recordid)
{
	win=window.open('lookemail.asp?id='+recordid,'win'+recordid,'toolbar=no,scrollbars=yes,resizable=0,menubar=no,width=550,height=500');	
}
</script>
<div align="center">
  <center>
<table border="0" cellpadding="5" cellspacing="0" width="95%">
  <tr>
    <td width="100%"><font color="#000000">&nbsp; 共<%=cstr(rs.recordcount)%>条邮件    
（<img src="../images/newmail.gif" border="0">：新邮件&nbsp;&nbsp;&nbsp;<img src="../images/readmail.gif" border="0">：已读邮件&nbsp;&nbsp;&nbsp;<img src="../images/delmail.gif" border="0">：已删除邮件）</font>
</td>
  </tr>
</table>
  </center>
</div>
<div align="center">
  <center>
  <table border="1" width="95%" cellspacing="0" cellpadding="0" bordercolorlight="#D4D0C8" bordercolordark="#D4D0C8">
    <tr>
      <td bgcolor="#D4D0C8" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" align="center" width="46" height="25"><font color="#000000">选择</font></td>
      <td bgcolor="#D4D0C8" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" align="center" width="47" height="25"><font color="#000000">状态</font></td>
      <td bgcolor="#D4D0C8" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" align="center" width="172" height="25"><font color="#000000">发件人</font></td>
      <td bgcolor="#D4D0C8" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" align="center" width="365" height="25"><font color="#000000">主题</font></td>
      <td bgcolor="#D4D0C8" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" align="center" width="165" height="25"><font color="#000000">日期</font></td>
    </tr>
<%
	do while not rs.eof
%>
    <tr bgcolor="#ffffff">
      <td width="46" align="center">
        <font color="#000000">
  	  	<input type="checkbox" name="selectnumber" value="<%=cstr(rs("autoid"))%>">
        </font>
	  </td>
      <td width="47" align="center">
<font color="#000000">
<%
	select case recordtype	
		case "new"
			imgstr="../images/newmail.gif"
			explainstr="新邮件"
		case "newandread"
			if rs("readflag") then
				imgstr="../images/readmail.gif"
				explainstr="已读邮件"
			else
				imgstr="../images/newmail.gif"
				explainstr="新邮件"
			end if
		case "delete"
			imgstr="../images/delmail.gif"
			explainstr="已删除邮件"
	end select
%>
		<img src="<%=imgstr%>" border="0" title="<%=explainstr%>">
</font>
	  </td>
      <td width="172" align="center"><font color="#000000"><%=server.htmlencode(rs("name"))%></font></td>
      <td width="365" align="center"><a href="#" onclick="javscript:lookemail('<%=cstr(rs("autoid"))%>')"><font color="#000000"><%=server.htmlencode(rs("emailtitle"))%></font></a></td>
      <td width="165" align="center"><font color="#000000"><%=cstr(rs("emaildate"))%></font></td>
    </tr>
<%
	rs.movenext
	loop
%>
  </table>
  </center>
</div>
<%
	end if
end sub
%>
<%
'inputstr="add":新发邮件，在sendemailtable中增加一条记录
'inputstr="change":表示转发邮件，修改sendemailtable中的对应记录
sub sendemailsub(inputstr)
	set conn=opendb("oabusy","conn","accessdsn")
	on error resume next
	errorstr=""
	if emailtitle="" then
		errorstr=errorstr&"邮件标题不能为空！"
	end if
	if adduser="" or hidevalue="" then
		errorstr=errorstr&"未选择接收邮件人！"
	end if
	if errorstr<>"" then
		conn.close
		response.write("<script language=""javascript"">")
		response.write("alert("&chr(34)&errorstr&chr(34)&");")
		response.write("history.go(-1);")
		response.write("</script>")
		response.end
	end if
	conn.begintrans
	if inputstr="add" then
		sql="insert into sendemailtable(senduserid,emailtitle,emailcontent,explain,explain1) "
		sql=sql&" values("&oabusyuserid&",'"&emailtitle&"','"&emailcontent&"','"&adduser&"','"&hidevalue&"')"
		conn.execute(sql)
	elseif inputstr="change" then
		sql="update sendemailtable set emailtitle='"&emailtitle&"',emailcontent='"&emailcontent&"',explain='"&adduser&"',explain1='"&hidevalue&"' where autoid="&id
		conn.execute(sql)
	end if
	numberdim=split(request("hidevalue"),"|")
	for i=0 to ubound(numberdim)
		if numberdim(i)<>"" then
			sql="insert into getemailtable (senduserid,getuserid,emailtitle,emailcontent)"
			sql=sql&"  values("&oabusyuserid&","&numberdim(i)&",'"&emailtitle&"','"&emailcontent&"')"
			conn.execute(sql)
		end if
	next
	if err.number<>0 then
		conn.rollbacktrans
		response.write("<script language=""javascript"">")
		response.write("alert(""发送邮件未成功，请返回重试！"");")
		response.write("history.go(-1);")
		response.write("</script>")
		response.end
	else
		conn.committrans
		response.write("<center><font color=""#dd0000"">成功发送邮件！</font><br><br>")
	end if
end sub
%>