求救一个很八卦的问题？

2004-12-11 09:29:18 125 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

tuts4you-lena151-Crackme-tutorial06 一、前言本次研究的是lena151-Crackme-tutorial06，也是一个应用程序，但因为平台迭代的关系，程序不能正常运行，只能完成部分破解。（一）·本次我们要破解的目标是个应用程序，如下图 (二)、使用工具：x32dbg 二、过程这个程序的破解的方法很多，首先最简单的一种不外乎就是搜索字符串，我就按照这个思路来完成。（一）查找字符串&lt;Unregis... 阅读详情

在后台添加新闻后，前台显示标题和添加时间太长，有什么代码可以将标题多余几个字后省略号代替，还有时间用类似于04-10-05的方式代替呢？
送你50，别客气，拿走。不够再要~！

...全文

别再手动配网了！用安信可PB-02模组+PHY Mesh App，5分钟搞定蓝牙Mesh智能灯群控本文详细介绍了如何使用安信可PB-02模组和PHY Mesh App快速搭建蓝牙Mesh智能灯群控系统。通过5分钟的硬件连接和固件烧录，用户可实现多灯分组控制、场景切换及地理围栏等高级功能，显著提升智能家居部署效率。方案特别适合需要快速实现灯光群控的场景。阅读详情

zyh791211

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

超级大笨狼 2004-12-12

打赏
举报

left,year,day,month,right,mid...
这几个够了吧？

xuanhu 2004-12-12

打赏
举报

我倒，标题可用 hackate(青羽兰心-------~兰心*-*寒~)
时间可用DateValue(rs("dateandtime"))具体函数使用方法在baidu里面可以搜到，

hackate 2004-12-12

打赏
举报

用
now()
函数就可以的出你的结果了，为什么要那么麻烦，没必要吧!

zyh791211 2004-12-11

打赏
举报

up~!

zyh791211 2004-12-11

打赏
举报

函数怎么调用呢？

xiaoyuehen 2004-12-11

打赏
举报

第一个问题: If + Left函数 + Len函数

第二个问题, 如果你的要求不高的话, 可以用DateValue(字段值)得到如2004-2-2的形式.如果需要04-02-02或02-02的格式的话, 最好还是写个函数.以下是个例子:
Function getBill_Code(intNum)
Dim str
str = "0000000" & intNum

getBill_Code = Right(str, Len(str))
End Function

几个 0 你可以自己设置, 这是我用来格式化单号的.

zyh791211 2004-12-11

打赏
举报

<a href=news_view.asp?id=<%=rs("id")%> target=_blank><%=n_topic%></a>

zyh791211 2004-12-11

打赏
举报

先谢楼上的，但我写的那个很好就是不起作用啊，着急！

zyh791211 2004-12-11

打赏
举报

找到了：
function time_type(tvar,tt)
dim ttt,d_year,d_month,d_day,d_hour,d_minute,d_second
ttt=tvar
if ttt="" or isnull(ttt) then ttt=now_time
if not(isdate(ttt)) then
time_type=""
exit function
end if
d_year=year(ttt)
d_month=month(ttt)
if len(d_month)<2 then d_month="0"&d_month
d_day=day(ttt)
if len(d_day)<2 then d_day="0"&d_day
d_hour=hour(ttt)
if len(d_hour)<2 then d_hour="0"&d_hour
d_minute=minute(ttt)
if len(d_minute)<2 then d_minute="0"&d_minute
d_second=second(ttt)
if len(d_second)<2 then d_second="0"&d_second
select case tt
case 1 '2000-10-10 23:45:45
time_type=d_year&"-"&d_month&"-"&d_day&" "&d_hour&":"&d_minute&":"&d_second
case 11 '20001010234545
time_type=d_year&d_month&d_day&d_hour&d_minute&d_second
case 2 '年(4)-月-日时:分:秒
time_type=d_year&"年"&d_month&"月"&d_day&"日 "&d_hour&"时"&d_minute&"分"&d_second&"秒"
case 3 '10-10 23:45
time_type=d_month&"-"&d_day&" "&d_hour&":"&d_minute
case 4 '2003-10-10
time_type=d_year&"-"&d_month&"-"&d_day
case 5 '2003年10月10日
time_type=d_year&"年"&d_month&"月"&d_day&"日"
case else
time_type=ttt
end select
end function

function code_js(strers,tt)
dim strer
strer=trim(strers)
if strer="" or isnull(strer) then
code_js=""
exit function
end if
if ishealth then
strer=code_health(strer)
end if
strer=replace(strer,"\","\\")
strer=replace(strer,chr(39),"'") '单引号
'strer=replace(strer,chr(39),"\'")
strer=replace(strer,chr(34),""") '双引号
'strer=replace(strer,chr(34),"\""")
select case tt
case 0
'strer=replace(strer,vbcrlf,"") '回车
strer=replace(strer,chr(10),"")
strer=replace(strer,chr(13),"")
case 1
'strer=replace(strer,vbcrlf,"\n") '回车
strer=replace(strer,chr(10),"\n")
strer=replace(strer,chr(13),"")
end select
if right(strer,1)="\" then
strer=strer&"n"
end if
code_js=strer
end function
——————————————————————————————————————
引用：
n_topic=code_js(n_topic,1)

n_tim=time_type(n_tim,1)
————————————————————
为什么不起作用呢》？

DARKNESSFALL 2004-12-11

打赏
举报

楼主应该要的就是这个效果

hackate 2004-12-11

打赏
举报

呵呵，我好笨哦，可以这样
<a href="xx.asp"><% if len(rs("bt"))>20 then%>left(rs("bt"),20)...<% else%>rs("bt")<%end if%></a>

不知道你是否满意，！

求救一个很八卦的问题？

相关推荐