buildok.asp

这是一本关于高级软件工程的书籍

<!-- #include file="../inc/conn.asp" -->
<!-- #include file="../inc/function.asp" -->
<%
	if session("Sname") = "" then
%>
	<SCRIPT language="javascript">
	{
		window.alert("您还没有登陆系统!");
		window.location="default.asp";
	}
	</SCRIPT>
<%
		response.end
	end if
%>
<%
	pic1 = request("pic1")
	pic2 = request("pic2")
	pic3 = request("pic3")
	pic4 = request("pic4")
	pic5 = request("pic5")
	pic6 = request("pic6")
	pic7 = request("pic7")
	pic8 = request("pic8")
	pic9 = request("pic9")
%>
<%
	filestr = "<table width='560' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td><img src='../pic/L-HY.jpg' width='560' height='93' /></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='10'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='20' valign='bottom' bgcolor='333333' class='w-1'>　购 物</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='10'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td><table width='560' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='350'><table width='350' border='0' cellpadding='0' cellspacing='0'>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic1&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark1 =  rs("remark")
		if len(remark1)>70 then
			remark1 = mid(remark1,1,70)&"……"
		end if
		price1 = rs("price")
		freight1 = rs("freight")
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='18' valign='bottom' class='w-1'>"&rs("pname")&"</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='4' bgcolor='333333'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td><table width='350' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='110' height='80' align='center' valign='middle'><a style='cursor:hand' onClick=info('"&rs("pid")&"')><img src='../pic/"&rs("ppic")&"' width='90' height='70'/></a></td>"
	filestr = filestr&"<td width='240' valign='middle' valign='top' class='w-1'><br><a style='cursor:hand' onClick=info('"&rs("pid")&"')>"&remark1&"</a></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right'><table width='350' height='19' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='282'><div align='right' class='w-3'>产品单价："&price1&"元&nbsp;运输费："&freight1&"元&nbsp;</div></td>"
	filestr = filestr&"<td width='10'><img src='../pic/l-2.jpg' width='61' height='17' style='cursor:hand' onClick=info('"&rs("pid")&"')></td>"
	filestr = filestr&"<td width='10'>&nbsp;</td>"
	filestr = filestr&"<td width='61'><img src='../pic/l-1.jpg' width='61' height='17' style='cursor:hand' onClick=buy('"&rs("pid")&"')></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
		end if
	rs.close
filestr = filestr&"<tr>"
filestr = filestr&"<td height='3'></td>"
filestr = filestr&"</tr>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic2&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark2 =  rs("remark")
		if len(remark2)>70 then
			remark2 = mid(remark2,1,70)&"……"
		end if
		price2 = rs("price")
		freight2 = rs("freight")
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='18' valign='bottom' class='w-1'>"&rs("pname")&"</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='4' bgcolor='333333'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td><table width='350' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='110' height='80' align='center' valign='middle'><a style='cursor:hand' onClick=info('"&rs("pid")&"')><img src='../pic/"&rs("ppic")&"' width='90' height='70'/></a></td>"
	filestr = filestr&"<td width='240' valign='middle' valign='top' class='w-1'><br><a style='cursor:hand' onClick=info('"&rs("pid")&"')>"&remark2&"</a></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right'><table width='350' height='19' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='282'><div align='right' class='w-3'>产品单价："&price2&"元&nbsp;运输费："&freight2&"元&nbsp;</div></td>"
	filestr = filestr&"<td width='10'><img src='../pic/l-2.jpg' width='61' height='17' style='cursor:hand' onClick=info('"&rs("pid")&"')></td>"
	filestr = filestr&"<td width='10'>&nbsp;</td>"
	filestr = filestr&"<td width='61'><img src='../pic/l-1.jpg' width='61' height='17' style='cursor:hand' onClick=buy('"&rs("pid")&"')></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
		end if
	rs.close
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='3'></td>"
	filestr = filestr&"</tr>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic3&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark3 =  rs("remark")
		if len(remark3)>70 then
			remark3 = mid(remark3,1,70)&"……"
		end if
		price3 = rs("price")
		freight3 = rs("freight")
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='18' valign='bottom' class='w-1'>"&rs("pname")&"</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='4' bgcolor='333333'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td><table width='350' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='110' height='80' align='center' valign='middle'><a style='cursor:hand' onClick=info('"&rs("pid")&"')><img src='../pic/"&rs("ppic")&"' width='90' height='70'/></a></td>"
	filestr = filestr&"<td width='240' valign='middle' valign='top' class='w-1'><br><a style='cursor:hand' onClick=info('"&rs("pid")&"')>"&remark3&"</a></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right'><table width='350' height='19' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='282'><div align='right' class='w-3'>产品单价："&price3&"元&nbsp;运输费："&freight3&"元&nbsp;</div></td>"
	filestr = filestr&"<td width='10'><img src='../pic/l-2.jpg' width='61' height='17' style='cursor:hand' onClick=info('"&rs("pid")&"')></td>"
	filestr = filestr&"<td width='10'>&nbsp;</td>"
	filestr = filestr&"<td width='61'><img src='../pic/l-1.jpg' width='61' height='17' style='cursor:hand' onClick=buy('"&rs("pid")&"')></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
		end if
	rs.close
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='3'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic4&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark4 =  rs("remark")
		if len(remark4)>70 then
			remark4 = mid(remark4,1,70)&"……"
		end if
		price4 = rs("price")
		freight4 = rs("freight")
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='18' valign='bottom' class='w-1'>"&rs("pname")&"</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='4' bgcolor='333333'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td><table width='350' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='110' height='80' align='center' valign='middle'><a style='cursor:hand' onClick=info('"&rs("pid")&"')><img src='../pic/"&rs("ppic")&"' width='90' height='70'/></a></td>"
	filestr = filestr&"<td width='240' valign='middle' valign='top' class='w-1'><br><a style='cursor:hand' onClick=info('"&rs("pid")&"')>"&remark4&"</a></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right'><table width='350' height='19' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='282'><div align='right' class='w-3'>产品单价："&price4&"元&nbsp;运输费："&freight4&"元&nbsp;</div></td>"
	filestr = filestr&"<td width='10'><img src='../pic/l-2.jpg' width='61' height='17' style='cursor:hand' onClick=info('"&rs("pid")&"')></td>"
	filestr = filestr&"<td width='10'>&nbsp;</td>"
	filestr = filestr&"<td width='61'><img src='../pic/l-1.jpg' width='61' height='17' style='cursor:hand' onClick=buy('"&rs("pid")&"')></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
		end if
	rs.close
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='3'></td>"
	filestr = filestr&"</tr>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic5&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark5 =  rs("remark")
		if len(remark5)>70 then
			remark5 = mid(remark5,1,70)&"……"
		end if
		price5 = rs("price")
		freight5 = rs("freight")
	filestr = filestr&"<tr>"
	filestr = filestr&"<td height='18' valign='bottom' class='w-1'>"&rs("pname")&"</td>"
	filestr = filestr&"</tr>"