|
 |
|
| |
 |
|
<%
Function chrbyte(str, length)
for i=1 to len(str)
charat=mid(str, i, 1)
if asc(charat)>0 And asc(charat)< 255 Then
wLen=wLen+1
' length 보다 값이 클 경우 위치 저장
If wLen > length Then
k=i
Exit For
End If
Else
wLen=wLen+2
If wLen > length Then
k=i
Exit For
End If
End If
Next
If k <> "" Then
str = left(str, k) & "..."
End If
chrbyte = str
End Function
num = 0
sql=" Select top 4 BoardId, Category, Subject, RegDate "
sql=sql&" From tbClassion_Board "
sql=sql&" Where Category='senior' "
sql = sql &" order by regdate desc"
Set rs = conn.Execute(sql)
do until rs.eof or rs.bof
num = num+1
s_Cust_Name = chrbyte(rs("Subject"), 22)
regDate = split(left(rs("RegDate"),10),"-")
%>
| "><%=s_Cust_Name%> |
<%=regDate(1)&"."®Date(2)%> |
<%
rs.movenext
loop
rs.close
set rs=nothing
for i=1 to 4-cint(num)
%>
| |
|
<%
next
%>
|
|
|
|
