📄 admin_uphostshouming.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
hosttyp=request.QueryString("hosttyp")
typid=request.QueryString("typid")
%>
<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
hostname=request.form("hostname")
hostcount=request.form("hostcount")
money=request.form("money")
money1=request.form("money1")
money2=request.form("money2")
money3=request.form("money3")
heads=request.form("heads")
linksize=request.form("linksize")
sys=request.form("sys")
hid=request.form("hid")
scripts=request.form("scripts")
con=request.form("con")
ssl=request.form("ssl")
datebasesize=request.form("datebasesize")
logfile=request.form("logfile")
emlsize=request.form("emlsize")
emlcount=request.form("emlcount")
typid=request.form("typid")
id=request.form("id")
hosttyp=request.form("hosttyp")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hostcontent where id="&id&""
rs.open sql,conn,3,3
rs("hostname")=hostname
rs("hostcount")=hostcount
rs("money")=money
rs("money1")=money1
rs("money2")=money2
rs("money3")=money3
rs("heads")=heads
rs("linksize")=linksize
rs("sys")=sys
rs("hid")=hid
rs("scripts")=scripts
rs("con")=con
rs("ssl")=ssl
rs("datebasesize")=datebasesize
rs("logfile")=logfile
rs("emlsize")=emlsize
rs("emlcount")=emlcount
rs("typid")=typid
rs.update
response.Redirect"admin_uphostshouming.asp?typid="& typid &"&hosttyp="& hosttyp &"&cmd=up&id="& rs("id") &""
end if
%>
<div align="center">
<center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<td height="17" background="images/admin/admin_bg_1.gif">
<div align="center" class="f1">现 有 主 机 类 型 </div>
</td>
</tr>
<tr>
<td height="17">
<font color="#FF0000">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from hosttyp 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_uphostshouming.asp?typid="& rs("id") &"&hosttyp="& rs("hosttyp") &">"& rs("hosttyp") &"</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
%>
</font>
</td></tr></table>
</center>
</div>
<br>
<div align="center">
<center>
<table width="98%" cellpadding="5" cellspacing="0" border="1" bordercolor="#6687BA" style="border-collapse: collapse">
<tr>
<td height="17" background="images/admin/admin_bg_1.gif">
<div align="center" class="f1" >现有 [<font color="#FF0000"><b><%=hosttyp%></b></font>]
分类</div>
</td>
</tr>
<tr>
<td height="17">
<font color="#FF0000">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from hostcontent where typid="& typid &" 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_uphostshouming.asp?cmd=up&id="& rs("id") &"&typid="& typid &"&hosttyp="& hosttyp &">"& rs("hostname") &"</a>"
response.Write"</td>"
a=a+1
if a=3 then
response.Write"</tr><tr>"
a=0
end if
rs.movenext
loop
response.Write"</table>"
end if
%>
</font>
</td>
</tr>
</table> </center>
</div>
<font color="#FF0000" style="font-size: 9pt">
<%
if request.querystring("cmd")<>"up" then
response.write"<div align=center><br>请 点 击 上 面 相 应 的 主 机 类 型 进 行 管 理</div>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from hostcontent where id="& request.QueryString("id") &""
rs.open sql,conn,3,3
%></font>
<div align="center">
<center><br>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<form name="form1" method="post" action="admin_uphostshouming.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 class="f2">
<input name="hostname" type="text" id="hostname" value="<%=rs("hostname")%>" size="20" >
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>产品编号：</td>
<td class="f2">
<input name="hostcount" type="text" id="hostcount" value="<%=rs("hostcount")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>直接客户价：</td>
<td>
<input name="money" type="text" id="money" value="<%=rs("money")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>普通代理价：</td>
<td>
<input name="money1" type="text" id="money1" value="<%=rs("money1")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>牵手代理价：</td>
<td>
<input name="money2" type="text" id="money2" value="<%=rs("money2")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>伙伴代理价：</td>
<td>
<input name="money3" type="text" id="money3" value="<%=rs("money3")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>硬件：</td>
<td>
<input name="heads" type="text" id="heads" value="<%=rs("heads")%>" size="45">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>带宽：</td>
<td>
<input name="linksize" type="text" id="linksize" value="<%=rs("linksize")%>" size="45">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>操作系统：</td>
<td>
<input name="sys" type="text" id="sys" value="<%=rs("sys")%>" size="33">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>磁盘空间：</td>
<td>
<input name="hid" type="text" id="hid" value="<%=rs("hid")%>" size="33">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>语言支持：</td>
<td>
<input name="scripts" type="text" id="scripts" value="<%=rs("scripts")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>主机控制面板：</td>
<td>
<input name="con" type="text" id="con" value="<%=rs("con")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>SSL 加密访问：</td>
<td>
<input name="ssl" type="text" id="ssl" value="<%=rs("ssl")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>数据库：</td>
<td>
<textarea name="datebasesize" wrap="VIRTUAL" id="datebasesize" rows="5" cols="40"><%=rs("datebasesize")%></textarea>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>其他说明：</td>
<td>
<textarea name="logfile" wrap="VIRTUAL" id="logfile" rows="5" cols="40"><%=rs("logfile")%></textarea>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>赠送邮局空间：</td>
<td>
<input name="emlsize" type="text" id="emlsize" value="<%=rs("emlsize")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>赠送邮局个数：</td>
<td>
<input name="emlcount" type="text" id="emlcount" value="<%=rs("emlcount")%>" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td> </td>
<td>
<input name="id" type="hidden" id="id" value="<%=rs("id")%>">
<input name="typid" type="hidden" id="typid" value="<%=rs("typid")%>">
<input name="hosttyp" type="hidden" id="hosttyp" value="<%=hosttyp%>">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value="修改">
<br>
<br>
</div>
</td>
</tr>
</form>
</table>
</center>
</div>
<% end if %>
</body>
<% rs.close
set rs=nothing
set conn=nothing
%>
<% end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -