?? maildefault.asp
字號:
<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from maildefault order by id desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<title>郵件管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="862" align="center" valign="top">
<br>
<b>郵 件</b> <strong>列 表 設 置</strong><br>
<br>
<table width="704" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="36%"> <form name="addcat" method="post" action="maildefault.asp">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="25" bgcolor="#E1F4EE"><b><font color="#000000"> 設置郵件的默認發信人</font></b></td>
</tr>
<tr>
<td bgcolor="#E1F4EE" align="center">
<table border="0" cellspacing="0" cellpadding="4">
<tr>
<td><font color="#000000">發信人:</font> </td>
</tr>
<tr>
<td align="right"><input name="frommail" type="text" value="<%=rs("frommail")%>" size="25" maxlength="50"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#E1F4EE">
<input type="submit" name="Submit" value="設置" class="Tips_bo">
<input type="hidden" name="action" value="frommail">
</td>
</tr>
</table>
</form></td>
<td rowspan="2" width="64%"> <form name="form1" method="post" action="maildefault.asp">
<table border="0" cellspacing="2" cellpadding="0" width="98%">
<tr>
<td height="30" bgcolor="#E1F4EE">
<p><b><font color="#000000"> 設置郵件默認發送內容</font></b></p></td>
</tr>
<tr>
<td bgcolor="#E1F4EE" align="center">
<textarea name="mailbody" cols="46" rows="12"><%=rs("mailbody")%></textarea>
</td>
</tr>
<tr>
<td bgcolor="#E1F4EE" align="center" height="30">
<input type="submit" name="Submit2" value="設置" class="Tips_bo">
<input type="hidden" name="action" value="mailbody">
</td>
</tr>
</table>
<div align="center"></div>
</form></td>
</tr>
<tr>
<td width="36%"> <form name="form1" method="post" action="maildefault.asp">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="25" bgcolor="#E1F4EE">
<p><b><font color="#000000"> 設置郵件默認標題</font></b></p></td>
</tr>
<tr>
<td align="center" bgcolor="#E1F4EE">
<table border="0" cellspacing="0" cellpadding="4">
<tr>
<td><font color="#000000">郵件標題:</font> </td>
</tr>
<tr>
<td align="right"><div align="center">
<input name="mailsubject" type="text" value="<%=rs("mailsubject")%>" size="25" maxlength="50">
</div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#E1F4EE">
<input type="submit" name="Submit22" value="設置" class="Tips_bo">
<input type="hidden" name="action" value="mailsubject">
</td>
</tr>
</table>
</form></td>
</tr>
</table> </td>
</tr>
</table>
<%
'添加功能和修改功能
if request("action")<>"frommail" and request("action")<>"mailsubject" and request("action")<>"mailbody" then
response.end
else
if request("action")="frommail" then
frommail=request("frommail")
conn.execute "update maildefault set frommail='"&frommail&"'"
response.write"<SCRIPT language=JavaScript>alert('發信人地址更改成功！');"
response.write "</SCRIPT>"
end if
if request("action")="mailsubject" then
mailsubject=request("mailsubject")
conn.execute "update maildefault set mailsubject='"&mailsubject&"'"
response.write"<SCRIPT language=JavaScript>alert('郵件默認標題更改成功！');"
response.write "</SCRIPT>"
end if
if request("action")="mailbody" then
mailbody=request("mailbody")
conn.execute "update maildefault set mailbody='"&mailbody&"'"
response.write"<SCRIPT language=JavaScript>alert('郵件默認內容更改成功！');"
response.write "</SCRIPT>"
end if
end if
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -