一个BR的换行符问题...

bulls5988 2009-08-27 11:39:18
目前验证码、验证码输入框式和提交按钮(登录)是在同一行。我想让登录按钮在验证码输入框的下方请问如何改?
还有我要改动用户名和密码输入框的大小应该怎么写?


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#INCLUDE FILE="HXINCLUDE/HX_CONNDATABASE.ASP"--><!--#INCLUDE FILE="HXINCLUDE/HX_Md5.ASP"-->
<script src="HXinclude/HX_Function.js"></script>
<%WSOASCOMSTR="<head><title></title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><script src='HXINCLUDE/HX_function.js'></script></head><body>"
action=request("action")
if action<>"loginout" then
if WS_S.HX_ISLogin then RESPONSE.Write "<script>openlogin('HX_managemain.asp');</script>":response.End
end if
Select Case action
Case "checklogin"
WS_S.ChkIsOuter:HX_UserName=Replace(Request.Form("HX_UserName"),"'","''"):HX_PassWord=Replace(Request.Form("HX_PassWord"),"'","''"):HX_ValidateCode=Replace(Request.Form("HX_ValidateCode"),"'","''"):HX_cook=HX_Checknum(Request.Form("cook"))
If HX_ValidateCode<>Session("HX_GetCode") then HX_GoBack "验证错误,请重新填写!",""
tablename="HX_CompanyUser": Orderby=" where WS_UserName='"&HX_UserName&"' and WS_PassWord='"&md5(HX_PassWord)&"'"
call WS_S.ChecKIPlock(Request.ServerVariables("REMOTE_ADDR"))
SET RS=WS_S.HX_SetRSD(Cols,tablename,Orderby)
IF RS.RECORDCOUNT>0 THEN
if rs("WS_leave")="True" then call WS_S.SaveAdminLog(HX_UserName,rs("WS_Appointment"),"<font color=red>登录失败!</font><font color=blue>等待审核</font>"):call HX_GoBack("请等待审核!","")
WS_Uid=rs("WS_Uid"):WS_UserName=rs("WS_UserName"):WS_Appointment=rs("WS_Appointment"):WS_department=rs("WS_department")
Set Onrs=WS_S.HX_SetRSD(Cols,"HX_Online"," where WS_Userid="&WS_Uid)
if Onrs.recordcount>0 then
if RS("WS_LoginIn")=1 then
RS("WS_LoginIn")=0:RS.update
session("WSOASCOM")="shoppescn"
else
RS("WS_LoginIn")=1:RS.update
session("WSOASCOM")="shoppescn"
end if
WS_S.HX_SelectCookiesORSession
else
RS("WS_LoginIn")=1:RS.update:WS_S.HX_SelectCookiesORSession
Onrs.addnew:Onrs("WS_Userid")=WS_Uid:Onrs("WS_Name")=RS("WS_Name"):Onrs("WS_Viewip")=Request.ServerVariables("REMOTE_ADDR"):Onrs("WS_Lasttime")=now:Onrs.update
end if
WS_S.HX_RSClose Onrs: call WS_S.SaveAdminLog(WS_UserName,WS_Appointment,"登录成功!"):WS_S.HX_Redirect "HX_managemain.asp"
else
call WS_S.SaveAdminLog(HX_UserName,0,"<font color=red>登录失败!尝试用户名和密码为:<br>用户名:"&HX_UserName&" 密码:"&HX_PassWord&"</font>"):HX_GoBack "用户名或密码错误,请重新填写!",""
END IF
WS_S.HX_RSClose RS
Case "loginout":if request.Cookies(prefix)("LOGINUSERNAME")<>"" and request.Cookies(prefix)("logAppointment")<>"" then call WS_S.SaveAdminLog(request.Cookies(prefix)("LOGINUSERNAME"),request.Cookies(prefix)("logAppointment"),"成功注销!"):Call WS_S.HX_LoginOut():HX_GoBack "成功注销!","HX_Login.asp"
End Select
WSOASCOMSTR=WSOASCOMSTR&"<table width=""200"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=center><tr><td height=""128"" ></td></tr>
<tr><td height=""170""> </td></tr><tr><td height=""150"" valign=""top"">"
WSOASCOMSTR=WSOASCOMSTR&"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">
<tr><td width=""43%"" height=""40""> </td><td width=""52%"" align=""right""></td><td width=""5%""> </td></tr><tr><td height=""60""> </td><td><table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""0"" class=""td3""><form name=""form1"" method=""post"" action=""HX_login.asp?action=checklogin"" onSubmit=""return userlogincheck();""><tr><td width=""14%"" height=""23"">用户名:</td>"
WSOASCOMSTR=WSOASCOMSTR&"<td width=""25%""><input name=""HX_UserName"" type=""text"" class=""bdlogin"" size=""15"" maxlength=""16""></td></tr><tr><td width=""13%"" align=right>密 码:</td><td width=""26%""><input name=""HX_PassWord"" type=""password"" class=""bdlogin"" size=""15"" maxlength=""16""></td><td width=""22%"" align=""right""></td></tr><tr><td height=""27"">验证码:</td><td colspan=""4""><input name=""HX_ValidateCode"" type=""text"" class=""bdlogin"" size=""6"" maxlength=""4"" style=""ime-mode:disabled"" onKeyUp=""value=value.replace(/[^0-9_]/ig,'')""> "
WSOASCOMSTR=WSOASCOMSTR&"<IMG src=""HXinclude/HX_GetCode.asp"" height=""16"" width=""60"" alt=""验证码,看不清楚?请点击刷新验证码"" align=""absmiddle"" style=""cursor : pointer;"" onclick=""this.src='HXinclude/HX_GetCode.asp'""> 
WSOASCOMSTR=WSOASCOMSTR&""
<input type=""submit"" name=""Submit"" value="" 登 录 "" class=""bdlogin""> <input type=""button"" name=""forget"" value=""忘记密码"" class=""bdlogin"" "
if GETPASSWORD=False then WSOASCOMSTR=WSOASCOMSTR&"disabled"
WSOASCOMSTR=WSOASCOMSTR&" onClick=""openwin(430,140,'HX_GetPassWord.asp');""></td></tr></form></table></td><td> </td></tr><tr><td height=""49""> </td><td colspan=""2"" valign=bottom align=right class=td3><br><br></td></tr></table></td></tr></table></body></html>"
response.Write WSOASCOMSTR%>
...全文
143 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
number123456 2009-08-27
  • 打赏
  • 举报
回复
<br/><input type=""submit"" name=""Submit"" value="" 登 录 "" class=""bdlogin""> 
黑心 2009-08-27
  • 打赏
  • 举报
回复
HOHO
number123456 2009-08-27
  • 打赏
  • 举报
回复
你在改的时候有换行的了
bulls5988 2009-08-27
  • 打赏
  • 举报
回复
Microsoft VBScript 编译器错误 错误 '800a0409'

未结束的字符串常量

/Index_Admin_Login.asp,行 42

WSOASCOMSTR=WSOASCOMSTR&"<IMG src=""HXinclude/HX_GetCode.asp"" height=""16"" width=""60"" alt=""验证码,看不清楚?请点击刷新验证码"" align=""absmiddle"" style=""cursor : pointer;"" onclick=""this.src='HXinclude/HX_GetCode.asp'""> 

你这方法我第一次就用过了,不行的。

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧