form.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 122 行

  <%
  sub yqj_form()
  response.write "<form action=userinfo/login_chk.asp method=post>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;"
  response.write "用户名："
  response.write "<input type=text name=login_name size=9>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;"
  response.write "密&nbsp; 码："
  response.write "<input type=password name=login_pass size=8>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;"
  response.write "验证码："
  response.write "<input type=text name=codeid size=9 maxlength=6>"
  response.write "</td>"
  response.write "</tr>"

  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;"
  response.write "验证码："
  response.write "<img src=my_lib/checkcode.asp>"
  response.write "</td>"
  response.write "</tr>"

  response.write "<tr>"
  response.write "<td width=140>"
  response.write "<p align=center>"
  response.write "<a href=user_reg.asp title=用户注册>"
  response.write "<img border=0 src=images/reg.gif width=56 height=21>"
  response.write "</a>"
  response.write "&nbsp;"
  response.write "<input type=image border=0 src=images/login.gif width=56 height=21 title=用户登录>"
  response.write "</td>"
  response.write "</tr>"
  response.write "</form>"
  end sub
  
  sub yqj_loginok()
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<font color=#CC0000>"&session("chk_name")&"</font>,您好"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "状态：已登录"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<a href=user_resource.asp?flag=modi>"
  response.write "修改用户资料"
  response.write "</a>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<a href=user_resource.asp?flag=pass>"
  response.write "修改用户密码"
  response.write "</a>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<a href=user_resource.asp?flag=message>"
  response.write "留言反馈"
  response.write "</a>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<a href=user_resource.asp?flag=revert>"
  response.write "留言跟踪处理"
  response.write "</a>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<a href=user_resource.asp?flag=favorite>"
  response.write "我的收藏夹"
  response.write "</a>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<a href=user_resource.asp?flag=dd_list>"
  response.write "查询历史订单"
  response.write "</a>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<a href=my_cart_list.asp target=_blank>"
  response.write "我的购物车"
  response.write "</a>"
  response.write "</td>"
  response.write "</tr>"
  response.write "<tr>"
  response.write "<td width=140 class=12px>"
  response.write "&nbsp;·"
  response.write "<a href=userinfo/loginout.asp>退出登录</a>"
  response.write "</td>"
  response.write "</tr>"
  end sub
  %>