📄 contactus.asp
字号:
<%
dim dbpath
dbpath=""
%>
<!--#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 up("联系我们","联系我们","联系我们")
response.write "<tr>"
response.write " <td colspan=2><h2 align=center>联系我们</h2></td>"
response.write "</tr>"
if root_info_tel<>"" then
response.write "<tr><td><b>联系电话:</b></td><td>"&root_info_tel&"</td></tr>"
end if
if root_info_email<>"" then
response.write "<tr><td><b>Email:</b></td><td>"&root_info_email&"</td></tr>"
end if
if root_info_qq<>"" then
response.write "<tr><td><b>联系QQ:</b></td><td>"&root_info_qq&"</td></tr>"
end if
if root_info_wangwang<>"" then
response.write "<tr><td><b>淘宝旺旺:</b></td><td>"&root_info_wangwang&"</td></tr>"
end if
if root_info_msn<>"" then
response.write "<tr><td><b>MSN:</b></td><td>"&root_info_msn&"</td></tr>"
end if
if root_info_address<>"" then
response.write "<tr><td><b>联系地址:</b></td><td>"&root_info_address&"</td></tr>"
end if
if root_info_zip<>"" then
response.write "<tr><td><b>邮编:</b></td><td>"&root_info_zip&"</td></tr>"
end if
if root_info_fax<>"" then
response.write "<tr><td><b>传真:</b></td><td>"&root_info_fax&"</td></tr>"
end if
call down()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -