%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<% response.charset="utf-8" %>
<%
dim rs,sql,SiteTitle,SiteUrl,ComName,Address,ZipCode,Telephone,Fax,Email,Keywords,Descriptions,IcpNumber,MesViewFlag
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from NwebCn_Site"
rs.open sql,conn,1,1
SiteTitle=rs("SiteTitle")
SiteUrl=rs("SiteUrl")
ComName=rs("ComName")
Address=rs("Address")
ZipCode=rs("ZipCode")
Telephone=rs("Telephone")
Fax=rs("Fax")
Email=rs("Email")
Keywords=rs("Keywords")
Descriptions=rs("Descriptions")
IcpNumber=rs("IcpNumber")
MesViewFlag=rs("MesViewFlag")
rs.close
set rs=nothing
%>
十月天使-孕产肌肤专用护肤品,婴唯?婴幼儿专用护肤品,美国利文斯顿国际集团旗下知名品?/TITLE>
公告?/td>
<%
set rs = server.createobject("adodb.recordset")
sql="select ID,NewsName,SortID,Addtime from NwebCn_News where ViewFlag =1 and NoticeFlag =1 order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无相关信息?
else
for i=1 to 3
if rs.eof then exit for
%>
·&SortID=<%=rs("SortID")%>"><%=rs("NewsName")%> [<%=formatdatetime(rs("AddTime"),2)%>]
<%
rs.movenext
next
end if
rs.close
set rs=nothing
%>
<%if session("UserName")="" or session("GroupID")="" or session("UserLogin")<>"Succeed" then%>
<%else%>
尊敬?font color="#FF0000"><%=session("UserName")%> ,您好!
·
用户类型?font color="#FF0000"><%=MemGroup(session("GroupID"))%>
·
当前积分?font color="#FF0000"><%=session("Jifen")%> ?
·
帐户管理
·
退?/font>
<%end if%>
<%
function MemGroup(GroupID)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
MemGroup=rs("GroupName")
rs.close
set rs=nothing
end function
%>