📄 admin_addhostshouming.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
%>
<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")
pics=request.form("pics")
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")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hostcontent"
rs.open sql,conn,3,3
rs.addnew
rs("hostname")=hostname
rs("pics")=pics
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_addhostshouming.asp"
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 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
%>
</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_addhostshouming.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="hostname" type="text" id="hostname" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="30%">产品图片：</td>
<td>
<input name="pics" type="text" id="pics" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>产品编号：</td>
<td>
<input name="hostcount" type="text" id="hostcount" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>直接客户价：</td>
<td>
<input name="money" type="text" id="money" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>普通代理价：</td>
<td>
<input name="money1" type="text" id="money1" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>牵手代理价：</td>
<td>
<input name="money2" type="text" id="money2" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>伙伴代理价：</td>
<td>
<input name="money3" type="text" id="money3" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>硬件：</td>
<td>
<input name="heads" type="text" id="heads" size="45">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>带宽：</td>
<td>
<input name="linksize" type="text" id="linksize" size="45">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>操作系统：</td>
<td>
<input name="sys" type="text" id="sys" value="" size="33">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>磁盘空间：</td>
<td>
<input name="hid" type="text" id="hid" value="" size="33">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>语言支持：</td>
<td>
<input name="scripts" type="text" id="scripts" value="" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>主机控制面板：</td>
<td>
<input name="con" type="text" id="con" value="" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>SSL 加密访问：</td>
<td>
<input name="ssl" type="text" id="ssl" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>数据库：</td>
<td>
<textarea name="datebasesize" wrap="VIRTUAL" id="datebasesize" cols="40" rows="5"></textarea>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>其他说明：</td>
<td>
<textarea name="logfile" wrap="VIRTUAL" id="logfile" cols="40" rows="5"></textarea>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>赠送邮局空间：</td>
<td>
<input name="emlsize" type="text" id="emlsize" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>赠送邮局个数：</td>
<td>
<input name="emlcount" type="text" id="emlcount" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>所属主机类型：</td>
<td>
<select name="typid" id="typid">
<% set rs=server.createobject("adodb.recordset")
sql="select * from hosttyp order by id desc"
rs.open sql,conn,3,3
if rs.eof then %>
<option value=""></option>
<% else
do while not rs.eof %>
<option value="<%=rs("id")%>"><%=rs("hosttyp")%></option>
<% rs.movenext
loop
end if
%>
</select>
</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>
</body>
<% rs.close
set rs=nothing
set conn=nothing
%>
<% end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -