<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim ID
dim rs
dim sql
dim Conn
ConnStr="driver={sql server};server=127.0.0.1;database=tire;uid=sa;pwd=111111"
set Conn=server.createobject("adodb.connection")
Conn.Open ConnStr
ID=request.QueryString("产品编号")
Set rs=server.CreateObject("ADODB.recordset")
sql="select * from chanpin3 where 产品编号='"& ID &"'"
rs.Open sql,Conn,1,1
if rs.EOF or rs.BOF then
Response.Write(" <hr>数据库中暂无资料！")
Else
do while not rs.EOF or rs.BOF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改信息 </title>
<style type="text/css">
<!--
.STYLE 7{font-size:12px; font-family:"宋体";}
.STYLE 8{font: bolder "宋体"; font-size:12px; color:#990000;}
.STYLE 9{font-size:12px; color:#990000; font-weight:bold;}
.STYLE 10{font-size:12px; color:#FFFFFF; font-weight:bold;}
-->
</style>
</head>
<body>
<div align="center" class="STYLE 7">
<p align="left&q
