<%@LANGUAGE="VBSCRIPT"%>
<%
Dim sale__MMColParam
sale__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
sale__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim sale
Dim sale_numRows
Set sale = Server.CreateObject("ADODB.Recordset")
sale.ActiveConnection = MM_webconn_STRING
sale.Source = "SELECT * FROM sale WHERE s_type = " + Replace(sale__MMColParam, "'", "''") + " ORDER BY s_date DESC"
sale.CursorType = 0
sale.CursorLocation = 2
sale.LockType = 1
sale.Open()
sale_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("m_vip"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization="m_flag"
MM_redirectLoginSuccess="../cn/member.asp"
MM_redirectLoginFailed="../cn/login.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_webconn_STRING
MM_rsUser.Source = "SELECT m_vip, m_pass"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM member WHERE m_vip='" & Replace(MM_valUsername,"'","''") &"' AND m_pass='" & Replace(Request.Form("m_pass"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And true Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
Function StrLenB( strString )
dim intLoop,intReturn
if isNull(strString) then
StrLenB = 0
exit Function
end if
intReturn = len(strString)
for intLoop = 1 to len(strString)
if ( asc( mid( strString, intLoop, 1 ) ) < 0 ) then intReturn = intReturn + 1
next
StrLenB = intReturn
End Function
Function strLeftB( strString ,intLen)
dim intLenB,intLoop
if StrLenB(strString) < intLen then
strLeftB = strString
exit Function
end if
for intLoop = 1 to Len(strString)
if ( asc( mid( strString, intLoop, 1 ) ) < 0 ) then
intLenB = intLenB + 2
else
intLenB = intLenB + 1
end if
if intLenB > intLen then
intLoop = intLoop - 1
exit for
elseif intLenB = intLen then
exit for
end if
next
strLeftB = left(strString,intLoop)
End Function
Function IsLetter( chr )
dim blnReturn
blnReturn = false
if ( ( chr >= asc("a") and chr <= asc("z") ) or ( chr >= asc("A") and chr <= asc("Z") ) or ( chr >= asc("0") and chr <= asc("9") ) ) then
blnReturn = true
end if
IsLetter = blnReturn
End Function
Function AlignString( string, byVal size )
dim r,nLen,n,i,a,s_i
r = string
nLen = StrLenB( string )
' if string's width less then size ,return this string .
if ( nLen > size ) then
size = size - 2
n = 0
i = 1
' cut to index
do while ( i )
a = asc( mid( string, i, 1 ) )
if ( a < 0 ) then
if ( n + 1 = size ) then
i = i - 1
exit do
end if
n = n + 1
end if
n = n + 1
if ( n = size ) then exit do
i = i + 1
loop
'fxDebug( i )
s_i = i
a = asc( mid( string, i+1, 1 ) )
if ( IsLetter(a) ) then
do while ( 1 )
a = asc( mid( string, i, 1 ) )
if ( not IsLetter(a) ) then exit do
i = i -1
if ( i = 0 ) then
i = s_i
exit do
end if
loop
end if
r = mid( string, 1, i ) & "..."
end if
AlignString = r
End Function
%>
广州晟宝香蔓国际美容连锁沙龙！
