📄 vqqqhome.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<!-- #include file="chksession.asp" -->
<!-- #include file="head2.asp" -->
<html>
<head>
<TITLE><%=webname%>--会员管理中心---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/main_style.css" rel="stylesheet" type="text/css">
<script language=javascript>alert('你现在使用的是vqqq拍卖程序2.0免费测试版，需要购买请联系QQ：6439358');</script>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<%
response.buffer=true
dim user
user=session("user")

sql="select * from users where regUsername='"&user&"'"
set rs=conn.execute(sql)
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="760" align=center>
  <TBODY>
  <TR>
    <TD align=left vAlign=top width=150> 
      <!--#include file="vqqqleft.asp" -->
    </TD>
    <TD width=5>&nbsp;</TD>
    <TD align=left vAlign=top>
<%
set rsm=server.createobject("adodb.recordset")
sql="select msg.msgid,msg.content,msg.reply,msg.writerid,auctions.aucid as aucid2,auctions.aucItemTitle from msg left join auctions on auctions.aucid = msg.aucid where ownerid="&rs("regid")&" and reply=''"
rsm.open sql,conn,1,1
%>
      <TABLE align=top border=0 cellPadding=4 cellSpacing=0 width="100%">
        <TBODY>
        <TR height=20>
          <TD width=356><FONT id=b2>欢迎您，<%=rs("reguserName")%></FONT>&nbsp;&nbsp;<a href=usercredit.asp?vqqqid=<%=rs("regusername")%> target=_blank>查看信用详情</a>
<%
if rsm.eof then
	response.write "(<font class=fred> 0 </font>条新留言)"
else
	response.write "<a href='vqqqauction_msg.asp'>(<font class=fred> "&rsm.recordcount&" </font>条新留言)</a>"
end if
rsm.close
set rsm=nothing
%>
</TD>
          <TD>注册邮箱：<%=rs("regEmail")%></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 id=lg101 width="100%">
        <TBODY>
        <TR id=bg02>
          <TD height=5 width=12></TD>
          <TD></TD>
          <TD width=12></TD></TR>
        <TR id=bg02>
          <TD width=12></TD>
          <TD height=30 id=b1 align=center>
          <br><br>&nbsp;&nbsp;欢迎您光临<B><%=webname%>管理中心</B>，希望您的耕耘能给您丰厚的回报！<br><br>
          &nbsp;&nbsp;您在使用过程中有任何问题可向管理员来信：<a href=mailto:<%=email%>><%=email%></a><br><br>
	此次最新加入会员开店，vqqq魔力，信息平台，星级推荐等功能，欢迎新老客户申请使用。<br><br>它让你在享受本站服务的同时，也能享受自由个人主页的乐趣！
          </TD>
          <TD width=12>&nbsp;</TD></TR>
        <TR id=bg02>
          <TD height=5 width=12></TD>
          <TD></TD>
          <TD width=12></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR id=bg02>
          <TD height=20 width=99>&nbsp;</TD>
          <TD width=26>&nbsp;</TD>
          <TD>
          &nbsp;
          </TD>
          </TR></TBODY>
          </TABLE><BR>
          </TD></TR>
          </TBODY></TABLE><BR>
</body></html>
<!-- #include file="bottom.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -