|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。参考|函数|成绩一段没有空格的长英文,体系会以为它是一个单词,为了坚持单词的完全性不会主动换行。实在这类情形不处置也能够,由于在实践使用中除测试或有人扰乱不会呈现这类情形,不外为了以防万一吧,我几个月前写了上面这个函数,只是一种权宜之计,为了凑合歹意损坏者。
-------------------------------------------------
functionname:autowrap
description:办理长英文不主动换行的成绩
parameters:a_strSourceString:要转换的源字符串
a_intSize,每行宽度
author:bigeagle
date:2000/4/17
history:2000/4/17:version1.0
-------------------------------------------------------
functionAutoWrap(a_strSourceString,a_intSize)
diml_strDestString
假如内容中有回车则加入
ifinstr(a_strSourceString,chr(13)+chr(10))0then
AutoWrap=replace(a_strSourceString,chr(13)+chr(10),"<br>")
exitfunction
endif
checkifvalidparameters
callassert(vartype(a_strSourceString)=8,"AutoWrap","a_strSourceStringmustbeastring")
callassert(vartype(a_intSize)=2,"AutoWrap","a_intSizemustbeainteger")
dimi
ifa_intSize>=len(a_strSourceString)then
l_strDestString=a_strSourceString
else
l_strDestString=left(a_strSourceString,a_intSize)
fori=1tolen(a_strSourceString)stepa_intSize
ifinstr(i,mid(a_strSourceString,i,a_intSize),chr(32))=0_
orinstr(i,mid(a_strSourceString,i,a_intSize),chr(13)+chr(10))then
l_strDestString=l_strDestString+""+mid(a_strSourceString,i+1,a_intSize)
else
l_strDestString=l_strDestString+mid(a_strSourceString,i+1,a_intSize)
endif
next
endif
callprint("[AutoWrap:]returnvalueis:"+l_strDestString+"")
l_strDestString=replace(l_strDestString,chr(13)+chr(10),"<br>")
AutoWrap=l_strDestString
endfunction</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 |
|