?? email.asp
字號:
<%
'*****************************************************
' Author : Jianfeng Hua
' Date : 2004.8.9
' File : list.asp
' Description : The Client list page
'*****************************************************
%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<%
set rcs = server.createobject("adodb.recordset")
Sqlstr = "select ClientID,ClientName from Client where ClientCreatorID ="&User_ID&" order by ClientID"
rcs.open Sqlstr,conn,3
if (rcs.bof or rcs.eof) then
response.write "<script language=javascript>"
response.write"alert('尚未有任何客戶記錄！無法進行Email操作！');"
response.write"location.href='../menu.asp';"
response.write "</script>"
response.end
end if
SelectClientID = request("SelectClientID")
if SelectClientID = "" then
SelectClientID = rcs("ClientID")
end if
SelectClientID = Cint(SelectClientID)
'獲得傳遞參數(shù)
ListPageSize = request("PageSelect")
if ListPageSize = "" then
ListPageSize = 15
end if
ListPageSize = Cint(ListPageSize)
SelectPage = request("SelPage")
'response.write SelectPage
'response.write "$"
if SelectPage = "" then
SelectPage = 1
end if
SelectPage = Cint(SelectPage)
%>
<%
'讀取數(shù)據(jù)庫數(shù)據(jù)
SqlKeyChr = Array("TouchManName","TouchManSection","TouchmanDuty","TouchManMPhone","TouchManOPhone","TouchManHPhone","TouchManFax","TouchManEmail","TouchManHobby","TouchManEspDay","TouchmanAddress","TouchManOthers")
Dim Sqlstr
Sqlstr = "select * from TouchMan where TouchmanCreatorID=" & User_ID & " and TouchManClientID ="&SelectClientID
set rs=server.createobject("adodb.recordset")
rs.open Sqlstr,conn,3
%>
<%
'顯示項目
Dim SqlAttachStr,AttachNum,SqlAttachName
SqlAttachStr = Array("","","","")
SqlAttachName = Array("","","","")
SqlAttachStr(0) = "TouchManSection"
SqlAttachName(0) = "部門"
SqlAttachStr(1) = "TouchManDuty"
SqlAttachName(1) = "職位"
SqlAttachStr(2) = "TouchManOPhone"
SqlAttachName(2) = "電話"
SqlAttachStr(3) = "TouchManEmail"
SqlAttachName(3) = "Email"
AttachNum = 4
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Email管理系統(tǒng)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<BODY><BR>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<!--DWLayoutTable-->
<TBODY>
<form action="Email.asp" method="post" name="SendMail">
<TR>
<TD width="12" height="24" valign="top" ><Span align=center><img src="../images/DispStation_H.gif" width="11" height="24"></span></TD>
<TD colspan="2" align="center" valign="middle" bgcolor="#566CDB" >Email管理系統(tǒng)</TD>
<td width="150"> </td>
<td width="150"> </td>
<td width="150"> </td>
<td width="152"> </td>
</TR>
<TR align="center" valign="middle">
<TD height="25" colspan="7" style="border: #99ccff 1px solid ">所屬客戶：
<select name="SelectClientID">
<%
while not(rcs.bof or rcs.eof)
%>
<option value="<%=rcs("ClientID")%>" <%if SelectClientID = rcs("ClientID") then%>selected<% end if %>><%=rcs("ClientName")%></option>
<%
rcs.movenext
wend
rcs.close
set rcs = nothing
%>
</select></TD>
</TR>
<TR>
<TD height="25" colspan="2" valign="top" style="border: #99ccff 1px solid " bgcolor="#6699FF"><!--DWLayoutEmptyCell--> </TD>
<TD width="124" align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">聯(lián)系人名稱</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF"><%=SqlAttachName(0)%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF"><%=SqlAttachName(1)%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF"><%=SqlAttachName(2)%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF"><%=SqlAttachName(3)%></TD>
</TR>
<%
'顯示處理
TotalPages = 1
TotalRecords = 0
TotalFlag = 0
if not(rs.bof or rs.eof) then
TotalRecords = rs.recordcount
if ListPageSize = 0 then
ListPageSize = TotalRecords
TotalFlag = 1
end if
rs.pagesize = ListPageSize
TotalPages = rs.pagecount
if SelectPage > TotalPages then
SelectPage = 1
end if
rs.absolutepage = SelectPage
for i = 1 to ListPageSize
if not(rs.bof or rs.eof) then
%>
<TR>
<TD height="25" colspan="2" align="center" valign="middle" style="border: #99ccff 1px solid " ><input type="checkbox" name="CkSendMail<%=i%>" value="<%=rs("TouchManEmail")%>"></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><a href="touchman.asp?TouchmanID=<%=rs("TouchmanID")%>"><%=rs("TouchmanName")%></a></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%if SqlAttachStr(0) <> "" then%><%=rs(SqlAttachStr(0))%> <%else%> <%end if%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%if SqlAttachStr(1) <> "" then%><%=rs(SqlAttachStr(1))%> <%else%> <%end if%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%if SqlAttachStr(2) <> "" then%><%=rs(SqlAttachStr(2))%> <%else%> <%end if%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%if SqlAttachStr(3) <> "" then%><%=rs(SqlAttachStr(3))%> <%else%> <%end if%></TD>
</TR>
<%
rs.movenext
end if
next
end if
%>
<TR valign="middle">
<TD height="30" colspan="7" style="border-left: #99ccff 1px solid;border-right: #99ccff 1px solid;border-bottom: #99ccff 1px solid;"> <select name="PageSelect">
<%
'生成下拉列表
for i= 1 to 20
%>
<option <%if ListPageSize = i*5 then%>selected<%end if%> value="<%=i*5%>">每頁顯示<%=i*5%>條</option>
<%
next
%>
<option <%if TotalFlag = 1 then%>selected<%end if%> value="0">..全部顯示..</option>
</select>
<input name="BackButton" onClick="javascript:location.href='../menu.asp'" type="button" class="button_all" id="BackButton" value="返回"> <%if SelectPage<>1 then%><a href="#" name="FirstPage">首頁</a> <a href="#" name="PrePage">上一頁</a><%else%>首頁 上一頁<%end if%> <%if SelectPage<>TotalPages then%><a href="#" name="NextPage"> 下一頁</a> <a href="#" name="LastPage">末頁</a><%else%> 下一頁 末頁<%end if%> 當前頁數(shù):<%=SelectPage%> 總共頁數(shù):<%=TotalPages%> 記錄總數(shù):<%=TotalRecords%></TD>
<input name="SelPage" type="hidden" value="<%=SelectPage%>">
<input name="TotalPage" type="hidden" value="<%=TotalPages%>">
</TR>
<!--下拉列表響應(yīng)函數(shù)-->
<SCRIPT FOR="PageSelect" EVENT="onChange" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("SendMail")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--下拉列表響應(yīng)函數(shù)-->
<!--首頁響應(yīng)函數(shù)-->
<SCRIPT FOR="FirstPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("SendMail")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--首頁響應(yīng)函數(shù)-->
<!--首頁響應(yīng)函數(shù)-->
<SCRIPT FOR="NextPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("SendMail")
TheForm.SelPage.value = TheForm.SelPage.value + 1
TheForm.submit()
</SCRIPT>
<!--首頁響應(yīng)函數(shù)-->
<!--首頁響應(yīng)函數(shù)-->
<SCRIPT FOR="PrePage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("SendMail")
TheForm.SelPage.value = TheForm.SelPage.value - 1
TheForm.submit()
</SCRIPT>
<!--首頁響應(yīng)函數(shù)-->
<!--首頁響應(yīng)函數(shù)-->
<SCRIPT FOR="LastPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("SendMail")
TheForm.SelPage.value = TheForm.TotalPage.value
TheForm.submit()
</SCRIPT>
<!--首頁響應(yīng)函數(shù)-->
<!--發(fā)送響應(yīng)函數(shù)-->
<SCRIPT FOR="SendButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("SendMail")
MyVar = MsgBox ("你確認要給選中的客戶發(fā)送郵件么？",52, "確認發(fā)送")
if MyVar = 6 then
TheForm.Action = "SendMail.asp"
TheForm.submit()
end if
</SCRIPT>
<!--發(fā)送響應(yīng)函數(shù)-->
<SCRIPT FOR="SelectClientID" EVENT="onChange" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("SendMail")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<TR align="center" valign="middle">
<TD height="30" colspan="7" align="center" valign="middle" style="border-left: #99ccff 1px solid;border-right: #99ccff 1px solid;">發(fā)信人地址：
<input name="MyAddress" type="text" size="50" maxlength="100"></TD>
</TR>
<TR align="center" valign="middle">
<TD height="30" colspan="7" style="border-left: #99ccff 1px solid;border-right: #99ccff 1px solid;">郵件主題 ： <input name="MailTopic" type="text" size="50" maxlength="100"></TD>
</TR>
<TR align="center" valign="middle">
<TD height="203" colspan="7" style="border-left: #99ccff 1px solid;border-right: #99ccff 1px solid;"><p>郵 件 內(nèi) 容<br>
<br>
<textarea name="MailContent" cols="80" rows="10"></textarea>
</p> </TD>
</TR>
<TR align="center" valign="middle">
<TD height="24" colspan="7" valign="top" bgColor=#99ccff ><input name="SendButton" type="button" class="button_all" value="發(fā)送"></TD>
</TR>
<tr>
<td height="1"></td>
<td width="13"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</form>
</TABLE>
</BODY></HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -