resource.asp

非常有商业价值的软件

<%
sub c_pass()
response.write "<table border=0 width=631 height=213>"
response.write "<tr>"
response.write "<td>"
response.write "<form action=userinfo/disposal.asp method=post>"
response.write "<table border=0 width=560 id=table2 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td colspan=2>"
response.write "<p align=center>修改密码</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=200 align=right>原密码：</td>"
response.write "<td width=360>"
response.write "<input type=password name=old_password size=30 maxlength=20>*</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=200 align=right>新密码：</td>"
response.write "<td width=360>"
response.write "<input type=password name=new_password size=30 maxlength=20>*</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=200 align=right>确认新密码：</td>"
response.write "<td width=360>"
response.write "<input type=password name=new_password2 size=30 maxlength=20>*<input type=hidden name=action value=c_pass></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=2>"
response.write "<p align=center>"
response.write "<input type=submit value=确认修改 name=B1>&nbsp;"
response.write "<input type=reset value=重置 name=B2></td>"
response.write "</tr>"
response.write "</table>"
response.write "</form>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
end sub

sub modiinfo()
userid=session("chk_id")
sql="select * from user_info_list where id="&userid
set rs=conn.execute (sql)
txt_login_name=rs("txt_login_name")
txt_question=rs("txt_question")
txt_email=rs("txt_email")
txt_realname=rs("txt_realname")
txt_idcard=rs("txt_idcard")
txt_sex=rs("txt_sex")
txt_kind=rs("txt_kind")
txt_address=rs("txt_address")
txt_postal=rs("txt_postal")
txt_phone=rs("txt_phone")
txt_mobile=rs("txt_mobile")
txt_qq=rs("txt_qq")
txt_msn=rs("txt_msn")
rs.close
set rs=nothing
response.write " <table width=631  border=0 cellspacing=1 class=12px>"
response.write " <form name=reg action=userinfo/disposal.asp method=post onsubmit=""return regsubmit();"">"
response.write " <tr>"
response.write " <td colspan=4 align=center>用户资料修改</td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td width=109 align=right>说明：</td>"
response.write " <td width=538 colspan=3>"
response.write " 注明“<font color=#FF0000>*</font>”的为必填项目，各项内容请如实填写。</td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td width=109 align=right>用户名：</td>"
response.write " <td width=176>"
response.write " <input name=username type=text id=username size=20 maxlength=15 value="&txt_login_name&" disabled>"
response.write " <font color=#FF0000>*</font></td>"
response.write " <td width=101 align=right>"
response.write " 电子邮件地址：</td>"
response.write " <td width=255>"
response.write " <input name=email type=text id=email size=20 maxlength=30 value="&txt_email&">"
response.write " <font color=#FF0000>*</font></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>密码提示问题：</td>"
response.write " <td width=176>"
response.write " <input name=question type=text id=question0 maxlength=50 value="&txt_question&" size=20>"
response.write " <font color=#FF0000>*</font></td>"
response.write " <td width=101 align=right>"
response.write " 密码取回答案：</td>"
response.write " <td width=255>"
response.write " <input name=answer type=text id=answer maxlength=50 size=10>"
response.write "&nbsp;不修改请留空"
response.write "</td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right colspan=4><hr size=1 width=620></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>真实姓名：</td>"
response.write " <td colspan=3>"
response.write " <input name=realname type=text id=realname size=12 maxlength=10 value="&txt_realname&">"
response.write " <font color=#FF0000>*</font></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>身份证号码：</td>"
response.write " <td colspan=3><input name=idcard type=text id=idcard maxlength=20 value="&txt_idcard&" size=20>"
response.write " <font color=#FF0000>*</font></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>性别：</td>"
response.write " <td colspan=3><input name=sex type=radio value=男 checked>"
response.write " 男"
response.write " <input type=radio name=sex value=女>"
response.write " 女</td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>用户类别：</td>"
response.write " <td colspan=3><input name=kind type=radio value=1 checked>"
response.write " 个人注册<input name=kind type=radio value=2>"
response.write " 企业注册</td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>详细地址：</td>"
response.write " <td colspan=3>"
response.write " <input name=address type=text id=address size=50 maxlength=200 value="&txt_address&">"
response.write " <font color=#FF0000>*</font></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>邮政编码：</td>"
response.write " <td colspan=3>"
response.write " <input name=postal type=text id=postal size=10 maxlength=6 value="&txt_postal&">"
response.write " <font color=#FF0000>*</font></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>联系电话：</td>"
response.write " <td colspan=3>"
response.write " <input name=phone type=text id=phone size=15 maxlength=20 value="&txt_phone&">"
response.write " <font color=#FF0000>*</font></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>手机号码：</td>"
response.write " <td colspan=3>"
response.write " <input name=mobile type=text id=mobile size=15 maxlength=20 value="&txt_mobile&"><input type=hidden name=action value=modi></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>QQ号码：</td>"
response.write " <td colspan=3><input name=qq type=text id=qq size=18 maxlength=15 value="&txt_qq&"></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td align=right>MSN地址：</td>"
response.write " <td colspan=3><input name=msn type=text id=msn size=18 maxlength=20 value="&txt_msn&"></td>"
response.write " </tr>"
response.write " <tr align=center>"
response.write " <td align=right>验证码：</td>"
response.write " <td align=left colspan=3>"
response.write " <input name=checkcode type=text id=checkcode size=10 maxlength=6><img src=my_lib/checkcode.asp>"
response.write " <font color=#FF0000>*</font></td>"
response.write " </tr>"
response.write " <tr align=center>"
response.write " <td colspan=4><input type=submit value=确认修改>&nbsp;&nbsp;&nbsp;&nbsp;"
response.write " <input type=reset name=Submit value=重置></td>"
response.write " </tr>"
response.write " </form>"
response.write " </table>"
end sub

sub message()
response.write "<form action=userinfo/disposal.asp method=post>"
response.write "<table border=0 width=631 id=table1 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td colspan=3>"
response.write "<p align=center>用户留言</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=182 align=right>留言类别：</td>"
response.write "<td width=442 colspan=2><select size=1 name=flag>"
response.write "<option value=1>订单问题</option>"
response.write "<option value=2>服务问题</option>"
response.write "<option value=3>技术问题</option>"
response.write "<option value=4>其他问题</option>"
response.write "</select></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=182 align=right>简单标题：</td>"
response.write "<td width=442 colspan=2><input type=text name=title size=27></td>"
response.write "</tr>"
response.write "<tr><td align=right>电子邮件地址：</td><td width=439 colspan=2>"
response.write "<input type=text name=email size=27><input type=hidden name=action value=message></td></tr><tr><td align=right>"
response.write "联系电话：</td><td width=439 colspan=2>"
response.write "<input type=text name=phone size=27></td></tr><tr>"
response.write "<td align=right>留言内容：</td>"
response.write "<td width=201><textarea rows=9 name=content cols=37></textarea></td>"
response.write "<td width=238 valign=top>说明：如果是订单问题，<br>"
response.write "请注明您的订单号码。</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=right colspan=3>"
response.write "<p align=center><input type=submit value=确定提交 name=B1>&nbsp;&nbsp;"
response.write "<input type=reset value=重置 name=B2></td>"
response.write "</tr>"
response.write "</table>"
response.write "</form>"
end sub

sub favorite()
response.write "<table border=0 width=631 cellpadding=2 class=12px>"
response.write "<tr>"
response.write "<td colspan=5>"
response.write "<p align=center>收藏的商品列表</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=41>序号</td>"
response.write "<td width=242>名&nbsp; 称</td>"
response.write "<td width=141>收藏时间</td>"
response.write "<td colspan=2>"
response.write "<p align=center>操作</td>"
response.write "</tr>"
userid=cint(session("chk_id"))
set rs=server.CreateObject("adodb.recordset")
	sql="select id,pid,addtime from favorite where userid="&userid
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=500 colspan=4><font color=#FF0000>您还没有收藏的商品</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
						  set id=rs("id")
						  set pid=rs("pid")
						  set addtime=rs("addtime")
						  sql2="select p_name from yqj_product where id="&pid
						  set rs2=conn.execute (sql2)
						  p_name=rs2("p_name")
						  rs2.close
						  set rs2=nothing 
response.write "<tr>"
response.write "<td width=41>"&(page-1)*19+ii&"</td>"
response.write "<td width=242><a target=_blank href=list_more.asp?id="&pid&" title=查看详情>"&p_name&"</a></td>"
response.write "<td width=141>"&addtime&"</td>"
response.write "<td width=88 align=center><a target=_blank href=buygoods.asp?id="&pid&" title=购买>购买</a></td>"
response.write "<td width=88 align=center><a href=userinfo/disposal.asp?action=favorite&id="&id&"&page="&page&" title=删除>删除</a></td>"
response.write "</tr>"

              rs.movenext
			ii=ii+1
		    wend

response.write "<tr>"
response.write "<td width=631 colspan=5>"
call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")
response.write "</td>"
response.write "</tr>"
response.write "</table>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub


sub revert()
response.write "<table border=0 width=631 cellspacing=2 class=12px>"
response.write "<tr>"
response.write "<td colspan=5>"
response.write "<p align=center>问题跟踪回复</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=28 bgcolor=#FFF0F0>ID</td>"
response.write "<td width=251 bgcolor=#FFF0F0>留言标题</td>"
response.write "<td width=119 bgcolor=#FFF0F0>留言时间</td>"
response.write "<td width=223 colspan=2 bgcolor=#FFF0F0>"
response.write "<p align=center>操作状态</td>"
response.write "</tr>"
	userid=(session("chk_id"))
	set rs=server.CreateObject("adodb.recordset")
	sql="select id,title,addtime,ishf from message_yqj where userid='"&userid&"'"
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=500 colspan=4><font color=#FF0000>您还没有提过任何问题</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set title=rs("title")
set addtime=rs("addtime")