公告:
祝大家在虎年里，虎虎生威！生意红火，事业有成！当然，还有爱情大丰收 *__*CSBlogV2.11问题收集与信息反馈 ; CSCMSV1正式上线公测。
CSWave系列官方QQ群：24301472(最新版的一般都先发布在共享里哟) 。
也是从网上而来，不过改了一点点而已～
<%
''---------------------------------------------------
'' 对远程的访问操作
'' Atwnid 2006-9-18
''---------------------------------------------------
''----------------------------------------------------------------↓获取远程文件信息
Function ReadNetFile(ByVal url)
Dim objXML
Set objXML = CreateObject("Microsoft.XMLHTTP")
With objXML
.Open "GET", url, False
.Send
'ReadNetFile =.responseText ''----使用此方法时只在编码一致时才会有效，否则是会出错的
ReadNetFile = Bytes2Bstr(.responsebody)
End With
Set objXML = Nothing
End Function
''----------------------------------------------------------------↓ 二进制转字符串，否则会出现乱码的！
Function Bytes2Bstr(ByVal vin)
Dim i,strreturn,thischarcode,nextcharcode
strreturn = ""
for i = 1 to LenB(vin) ''--LenB 返回的是用于代表字符串的字节数
thischarcode = AscB(MidB(vin,i,1)) ''--AscB 而是返回首字节
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = AscB(MidB(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
Bytes2Bstr = strreturn
End Function
%>
今天比较晕～ 可能是发烧了～～～
……
阅读全文及评论...Function LenANSI(str)
LenANSI = 0
If isNull(str) Or str = "" Then Exit Function
Dim strLen,i
strLen = Len(str)
For i=1 To strLen
If Asc(Mid(str,i,1))<0 Then ''---如果是汉字
LenANSI=LenANSI + 2
Else
LenANSI=LenANSI + 1 ''---如果是英文
阅读全文及评论...
今天用 order by newid() 这个方法来从数据库中选取一条随机的记录，可是80％的情况下是超时的。因为第一次写.Net的实用性程序，我还以为我哪儿写错了呢！因为一直盲目的相信Net的效率，可是却忽略了MSSQL的性能，明明显示的一直是超时却不相信。
后来问了下经理的随机选取算法，他用的是：
统计表里所有的数据 N，然后返回一个小于N的随机数，再选择一条ID大于N就行了！问题解决，在MSSQL里的预计执行计划里newId()的成本为88.44%
实际的页面执行再也没有出现超时了！
阅读全文及评论...Function SendMail(byval Email,byval Name,byval Username,byval Password,byval Subject,byval Body,byval Postserver)
If IsValidEmail(Email) Then
Set objMsg = Server.CreateObject("Jmail.Message") '建立发送邮件的对象
objMsg.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值
objMsg.logging = true '启用邮件日志
objMsg.Charset = "GB2312" '邮件的文字编码为国标
objMsg.ContentType = "text/html" '邮件的格式为HTML格式
objMsg.AddRecipient Email '邮件收件人的地址
objMsg.FromName= Name '发件人的名字
objMsg.From = Username '发件人的E-MAIL地址 必须与AddRecipient相同
阅读全文及评论...对联广告代码一:[普通效果_自动漂浮]
在1024*768分辨率下正常显示，在800*600的分辨率下可以自动隐藏，以免遮住页面影响访问者浏览内容
-----------------------------------------
[code]
var delta=0.015
var collection;
function floaters() {
this.items = [];
this.addItem = function(id,x,y,content){
阅读全文及评论...''-------------------------------------------------------------------------------------------------↓
''----- 入参：路径，文件名
''----- 出参：删除成功与否
''--------------------------------------------------------------------------------------------------
Function DelFile(ByVal Path,ByVal FileName)
Dim FullPath,BakPath,FileBaseName,FileExtName,FileBakName
Dim objFso
FullPath = Server.MapPath(Path&FileName)
阅读全文及评论...<DIV id="UIGift" style="position:absolute;left:260px;top:260px;width:360px;height:200px;z-index:1;background-color:#F9F8F2 ;border:#0066cc 1px solid;font-family:verdana;font-size:12px;background-image: url(Images/documents_bg.gif); " >
<div style="background-color:#89A7EB;font-weight: bold;font-size:14px;color:#FFF;background-image: url(Images/title.gif);line-height:15px;padding:5px;BORDER-bottom:#D4D0C8 2px solid;" onmousedown="MDown(UIGift)">我是标题
<div style="position:absolute;right:10px;font-size:12px;font-weight: normal;cursor: hand;" onClick="LayerClose();">关闭</div>
</div>
<div style="padding:8px;">
<div style="margin-top:10px; "></div>
说明：<br>
阅读全文及评论...
订阅地址
