📄 index.asp
字号:
<!--#include file="Cook.asp" -->
<%
If API_Enable Then
If IsEmpty(WRMPS.GetCookies("ApiUrl")) = False Then
Dim arrturl,api,turl
turl=Replace(WRMPS.GetCookies("ApiUrl"),"$","&")
arrturl=Split(turl,"@@@")
For api=0 To UBound(arrturl)
If arrturl(api)="" Then Exit For
reval = reval & "<script language=JAVASCRIPT src="""&arrturl(api)&"""></script>" & vbcrlf
Next
WRMPS.DelCookies "ApiUrl"
End if
End if
Dim WM_RegTime,WM_RZEmail,WM_LastLoginTime,WM_LastIP,WM_LoginNum,WM_Money,WM_Integral,WM_CountOut,WM_GroupID,WM_RZID,WM_ComID,Message
Dim GroupName,Faith,WM_Company,WM_RZBL,CompanyID,WM_ClassNum,WM_CompanyNum,WM_CompanyReNum,WM_Face,u_Faith,ui,FaithPic,WM_Email
Set Rs = Conn.Execute("Select Top 1 WM_RegTime,WM_RZEmail,WM_LastLoginTime,WM_LastIP,WM_LoginNum,WM_Money,WM_Integral,WM_CountOut,WM_GroupID, WM_RZID,WM_ComID,WM_Faith,WM_ClassNum,WM_CompanyNum,WM_CompanyReNum,WM_Face,WM_Email,WM_Message From WM_Member Where WM_ID = "&MemID)
If Not Rs.Eof Then
WM_RegTime = Rs(0)
WM_RZEmail = Rs(1)
WM_LastLoginTime = Rs(2)
WM_LastIP = Rs(3)
WM_LoginNum = Rs(4)
WM_Money = WRMPS.GetFormatNumber(Rs(5),2)
WM_Integral = Rs(6)
WM_CountOut = Rs(7)
WM_GroupID = Rs(8)
WM_RZID = Rs(9)
WM_ComID = Rs(10)
Faith = Rs(11)
WM_ClassNum = Rs(12)
WM_CompanyNum = Rs(13)
WM_CompanyReNum = Rs(14)
WM_Face = Rs(15)
WM_Email = Rs(16)
Message = Rs(17)
End If
Rs.Close
Set Rs = Conn.Execute("Select WM_GroupName From WM_UserGroup where WM_ID="&WM_GroupID)
If Not Rs.EOF Then
GroupName = Rs(0)
End If
Rs.CLose
Set Rs = Nothing
reval = PageTop()
reval = reval & UserPath("")
reval = reval & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf
reval = reval & " <tr>" & vbCrlf
reval = reval & " <td width=""60%"" valign=top>" & vbCrlf
reval = reval & " <!--====================-->" & vbCrlf
reval = reval & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf
reval = reval & " <tr>" & vbCrlf
reval = reval & " <td class=b_10><span class=UserName>欢迎您 <span class=Font2>"&MemName&"</span> ！我们已在此恭候多时了!</span>" & vbCrlf
If Int(WR_Mail(17)) > 0 Then
reval = reval & "<div style='padding:5px;'><a href=User_Message.asp><Img Src='img/msg.gif' border=0 align=absmiddle alt='短消息'> 您有 "&Int(Split(Message,"|")(0))&"<strong><span style='color:#ff0000'>("&Int(Split(Message,"|")(1))&")</span></strong> 条短消息"
If Int(Split(Message,"|")(1)) > 0 Then reval = reval & "，点击查看"
reval = reval & "！</a></div>" & vbCrlf
End If
u_Faith = Split(W_UserFaith,"§")
For ui = 0 To Ubound(u_Faith)
If u_Faith(ui) <> "" Then
If Faith >= Int(Split(u_Faith(ui),"|")(1)) Then FaithPic = Split(u_Faith(ui),"|")(2)
End If
Next
reval = reval & "<br><span style='float:right'>用户组：<span class=Font2>"&GroupName&"</span></span>" & vbCrlf
reval = reval & "账户信用：<a href=User_ConsumeList.asp?Type=4><span class=Font3><strong>"&Faith&"</strong></span> <Img Src='"&WR_Setting(3)&"Images/Star/"&FaithPic&"' alt='信用值："&Faith&"' border=0 align=absmiddle></a>" & vbCrlf
reval = reval & "<hr size=1 color=#DFDFDF>" & vbCrlf
If WR_Mail(5)<>"NO" Then
If WM_RZEmail = 1 Then
reval = reval & "<li><strong>邮箱认证：</strong>已通过认证" & vbCrlf
Else
reval = reval & "<li><strong>邮箱认证：</strong>还没有已通过认证，请点击<a href=User_RZ.asp?Action=Email&Email="&WM_Email&">这里</a>进行认证" & vbCrlf
End If
End If
If WM_RZID = 1 Then
reval = reval & "<li><strong>实名认证：</strong>已通过认证" & vbCrlf
Else
reval = reval & "<li><strong>实名认证：</strong>还没有已通过认证，请点击<a href=User_RZ.asp?Action=ID>这里</a>进行认证" & vbCrlf
End If
reval = reval & "<li>上一次登录时间："&WM_LastLoginTime&" (IP:"&WM_LastIP&")<br> 如果您在以上时间没有登录过本站，请联系管理员" & vbCrlf
reval = reval & " </td>" & vbCrlf
reval = reval & " </tr>" & vbCrlf
reval = reval & " <tr>" & vbCrlf
reval = reval & " <td>" & vbCrlf
WM_RZBL = 0
If WM_ComID < 1 and Int(WR_Company(0)) > 0 and Int(FlagCom(0)) > 0 Then
reval = reval & "<table width='100%' border=0 cellspacing=0 cellpadding=3><tr><td style=""border-bottom:1px #FF9900 Solid;padding:2px 10px;font-size:14px""><strong>店铺</strong></td></tr><tr><td class=""F14 b_10"">"
reval = reval & " 你还没有登记或认领您的店铺？<br><br><div align=center><a href=../Company/Post.asp target=_blank><img src='img/ypreg.gif' border=0></a> <a href=User_RL.asp><img src='img/yprl.gif' border=0></a></div><br>"
reval = reval & "</td></tr></table>"
ElseIf WM_ComID > 0 Then
Set Rs = Conn.Execute("Select WM_ID,WM_Company,WM_RZBL From WM_Company Where WM_ID="&WM_ComID&" and WM_ClaimUser='"&MemName&"' and WM_RZBL = 1")
If Not Rs.EOF Then
CompanyID = Rs(0)
WM_Company = Rs(1)
WM_RZBL = Rs(2)
End If
Rs.CLose
Set Rs = Nothing
reval = reval & "<table width='100%' border=0 cellspacing=0 cellpadding=3><tr><td style=""border-bottom:1px #FF9900 Solid;padding:2px 10px;font-size:14px""><strong>店铺</strong></td></tr><tr><td class=b_10>"
reval = reval & "认领的店铺：<span class=F14><strong>"&WM_Company&"</strong></span><br> <a href="&WRMPS.GetCompanyUrl(CompanyID)&" target=_blank>点击查看 >></a><br><br>"
If WM_RZBL = 1 and Int(WR_Company(0)) > 0 Then reval = reval & "<img align=left style='padding:30px 20px 30px 20px' src=Img/Company.gif border=0 alt='已通过店铺营业执照认证'>"
reval = reval & "<li>严肃的商业信息有助于您获得别人的信任，获取商业机会。"
reval = reval & "<li>真实的联系方式，让客户自己找您。<br> <a href=../Company/Edit.asp?ID="&CompanyID&" target=_blank>修改店铺信息 >></a> <a href=user_site.asp>自助建站管理 >></a>"
reval = reval & "<br> <a href=../Company/Post.asp target=_blank>免费登记其它店铺 >></a>"
reval = reval & "</td></tr></table>"
End If
reval = reval & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""3"">" & vbCrlf
reval = reval & " <tr><td style=""border-bottom:1px #FF9900 Solid;padding:2px 10px;font-size:14px""><strong>分类信息</strong></td></tr>" & vbCrlf
reval = reval & " <tr><td class=b_10>" & vbCrlf
reval = reval & " 每个人心里都有一块石头<br>" & vbCrlf
reval = reval & " 找份好工作、卖个好价钱、交个女朋友、租个好房子...<br>" & vbCrlf
reval = reval & " "&WR_Setting(0)&" <a href="&WR_Setting(3)&" target=""_blank"">"&WR_Setting(4)&"</a><br>" & vbCrlf
reval = reval & " 能让您心中的石头落地<br>" & vbCrlf
reval = reval & " "&WR_Setting(0)&" 一个提供免费发布各类生活资讯、分类信息的平台。<br>" & vbCrlf
reval = reval & " <a href=User_ClassAD.asp?Action=Add><img src='img/Postclass.gif' border=0></a>" & vbCrlf
reval = reval & "<br>" & vbCrlf
reval = reval & " <a href=User_ClassAD.asp>信息管理 >></a> <a href=User_ClassRe.asp>回复管理 >></a>" & vbCrlf
reval = reval & "</td></tr>" & vbCrlf
reval = reval & "</table>" & vbCrlf
reval = reval & " </td>" & vbCrlf
reval = reval & " </tr>" & vbCrlf
reval = reval & "</table>" & vbCrlf
reval = reval & " <!--====================-->" & vbCrlf
reval = reval & " </td>" & vbCrlf
reval = reval & " <td width=""1%""></td>" & vbCrlf
reval = reval & " <td width=""39%"" valign=top>" & vbCrlf
reval = reval & " <!--====================-->" & vbCrlf
reval = reval & "<FIELDSET><LEGEND><STRONG class=F16>"&MemName&" 的个人资料 </STRONG></LEGEND>" & vbCrlf
reval = reval & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf
reval = reval & " <tr>" & vbCrlf
reval = reval & " <td style=""padding:8px;width:60%"">" & vbCrlf
reval = reval & " 账户余额：￥"&WM_Money&" <a href=User_ConsumeList.asp?Type=1>明细</a><br>" & vbCrlf
reval = reval & " 账户"&WR_Other(0)&"："&WM_CountOut&" <a href=User_ConsumeList.asp?Type=2>明细</a><br>" & vbCrlf
reval = reval & " 账户积分："&WM_Integral&" <a href=User_ConsumeList.asp?Type=4>明细</a><br>" & vbCrlf
reval = reval & " 注册时间："&WM_RegTime&"<br>" & vbCrlf
reval = reval & " 登录次数："&WM_LoginNum&"<br>" & vbCrlf
reval = reval & " <a href=User_EditInfo.asp><font class=f14>修改资料 >></font></a> 建议填写真实信息</a>" & vbCrlf
reval = reval & "<hr size=1 color=#F9C77B>" & vbCrlf
reval = reval & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf
reval = reval & " <tr><td colspan=2><strong class=F14>认证情况</strong></td></tr>" & vbCrlf
reval = reval & " <tr><td colspan=2 align=center>" & vbCrlf
If WM_RZEmail = 1 Then
reval = reval & "<img src=Img/Email.gif align=absmiddle border=0 alt='已通过邮箱认证'> "
End If
If WM_RZID = 1 Then
reval = reval & "<img src=Img/ID.gif align=absmiddle border=0 alt='已通过实名认证'> "
End If
If WM_RZBL = 1 and Int(WR_Company(0)) > 0 Then reval = reval & "<img align=absmiddle src=Img/Company.gif border=0 alt='已通过店铺营业执照认证'>"
reval = reval & "</td></tr>" & vbCrlf
If (WR_Mail(5)<>"NO" and WM_RZEmail = 0) Or WM_RZID = 0 Then
reval = reval & " <tr>" & vbCrlf
reval = reval & " <td width=""15%"" align=center><a href=User_RZ.asp><img src=Img/IsRZ.gif align=absmiddle border=0></a></td>" & vbCrlf
reval = reval & " <td width=""85%""><a href=User_RZ.asp><strong class=f14>点击这里进入认证流程</strong></a><br>想提高您的会员信用度，请先进行会员认证。认证用户所发布的信息对于其他浏览用户来说更具真实性，将更受欢迎。</td>" & vbCrlf
reval = reval & " </tr>" & vbCrlf
End If
reval = reval & "</table>" & vbCrlf
reval = reval & "<hr size=1 color=#F9C77B>" & vbCrlf
reval = reval & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf
reval = reval & " <tr><td colspan=2> <strong class=F14>账户安全</strong></td></tr>" & vbCrlf
reval = reval & " <tr>" & vbCrlf
reval = reval & " <td width=""15%"" align=center><a href=User_EditPass.asp><img src=Img/Pass.gif align=absmiddle border=0></a></td>" & vbCrlf
reval = reval & " <td width=""85%""><a href=User_EditPass.asp><strong class=f14>账户密码安全保护</strong></a><br>密码保护是为增强会员帐号安全而设计，由一组与用户密切相关的资料组成。只需认真填写对应资料，您就可以随时取回您的帐号。</td>" & vbCrlf
reval = reval & " </tr>" & vbCrlf
reval = reval & "</table>" & vbCrlf
reval = reval & " </td>" & vbCrlf
reval = reval & " </tr>" & vbCrlf
reval = reval & "</table>" & vbCrlf
reval = reval & "</FIELDSET>" & vbCrlf
If AgentID > 0 Then
reval = reval & "<br><FIELDSET><LEGEND><STRONG class=F16>城市代理情况 </STRONG></LEGEND>" & vbCrlf
reval = reval & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf
reval = reval & " <tr>" & vbCrlf
reval = reval & " <td style=""padding:8px"">" & vbCrlf
reval = reval & "城 市 名：<span class='Font2 UserName'>"&AgentCity&"</span> <a href=User_Agent.asp>分配下级代理</a><br>" & vbCrlf
reval = reval & "过期时间："&AgentTime&"<hr size=1 color=#F9C77B>" & vbCrlf
reval = reval & "<div style='text-align:center'><a href=User_Ads.asp><strong class=f14>城市广告管理</strong></a> " & vbCrlf
reval = reval & "<a href=User_Links.asp><strong class=f14>城市友情链接管理</strong></a></div>" & vbCrlf
reval = reval & " </td>" & vbCrlf
reval = reval & " </tr>" & vbCrlf
reval = reval & "</table>" & vbCrlf
reval = reval & "</FIELDSET>" & vbCrlf
End If
reval = reval & " <!--====================-->" & vbCrlf
reval = reval & " </td>" & vbCrlf
reval = reval & " </tr>" & vbCrlf
reval = reval & "</table>" & vbCrlf
reval = reval & PageButtom()
Response.write reval
Call DBConnEnd()
Call ClassEnd()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -