pro_view.asp

网站源码

<%

 strsql = "SELECT * FROM pro_list WHERE id ="&x_fornews

		set rs1 = Server.CreateObject("ADODB.Recordset")
		rs1.Open strsql, conn, 1,1 
		if rs1.recordcount <> 0 then
		pro_info=rs1("pro_name")
		pro_type=rs1("pro_type")
		

		
		rs1.close
		
 strsql = "SELECT * FROM pro_type WHERE id ="&pro_type	
		rs1.Open strsql, conn, 1,1 
		pro_typename=rs1("type_name")
		rs1.close:set rs1=nothing
		
		
	Response.Write("<font color=""#006633""><strong>"&pro_typename&"</strong></font> | <font color=""#006633""><a href=""../product_view.asp?id="&x_fornews&""" target=""_blank"">"& pro_info&"</a></font>")
	else

	response.write("本产品可能已删除!")
	end if 
		%>