<!--#include file="set.asp"-->
<%
if request.Cookies("adminok")=""then
response.Redirect"error.asp"
end if
%>
<%
dim names
dim A_type
dim Money
dim High
dim Weight
dim Attestation
dim Computy
dim Features
dim Num
dim times
names=request.Form("names")
A_type=request.Form("A_type")
Money=request.Form("Money")
High=request.Form("High")
Weight=request.Form("Weight")
Attestation=request.Form("Attestation")
Computy=request.Form("Computy")
Features=request.Form("Features")
Num=request.Form("Num")
times=request.Form("times")
if names="" then
Response.Write("<script>alert('请输入产品的品牌!');history.go(-1)</script>")
Response.End
end if
if A_type="" then
Response.Write("<script>alert('请输入产品的型号!');history.go(-1)</script>")
Response.End
end if
if Money="" then
Response.Write("<script>alert('请输入产品的报价!');history.go(-1)</script>")
Response.End
end if
if Computy="" then
Response.Write("<script>alert('请输入产公司的名称!');history.go(-1)</script>")
Response.End
end if
if times="" then
Response.Write("<script>alert('请输入产品的报价时间!');history.go(-1)</script>")
Response.End
end if
%>
<%
ssql="select * from paper "
rst.open ssql,cnn,1,3
%>
<%
rst.addnew
rst("names")=names
rst("A_type")=A_type
rst("Money")=Money
rst("High")=High
rst("Weight")=Weigh
rst("Attestation")=Attestation
rst("Computy")=Computy
rst("Features")=Features
rst("Num")=Num
rst("times")=times
rst.update
rst.close
set rst=nothing
Response.Write("<script>alert('添加成功!');window.location=('admin_paper_pic.asp')</script>")
cnn.close
set cnn=nothing
%>
这段代码是数据修改的单页面上的输入框中总是不能显示数据
