横排网站登陆搜索

sub user_bbslogin()
if login_mode="" then
%>
<table border=0 cellspacing=0 cellpadding=0><tr><td><table border=0>
<form name=login_frm method=post action='login.asp?action=login_chk' onsubmit="return login_true()">
<input type=hidden name=chk value='yes'>
<input type=hidden name=re_log value='yes'>
<tr>
<td>用户名：<input type=text name=username value='' size=12 maxlegth=20></td>
<td width=5></td>
<td>密码：<input type=password name=password value='' size=12 maxlegth=20></td>
<td width=5></td>
<td><input type=checkbox id=id_memery_info name=memery_info value='yes' class=bg_td></td>
<td><label for=id_memery_info id=label_memery_info alt='如选择"记住密码"登陆，以后将自动登陆本站！'>记住密码</label></td>
<td width=5></td>
<td><input type=submit value='登 陆' onclick="jacascript:return login_true();"></td>
<td width=15></td>
<td><a href='register.asp'>注册新用户</a></td>
<td width=10></td>
<td><a href='user_getpass.asp'>忘记密码</a></td>
<td width=10></td>
</tr>
</form>
</table></td><td>
<table border=0>
                 <form action='search.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">
                 <tr>
                 <td> <input type=text name=keyword value='' size=20 maxlength=20></td>
                 <td> <select name=sea_type>
                 <option value='forum'>论坛</option>
                 <option value='news'>新闻</option>
                 <option value='article'>文栏</option>
                 <option value='down'>下载</option>
                 <option value='paste'>图片</option>
                 <option value='flash'>Flash</option>
                 <option value='website'>网站</option>
                 <option value='shop_product'>商城</option>
                 </select></td>
                 <td valign=top><input type=image src='images/small/web_sea.gif' border=0></td>
                 </tr>
                 </form>
                 </table></td></tr></table>

<%
exit sub
end if
%>

<table border=0 cellspacing=0 cellpadding=0><tr><td><table border=0>
欢迎您<font class=blue><b><%response.write login_username%></b></font> 您是本站的<font class=red2><%response.write format_power(login_mode,1)%></font> 现有积分<font class=red><%response.write login_integral%></font>分和<font class=red2><%response.write login_emoney%></font><%response.write joekoe_cms.web_unit%> <a href='user_main.asp'>用户中心</a> <a href='user_mail.asp'>我的短信箱（<font class=gray><%response.write login_msg%></font>新）</a> <a href='login.asp?action=logout' onclick="javascript:return click_return('退出本次登陆',1);">退出登陆</a></table></td></td><td>
<table border=0>
                 <form action='search.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">
                 <tr>
                 <td>      <input type=text name=keyword value='' size=20 maxlength=20></td>
                 <td> <select name=sea_type>
                 <option value='forum'>论坛</option>
                 <option value='news'>新闻</option>
                 <option value='article'>文栏</option>
                 <option value='down'>下载</option>
                 <option value='paste'>图片</option>
                 <option value='flash'>Flash</option>
                 <option value='website'>网站</option>
                 <option value='shop_product'>商城</option>
                 </select></td>
                 <td valign=top><input type=image src='images/small/web_sea.gif' border=0></td>
                 </tr>
                 </form>
                 </table></td></tr></table>
<%
end sub


调用 vbcrlf&"  </tr><tr><td>"
call user_bbslogin()
response.write vbcrlf&"</td>" & _
vbcrlf&" </tr></table>" & _

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: