offerdetail.asp

全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述： 软件名称：全球商务网站系统 当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）

<!--#include file="../../conn/conn.asp"--> 
<!--#include file="../../inc/safe.asp"--> 
<%
if Chkrequest(request("vipinfo_id")) then
vipinfo_id=request("vipinfo_id")
sql="update vipinfo set hits=hits+1 where vipinfo_id="&vipinfo_id&""
conn.execute(sql)
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
action=Replace_Text(request("action"))
sql="select weburl,gsmc,email,lxr from vipinfo where vipinfo_id="&vipinfo_id&""
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "<p align='center'>对不起，没有您要查询的信息</p><Br><Br><Br><Br><Br><Br>"
else

if action="cor" then
if session("flag")=1 then
if rs("weburl")="空" or rs("weburl")="" then
Response.Write "document.write('"&rs("gsmc")&"')"
else
Response.Write "document.write('<A href="&rs("weburl")&" target=_blank>"&rs("gsmc")&"</A>');"
end if
else
Response.Write "document.write('<font color=red>你未登陆或不是商贸通会员</font>');"
end if
end if

if action="cor1" then
if session("flag")=1 then
if rs("email")="空" or rs("email")="" then
Response.Write "document.write('"&rs("lxr")&"')"
else
Response.Write "document.write('<A href=mailto:"&rs("email")&" target=_blank>"&rs("lxr")&"</A>');"
end if
else
Response.Write "document.write('<font color=red>你未登陆或不是商贸通会员</font>');"
end if
end if

end if
set rs=nothing
conn.close
set conn=nothing
%>