📄 admin_adduphostsize.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">
<% 
if request.querystring("cmd")="add" then
hostsize=server.htmlencode(request.form("hostsize"))
onemoney=server.htmlencode(request.form("onemoney"))
dalimoney1=server.htmlencode(request.form("dalimoney1"))
dalimoney2=server.htmlencode(request.form("dalimoney2"))
dalimoney3=server.htmlencode(request.form("dalimoney3"))
set rs=server.createobject("adodb.recordset")
sql="select * from uphostsize"
rs.open sql,conn,3,3
rs.addnew
rs("hostsize")=hostsize
rs("onemoney")=onemoney
rs("dalimoney1")=dalimoney1
rs("dalimoney2")=dalimoney2
rs("dalimoney3")=dalimoney3
rs.update
response.redirect "admin_adduphostsize.asp"
end if
if request.querystring("cmd")="del" then
set rs=server.createobject("adodb.recordset")
sql="select * from uphostsize where id="& request.querystring("id") &""
rs.open sql,conn,3,3
rs.delete
response.redirect "admin_adduphostsize.asp"
end if
%>
<link href="style.css" rel="stylesheet" type="text/css">


<body bgcolor="#FFFFFF" text="#000000" style="background-color: #D6DFF7">

<div align="center">
  <center>

<table width="98%" border="1" cellspacing="0" cellpadding="5" bordercolor="#6687BA" style="border-collapse: collapse">
  <form name="form" method="post" action="admin_adduphostsize.asp?cmd=add">
  <tr>
      <td background="images/admin/admin_bg_1.gif"> 
        <div align="center" class="f1" >空 间 增 加 价 格 添 加</div>
    </td>
  </tr>
  <tr>
      <td> 
       <div align="center">
       <table width="98%">
        <tr>
         <td width="122">
          空间增加大小：
         </td>
         <td width="157">  
            <input name="hostsize" type="text" id="hostsize" size="10">
            M </td><td><span class="f1">* 请使用数字</span>
         </td>
        </tr>
        <tr>
         <td width="122">直接客户价：</td>
         <td width="157">  
            <input name="onemoney" type="text" id="onemoney" size="10"> 元/年
         </td><td></td>
        </tr>
         <td width="122">普通代理价：</td>  
         <td width="157"><input name="dalimoney1" type="text" id="dalimoney1" size="10"> 元/年</td><td></td>
        <tr>
           <td width="122"> 牵手代理价：</td>  
           <td width="157"><input name="dalimoney2" type="text" id="dalimoney2" size="10"> 元/年</td><td>
			　</td>
        </tr>
        <tr>
          <td width="122">伙伴代理价：</td>  
            <td width="157"><input name="dalimoney3" type="text" id="dalimoney3" size="10"> 元/年</td><td></td>
            </tr>
          </table>
       
    	</div>
       
    </td>
  </tr>
  <tr>
      <td> 
        <div align="center">
        <input type="submit" name="Submit" value="提交">
        </div>
    </td>
  </tr>
  </form>
</table>
  </center>
</div>
<br>
<%
myself=request.servervariables("path_info")
set rs=server.createobject("adodb.recordset")
sql="select * from uphostsize order by id desc"
rs.open sql,conn,3,3
if rs.eof then 
response.write"<div align=center> 暂 时 没 有 信 息</div>"
else
 rs.Pagesize=8
page=clng(request("page"))

if page<1 or page=empty then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page%>
<br>
<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"> 
      <% i=1
	  do while not rs.eof%>
      <div align="center">
      <table width="98%" border="1" style="border-collapse: collapse" bordercolor="#FFFFFF" cellspacing="0">
        <form name="form" method="post" action="admin_uphostsize.asp?cmd=up&id=<%=rs("id")%>">
          <tr> 
            <td align="center"><font color="#FF0000"><%=rs("hostsize")%></font> 
                M</td>
            <td width="100" align="center"><a href="admin_uphostsize.asp?id=<%=rs("id")%>">修改</a></td>
            <td width="100" align="center"><a href="admin_adduphostsize.asp?cmd=del&id=<%=rs("id")%>"><font color="#FF0000">删  
                除</font></a></td>
          </tr>
        </form>
        <% i=i+1
		  if i>8 then exit do
          RS.MoveNext
          Loop
          rs.close
         %>
      </table>
    	</div>
    </td>
  </tr>
</table>
  </center>
</div>
<% end if %>
</body>
</html>
<%
set rs=nothing
end if
%><% set conn=nothing %>
⌨️ 快捷键说明

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