📄 upproductinfo.asp
字号:
<% myself=request.servervariables("path_info")%>
<!--#include file="../inc/conn.asp" -->
<!--#include file="checkadmin_top.asp" -->
<%
if request("submit")="确认修改" then
id=request("id")
productname=request("productname")
productid=request("productid")
bigclass=request("bigclass")
cl=request("cl")
sizes=request("sizes")
salesmoney=request("salesmoney")
shouming=request("shouming")
if productname="" or productid="" or bigclass="" or cl="" or shouming="" then
Response.Write("<script language=""javascript"">alert('产品名称、编号、类别、材料和说明都不能为空！');location='"&myself&"?id="&id&"';</script>")
Response.End()
else
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from productinfo where id="&id&""
rs.open sql,conn,3,3
rs("productname")=productname
rs("productid")=productid
rs("bigclass")=bigclass
rs("cl")=cl
rs("sizes")=sizes
rs("salesmoney")=salesmoney
rs("shouming")=shouming
rs.update
response.redirect"upfile2.asp?id="&id&""
end if
end if
id=request("id")
set rs=conn.execute("select * from productinfo where id="&id&"")
if rs.eof then
response.write""
else
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../inc/test.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="75%" border="0" cellspacing="1" cellpadding="5" bgcolor="#000000">
<form name="form2" method="post" action="">
<tr>
<td bgcolor="#F1f1f1" colspan="2">
<div align="center">产品信息修改</div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="40%" align="center">产品名称：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="productname" value="<%=rs("productname")%>">
<input type="hidden" name="id" value="<%=id%>">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<div align="center">产品编号：</div>
</td>
<td bgcolor="#FFFFFF">
<input type="text" name="productid" value="<%=rs("productid")%>">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">产品类别：</td>
<td bgcolor="#FFFFFF">
<select name="bigclass">
<option value="<%=rs("bigclass")%>" selected><%=rs("bigclass")%></option>
<%set rsb=conn.execute("select * from bigclass order by id desc")
if rsb.eof then
response.write""
else
do while not rsb.eof%>
<option value="<%=rsb("bigclass")%>"><%=rsb("bigclass")%></option>
<%rsb.movenext
loop
end if
rsb.close
set rsb=nothing
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">产品材料：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="cl" value="<%=rs("cl")%>">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">产品尺寸：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="sizes" value="<%=rs("sizes")%>">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">产品价格：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="salesmoney" value="<%=rs("salesmoney")%>">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">产品说明：</td>
<td bgcolor="#FFFFFF">
<textarea name="shouming" wrap="VIRTUAL" cols="30" rows="5"><%=rs("shouming")%></textarea>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center" colspan="2">
<input type="submit" name="Submit" value="确认修改">
</td>
</tr>
</form>
</table>
</body>
</html>
<%end if%>
<!--#include file="checkadmin_bottom.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -