📄 admin_upmail.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")="up" then
id=request.querystring("id")
mailname=request.form("mailname")
mailcount=request.form("mailcount")
money=request.form("money")
money1=request.form("money1")
money2=request.form("money2")
money3=request.form("money3")
mailsize=request.form("mailsize")
mailhostcount=request.form("mailhostcount")
onemailsize=request.form("onemailsize")
mailshouming=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 where id="&id&""
rs.open sql,conn,3,3
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
response.Redirect("admin_upmail.asp?typid="&id&"")
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 height="17" 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>
<% 
id=request.querystring("typid")
set rs=server.createobject("adodb.recordset")
sql="select * from mailshouming where id="&id&""
rs.open sql,conn,3,3
%>
<br>
<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_upmail.asp?cmd=up&id=<%=id%>">
    <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" value="<%=rs("mailname")%>" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>产品编号：</td>
      <td>
      <input name="mailcount" type="text" id="mailcount" value="<%=rs("mailcount")%>" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>直接客户价：</td>
      <td> 
        <input name="money" type="text" id="money" value="<%=rs("money")%>" size="10">
        元/年</td>
    </tr>
	<tr bordercolor="#FFFFFF"> 
      <td>普通代理价：</td>
      <td> 
        <input name="money1" type="text" id="money1" value="<%=rs("money1")%>" size="10">
        元/年</td>
    </tr>
	<tr bordercolor="#FFFFFF"> 
      <td>牵手代理价：</td>
      <td> 
        <input name="money2" type="text" id="money2" value="<%=rs("money2")%>" size="10">
        元/年</td>
    </tr>
	<tr bordercolor="#FFFFFF"> 
      <td>伙伴代理价：</td>
      <td> 
        <input name="money3" type="text" id="money3" value="<%=rs("money3")%>" size="10">
        元/年</td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>总空间大小：</td>
      <td><input name="mailsize" type="text" id="mailsize" value="<%=rs("mailsize")%>" size="10">
        M</td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>邮箱个数：</td>
      <td><input name="mailhostcount" type="text" id="mailhostcount" value="<%=rs("mailhostcount")%>" size="10">
        个</td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>单个邮箱大小：</td>
      <td><input name="onemailsize" type="text" id="onemailsize" value="<%=rs("onemailsize")%>" size="10">
        M</td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>产品说明： </td>
      <td>
<textarea name="mailshouming" wrap="VIRTUAL" id="mailshouming" rows="2" cols="33" style="font-size: 9pt"><%=rs("mailshouming")%></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 + -