function user_login_h()
dim temp1
if login_mode="" then
temp1=vbcrlf&"<table border='0' align='center' cellpadding='4' cellspacing='0'>" & _
vbcrlf&"<form name=login_frm method=post action='login.asp?action=login_chk' onsubmit='return login_true()'>" & _
vbcrlf&"<input type=hidden name=chk value='yes'>" & _
vbcrlf&"<input type=hidden name=re_log value='yes'>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td>用户名：</td>" & _
vbcrlf&"<td><input type=text name=username value='' size=12 maxlegth=20></td>" & _
vbcrlf&"<td>密码：</td>" & _
vbcrlf&"<td><input type=password name=password value='' size=12 maxlegth=20></td>" & _
vbcrlf&"<td><input type=checkbox id=memery_info name=memery_info value='yes' class=bg_td></td>" & _
vbcrlf&"<td><label for=id_memery_info id=label_memery_info alt='如选择“记住密码”登陆，以后将自动登陆本站！'>记住密码</label></td>" & _
vbcrlf&"<td><input name='image' type=image onClick='jacascript:return login_true();' src='images/index/user_login_button.gif' align=absmiddle border=0></td>" & _
vbcrlf&"<td><a href='register.asp'>新注册</a></td>" & _
vbcrlf&"<td><a href='user_getpass.asp' style='cursor:help;'>忘记密码</a></td>" & _
vbcrlf&"<td><a href='register.asp?action=resend' alt='重新发送一次我的注册验证邮件！'>发送注册邮件</a></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"</form>" & _
vbcrlf&"</table>"
else
temp1=vbcrlf&"<table border='0' align='center' cellpadding='5' cellspacing='0'>" & _
vbcrlf&"<tr><td align='center'>您好，<font class=blue><b>"&login_username&"</b></font>，" & _
vbcrlf&"你现在已登陆 <font class=red2>"&login_mode&"</font> 模式。" & _
vbcrlf&"您目前有<font class=red>"&login_emoney&"</font>"&joekoe_cms.web_unit&"，<font class=red>"&login_integral&"</font>分。" & _
vbcrlf&"<a href='user_mail.asp'>我的短信箱（"&login_msg&" 新）</a> | <a href='user_main.asp'>用户中心</a> | <a href='login.asp?action=logout'>退出登陆</a></td>" & _
vbcrlf&"</tr></table>"
end if
user_login_h=temp1
end function
调用方法：
response.write user_login_h
在skin.asp中添加
sub user_login1()
if login_mode="" then
%>
<TABLE class=bg_td cellSpacing=0 cellPadding=0 bgcolor="#FFFFFF" width=780 border=0><TBODY><TR><TD align=middle colSpan=2>
<TABLE width=750 height=30 border=0 align=center cellPadding=5 cellSpacing=0 class=bg_td>
<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 width=148><img src=images/index/member_center.jpg width=131 height=24></TD>
<TD width=361>用户名：<input name=username type=text id=username value='' size=12 class=input > 密 码：
<input name=Password type=password id=Password value='' size=12 class=input>
<input type=checkbox id=id_memery_info name=memery_info value='yes' class=bg_td><label for=id_memery_info id=label_memery_info alt='如选择“记住密码”登陆，以后将自动登陆本站！'>记住密码</label></TD><TD width=211 align=center valign=middle><input name=imageField type=image src=Images/index/login.jpg width=61 height=22 border=0>
<a href='register.asp'><img src=Images/index/reg.jpg width=61 height=19 border=0 align=absmiddle></a> <a href='user_getpass.asp'>忘记密码？</a></TD>
</TR></form></TABLE></TD></TR></TBODY></TABLE>
<%
exit sub
end if
%>
<TABLE class=bg_td cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD align=middle colSpan=2>
<TABLE width=750 height=30 border=0 align=center cellPadding=5 cellSpacing=0 class=bg_td>
<form name=login_frm method=post action='login.asp?action=login_chk' onsubmit='return login_true()'>
<input type=hidden name=chk2 value='yes'>
<input type=hidden name=re_log2 value='yes'>
<TR>
<TD width=148><img src=Images/index/member_center.jpg width=131 height=24></TD>
<TD width=361><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_emoney%>
</font>
<%response.write joekoe_cms.web_unit%>
<font class=red>
<%response.write login_integral%>
</font>点积分
<label for=memery_info id=label_memery_info alt='如选择“记住密码”登陆，以后将自动登陆本站！'></label></TD><TD width=211 align=center valign=middle><a href='user_mail.asp'>短信箱（
<%response.write login_msg%>
新）</a><a href='user_main.asp'>用户中心</a> <a href='login.asp?action=logout'>退出登陆</a></TD>
</TR>
</form>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<%
end sub
创建好在寻找下面的代码。调用一下就可以了
"今天是："&joekoe_cms.time_type("",5)&" "&weekdayname(weekday(joekoe_cms.today_time))&" 您现在位于： <a href='./'>首页</a> → "
if tit_fir="" then
response.write "<font title='"&joekoe_cms.code_html(tit,1,0)&"'>"&joekoe_cms.code_html(tit,1,30)&"</font>"
else
response.write "<a href='"&index_url&".asp'>"&tit_fir&"</a> → <font title='"&joekoe_cms.code_html(tit,1,0)&"'>"&joekoe_cms.code_html(tit,1,12)&"</font>"
end if
response.write vbcrlf&"</td><td width='20%' align=right><div id=div_msg>"
if login_msg>0 then
response.write "<bgsound src='"&joekoe_cms.web_dir_skin&"mail/message.wav'><a href='user_mail.asp'><img src='"&joekoe_cms.web_dir_skin&"mail/new.gif' align=absmiddle border=0> 我的短信箱（<font class=red>"&login_msg&" 新</font>）</a>"
else
response.write "<marquee scrolldelay=100 scrollamount=3 onMouseOut='if (document.all!=null){this.start()}' onMouseOver='if (document.all!=null){this.stop()}'>"&scroll_head&"</marquee>"
end if
response.write "</div></td></tr></table>" & _
vbcrlf&righter
call user_login1()
response.write web_left(var3)
end sub