📄 edithost.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ubb.asp"-->
<!--#include file="session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
</head>
<script language="VBScript">
<!--
Sub Checkdata()
if host.id.Value = Empty then
Window.Alert"“所属类型没有填写...”"
Exit Sub
end if
if host.sort_name.Value = Empty then
Window.Alert"“商品编号没有填写...”"
Exit Sub
End if
if host.smalltext.Value = Empty then
Window.Alert"“小简介没有填写...”"
Exit Sub
End if
if host.largetext.Value = Empty then
Window.Alert"“大简介没有填写...”"
Exit Sub
End if
if host.price.Value = Empty then
Window.Alert"“价格没有填写...”"
Exit Sub
End if
if host.attention.Value = Empty then
Window.Alert"“注意事项没有填写...”"
Exit Sub
End if
host.submit
End sub
-->
</script>
<body>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from sort where sort_id="&request("sort_id")
rs.open sql,conn,3,3
%>
<div align="center">
<center>
<form method="post" action="ADD_hosto2.asp?sort_id=<%=rs("sort_id")%>" name="host">
<table border="0" cellpadding="0" cellspacing="1" width="500" bgcolor="#000000" height="496">
<tr>
<td bgcolor="#FFFFFF" width="95" align="center" height="32">所属类型</td>
<td bgcolor="#FFFFFF" width="395" height="32"> <select size="1" name="id" style="border: 1 solid #000000">
<option selected>请选择添加分类</option>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from list"
rs1.open sql,conn,3,3
if rs1.eof then
%><option value></option>
<%else
do while not rs1.eof%>
<option value="<%=rs1("id")%>"><%=rs1("sort_name")%></option><%rs1.movenext
loop
end if
rs1.close
set rs1=nothing%>
</select></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="95" align="center" height="33">商品编号</td>
<td bgcolor="#FFFFFF" width="395" height="33"> <input type="text" name="sort_name" size="20" style="border: 1 solid #000000" value="<%=rs("sort_name")%>"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="95" align="center" height="33">商品级别</td>
<td bgcolor="#FFFFFF" width="395" height="33"> <select size="1" name="grade" style="border: 1 solid #000000">
<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql="select * from pic"
rs2.open sql,conn,3,3
if rs2.eof then
%>
<option value></option>
<%else
do while not rs2.eof%>
<option value="<%=rs2("grade")%>"><%=rs2("grade")%></option>
<%rs2.movenext
loop
end if
rs2.close
set rs2=nothing%>
</select></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="95" align="center" height="100">小 简 介</td>
<td bgcolor="#FFFFFF" width="395" height="100"> <textarea rows="4" name="smalltext" cols="20" style="border: 1 solid #000000"><%=rs("smalltext")%></textarea></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="95" align="center" height="138">大 简 介</td>
<td bgcolor="#FFFFFF" width="395" height="138"> <textarea rows="6" name="largetext" cols="30" style="border: 1 solid #000000"><%=rs("largetext")%></textarea></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="95" align="center" height="34">价 格</td>
<td bgcolor="#FFFFFF" width="395" height="34"> <input type="text" name="price" size="20" style="border: 1 solid #000000" value="<%=rs("price")%>">元RMB</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="95" align="center" height="50"> 注意事项</td>
<td bgcolor="#FFFFFF" width="395" height="50"> <textarea rows="4" name="attention" cols="20" style="border: 1 solid #000000"><%=rs("attention")%></textarea></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="95" align="center" height="37">推荐</td>
<td bgcolor="#FFFFFF" width="395" height="37"> <input type="radio" value="0" name="top" checked>不推荐
<input type="radio" value="1" name="top">推荐</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2" width="494" height="14">
<p align="center"><input type="button" value="提交" name="B1" ONCLICK="Checkdata">
<input type="reset" value="全部重写" name="B2"></td>
</tr>
</table>
</form>
</center>
</div>
<%rs.Close
set rs=Nothing
conn.Close
set conn=Nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -