小弟要在网站客户登陆密码的地方加上软键盘输入,就像中国建设银行的那种软键盘,鼠标放进密码输入框就会自动弹出来软键盘,小弟已经在网上找了相应的代码,但是弄了好久也没弄好,小弟是菜鸟,麻烦各位高手帮忙写一下,唯一的要求就是希望不要更改login里面的布局就可以了,小弟将不胜感激,提前给各位跪下了。
下面是相应的代码:
login的代码:
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0 bordercolor="#6699ff" bgcolor="#6699ff">
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=5 cellSpacing=1 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD bgColor=<%=bgclr4%>></TD>
</TR>
</TBODY>
</TABLE>
<% if request.cookies("timesshop")("username")="" then
Dim url %>
<table height="20" width=100% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#6699ff>
<TR>
<td width="100%" align="center" background="../images/skin/default/footbj.bmp"><font color="#000000">用户登录</font></td>
</TR>
<tr><td background=images/bg_04.gif border=0></td></tr>
<form name=loginfo method=post action=chkuser.asp>
<tr bgcolor=#ffffff>
<td style='padding-left:5px'>用户名:<input name=username type=text size="15" maxlength="15">
</td>
</tr>
<tr bgcolor=#ffffff>
<td style='padding-left:5px' >密 码:<input name=UserPassword type=password size="15" maxlength="15"></td>
</tr>
<tr bgcolor=#ffffff>
<td style='padding-left:5px'>验证码:<input name=passcode type=text size=8 maxlength="4">
<img src="code.asp"></td>
</tr>
<tr bgcolor=#ffffff> <td colspan="2" align="center">
<input type=submit name=Submit value="登录" onClick="return checkuu();"></td>
</td></tr>
<tr bgcolor=#ffffff> <td colspan="2" align="center">
<a href="reg.asp">免费<font color="#FF0000">注册</font>查看批发价</a> <input name=comeurl type=hidden value=<% = url %>></td>
</td></tr>
</form>
</table>
<%
else
dim shop,rsvip,username
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.price2,product.vipprice,product.price1,orders.productnum from product inner join orders on product.id=orders.id where orders.state=2 and orders.username='"&trim(request.Cookies("timesshop")("username"))&"' ",conn,1,1
set shop=server.CreateObject("adodb.recordset")
shop.Open "select distinct(goods) from orders where username='"&request.Cookies("timesshop")("username")&"' and state=2 ",conn,1,1
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1
if rsvip("vip") = true then
if shop.recordcount=0 then %>
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<TR>
<td width="100%" align="center" background="../images/skin/default/footbj.bmp">我的帐户</td>
</TR>
<tr><td background=images/bg_04.gif border=0></td></tr>
<tr>
<td alent=center> 欢迎<font color=ff0000><% = Request.Cookies("timesshop")("username") %></font>来到云贝网</td>
</tr>
<tr>
<td> 您目前没有未处理订单</td>
</tr>
<tr>
<td> 共计:0.00元</td>
</tr>
<tr><td align="center"><a href=profile.asp?action=profile>用户中心</a> <a href=logout.asp>注销登录</a></td></tr>
</table>
<%
else
dim shopjiage
do while not rs.eof
shopjiage=round(shopjiage+rs("vipprice")*rs("productnum"),2)
rs.movenext
loop %>
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<TR>
<td width="100%" align="center" background="../images/skin/default/footbj.bmp">我的帐户</td>
</TR>
<tr><td background=images/bg_04.gif border=0></td></tr>
<tr>
<td alent=center> 欢迎<font color=ff0000><% = Request.Cookies("timesshop")("username") %></font>来到云贝网 </td>
</tr>
<tr>
<td> 您目前有<font color="#ff0000"> <% = shop.recordcount %> </font>笔<a href="profile.asp?action=goods"><font color="#ff6600">未处理订单</font></a></td>
</tr>
<tr>
<td> 共计:<font color="#ff6600"><% = shopjiage %></font>元(免收邮费)</td>
</tr>
<tr><td align="center"><a href=profile.asp?action=profile>用户中心</a> <a href=logout.asp>注销登录</a></td></tr>
</table>
<%
end if
rsvip.close
set rsvip = nothing
else
if shop.recordcount=0 then %>
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<TR>
<td width="100%" align="center" background="../images/skin/default/footbj.bmp">我的帐户</td>
</TR>
<tr><td background=images/bg_04.gif border=0></td></tr>
<tr>
<td alent=center> 欢迎<font color=ff0000><% = Request.Cookies("timesshop")("username") %></font>来到云贝网</td>
</tr>
<tr>
<td> 您目前没有未处理订单</td>
</tr>
<tr>
<td> 共计:0.00元</td>
</tr>
<tr><td align="center"><a href=profile.asp?action=profile>用户中心</a> <a href=logout.asp>注销登录</a></td></tr>
</table>
<%
else
do while not rs.eof
shopjiage=round(shopjiage+rs("price2")*rs("productnum"),2)
rs.movenext
loop %>
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<TR>
<td width="100%" align="center" background="../images/skin/default/footbj.bmp">我的帐户</td>
</TR>
<tr><td background=images/bg_04.gif border=0></td></tr>
<tr>
<td alent=center> 欢迎<font color=ff0000><% = Request.Cookies("timesshop")("username") %></font>来到云贝网</td>
</tr>
<tr>
<td> 您目前有<% = shop.recordcount %>笔未处理订单</td>
</tr>
<tr>
<td> 共计:<font color="ff6600"><% = shopjiage %></font>元(免收邮费)</td>
</tr>
<tr><td align="center"><a href=profile.asp?action=profile>用户中心</a> <a href=logout.asp>注销登录</a></td></tr>
</table>
<%
end if
end if
shop.Close
set shop=nothing
rs.close
set rs=nothing
end if %></TD>
</TR>
</TBODY>
</TABLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkuu()
{
if(checkspace(document.loginfo.username.value)) {
document.loginfo.username.focus();
alert("用户名不能为空!");
return false;
}
if(checkspace(document.loginfo.UserPassword.value)) {
document.loginfo.UserPassword.focus();
alert("密码不能为空!");
return false;
}
if(checkspace(document.loginfo.passcode.value)){
document.loginfo.passcode.focus();
alert("验证码不能为空");
return false;
}
}
//-->
</script>
因为帖子字数的限制,我已经把仿建设银行软键盘的代码放在附件里面了,大侠可以下载下来,好心的大侠如果弄好,可以放上来,也可以QQ联系我,QQ:2248659,再次感谢各位!