contactus.asp

网上购物系统

<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file=Sub.asp -->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select root_info_ICP,root_info_tel,root_info_email,root_info_QQ,root_info_MSN,root_info_WangWang,root_info_address,root_info_zip,root_info_fax from root_info where id=1"
rs.open sql,conn,1,1
root_info_ICP             =rs(0)
root_info_tel             =rs(1)
root_info_email           =rs(2)
root_info_QQ              =rs(3)
root_info_MSN             =rs(4)
root_info_WangWang        =rs(5)
root_info_address 		  =rs(6)
root_info_zip			  =rs(7)
root_info_fax			  =rs(8)
rs.close
set rs=nothing
Call Header("联系我们","联系我们")
response.write "<div class=MainDesc><ul>"
if root_info_tel<>""      then response.write "<li>联系电话："&root_info_tel&"</li>"
if root_info_email<>""    then response.write "<li>Email："&root_info_email&"</li>"
if root_info_qq<>""       then response.write "<li>联系QQ："&root_info_qq&"</li>"
if root_info_wangwang<>"" then response.write "<li>淘宝旺旺："&root_info_wangwang&"</li>"
if root_info_msn<>""      then response.write "<li>MSN："&root_info_msn&"</li>"
if root_info_address<>""  then response.write "<li>联系地址："&root_info_address&"</li>"
if root_info_zip<>""      then response.write "<li>邮编："&root_info_zip&"</li>"
if root_info_fax<>""      then response.write "<li>传真："&root_info_fax&"</li>"
response.write "</ul></div>"
Footer
%>