📄 product.asp
字号:
<%@ Language=VBScript %>
<!--#include file="../../include/memconn.asp"-->
<!--#include file="../sign.asp"-->
<%
call checkpass
if Session("Passed") then
%>
<%
function record2list()
sql="select * from mem_sell"
rs.open sql,conn,1,1
str=""
while not rs.eof
str=str&"<option value='"&rs("mem_id")&"'>"&rs("comp_name")&"</option>"
rs.movenext
wend
set rs=nothing
call conn_end
record2list=str
end function
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
body,td,p,input,select {font-size:14.8px;font-family：宋体}
-->
</style>
</HEAD>
<BODY bgcolor="#FFFFFF">
<p> </p>
<form action="productadd.asp" method="post" name="form1">
<table width="500" border="1" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td height="30" colspan="2"><b>产品输入</b></td>
</tr>
<tr>
<td height="30" width="118" align="right">产品名称：</td>
<td height="30" width="382">
<input type="text" name="prod_name" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">产地：</td>
<td height="30" width="382">
<input type="text" name="area" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">品牌：</td>
<td height="30" width="382">
<input type="text" name="prod_sign" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">颜色：</td>
<td height="30" width="382">
<input type="text" name="color" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">生产商：</td>
<td height="30" width="382">
<input type="text" name="prod_man" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">产品编号：</td>
<td height="30" width="382">
<input type="text" name="prod_number" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">屏幕价：</td>
<td height="30" width="382">
<input type="text" name="price" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">包装规格：</td>
<td height="30" width="382">
<input type="text" name="model" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">产品编码：</td>
<td height="30" width="382">
<input type="text" name="prod_code" size="30">
</td>
</tr>
<tr>
<td width="118" align="right" valign="top"><br>
应用说明：</td>
<td width="382">
<textarea name="use_intro" cols="29" rows="4"></textarea>
</td>
</tr>
<tr>
<td width="118" align="right" valign="top"><br>
产品说明：</td>
<td width="382">
<textarea name="prod_intro" cols="29" rows="5"></textarea>
</td>
</tr>
<tr>
<td height="30" width="118" align="right">视频文件：</td>
<td height="30" width="382">
<input type="text" name="visual_file" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">声音文件：</td>
<td height="30" width="382">
<input type="text" name="voice_file" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">图片文件：</td>
<td height="30" width="382">
<input type="text" name="pic_file" size="30">
</td>
</tr>
<tr>
<td height="30" width="118" align="right">销售商：</td>
<td height="30" width="382">
<select name="sale_man">
<%
Response.Write record2list()
%>
</select>
</td>
</tr>
<tr align="center">
<td height="30" colspan="2">
<input type="submit" name="Submit" value=" 提 交 ">
<input type="reset" name="Reset" value=" 清 除 ">
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -