日期:2014-05-17 浏览次数:20855 次
<% set rs =server.CreateObject("adodb.recordset") sql="select ComFullName,ComTel,ComAddress,ComZipCode,ComContact,ComEmail,ComIntroduction,ComIndustryID,ComNature,ComScale,ComAreaName,ComHome from Com_Basic_Info where ComCode='"&ComCode&"'" rs.open sql,Conn,1,1 if not rs.eof then 'ComCode=rs("ComCode") ComFullName=rs("ComFullName") ComTel=rs("ComTel") ComAddress=rs("ComAddress") ComZipCode=rs("ComZipCode") ComContact=rs("ComContact") ComEmail=rs("ComEmail") ComIntroduction=rs("ComIntroduction") ComIndustryID=rs("ComIndustryID") ComNature=rs("ComNature") ComScale=rs("ComScale") ComAreaName=rs("ComAreaName") ComHome=rs("ComHome") %>