28,406
社区成员
发帖
与我相关
我的任务
分享帮忙看看代码有什么错
<!--#include file="OpenDb.inc"-->
<html>
<head>
</head>
<body>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject ("ADODB.RecordSet")
Conn.Open (SqlOpenDb)
Order_ID="20040001"
If (Request("OrderID") <> "") Then
Order_ID=Request("OrderID")
Response.Write Order_ID
End If
%>
<form method="POST" action="Deal_DO.asp" onSubmit="validateform();return document.returnvalue">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="60%" id="AutoNumber1" height="165">
<tr>
<td width="24%" bgcolor="#C0C0C0" height="16"><b>
<span style="font-size: 12.0pt; font-family: 隶书">材料名称：</span></b></td>
<td width="76%" bgcolor="#C0C0C0" height="16">
<select size="1" name="MaterialName">
<%
Sql_MaterialId=" Select * From ProductInfo Where OrderId='"&Order_ID&"' "
上面着条语句好象有错误.请帮忙
Rs.Open Sql_MaterialId,Conn
Material_ID=Rs("MaterialID")
Response.Write Material_ID
Response.Wrtie "成功!"
Sql="Select * From MaterialInfo"
Rs.Open Sql,Conn
Do Until Rs.EOF
%>
<OPTION<% If Rs("MaterialID")=Material_ID Then%> Selected
<% Else
End If %>>
<% Response.Write Rs("MaterialName") %>
</OPTION>
<%
Rs.Movenext
loop
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</select></td>
<html>
<head>
</head>
<body>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject ("ADODB.RecordSet")
Conn.Open (SqlOpenDb)
Order_ID="20040001"
If (Request("OrderID") <> "") Then
Order_ID=Request("OrderID")
Response.Write Order_ID
End If
%>
<form method="POST" action="Deal_DO.asp" onSubmit="validateform();return document.returnvalue">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="60%" id="AutoNumber1" height="165">
<tr>
<td width="24%" bgcolor="#C0C0C0" height="16"><b>
<span style="font-size: 12.0pt; font-family: 隶书">材料名称：</span></b></td>
<td width="76%" bgcolor="#C0C0C0" height="16">
<select size="1" name="MaterialName">
<%
Sql_MaterialId=" Select * From ProductInfo Where OrderId='"&Order_ID&"' "
上面着条语句好象有错误.请帮忙
Rs.Open Sql_MaterialId,Conn
Material_ID=Rs("MaterialID")
Response.Write Material_ID
Response.Wrtie "成功!"
Sql="Select * From MaterialInfo"
Rs.Open Sql,Conn
Do Until Rs.EOF
%>
<OPTION<% If Rs("MaterialID")=Material_ID Then%> Selected
<% Else
End If %>>
<% Response.Write Rs("MaterialName") %>
</OPTION>
<%
Rs.Movenext
loop
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</select></td>
...全文
请发表友善的回复…
发表回复
