view.asp

非常有商业价值的软件

<%
flag=my_request("flag",0)
sql="select web_name,web_url,aboutus,shfw,zfsm,pssm from system_setup where id=1"
set rs=conn.execute (sql)
web_name=rs("web_name")
web_url=rs("web_url")
aboutus=rs("aboutus")
shfw=rs("shfw")
zfsm=rs("zfsm")
pssm=rs("pssm")
rs.close
set rs=nothing

sql="select company_name,company_address,postal,linkman,phone,fax,email from system_setup where id=1"
set rs=conn.execute (sql)
company_name=rs("company_name")
company_address=rs("company_address")
postal=rs("postal")
linkman=rs("linkman")
phone=rs("phone")
fax=rs("fax")
email=rs("email")
rs.close
set rs=nothing
%>
<table border="1" width="770" cellspacing="1" style="border-collapse: collapse" bordercolor="#ACA793">
	<tr>
		<td>
		<table border="0" width="100%" id="table2" cellspacing="0" cellpadding="0">
			<tr>
				<td align="center" class=14px><%select case flag
case "deliver"
response.write "陪送说明"
case "payment"
response.write "支付说明"
case "service"
response.write "销后服务"
case "linkmode"
response.write "联系方式"
case "aboutus"
response.write "关于我们"
case else
response.write flag
end select%></td>
			</tr>
			<tr>
				<td><hr size="1"></td>
			</tr>
			<tr>
				<td class=12px>
				<%
select case flag
case "deliver"
response.write "&nbsp;&nbsp;"&pssm
case "payment"
response.write "&nbsp;&nbsp;"&zfsm
case "service"
response.write "&nbsp;&nbsp;"&shfw
case "aboutus"
response.write "&nbsp;&nbsp;"&aboutus
case "linkmode"
response.write "<p>&nbsp;&nbsp;公司名称："&company_name&"<br>&nbsp;&nbsp;公司地址："&company_address&"<br>&nbsp;&nbsp;邮政编码："&postal&"<br>&nbsp;&nbsp;联系人："&linkman&"<br>&nbsp;&nbsp;联系电话："&phone&"<br>&nbsp;&nbsp;传真号码："&fax&"<br>&nbsp;&nbsp;电子邮件地址："&email&"</p>"
case else
response.write flag
end select
%></td>
			</tr>
		</table>
		</td>
	</tr>
</table>