📄 send.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<%
' Call loaderror()
Call showwebdata()
Call Language_var(Language,"send")
%>
<%
'session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
'if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
'if dbsort="accessdsn" then conn.Open "DSN=" & DBPath
'if dbsort="access" then conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'if dbsort="sqlserver" then conn.Open "DSN=" & DBPath & ";uid=wsw;pwd=wsw"
DBPath1=server.mappath("../db/lmtof.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
'end if
set opendb=session(sessionname)
end function
%>
<%
'-----------------------------------------
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<title><%=Language_send(0)%></title>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<link rel="stylesheet" href="images/styles.css" type="text/css">
<script>
function htmldiTor(){
if (navigaTor.appName!="Microsoft Internet Explorer")
alert("此功能 Netscape 用户不能使用！")
else {newwin=window.open('html_ediTor.asp','','width=544,height=294'); newwin.focus(); }
}
</script>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#Include File="head.asp" -->
<%
'Sub sendmail()
%>
<Form name="sendmail" action="sendmail.asp" method="post" >
<table border="1" cellspacing="0" cellpadding="0" width="581" align="center" height="613" bordercolor="#7C96B8" bordercolordark="#FFFFFF">
<tr>
<td colspan="2" height="20" background="images/mmTo.gIf" width="577" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699">
<%=webname%><%=Language_send(1)%></font></div></td>
</tr>
<tr>
<td height="30" width="100"><font color="#336699"> <%=Language_send(2)%></font></td>
<td height="30" width="475"> <input name="FromName" type="text" id="fa" class="bk" size="20"> <font color="#7C96B8">*<%=Language_send(32)%></font></td>
</tr>
<tr>
<td height="30" width="100"><font color="#336699"> <%=Language_send(3)%></font></td>
<td height="30" width="475"> <input type="text" name="frommail" class="bk" size="32" style="ime-mode:disabled"><font color="#7C96B8">
*<%=Language_send(32)%></font></td>
</tr>
<tr>
<td height="31" width="100"><font color="#336699"> <%=Language_send(4)%></font></td>
<td height="31" width="475"> <input type="text" name="Tomail" class="bk" size="32" style="ime-mode:disabled"><font color="#7C96B8">
</font><font color="#FF0000">*</font><font color="#7C96B8"><%=Language_send(33)%></font></td>
</tr>
<tr>
<td height="31" width="100"><font color="#336699"> <%=Language_send(5)%></font></td>
<td height="31" width="475"> <input name="ToMailCC" type="text" id="BccAddress" class="bk" size="32" style="ime-mode:disabled"><font color="#7C96B8">
*<%=Language_send(34)%></font></td>
</tr>
<tr>
<td height="28" width="100"><font color="#336699"> <%=Language_send(6)%></font></td>
<td height="28" width="475"> <input name="ToMailBCC" type="text" id="BccAddress" class="bk" size="32" style="ime-mode:disabled"><font color="#7C96B8">
*<%=Language_send(34)%></font></td>
</tr>
<tr>
<td height="31" width="100"><font color="#336699"> <%=Language_send(7)%></font></td>
<td height="31" width="475"> <input type="text" name="mailSubject" size="45" class="bk"><font color="#7C96B8">
*<%=Language_send(32)%></font></td>
</tr>
<tr>
<td height="31" width="100"><font color="#336699"> <%=Language_send(8)%></font></td>
<td height="31" width="475"> <select size="1" name="UseData">
<option value="MS_Access" selected>MS Access</option>
<option value="TXT">TXT 文本</option>
</select><font color="#FF0000">*</font><font color="#7C96B8"><%=Language_send(35)%></font>
</td>
</tr>
<tr>
<td height="31" width="100"><font color="#336699"> <%=Language_send(9)%></font></td>
<td height="31" width="475">
<font color="#7C96B8">
<% If Request.Form("uploadfile") = "" Then%>
『<a href="upfile.asp"><%=Language_send(15)%></a>』
<% Else%>
<%=Language_send(16)%> <b><% = Request.Form("filename")%></b> <%=Language_send(17)%> <b><% = Request.Form("filesize")%></b> <%=Language_send(18)%> <b><% = Request.Form("filecount")%></b> <input maxlength=20 name=Attachment size=12 type=hidden value=<% = Request.Form("filpath")%>>
<% End If %>
</font>
</td>
</tr>
<tr>
<td height="31" width="100"><font color="#336699"> <%=Language_send(10)%></font></td>
<td height="31" width="475"><input type="text" name="URLAttachment" size="45" class="bk" style="ime-mode:disabled"><font color="#7C96B8"> </font></td>
</tr>
<tr>
<td height="31" width="100"><font color="#336699"> <%=Language_send(11)%></font></td>
<td height="31" width="475"><font color="#7C96B8">
<input type="radio" name="MailFormat" value="txt" checked class="bk">
<%=Language_send(19)%>
<input type="radio" name="MailFormat" value="html" class="bk">
<%=Language_send(20)%> 『<a href=javascript:htmldiTor()><%=Language_send(21)%></a>』</font></td>
</tr>
<tr>
<td height="258" width="100"><div><font color="#336699"><%=Language_send(12)%></font></div></td>
<td height="258" width="475">
<div align="center">
<font color="#7C96B8">
<textarea name="mailbody" cols="61" rows="13" class="bk"></textarea>*
</font>
</div></td>
</tr>
<%Sub closecode()%>
<tr>
<td height="25" width="100"><font color="#336699"><%=Language_send(13)%></font>
</td>
<td height="25" width="475"> <font color="#7C96B8"> </font><select size="1" name="SEndYear">
<option selected value="<%=year(date())%>"><%=year(date())%></option>
<option value="<%=year(date())+1%>"><%=year(date())+1%></option>
<option value="<%=year(date())+2%>"><%=year(date())+2%></option>
</select><font color="#7C96B8"><%=Language_send(22)%> </font><select size="1" name="SEndMonth">
<option value="01" selected>01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select><font color="#7C96B8"><%=Language_send(23)%> </font><select size="1" name="SEndDay">
<option value="01" selected>01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select><font color="#7C96B8"><%=Language_send(24)%> </font><select size="1" name="SEndHour">
<option value="01" selected>01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
</select><font color="#7C96B8"><%=Language_send(25)%> </font><input type="checkbox" name="TimeMail" value="ON">
<font color="#7C96B8"><%=Language_send(26)%></font></td>
</tr>
<%End Sub%>
<tr>
<td height="25" width="100"><font color="#336699"><%=Language_send(14)%> </font>
</td>
<td height="25" width="475"> <font color="#7C96B8">
<input type="radio" name="Priority" value="1" class="bk">
<%=Language_send(27)%>
<input type="radio" name="Priority" value="3" checked class="bk">
<%=Language_send(28)%>
<input type="radio" name="Priority" value="5" class="bk">
<%=Language_send(29)%> </font></td>
</tr>
<tr>
<td height="20" colspan="2" width="577" background="images/mmTo.gIf"><div align="center">
<font color="#7C96B8">
<input type="Submit" name="Submit" value="<%=Language_send(30)%>" class="Tips_bo">
<input type="reSet" name="Submit" value="<%=Language_send(31)%>" class="Tips_bo">
<input type="hidden" name="action" value="send">
</font>
</div></td>
</tr>
</table>
</Form>
<%'End Sub
'关闭销毁对象
Set rs=nothing
conn.close
Set conn=nothing
%>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -