buildok.asp

来自「这是一本关于高级软件工程的书籍」· ASP 代码 · 共 418 行 · 第 1/2 页

	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")&"')>"&remark5&"</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'>产品单价："&price5&"元&nbsp;运输费："&freight5&"元&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&"</table></td>"
	filestr = filestr&"<td width='10'>&nbsp;</td>"
	filestr = filestr&"<td width='200' valign='top'><table width='200' border='0' cellpadding='0' cellspacing='0'>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic6&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark6 =  rs("remark")
		if len(remark6)>30 then
			remark6 = mid(remark6,1,30)&"……"
		end if
	price6 = rs("price")
	freight6 = 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='200' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='80' height='90' align='center' valign='middle'><a style='cursor:hand' onClick=info('"&rs("pid")&"')><img src='../pic/"&rs("ppic")&"' width='74' height='59'/></a></td>"
	filestr = filestr&"<td width='5'></td>"
	filestr = filestr&"<td width='110' valign='middle' valign='top' class='w-1'><a style='cursor:hand' onClick=info('"&rs("pid")&"')>"&remark6&"</a></td>"
	filestr = filestr&"<td width='5'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right' class='w-3'>产品单价："&price6&"元&nbsp;运输费："&freight6&"元</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right'><table width='129' height='19' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='282'><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>&nbsp;</td>"
	'filestr = filestr&"</tr>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic7&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark7 =  rs("remark")
		if len(remark7)>30 then
			remark7 = mid(remark7,1,30)&"……"
		end if
		price7 = rs("price")
		freight7 = 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='200' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='80' height='90' align='center' valign='middle'><a style='cursor:hand' onClick=info('"&rs("pid")&"')><img src='../pic/"&rs("ppic")&"' width='74' height='59'/></a></td>"
	filestr = filestr&"<td width='5'></td>"
	filestr = filestr&"<td width='110' valign='middle' valign='top' class='w-1'><a style='cursor:hand' onClick=info('"&rs("pid")&"')>"&remark7&"</a></td>"
	filestr = filestr&"<td width='5'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right' class='w-3'>产品单价："&price7&"元&nbsp;运输费："&freight7&"元</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right'><table width='129' height='19' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='282'><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>&nbsp;</td>"
	'filestr = filestr&"</tr>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic8&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark8 = rs("remark")
		if len(remark8)>30 then
			remark8 = mid(remark8,1,30)&"……"
		end if
		price8 = rs("price")
		freight8 = 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='200' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='80' height='90' align='center' valign='middle'><a style='cursor:hand' onClick=info('"&rs("pid")&"')><img src='../pic/"&rs("ppic")&"' width='74' height='59'/></a></td>"
	filestr = filestr&"<td width='5'></td>"
	filestr = filestr&"<td width='110' valign='middle' valign='top' class='w-1'><a style='cursor:hand' onClick=info('"&rs("pid")&"')>"&remark8&"</a></td>"
	filestr = filestr&"<td width='5'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right' class='w-3'>产品单价："&price8&"元&nbsp;运输费："&freight8&"元</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right'><table width='129' height='19' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='282'><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>&nbsp;</td>"
	'filestr = filestr&"</tr>"
	sql = "SELECT pid, pname, remark, price, freight, ppic FROM goods WHERE (pid = '"&pic9&"')"
	rs.open sql,conn
	if not rs.Eof then
		remark9 = rs("remark")
		if len(remark9)>30 then
			remark9 = mid(remark9,1,30)&"……"
		end if
		price9 = rs("price")
		freight9 = 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='200' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='80' height='90' align='center' valign='middle'><a style='cursor:hand' onClick=info('"&rs("pid")&"')><img src='../pic/"&rs("ppic")&"' width='74' height='59'/></a></td>"
	filestr = filestr&"<td width='5'></td>"
	filestr = filestr&"<td width='110' valign='middle' valign='top' class='w-1'><a style='cursor:hand' onClick=info('"&rs("pid")&"')>"&remark9&"</a></td>"
	filestr = filestr&"<td width='5'></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"</table></td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right' class='w-3'>产品单价："&price9&"元&nbsp;运输费："&freight9&"元</td>"
	filestr = filestr&"</tr>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td align='right'><table width='129' height='19' border='0' cellpadding='0' cellspacing='0'>"
	filestr = filestr&"<tr>"
	filestr = filestr&"<td width='282'><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&"</table></td>"
filestr = filestr&"</tr>"
filestr = filestr&"</table></td>"
filestr = filestr&"</tr>"
filestr = filestr&"</table>"
filestr = filestr&"<form name='form1' action='pinfo.asp' method='post'>"
filestr = filestr&"<input type='hidden' name='pid'value=''>"
filestr = filestr&"</form>"
filename = "shoping\inc\default.inc"
path=Request.ServerVariables("APPL_PHYSICAL_PATH")
path = path & filename
set fs = server.createobject("scripting.filesystemobject")
set ts = fs.createtextfile(path,true)
ts.writeline fileStr
ts.close
set fs = nothing
response.Redirect("build.asp?stat=1")
%>