<%
dim rs,sql,a1,a2,a3,a4,a5,a6
'userid=toNum(trim(request("userid")),0)
ConnectionDatabase
set rs=server.createobject("adodb.recordset")
sql="update Tel_details set hits=hits+1 where userid="&userid
rs.open sql,conn,1,3
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from Tel_details where userid="&userid
rs.open sql,Conn,1,1
if rs.bof and rs.eof then
Response.write ""
Response.end
end if
if rs("a2")<>"" then
a2=rs("a2")
else
a2="欢迎光临："&rs("name")
end if
a3=rs("a3")
a4=rs("a4")
a5=rs("a5")
if rs("a6")<>"" then
a6=rs("a6")
else
'a6="©2005 版权所有：中国商务黄页网<测试帐号> 技术支持：中国商务黄页网"
a6=""
end if
%>
欢迎来到晨化科技集团!
如果无法查看FLASH动画,请直接点击这里跳过动画!
<%
set rs=nothing
closeconn
%>