📄 admin_addmail.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">

<body bgcolor="#FFFFFF" text="#000000" style="background-color: #D6DFF7">
<%
if request.querystring("cmd")="add" then
mailname=server.htmlencode(request.form("mailname"))
mailcount=server.htmlencode(request.form("mailcount"))
money=server.htmlencode(request.form("money"))
money1=server.htmlencode(request.form("money1"))
money2=server.htmlencode(request.form("money2"))
money3=server.htmlencode(request.form("money3"))
mailsize=server.htmlencode(request.form("mailsize"))
mailhostcount=server.htmlencode(request.form("mailhostcount"))
onemailsize=server.htmlencode(request.form("onemailsize"))
mailshouming=server.htmlencode(request.form("mailshouming"))
if mailname="" or mailcount="" or money="" or mailsize="" or mailhostcount="" or onemailsize="" then
response.write"<tr<td><div align=center> 请 完 整 填 写 每 一 项 !</div></td></tr>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from mailshouming"
rs.open sql,conn,3,3
rs.addnew
rs("mailname")=mailname
rs("mailcount")=mailcount
rs("money")=money
rs("money1")=money1
rs("money2")=money2
rs("money3")=money3
rs("mailsize")=mailsize
rs("mailhostcount")=mailhostcount
rs("onemailsize")=onemailsize
rs("mailshouming")=mailshouming
rs.update
end if
end if
%>
<div align="center">
  <center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <tr> 
    <td background="images/admin/admin_bg_1.gif"> 
      <div align="center" class="f1" >现 有 企 业 邮 箱 类 型 </div>
    </td>
  </tr>
  <tr>
    <td height="17">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from mailshouming order by id desc"
rs.open sql,conn,3,3
if rs.eof then 
response.write"<tr<td><div align=center> 暂 时 没 有 邮 箱 类 型</div></td></tr>"
else
response.Write"<table width=100% border=0 cellspacing=0 cellpadding=0>"
response.Write"<tr>"
do while not rs.eof
response.Write"<td align=center height=20>"
response.Write"<a href=admin_upmail.asp?typid="& rs("id") &"&mailcount="& rs("mailcount") &">"& rs("mailname") &"</a>"         
response.Write"</td>"
a=a+1
if a=4 then
response.Write"</tr><tr>"
a=0
end if
rs.movenext
   loop
response.Write"</table>"
end if
%> 
	  </td>
  </tr> 
</table> 
  </center>
</div>
<div align="center"><br>
</div>
<div align="center">
  <center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <form name="form1" method="post" action="admin_addmail.asp?cmd=add">
    <tr> 
      <td colspan="2" background="images/admin/admin_bg_1.gif"><div align="center" class="f1">企 业 邮 箱 
          类 型 添 加 </div></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td width="30%">产品名称：</td>
      <td><input name="mailname" type="text" id="mailname" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>产品编号：</td>
      <td><input name="mailcount" type="text" id="mailcount" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>直接客户价：</td>
      <td> 
        <input name="money" type="text" id="money" size="10">
        元/年</td>
    </tr>
	<tr bordercolor="#FFFFFF"> 
      <td>普通代理价：</td>
      <td> 
        <input name="money1" type="text" id="money1" size="10">
        元/年</td>
    </tr>
	<tr bordercolor="#FFFFFF"> 
      <td>牵手代理价：</td>
      <td> 
        <input name="money2" type="text" id="money2" size="10">
        元/年</td>
    </tr>
	<tr bordercolor="#FFFFFF"> 
      <td>伙伴代理价：</td>
      <td> 
        <input name="money3" type="text" id="money3" size="10">
        元/年</td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>总空间大小：</td>
      <td><input name="mailsize" type="text" id="mailsize" size="10">
        M</td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>邮箱个数：</td>
      <td><input name="mailhostcount" type="text" id="mailhostcount" size="10">
        个</td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>单个邮箱大小：</td>
      <td><input name="onemailsize" type="text" id="onemailsize" value="" size="10">
        M</td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td bordercolor="#FFFFFF"> 产品说明：<br> <br> </td>
      <td>
      <textarea name="mailshouming" wrap="VIRTUAL" id="mailshouming" rows="6" cols="54"></textarea></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td colspan="2"><div align="center">
          <input type="submit" name="Submit" value="确定">
        </div></td>
    </tr>
  </form>
</table>
  </center>
</div>
</body>
</html>
<% rs.close
set rs=nothing
set conn=nothing
%>
<% end if %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -