Other windows programs

Development Platform:
VBScript

dealpost.asp：Code Content
							<!--#include file=../dbconn.asp-->
<%
dim vtitle,vcontent,sql,rs
vtitle=trim(request.form("title"))
vcontent=trim(request.form("content"))
vtitle=replace(vtitle,"''","'")
vcontent=replace(vcontent,"''","'")
sql="select email from userinfo where porc=0" 
set rs=conn.execute(sql)
do while not rs.eof
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = "support@hermes.com.cn"
Mymail.subject = vtitle
Mymail.Body=vcontent
'设置优先级，0-不重要，1-一般，2-重要。
Mymail.Importance = 2
Mymail.To = rs("email")
Mymail.Send
Set Mymail = Nothing
rs.movenext
loop
%>
<html>
<head>
<title>北京海脉互联网技术有限公司--为企业上网提供全方位服务</title>
<link rel="stylesheet" href="../style.css">
<script language="javascript" src="../topmenu.js"></script>
<script language="javascript" src="../mainmenu.js"></script>
<script language="javascript" src="../checkform.js"></script>
<META HTTP-EQUIV=Content-Type CONTENT="text/html; charset=gb2312">
<META NAME="KEYWORDS" CONTENT="电子; IT产业; 智能; 金融; 投资; 集成; 经营; 技术; 网络; 软件开发; 安全技术; 站点制作; 免费; free; internet; wwwboard; b2b;企业；企业上网；headlines; downloads; news; Web site; what's new; solutions; services; software; contests; corporate news;">
<META NAME="description" CONTENT="北京海脉互联网技术有限公司">
</head>
<body leftMargin=2  rightMargin=2 topMargin=3  MARGINHEIGHT="2" MARGINWIDTH="2" link="#FFFF00" vlink="#FFFF00" alink="#FFFF00">
<script language="javascript" src="head.js"></script>
<script language="javascript">
<!--
printTopMenu("blank",0)
printMainMenu("blank",0)
//-->
</script>
<table width="760" height=20 border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
      <td width="480" align=left>
        当前位置：<a href="../index.asp">首页</a><img src="../images/to.gif" width=10 height=10>推荐本站<img src="../images/to.gif" width=10 height=10>
      </td>
      <td width="280" align=right valign=top>
<script language="javascript">
<!--
printsearch(1)
//-->
</script>
     </td>
  </tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td WIDTH="760" HEIGHT="5"  ALIGN="LEFT" VALIGN="TOP"><img src="../images/blank.gif" height="5"></td>
</tr></table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr><td>
　　发送完毕。<br><br><br><br>
<p align=right>______  北京海脉互联网技术有限公司    2000.8&nbsp;&nbsp;&nbsp;&nbsp;</p><br><br>
<center><a href=javascript:history.go(-1)>返回</a></center>
  </td></tr>
</table>
<!--底部开始--> 
<script language="javascript">
<!--
printFootMenu("blank",0)
//-->
</script>
<!--底部结束-->
</body>
</html>
　　　

						