科讯的登录框是调入框架做的,可是那个长宽好像是固定了的,我想自己修改一下长宽,不知道在那修改,CSS样式与KS_INC里的都看了的,还是没有啊,请高手指教!!
只能告诉我在那里找到调长宽的就行了!
或是
{$GetUserLogin}
这个是怎么调用的也行,其它的我还做的来!
[em80]
userlogin.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/KS.UserCls.asp"-->
<%
response.cachecontrol="no-cache"
response.addHeader "pragma","no-cache"
response.expires=-1
response.expiresAbsolute=now-1
'Response.CharSet="gb2312"
Dim KSCls
Set KSCls = New UserLogin
KSCls.Kesion()
Set KSCls = Nothing
Class UserLogin
Private KS
Private KSUser
Private Sub Class_Initialize()
Set KS=New PublicCls
Set KSUser = New UserCls
End Sub
Private Sub Class_Terminate()
Call CloseConn()
Set KS=Nothing
Set KSUser=Nothing
End Sub
Public Sub Kesion()
%>
<html>
<head>
<title>会员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.textbox
{
BACKGROUND-COLOR: #ffffff;
BORDER-BOTTOM: #666666 1px solid;
BORDER-LEFT: #666666 1px solid;
BORDER-RIGHT: #666666 1px solid;
BORDER-TOP: #666666 1px solid;
COLOR: #666666;
HEIGHT: 18px;
border-color: #666666 #666666 #666666 #666666; font-size: 9pt
}
TD
{
FONT-FAMILY:宋体;FONT-SIZE: 9pt;line-height: 130%;
}
a{text-decoration: none;} /* 链接无下划线,有为underline */
a:link {color: #000000;} /* 未访问的链接 */
a:visited {color: #333333;} /* 已访问的链接 */
a:hover{COLOR: #AE0927;} /* 鼠标在链接上 */
a:active {color: #0000ff;} /* 点击激活链接 */
-->
</style>
<script language="javascript">
//if(self==top){self.location.href="index.asp";}
function CheckForm(){
var username=document.myform.Username.value;
var pass=document.myform.Password.value;
if (username=='')
{
alert('请输入用户名');
document.myform.Username.focus();
return false;
}
if (pass=='')
{
alert('请输入登录密码');
document.myform.Password.focus();
return false;
}
document.myform.submit();
}
</script>
</herd>
<body leftmargin=0 topmargin=0 bgcolor="transparent">
<%
If KS.S("Action")="Top" Then
Call Login1()
Else
Call Login2()
End If
End Sub
Sub Login1()
If KSUser.UserLoginChecked() = False Then
%>
<table cellspacing="0" cellpadding="0" width="99%" border="0">
<form name="myform" action="<%=KS.GetDomain%>User/CheckUserLogin.asp?Action=Top" method="post" onSubmit="return(CheckForm())"">
<tr>
<td>用户名：<input class="textbox" size="10" name="Username" />密 码：<input class="textbox" type="Password" size="10" name="Password"><%if KS.Setting(34)=1 Then%>验证码：<input name="Verifycode" type="text" class="textbox" id="Verifycode" size="6" /><%
Response.Write "<IMG style=""cursor:hand"" src=""" & KS.GetDomain & "KS_Inc/verifycode.asp?n=" & Timer & """ onClick=""this.src='" & KS.GetDomain & "ks_inc/verifycode.asp?n='+ Math.random();"" align=""absmiddle"">"
end if%>
<input name="loginsubmit" type="image" src="<%=KS.GetDomain%>images/login.gif" align="top" />
<a href="<%=KS.GetDomain%>User/UserReg.asp" target="_blank"><img src="<%=KS.GetDomain%>images/reg.gif" border="0" align="absmiddle" twffan="done" /></a></td>
</tr>
</table>
<%Else
Dim MyMailTotal:MyMailTotal=Conn.Execute("Select Count(ID) From KS_Message Where Incept='" &KSUser.UserName &"' And Flag=0 and IsSend=1 and delR=0")(0)
IF MyMailTotal>0 Then MyMailTotal="<font color=red>" & MyMailTotal & "</font>":Response.Write "<bgsound src=""" & KS.GetDomain & "User/images/mail.wav"" border=0>"
%>
<table cellspacing="0" cellpadding="0" width="99%" border="0">
<tbody>
<tr>
<td align="center">您好!<font color=red><%=KSUser.UserName%></font>,欢迎来到会员中心! 【<a href="<%=KS.GetDomain%>User/index.asp?User_Message.asp?action=inbox" target="_parent">收信箱 <%=MyMailTotal%></a>】 【<a href="<%=KS.GetDomain%>User/index.asp" target="_parent">会员中心</a>】 【<a href="<%=KS.GetDomain%>User/UserLogout.asp" target="_parent">退出登录</a>】</td>
</tr>
</table>
<%End IF
End Sub
Sub Login2()
If KSUser.UserLoginChecked() = False Then
%>
<table align="center" width="98%" border="0" cellspacing="0" cellpadding="0">
<form name="myform" action="<%=KS.GetDomain%>User/CheckUserLogin.asp" method="post" onSubmit="return(CheckForm())"">
<tr>
<td height="25">用户名：
<input name="Username" type="text" class="textbox" id="Username" size="15"></td>
</tr>
<tr>
<td height="25">密 码：
<input name="Password" type="password" class="textbox" id="Password" size="16"></td>
</tr>
<%if KS.Setting(34)=1 Then%>
<tr>
<td height="25">验证码：
<input name="Verifycode" type="text" class="textbox" id="Verifycode" size="6"><%
Response.Write "<IMG style=""cursor:hand"" src=""" & KS.GetDomain & "KS_Inc/verifycode.asp?n=" & Timer & """ onClick=""this.src='" & KS.GetDomain & "ks_inc/verifycode.asp?n='+ Math.random();"" align=""absmiddle"">"
%>
</td>
</tr>
<%end if%>
<tr>
<td height="25"><div align="center"><img src="<%=KS.GetDomain%>images/losspass.gif" align="absmiddle"> <a href="<%=KS.GetDomain%>User/index.asp?GetPass.asp" target="_parent">忘记密码</a> <img src="<%=KS.GetDomain%>images/mas.gif" align="absmiddle"> <a href="<%=KS.GetDomain%>User/UserReg.asp" target="_parent">新会员注册</a> </div></td>
</tr>
<tr>
<td height="25"><div align="center">
<input type="submit" name="Submit" class="inputButton" value="登录">
<input name="ExpiresDate" type="checkbox" id="ExpiresDate" value="checkbox">
永久登录</div></td>
</tr>
</form>
</table>
<%Else
Dim MyMailTotal:MyMailTotal=Conn.Execute("Select Count(ID) From KS_Message Where Incept='" &KSUser.UserName &"' And Flag=0 and IsSend=1 and delR=0")(0)
IF MyMailTotal>0 Then MyMailTotal="<font color=red>" & MyMailTotal & "</font>"
dim ChargeTypeStr
if KSUser.ChargeType=1 Then
ChargeTypeStr="扣点"
elseif KSUser.ChargeType=2 Then
ChargeTypeStr="有效期"
else
ChargeTypeStr="无限期"
End If
%>
<table align="center" width="80%" border="0" cellspacing="0" cellpadding="0">
<tr><td align="center"><font color="#FFFFFF"><strong><%=KSUser.UserName%></strong></font>,
<%
If (Hour(Now) < 6) Then
Response.Write "<font color=##0066FF>凌晨好!</font>"
ElseIf (Hour(Now) < 9) Then
Response.Write "<font color=##000099>早上好!</font>"
ElseIf (Hour(Now) < 12) Then
Response.Write "<font color=##FF6699>上午好!</font>"
ElseIf (Hour(Now) < 14) Then
Response.Write "<font color=##FF6600>中午好!</font>"
ElseIf (Hour(Now) < 17) Then
Response.Write "<font color=##FF00FF>下午好!</font>"
ElseIf (Hour(Now) < 18) Then
Response.Write "<font color=##0033FF>傍晚好!</font>"
Else
Response.Write "<font color=##ff0000>晚上好!</font>"
End If
%> </td></tr>
<tr><td>计费方式： <strong><%= ChargeTypeStr%></strong> </td></tr>
<tr><td>经验积分： <strong><%=KSUser.Score%></strong> 分</td></tr>
<%if KSUser.ChargeType=1 or KSUser.ChargeType=2 then%>
<% if KSUser.ChargeType=1 then%>
<tr><td>可用点券： <strong><%=KSUser.Point%></strong> 点</td></tr>
<%else%>
<tr><td>剩余天数： <strong><%=KSUser.GetEdays%></strong></td></tr>
<%end if%>
<%end if%>
<tr><td>待阅短信： <strong><%=MyMailTotal%></strong> 条</td></tr>
<tr><td>登录次数： <strong><%=KSUser.LoginTimes%></strong> 次</td></tr>
<tr><td nowrap="nowrap">【<a href="<%=KS.GetDomain%>User/index.asp" target="_parent">会员中心</a>】【<a href="<%=KS.GetDomain%>User/UserLogout.asp" target="_parent">退出登录</a>】</td></tr>
</table>
<%End IF
End Sub
End Class
%>
*****************
红色的为我要的样式
********************
图片下面的那是我要的效果!
这个样式有科讯设置的高度,过了就不会显示出来!
我需要的是调一下这个高度,在这串代码里修改了没用,调用时是在模板里调用的,是这样子的
<div style="padding-top:48px;"> {$GetUserLogin} </div>
这已经很清楚了,还有什么不清楚的吗?
同里在这也祝各们节日快乐啊!
谢谢!
[em80]
[此贴子已经被作者于2007-12-25 13:42:52编辑过]
当前位置：
支持(0) | 
反对(0)
顶端 
底部
![电子邮件:[ hg126@126.com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
