?? admin_editmail.asp
字號(hào):
<!--#include file="conn.asp"-->
<%if session(hxCacheName&"_admin")<>"OK" then
response.redirect("admin_login.asp")
end if%>
<%
'-------------------------------------
'功能：管理員管理網(wǎng)站首頁(yè)
'天天智能友情鏈接管理系統(tǒng)
'天天DV網(wǎng)制作 http://www.ttdv.cn
'博大網(wǎng)址庫(kù)http://www.ip126.com
'海納數(shù)據(jù)廣西http://www.idcgx.net
'可自由傳播和免費(fèi)使用，但必須保留此完整版權(quán)信息
'本程序擷取了ITlearner、博大網(wǎng)址庫(kù)等優(yōu)秀程序中的源代碼，對(duì)他們的作者表示感謝
'-------------------------------------
dim rs,sql,id
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>參數(shù)錯(cuò)誤！"
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select email from [tt_link] where id="&cstr(id)
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>參數(shù)錯(cuò)誤！"
response.end
end if
%>
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="../css.CSS">
<BODY background="../images/back.gif">
<title>發(fā)送郵件</title>
<body topmargin="3" leftmargin="0">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="380" height="64">
<form action="admin_editmailchk.asp?id=<%=id%>" method="POST">
<tr>
<td width="80" height="25">
<p align="center"><font color="#FF0000">郵件標(biāo)題：</font></td>
<td width="273" height="25">
<input type="text" name="mailbiaoti" size="39" maxlength="50" value="<%=WebName%>歡迎您"></td>
</tr>
<tr>
<td width="80" height="25">
<p align="center"><font color="#FF0000">用戶地址：</font></td>
<td width="273" height="25">
<input type="text" name="maildizhi" size="39" value="<%=rs("email")%>" maxlength="40"></td>
</tr>
<tr>
<td width="80" height="25">
<p align="center"><font color="#FF0000">郵件內(nèi)容：<br>
（純文字）</font></td>
<td width="273" height="25">
<textarea rows="16" name="S1" cols="37"><%=WebName%>歡迎您。本站簡(jiǎn)介：<%=WebAlt%>。網(wǎng)址：<%=weburl%></textarea></td>
</tr>
<tr>
<td width="353" height="35" colspan="2">
<p align="center">
<input type="submit" value="提交" name="B1" style="color: #FFFFFF; border: 1px solid #000000; background-color: #666666"></td>
</tr>
</form>
</table>
</center>
</div>
<%
rs.close
set rs=nothing
'closedb
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -